emacs to add single top header and move some (global) info there

1 files changed, 3 insertions, 27 deletions

diff --git a/emacs/site-lisp/modeline-config.el b/emacs/site-lisp/modeline-config.el
index b74a15d..5b1f7e5 100644
--- a/emacs/site-lisp/modeline-config.el
+++ b/emacs/site-lisp/modeline-config.el
@@ -2,9 +2,6 @@
 
 (provide 'modeline-config)
 
-;; (require 'battery)
-;; (display-battery-mode 1)
-
 (use-package doom-modeline
   :init
   (doom-modeline-mode 1))
@@ -14,30 +11,9 @@
   :custom
   (minions-prominent-modes '(persp-mode auto-fill-mode eldoc-mode eglot-mode lsp-mode)))
 
-(require 'time)
-(setq display-time-day-and-date t)
-;; Set up the time timer.
-(defun enable-display-time-backend ()
-  "Do the internal bit of `display-time-mode` but without adding it to the
-global mode string"
-  (and display-time-timer (cancel-timer display-time-timer))
-  (setq display-time-timer nil)
-  (setq display-time-string "")
-  (setq display-time-load-average display-time-default-load-average)
-  (progn
-    ;; (or (memq 'display-time-string global-mode-string)
-    ;;     (setq global-mode-string
-    ;;           (append global-mode-string '(display-time-string))))
-    ;; Set up the time timer.
-    (setq display-time-timer
-          (run-at-time t display-time-interval
-                       'display-time-event-handler))
-    ;; Make the time appear right away.
-    (display-time-update)))
-
-;; (enable-display-time-backend)
-(display-time-mode 1)
-;; there is more in the single-header file
+(setq-default global-mode-string '("" (:eval (concat (with-face (format " [%s]  " (shorten-path default-directory))
+                                                                :weight 'bold
+                                                                :foreground "green2")))))
 
 ;; -----------------------------------------------------------------------------
 ;; telephone line stuff