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

Update nyan cat package to be compatible with emacs 29

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

52
layers/+themes/colors/local/nyan-mode/nyan-mode.el
View File

@ -79,7 +79,7 @@
(defun nyan-start-music ()
(interactive)
(start-process-shell-command "nyan-music" "nyan-music" (concat "mplayer " +nyan-music+ " -loop 0")))
(defun nyan-stop-music ()
(interactive)
(kill-process "nyan-music"))
@ -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)))
@ -145,24 +145,24 @@ This can be t or nil."
(defvar nyan-current-frame 0)
(defconst +catface+ [
["[]*" "[]#"]
["(*^ｰﾟ)" "( ^ｰ^)" "(^ｰ^ )" "(ﾟｰ^*)"]
["(´ω｀三 )" "( ´ω三｀ )" "( ´三ω｀ )" "( 三´ω｀)"
"( 三´ω｀)" "( ´三ω｀ )" "( ´ω三｀ )" "(´ω｀三 )"]
["(´д｀;)" "( ´д`;)" "( ;´д`)" "(;´д` )"]
["(」・ω・)」" "(／・ω・)／" "(」・ω・)」" "(／・ω・)／"
"(」・ω・)」" "(／・ω・)／" "(」・ω・)」" "＼(・ω・)／"]
["(＞ワ＜三　　　)" "(　＞ワ三＜　　)"
"(　　＞三ワ＜　)" "(　　　三＞ワ＜)"
"(　　＞三ワ＜　)" "(　＞ワ三＜　　)"]])
["[]*" "[]#"]
["(*^ｰﾟ)" "( ^ｰ^)" "(^ｰ^ )" "(ﾟｰ^*)"]
["(´ω｀三 )" "( ´ω三｀ )" "( ´三ω｀ )" "( 三´ω｀)"
"( 三´ω｀)" "( ´三ω｀ )" "( ´ω三｀ )" "(´ω｀三 )"]
["(´д｀;)" "( ´д`;)" "( ;´д`)" "(;´д` )"]
["(」・ω・)」" "(／・ω・)／" "(」・ω・)」" "(／・ω・)／"
"(」・ω・)」" "(／・ω・)／" "(」・ω・)」" "＼(・ω・)／"]
["(＞ワ＜三　　　)" "(　＞ワ三＜　　)"
"(　　＞三ワ＜　)" "(　　　三＞ワ＜)"
"(　　＞三ワ＜　)" "(　＞ワ三＜　　)"]])
(defun nyan-swich-anim-frame ()
(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))
(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)))
(force-mode-line-update))
(defun nyan-get-anim-frame (rainbows &optional start)
(if (and nyan-animation-timer (> rainbows 0))
@ -189,11 +189,11 @@ This can be t or nil."
(defun catface-index ()
(min (round (/ (* (round (* 100
(/ (- (float (point))
(float (point-min)))
(float (point-max)))))
(length (catface)))
100)) (- (length (catface)) 1)))
(/ (- (float (point))
(float (point-min)))
(float (point-max)))))
(length (catface)))
100)) (- (length (catface)) 1)))
(defun nyan-create ()
(let* ((rainbows (nyan-number-of-rainbows))
@ -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