From cb62d1fee12e0fa33e746e0e1d497fbee2154601 Mon Sep 17 00:00:00 2001 From: bd Date: Sun, 21 Jul 2024 20:10:08 -0600 Subject: Move current track, time, to tab bar. Tab bar always on. --- .config/emacs/modules/bd--tabs.el | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) (limited to '.config/emacs/modules/bd--tabs.el') diff --git a/.config/emacs/modules/bd--tabs.el b/.config/emacs/modules/bd--tabs.el index 3f627b7..089c852 100644 --- a/.config/emacs/modules/bd--tabs.el +++ b/.config/emacs/modules/bd--tabs.el @@ -3,14 +3,26 @@ ;;; Code: +;;;; time and date +(require 'time) +(setq display-time-format "%m/%d/%y %H:%M (%a)" + display-time-default-load-average nil) +;; (display-time) + + ;;;; turn tabs on, undo/redo mode -(setq tab-bar-show 1) +(setq tab-bar-show t) (tab-bar-history-mode) +(tab-bar-select-tab 1) +(tab-bar-mode) ;;;; remove useless gui elements (setopt tab-bar-format - '(tab-bar-format-tabs) + '(tab-bar-format-tabs + tab-bar-format-align-right + tab-bar-format-global) + tab-bar-close-button-show nil ;; size @@ -21,7 +33,7 @@ tab-bar-select-tab-modifiers '(meta)) -;;;; use project name if it exists +;; use project name if it exists (defun bd/tab-bar-name-function () (mapconcat (lambda (buffer) (let* ((file (buffer-file-name buffer)) -- cgit v1.2.3