diff options
author | Case Duckworth | 2021-10-13 17:58:04 -0500 |
---|---|---|
committer | Case Duckworth | 2021-10-13 17:58:04 -0500 |
commit | d9e602e4128a8aaae39ba81296f7042bc2545053 (patch) | |
tree | 944b3d2f1406be428854b121ce0bcd1802df4236 /lisp/acdw-modeline.el | |
parent | yadda yadda yadda (diff) | |
download | emacs-d9e602e4128a8aaae39ba81296f7042bc2545053.tar.gz emacs-d9e602e4128a8aaae39ba81296f7042bc2545053.zip |
I told myself I'd have useful commit messages today
Apparently I lied.
Diffstat (limited to 'lisp/acdw-modeline.el')
-rw-r--r-- | lisp/acdw-modeline.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index d9b1c8b..0dc23ff 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el | |||
@@ -87,10 +87,16 @@ Otherwise, cdr should be a function that takes two points (see `count-words')." | |||
87 | 87 | ||
88 | (defun acdw-modeline/nyan-cat () | 88 | (defun acdw-modeline/nyan-cat () |
89 | "Display the nyan cat from function `nyan-mode' in the mode-line." | 89 | "Display the nyan cat from function `nyan-mode' in the mode-line." |
90 | (when (and (bound-and-true-p nyan-mode) | 90 | (when (bound-and-true-p nyan-mode) |
91 | (eq (bound-and-true-p actually-selected-window) | 91 | (if (eq (bound-and-true-p actually-selected-window) |
92 | (get-buffer-window))) | 92 | (get-buffer-window)) |
93 | '(" " (:eval (list (nyan-create)))))) | 93 | '(" " (:eval (list (nyan-create)))) |
94 | `(:propertize " " | ||
95 | display | ||
96 | (space ;; pixel perfect babeeeee | ||
97 | . (:width (,(+ 9 (* 8 (or | ||
98 | (bound-and-true-p nyan-bar-length) | ||
99 | 20)))))))))) | ||
94 | 100 | ||
95 | (defun acdw-modeline/modified () ; modified from `simple-modeline' | 101 | (defun acdw-modeline/modified () ; modified from `simple-modeline' |
96 | "Displays a color-coded buffer modification/read-only | 102 | "Displays a color-coded buffer modification/read-only |