emacs full rework from laptop

1 files changed, 63 insertions, 0 deletions

diff --git a/emacs/site-lisp/modeline-config.el b/emacs/site-lisp/modeline-config.el
new file mode 100644
index 0000000..873f855
--- /dev/null
+++ b/emacs/site-lisp/modeline-config.el
@@ -0,0 +1,63 @@
+;;; Modeline config
+
+(provide 'modeline-config)
+
+(require 'battery)
+(display-battery-mode 1)
+
+(use-package doom-modeline
+  :init
+  (doom-modeline-mode 1))
+(use-package minions
+  :init
+  (minions-mode 1)
+  :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
+
+;; -----------------------------------------------------------------------------
+;; telephone line stuff
+
+;; (setq telephone-line-primary-left-separator 'telephone-line-tan-left)
+;; (setq telephone-line-primary-right-separator 'telephone-line-tan-right)
+
+;; (telephone-line-defsegment* telephone-line-time-segment ()
+;;   (telephone-line-raw display-time-string t))
+
+;; (setq telephone-line-lhs
+;;       '((evil   . (telephone-line-evil-tag-segment))
+;;         (accent . (telephone-line-vc-segment
+;;                    telephone-line-erc-modified-channels-segment
+;;                    telephone-line-process-segment))
+;;         (nil    . (telephone-line-buffer-segment
+;;                    telephone-line-minions-mode-segment))))
+;; (setq telephone-line-rhs
+;;       '((nil    . (telephone-line-misc-info-segment))
+;;         (accent . (telephone-line-time-segment))
+;;         (evil   . (telephone-line-airline-position-segment))))
+
+;; (telephone-line-mode 1)