TakeV/spacemacs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Update nyan cat package to be compatible with emacs 29

Browse source
This commit is contained in:
Maxi Wolff 2022-09-17 20:50:18 +02:00
parent 9cdf97f87e
commit 3370a45e11
No known key found for this signature in database
GPG key ID: 2DD07025BFDBD89A
1 changed files with 26 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
layers/+themes/colors/local/nyan-mode/nyan-mode.el
View file

@ -116,8 +116,8 @@ This can be t or nil."
:group 'nyan)
(defcustom nyan-cat-face-number 1
"Select cat face number for console."
)
"Select cat face number for console.")
(defconst +nyan-directory+ (file-name-directory (or load-file-name buffer-file-name)))
@ -157,12 +157,12 @@ This can be t or nil."
"(　　＞三ワ＜　)" "(　＞ワ三＜　　)"]])
(defun nyan-swich-anim-frame ()
(when (> nyan-animation-loop-count nyan-animation-loop-max)
(when (> nyan-animation-loop-count nyan-animation-loop-max)
(nyan-stop-animation))
(setq nyan-current-frame (% (+ 1 nyan-current-frame) 6))
(when (equal nyan-current-frame 5)
(setq nyan-animation-loop-count (1+ nyan-animation-loop-count)))
(redraw-modeline))
(force-mode-line-update))
(defun nyan-get-anim-frame (rainbows &optional start)
(if (and nyan-animation-timer (> rainbows 0))
@ -224,8 +224,8 @@ This can be t or nil."
(and nyan-animate-nyancat nyan-animation-timer)))
(nyan-wavy-rainbow-ascent number)
'center)))))
(setq rainbow-start nil)
)
(setq rainbow-start nil))
(dotimes (number outerspaces)
(setq outerspace-string
(concat outerspace-string