about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-10-11 21:29:03 -0500
committerCase Duckworth2021-10-11 21:29:03 -0500
commit8891198e040c2d2cf82e6c8fcea5ee893e99fad9 (patch)
tree847dcdb70f59ad2a5ff2bd6e4e0b9f0c6d95ec1d /lisp
parentFurther configure mu4e (diff)
parentChange up the modeline (diff)
downloademacs-8891198e040c2d2cf82e6c8fcea5ee893e99fad9.tar.gz
emacs-8891198e040c2d2cf82e6c8fcea5ee893e99fad9.zip
Merge branch 'main' of github.com:duckwork/.emacs.d
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw-modeline.el4
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index a9020c5..adfcb44 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el
@@ -33,9 +33,7 @@ Otherwise, cdr should be a function that takes two points (see `count-words')."
33 33
34(defun acdw-modeline/buffer-name () ; gonsie 34(defun acdw-modeline/buffer-name () ; gonsie
35 "Display the buffer name in a face reflecting its modified status." 35 "Display the buffer name in a face reflecting its modified status."
36 (propertize (concat " " 36 (propertize (concat (format " %-20s" (truncate-string 20 (buffer-name) "~")))
37 (truncate-string (/ (window-total-width) 2)
38 (buffer-name) "~"))
39 'face 'bold 37 'face 'bold
40 ;; (if (buffer-modified-p) 38 ;; (if (buffer-modified-p)
41 ;; 'font-lock-warning-face 39 ;; 'font-lock-warning-face