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

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)))
@ -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