diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/acdw-modeline.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index 573a964..a9020c5 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el | |||
@@ -82,6 +82,13 @@ Otherwise, cdr should be a function that takes two points (see `count-words')." | |||
82 | (minions-minor-modes-menu))))) | 82 | (minions-minor-modes-menu))))) |
83 | 'mouse-face 'mode-line-highlight))) | 83 | 'mouse-face 'mode-line-highlight))) |
84 | 84 | ||
85 | (defun acdw-modeline/nyan-cat () | ||
86 | "Display the nyan cat from function `nyan-mode' in the mode-line." | ||
87 | (when (and (bound-and-true-p nyan-mode) | ||
88 | (eq (bound-and-true-p actually-selected-window) | ||
89 | (get-buffer-window))) | ||
90 | '(" " (:eval (list (nyan-create)))))) | ||
91 | |||
85 | (defun acdw-modeline/modified () ; modified from `simple-modeline' | 92 | (defun acdw-modeline/modified () ; modified from `simple-modeline' |
86 | "Displays a color-coded buffer modification/read-only | 93 | "Displays a color-coded buffer modification/read-only |
87 | indicator in the mode-line." | 94 | indicator in the mode-line." |