diff options
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 |