summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-10-06 16:28:26 -0500
committerCase Duckworth2021-10-06 16:28:26 -0500
commitc434a7623d27ce855449fec81a1a8a69fbccdd78 (patch)
tree373a76e7903061f9423087025f6b720140caca45
parentMerge branch 'main' of https://github.com/duckwork/.emacs.d (diff)
downloademacs-c434a7623d27ce855449fec81a1a8a69fbccdd78.tar.gz
emacs-c434a7623d27ce855449fec81a1a8a69fbccdd78.zip
Add nyan-mode
IĀ forked it to improve it!
-rw-r--r--init.el10
-rw-r--r--lisp/acdw-modeline.el7
2 files changed, 17 insertions, 0 deletions
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'."
1822 (:option nov-text-width fill-column) 1822 (:option nov-text-width fill-column)
1823 (:file-match (rx ".epub" eos))) 1823 (:file-match (rx ".epub" eos)))
1824 1824
1825(setup (:straight (nyan-mode
1826 :host github :repo "TeMPOraL/nyan-mode"
1827 :fork (:host github :repo "duckwork/nyan-mode")
1828 :files ("nyan-mode.el" "img")))
1829 (:option nyan-animate-nyancat nil
1830 nyan-bar-length 20
1831 nyan-minimum-window-width fill-column)
1832 (nyan-mode +1))
1833
1825;; (setup (:straight olivetti) 1834;; (setup (:straight olivetti)
1826;; (:option olivetti-body-width (+ fill-column 4) 1835;; (:option olivetti-body-width (+ fill-column 4)
1827;; olivetti-minimum-body-width fill-column) 1836;; olivetti-minimum-body-width fill-column)
@@ -2181,6 +2190,7 @@ the default is \"/\"."
2181 acdw-modeline/buffer-name 2190 acdw-modeline/buffer-name
2182 acdw-modeline/vc-branch 2191 acdw-modeline/vc-branch
2183 acdw-modeline/wc 2192 acdw-modeline/wc
2193 acdw-modeline/nyan-cat
2184 acdw-modeline/position 2194 acdw-modeline/position
2185 ) (;; right 2195 ) (;; right
2186 acdw-modeline/track 2196 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')."
82 (minions-minor-modes-menu))))) 82 (minions-minor-modes-menu)))))
83 'mouse-face 'mode-line-highlight))) 83 'mouse-face 'mode-line-highlight)))
84 84
85(defun acdw-modeline/nyan-cat ()
86 "Display the nyan cat from function `nyan-mode' in the mode-line."
87 (when (and (bound-and-true-p nyan-mode)
88 (eq (bound-and-true-p actually-selected-window)
89 (get-buffer-window)))
90 '(" " (:eval (list (nyan-create))))))
91
85(defun acdw-modeline/modified () ; modified from `simple-modeline' 92(defun acdw-modeline/modified () ; modified from `simple-modeline'
86 "Displays a color-coded buffer modification/read-only 93 "Displays a color-coded buffer modification/read-only
87indicator in the mode-line." 94indicator in the mode-line."