;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (custom-declare-group 'animate nil "Make text dance." :group 'games :prefix "animate-")#@25 (fn STRING VPOS HPOS) (defalias 'animate-initialize #[771 "\300G\301\211W\203)H\302\303 !\302\304 S!\\\257B\262\211T\262\202\266\207" [nil 0 random window-height window-width] 12 (#$ . 171)])#@28 (fn CHARACTERS FRACTION) (defalias 'animate-step #[514 "\300Z\211\205/\211@A@_\3018_\\\3028_\3038_\\\304@#\266A\266\202\202\207" [1 3 2 4 animate-place-char] 11 (#$ . 387)])#@23 (fn CHAR VPOS HPOS) (defalias 'animate-place-char #[771 "\301 b\210\302\303\211W\203#\302\211\210\304y\304U\203\305c\210\210\211T\262\202)\210\306 \210\307\310!\311\"\210l\2047\312\304!\210\313\304\"\207" [abbrev-mode window-start nil 0 1 "\n" beginning-of-line move-to-column floor t delete-char insert-char] 7 (#$ . 586)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\207" [custom-declare-variable animate-n-steps funcall function #[0 "\300\207" [20] 1 #1=""] "Number of steps `animate-string' will place a char before its last position." :type natnum :version "29.1" animate-total-added-delay #[0 "\300\207" [0.5] 1 #1#] "Total number of seconds to wait in between steps.\nThis is added to the total time it takes to run `animate-string'\nto ensure that the animation is not too fast to be seen." float] 8)#@113 String naming the default buffer for animations. When nil animations displayed in the buffer named *Animation*. (defvar animation-buffer-name nil (#$ . 1476))#@343 Display STRING animations starting at position VPOS, HPOS. The characters start at randomly chosen places, and all slide in parallel to their final positions, passing through `animate-n-steps' positions before the final ones. If HPOS is nil (or omitted), center the string horizontally in the current window. (fn STRING VPOS &optional HPOS) (defalias 'animate-string #[770 "\306\206\307\310 GZ\311\245]#\312\211\n\307\211W\203W\312\211\313\314\315\n#\"\210\316\312\317\"\210\320\321\f!\n\317]\245!\210 \262\211\203M\322\323\317\")\262\202=)\266\211T\262\202\266\313\317\"\210\312\210\320\307!\210\324 *\207" [indent-tabs-mode show-trailing-whitespace animate-n-steps buffer-undo-list animate-total-added-delay undo-in-progress animate-initialize 0 window-width 2 nil animate-step / 1.0 set-window-start 1 sit-for float t primitive-undo undo-boundary] 14 (#$ . 1641)])#@314 Display animation strings from LIST-OF-STRING with buffer *Animation*. Strings will be separated from each other by SPACE lines. When the variable `animation-buffer-name' is non-nil display animation in the buffer named by variable's value, creating the buffer if one does not exist. (fn LIST-OF-STRINGS SPACE) (defalias 'animate-sequence #[514 "\301\302 \303GS_G$\304\245\305\306\206\307!!\210\310 \210\311\312!\210\2056\313@\"\210\211\\T\262A\262\202\207" [animation-buffer-name - window-height 1 2 switch-to-buffer get-buffer-create "*Animation*" erase-buffer sit-for 0 animate-string] 7 (#$ . 2544)])#@259 Return a birthday present in the buffer *Birthday-Present*. When optional arg NAME is non-nil or called-interactively, prompt for NAME of birthday present receiver and return a birthday present in the buffer *Birthday-Present-for-Name*. (fn &optional NAME) (defalias 'animate-birthday-present #[256 "\300\301\203\302\303!\304Q\202\305!!\210\306 \210\307\310!\210\211\203&\311\312\313\"\210\202+\311\314\313\"\210\211\2039\311\315\316\303!\"\317\"\210\307\320!\210\311\321\322\323#\210\307\324!\210\311\325\326\323#\210\307\324!\210\311\327\330\323#\210\307\324!\210\311\331\332\323#\210\307\324!\210\311\333\334\323#\210\307\324!\210\311\335\336\323#\210\307\324!\210\311\337\340\323#\210\311\341\342\343#\210\311\344\345\343#\207" [switch-to-buffer get-buffer-create "*A-Present-for-" capitalize "*" "*Birthday-Present*" erase-buffer sit-for 0 animate-string "Happy Birthday," 6 "Happy Birthday" format "%s" 7 1 "You are my sunshine," 10 30 0.5 "My only sunshine." 11 "I'm awful sad that" 12 "You've moved away." 13 "Let's talk together" 15 "And love more deeply." 16 "Please bring back" 17 "my sunshine" 18 34 "to stay!" 19] 6 (#$ . 3173) (byte-code "\300\301\302\211#C\207" [read-string "Birthday present for: " nil] 4)]) (provide 'animate)