about summary refs log tree commit diff stats
path: root/lisp/+modeline.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/+modeline.el')
-rw-r--r--lisp/+modeline.el11
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/+modeline.el b/lisp/+modeline.el index 7c74f76..7615ea7 100644 --- a/lisp/+modeline.el +++ b/lisp/+modeline.el
@@ -20,7 +20,7 @@
20(defun +modeline-buffer-name () ; gonsie 20(defun +modeline-buffer-name () ; gonsie
21 "Display the buffer name." 21 "Display the buffer name."
22 (propertize 22 (propertize
23 (+string-align (buffer-name) 20 :before " " :ellipsis " ") 23 (+string-align (buffer-name) 20 :before " " :ellipsis "~ ")
24 'face 'bold 24 'face 'bold
25 'help-echo (or (buffer-file-name) 25 'help-echo (or (buffer-file-name)
26 (buffer-name)) 26 (buffer-name))
@@ -49,7 +49,7 @@
49 "Display the current `major-mode'." 49 "Display the current `major-mode'."
50 (concat " " 50 (concat " "
51 (propertize (+string-truncate (format-mode-line mode-name) 51 (propertize (+string-truncate (format-mode-line mode-name)
52 12 "") 52 12 "~")
53 'face 'bold 53 'face 'bold
54 'keymap mode-line-major-mode-keymap 54 'keymap mode-line-major-mode-keymap
55 'mouse-face 'mode-line-highlight))) 55 'mouse-face 'mode-line-highlight)))
@@ -108,6 +108,7 @@ The order of elements matters: whichever one matches first is applied."
108 "mouse-2: widen buffer.") 108 "mouse-2: widen buffer.")
109 'local-map (purecopy (simple-modeline-make-mouse-map 109 'local-map (purecopy (simple-modeline-make-mouse-map
110 'mouse-2 'mode-line-widen)) 110 'mouse-2 'mode-line-widen))
111 'face 'font-lock-doc-face
111 'mouse-face 'mode-line-highlight)))) 112 'mouse-face 'mode-line-highlight))))
112 113
113(define-minor-mode file-percentage-mode 114(define-minor-mode file-percentage-mode
@@ -161,5 +162,11 @@ The order of elements matters: whichever one matches first is applied."
161 (format (if (> text-scale-mode-amount 0) " (%+d)" " (%-d)") 162 (format (if (> text-scale-mode-amount 0) " (%+d)" " (%-d)")
162 text-scale-mode-amount))) 163 text-scale-mode-amount)))
163 164
165(defun +modeline-ace-window-display ()
166 "Display `ace-window-display-mode' information in the modeline."
167 '(+ace-window-display-mode
168 (ace-window-mode
169 (" " (:eval (window-parameter (selected-window) 'ace-window-path))))))
170
164(provide '+modeline) 171(provide '+modeline)
165;;; +modeline.el ends here 172;;; +modeline.el ends here