comparison lisp/play/animate.el @ 38783:255503bac5c2

(animate-string): Doc fix. Use a buffer name with stars in it. (animate-sequence): New function. From Richard Stallman <[e-mail]>.

38782:162cad3d76ea

    ;; This is so that the undo command, used afterwards,
    ;; will undo the "animate" calls one by one.
    (undo-boundary)))

;;;###autoload
(defun animate-birthday-present ()
  "Display Sarah's birthday present."
  (interactive)
  ;; Make a suitable buffer to display the birthday present in.
  (switch-to-buffer (get-buffer-create "Sarah"))
  (erase-buffer)
  ;; Display the empty buffer.
  (sit-for 0)
  ;; Make sure indentation does not use tabs.
  ;; They would confuse things.

38783:255503bac5c2

    ;; This is so that the undo command, used afterwards,
    ;; will undo the "animate" calls one by one.
    (undo-boundary)))

;;;###autoload
(defun animate-sequence (list-of-strings space)
  "Display strings from LIST-OF-STRING with animation in a new buffer.
Strings will be separated from each other by SPACE lines."
  (let ((vpos (/ (- (window-height)
		    1 ;; For the mode-line
		    (* (1- (length list-of-strings)) space)
		    (length list-of-strings))
		 2)))
    (switch-to-buffer (get-buffer-create "*Animation*"))
    (erase-buffer)
    (sit-for 0)
    (setq indent-tabs-mode nil)
    (while list-of-strings
      (animate-string (car list-of-strings) vpos)
      (setq vpos (+ vpos space 1))
      (setq list-of-strings (cdr list-of-strings)))))
 
;;;###autoload
(defun animate-birthday-present ()
  "Display Sarah's birthday present in a new buffer."
  (interactive)
  ;; Make a suitable buffer to display the birthday present in.
  (switch-to-buffer (get-buffer-create "*Sarah*"))
  (erase-buffer)
  ;; Display the empty buffer.
  (sit-for 0)
  ;; Make sure indentation does not use tabs.
  ;; They would confuse things.