mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 5ddac8bd2392ec5b64392e8750d725029bf5aa79
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(defconst +nyan-directory+ (byte-code "\302\206    !\207" [load-file-name buffer-file-name file-name-directory] 2))
(defconst +nyan-cat-size+ 3)
(defconst +nyan-cat-image+ (concat +nyan-directory+ "img/nyan.xpm"))
(defconst +nyan-rainbow-image+ (concat +nyan-directory+ "img/rainbow.xpm"))
(defconst +nyan-outerspace-image+ (concat +nyan-directory+ "img/outerspace.xpm"))
(defconst +nyan-music+ (concat +nyan-directory+ "mus/nyanlooped.mp3"))
(defconst +nyan-modeline-help-string+ "Nyanyanya!\nmouse-1: Scroll buffer position")
(defvar nyan-old-car-mode-line-position nil)
(custom-declare-group 'nyan nil "Customization group for `nyan-mode'." :group 'frames)
#@41 Refresh after option changes if loaded.
(defalias 'nyan-refresh #[nil "\301\300!\205\302\300!\205\205\300\303!\210\300\304!\207" [nyan-mode featurep boundp -1 1] 2 (#$ . 1068)])
#@45 Number of seconds between animation frames.
(custom-declare-variable 'nyan-animation-frame-interval 0.2 '(#$ . 1259) :type 'float :set #[(sym val) "\302    \"\210\303 \207" [sym val set-default nyan-refresh] 3] :group 'nyan)
(defvar nyan-animation-timer nil)
(defalias 'nyan-start-animation #[nil "\205    ?\205\303\304\n\305#\306\211\207" [nyan-animate-nyancat nyan-animation-timer nyan-animation-frame-interval run-at-time "1 sec" nyan-swich-anim-frame t] 4 nil nil])
(defalias 'nyan-stop-animation #[nil "\205    \205\302    !\210\303\211\211\207" [nyan-animate-nyancat nyan-animation-timer cancel-timer nil] 3 nil nil])
(defvar nyan-music-process nil)
(defalias 'nyan-start-music #[nil "?\205\302\303\211\304    \305Q#\211\207" [nyan-music-process +nyan-music+ start-process-shell-command "nyan-music" "mplayer " " -loop 0"] 6 nil nil])
(defalias 'nyan-stop-music #[nil "\205 \301!\210\302\211\207" [nyan-music-process delete-process nil] 2 nil nil])
(byte-code "\300\301\302\303\304\305\306\307\310\311&    \210\300\312\313\314\304\315\306\316\310\311&    \210\300\317\320\321\304\305\306\322\310\311&    \210\300\323\313\324\304\325\306\326\310\311&    \210\300\327\330\331\304\305\310\311&\207" [custom-declare-variable nyan-minimum-window-width 64 "Determines the minimum width of the window, below which nyan-mode will not be displayed.\nThis is important because nyan-mode will push out all informations from small windows." :type integer :set #[(sym val) "\302    \"\210\303 \207" [sym val set-default nyan-refresh] 3] :group nyan nyan-wavy-trail nil "If enabled, Nyan Cat's rainbow trail will be wavy." (choice (const :tag "Enabled" t) (const :tag "Disabled" nil)) #[(sym val) "\302    \"\210\303 \207" [sym val set-default nyan-refresh] 3] nyan-bar-length 32 "Length of Nyan Cat bar in units; each unit is equal to an 8px\n  image. Minimum of 3 units are required for Nyan Cat." #[(sym val) "\302    \"\210\303 \207" [sym val set-default nyan-refresh] 3] nyan-animate-nyancat "Enable animation for Nyan Cat.\nThis can be t or nil." (choice (const :tag "Enabled" t) (const :tag "Disabled" nil)) #[(sym val) "\302    \"\210    \203\303 \210\202\304 \210\305 \207" [sym val set-default nyan-start-animation nyan-stop-animation nyan-refresh] 3] nyan-cat-face-number 1 "Select cat face number for console."] 10)
(defvar nyan-cat-image (byte-code "\301\302!\205 \303\302\304\305\306%\207" [+nyan-cat-image+ image-type-available-p xpm create-image nil :ascent center] 6))
(defvar nyan-animation-frames (byte-code "\300\301!\205\n\302\303\304\"\207" [image-type-available-p xpm mapcar #[(id) "\302\303\304    \"P\305\306\307\310%\207" [+nyan-directory+ id create-image format "img/nyan-frame-%d.xpm" xpm nil :ascent 95] 6] (1 2 3 4 5 6)] 3))
(defvar nyan-current-frame 0)
(defconst +nyan-catface+ [["[]*" "[]#"] ["(*^ー゚)" "( ^ー^)" "(^ー^ )" "(゚ー^*)"] ["(´ω`三 )" "( ´ω三` )" "( ´三ω` )" "( 三´ω`)" "( 三´ω`)" "( ´三ω` )" "( ´ω三` )" "(´ω`三 )"] ["(´д`;)" "( ´д`;)" "( ;´д`)" "(;´д` )"] ["(」・ω・)」" "(/・ω・)/" "(」・ω・)」" "(/・ω・)/" "(」・ω・)」" "(/・ω・)/" "(」・ω・)」" "\(・ω・)/"] ["(>ワ<三   )" "( >ワ三<  )" "(  >三ワ< )" "(   三>ワ<)" "(  >三ワ< )" "( >ワ三<  )"]])
#@69 Toggle the trail to look more like the original Nyan Cat animation.
(defalias 'nyan-toggle-wavy-trail #[nil "?\211\207" [nyan-wavy-trail] 2 (#$ . 4622) nil])
(defalias 'nyan-swich-anim-frame #[nil "T\301\246\302 \207" [nyan-current-frame 6 redraw-modeline] 2])
(defalias 'nyan-get-anim-frame #[nil "\203    \n8\207 \207" [nyan-animate-nyancat nyan-current-frame nyan-animation-frames nyan-cat-image] 2])
(defalias 'nyan-wavy-rainbow-ascent #[(number) "\203\303\304\305\306    \n\\\307\246Z!\306_\\^\207    \310\246\311U\203\312\207\313\207" [nyan-animate-nyancat number nyan-current-frame 100 90 abs 3 6 2 0 80 center] 6])
(defalias 'nyan-number-of-rainbows #[nil "\302\211\303`!\303e!Z\303d!\245\304_!    Z_\304\245!\207" [nyan-bar-length +nyan-cat-size+ round float 100] 5])
(defalias 'nyan-catface #[nil "    H\207" [+nyan-catface+ nyan-cat-face-number] 2])
(defalias 'nyan-catface-index #[nil "\300\211\301`!\301e!Z\301d!\245\302_!\303 G_\302\245!\303 GS^\207" [round float 100 nyan-catface] 5])
(defalias 'nyan-scroll-buffer #[(percentage buffer) "rq\210\302    d_!b)\207" [buffer percentage floor] 3 nil nil])
(defalias 'nyan-add-scroll-handler #[(string percentage buffer) "\306\307!\306\310!\211\211 L\210)\211 L\210)\311\312\211\313\312\314\315\316\317\320\321\322D\323D\323    D\324\257FBED#*\207" [#1=#:--cl-buffer-- #2=#:--cl-percentage-- #3=#:v percentage #4=#:v buffer make-symbol "--percentage--" "--buffer--" propertize keymap mode-line down-mouse-1 lambda (&rest --cl-rest--) (interactive) apply function #[(#5=#:G2 #6=#:G3) "\302J    J\"\207" [#6# #5# nyan-scroll-buffer] 3] quote --cl-rest-- string] 16])
(defalias 'nyan-create #[nil "\306 W\203    \307\207\310 \311\n     #\307\312\313!\314\315 \316 H\317\320 #\307 p!    \321\"#\"#W\203y \322\203d\314\323\317\324$\313\325\326%\203U\327\"!\206_&\203^\330\202_\331%#\202e\323\332\"!\n\245!#P\"T\211\"\2023*\f\321\"#\"#W\203\302 \322\203\250\314\333\317\324'\313\325\326&\203\242\330\202\243\331%#\202\251\333\332\334     \"#!\n\245!#P \"T\211\"\202\202*\314  Q\335(#.\207" [nyan-minimum-window-width rainbows nyan-bar-length +nyan-cat-size+ outerspaces rainbow-string window-width "" nyan-number-of-rainbows - image-type-available-p xpm propertize nyan-catface nyan-catface-index display nyan-get-anim-frame 0 nyan-add-scroll-handler "|" create-image nil :ascent nyan-wavy-rainbow-ascent 95 center float "-" + help-echo xpm-support nyancat-string outerspace-string buffer number --dotimes-limit-- +nyan-rainbow-image+ nyan-wavy-trail nyan-animate-nyancat +nyan-outerspace-image+ +nyan-modeline-help-string+] 13])
#@248 Non-nil if Nyan mode is enabled.
See the `nyan-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `nyan-mode'.
(custom-declare-variable 'nyan-mode nil '(#$ . 7260) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'nyan :type 'boolean)
#@212 Use NyanCat to show buffer size and position in mode-line.
You can customize this minor mode, see option `nyan-mode'.
 
Note: If you turn this mode on then you probably want to turn off
option `scroll-bar-mode'.
(defalias 'nyan-mode #[(&optional arg) "\306 \307\302    \310=\203\311\302!?\202\312    !\313V\"\210\n\203+ \204$\f@\f\314\240\210\202/\f \240\210\315\316\311\302!\203;\317\202<\320\"\210\321\322!\203g\323\302!\210\306 \203T\306 \232\203g\324\325\326\311\302!\203b\327\202c\330 #\210))\331 \210\311\302!\207" [#1=#:last-message arg nyan-mode nyan-old-car-mode-line-position mode-line-position local current-message set-default toggle default-value prefix-numeric-value 0 (:eval (list (nyan-create))) run-hooks nyan-mode-hook nyan-mode-on-hook nyan-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Nyan mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 7663) (list (or current-prefix-arg 'toggle))])
(defvar nyan-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\210\311\306!\207" [nyan-mode-map nyan-mode-hook variable-documentation put "Hook run after entering or leaving `nyan-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode nyan-mode nil boundp provide] 6)