[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv27877

Modified Files:
	slime.el 
Log Message:
(slime-repl-update-banner): Restore animation.
(slime-startup-animation): restore.


--- /project/slime/cvsroot/slime/slime.el	2007/01/30 22:04:48	1.755
+++ /project/slime/cvsroot/slime/slime.el	2007/01/31 13:23:39	1.756
@@ -159,6 +159,11 @@
 This applies to the *inferior-lisp* buffer and the network connections."
   :type 'boolean
   :group 'slime-ui)
+ 
+(defcustom slime-startup-animation t 	 
+   "Enable the startup animation." 	 
+   :type '(choice (const :tag "Enable" t) (const :tag "Disable" nil)) 	 
+   :group 'slime-ui) 	 
 
 ;;;;; slime-lisp
 
@@ -2714,12 +2719,20 @@
                          (slime-pid)))
          ;; Emacs21 has the fancy persistent header-line.
          (use-header-p (and slime-header-line-p
-                            (boundp 'header-line-format))))
+                            (boundp 'header-line-format)))
+         ;; and dancing text 	 
+         (animantep (and (fboundp 'animate-string) 	 
+                         slime-startup-animation 	 
+                         (zerop (buffer-size)))))
     (when use-header-p
       (setq header-line-format banner))
     (pop-to-buffer (current-buffer))
-    (insert "; SLIME " (or (slime-changelog-date) 
-                           "- ChangeLog file not found"))
+    (let ((slime-hello-message (concat "; SLIME " 
+                                       (or (slime-changelog-date) 
+                                           "- ChangeLog file not found"))))
+      (if animantep
+          (animate-string slime-hello-message 0 0)
+          (insert slime-hello-message)))
     (slime-repl-insert-prompt)))
 
 (defun slime-init-output-buffer (connection)