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! --- init.el | 10 ++++++++++ lisp/acdw-modeline.el | 7 +++++++ 2 files changed, 17 insertions(+) diff --git a/init.el b/init.el index 22c06f8..2347ac8 100644 --- a/init.el +++ b/init.el @@ -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 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