about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el1
-rw-r--r--lisp/acdw-modeline.el10
2 files changed, 11 insertions, 0 deletions
diff --git a/init.el b/init.el index 0a82bfd..307b753 100644 --- a/init.el +++ b/init.el
@@ -939,6 +939,7 @@ if ripgrep is installed, otherwise `consult-grep'."
939 simple-modeline-segment-position 939 simple-modeline-segment-position
940 simple-modeline-segment-word-count) 940 simple-modeline-segment-word-count)
941 (simple-modeline-segment-misc-info 941 (simple-modeline-segment-misc-info
942 acdw-modeline/text-scale
942 simple-modeline-segment-process 943 simple-modeline-segment-process
943 acdw-modeline/god-mode-indicator 944 acdw-modeline/god-mode-indicator
944 acdw-modeline/minions 945 acdw-modeline/minions
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index 79249bb..7eca143 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el
@@ -73,6 +73,16 @@ indicator in the mode-line."
73 (minions-minor-modes-menu))))) 73 (minions-minor-modes-menu)))))
74 'mouse-face 'mode-line-highlight))) 74 'mouse-face 'mode-line-highlight)))
75 75
76(defun acdw-modeline/text-scale ()
77 ;; adapted from https://github.com/seagle0128/doom-modeline
78 (when (and (boundp 'text-scale-mode-amount)
79 (/= text-scale-mode-amount 0))
80 (format
81 (if (> text-scale-mode-amount 0)
82 " (%+d)"
83 " (%-d)")
84 text-scale-mode-amount)))
85
76(defun acdw-modeline/vc-branch () 86(defun acdw-modeline/vc-branch ()
77 ;; from https://www.gonsie.com/blorg/modeline.html, from Doom 87 ;; from https://www.gonsie.com/blorg/modeline.html, from Doom
78 (if-let ((backend (vc-backend buffer-file-name))) 88 (if-let ((backend (vc-backend buffer-file-name)))