From c434a7623d27ce855449fec81a1a8a69fbccdd78 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 6 Oct 2021 16:28:26 -0500
Subject: Add nyan-mode
I forked it to improve it!
---
lisp/acdw-modeline.el | 7 +++++++
1 file changed, 7 insertions(+)
(limited to 'lisp')
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')."
(minions-minor-modes-menu)))))
'mouse-face 'mode-line-highlight)))
+(defun acdw-modeline/nyan-cat ()
+ "Display the nyan cat from function `nyan-mode' in the mode-line."
+ (when (and (bound-and-true-p nyan-mode)
+ (eq (bound-and-true-p actually-selected-window)
+ (get-buffer-window)))
+ '(" " (:eval (list (nyan-create))))))
+
(defun acdw-modeline/modified () ; modified from `simple-modeline'
"Displays a color-coded buffer modification/read-only
indicator in the mode-line."
--
cgit 1.4.1-21-gabe81