diff options
| author | Case Duckworth | 2021-10-11 18:09:13 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-10-11 18:09:13 -0500 |
| commit | bfd024dd2b2e3a3e180eb541852968d3e18e0d6d (patch) | |
| tree | 5cf21347bb380d126c458a4c0a43c5d6ab579b55 | |
| parent | Auto-save after a minute of idle time (diff) | |
| download | emacs-bfd024dd2b2e3a3e180eb541852968d3e18e0d6d.tar.gz emacs-bfd024dd2b2e3a3e180eb541852968d3e18e0d6d.zip | |
Change up the modeline
- Constant width for buffer name - Re-think nyan-mode minimum window width
| -rw-r--r-- | init.el | 2 | ||||
| -rw-r--r-- | lisp/acdw-modeline.el | 4 |
2 files changed, 2 insertions, 4 deletions
| diff --git a/init.el b/init.el index 421bf9c..e24e971 100644 --- a/init.el +++ b/init.el | |||
| @@ -1943,7 +1943,7 @@ browser defined in `browse-url-secondary-browser-function'." | |||
| 1943 | :files ("nyan-mode.el" "img"))) | 1943 | :files ("nyan-mode.el" "img"))) |
| 1944 | (:option nyan-animate-nyancat nil | 1944 | (:option nyan-animate-nyancat nil |
| 1945 | nyan-bar-length 20 | 1945 | nyan-bar-length 20 |
| 1946 | nyan-minimum-window-width fill-column) | 1946 | nyan-minimum-window-width (+ fill-column (/ nyan-bar-length 2))) |
| 1947 | (nyan-mode +1) | 1947 | (nyan-mode +1) |
| 1948 | (defun disable-nyan-mode () | 1948 | (defun disable-nyan-mode () |
| 1949 | "Disable `nyan-mode' in current buffer." | 1949 | "Disable `nyan-mode' in current buffer." |
| 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 |