diff options
Diffstat (limited to 'lisp/+modeline.el')
-rw-r--r-- | lisp/+modeline.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/+modeline.el b/lisp/+modeline.el index 33d34c3..026302b 100644 --- a/lisp/+modeline.el +++ b/lisp/+modeline.el | |||
@@ -9,6 +9,7 @@ | |||
9 | ;;; Code: | 9 | ;;; Code: |
10 | 10 | ||
11 | (require '+util) | 11 | (require '+util) |
12 | (require 'actually-selected-window) | ||
12 | (require 'simple-modeline) | 13 | (require 'simple-modeline) |
13 | (require 'minions) | 14 | (require 'minions) |
14 | 15 | ||
@@ -472,5 +473,13 @@ to a function in the current buffer, call that function instead." | |||
472 | (kmacro-end-macro nil))))) | 473 | (kmacro-end-macro nil))))) |
473 | 'mouse-face 'mode-line-highlight)))) | 474 | 'mouse-face 'mode-line-highlight)))) |
474 | 475 | ||
476 | (defun +modeline-nyan-on-focused (&optional spacer) | ||
477 | "Display the cat from `nyan-mode', but only on the focused window." | ||
478 | (require 'nyan-mode) | ||
479 | (when (actually-selected-window-p) | ||
480 | (concat (or spacer "") (nyan-create) | ||
481 | (propertize "." | ||
482 | 'face 'font-lock-comment-face)))) | ||
483 | |||
475 | (provide '+modeline) | 484 | (provide '+modeline) |
476 | ;;; +modeline.el ends here | 485 | ;;; +modeline.el ends here |