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 |