Add nyan-mode

I forked it to improve it!

2 files changed, 17 insertions, 0 deletions

@@ -1822,6 +1822,15 @@ browser defined in `browse-url-secondary-browser-function'."
   (:option nov-text-width fill-column)
   (:file-match (rx ".epub" eos)))
 
+(setup (:straight (nyan-mode
+                   :host github :repo "TeMPOraL/nyan-mode"
+                   :fork (:host github :repo "duckwork/nyan-mode")
+                   :files ("nyan-mode.el" "img")))
+  (:option nyan-animate-nyancat nil
+           nyan-bar-length 20
+           nyan-minimum-window-width fill-column)
+  (nyan-mode +1))
+
 ;; (setup (:straight olivetti)
 ;;   (:option olivetti-body-width (+ fill-column 4)
 ;;            olivetti-minimum-body-width fill-column)
@@ -2181,6 +2190,7 @@ the default is \"/\"."
               acdw-modeline/buffer-name
               acdw-modeline/vc-branch
               acdw-modeline/wc
+              acdw-modeline/nyan-cat
               acdw-modeline/position
               ) (;; right
               acdw-modeline/track
@@ -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."