diff options
| author | Case Duckworth | 2022-05-27 13:26:19 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-05-27 13:26:19 -0500 |
| commit | 80abceb212b2acb420317232cb2c3d0ab69af13b (patch) | |
| tree | cac3f2260b593d3c2227743e4895bbc392f5be7f /lisp/+modeline.el | |
| parent | Don't inhibit redisplay or message when debugging (diff) | |
| download | emacs-80abceb212b2acb420317232cb2c3d0ab69af13b.tar.gz emacs-80abceb212b2acb420317232cb2c3d0ab69af13b.zip | |
asdpofiuasdpfoiasjdpfoiajsdf
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 |