[slime-cvs] CVS slime/contrib
heller
heller at common-lisp.net
Tue Sep 4 10:12:41 UTC 2007
Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv25797/contrib
Modified Files:
ChangeLog
Added Files:
slime-banner.el
Log Message:
Move startup animation to contrib.
* slime.el (slime-repl-banner-function): New hook.
(slime-repl-update-banner): Use it and reset markers after calling
it.
(slime-set-default-directory): Don't call slime-repl-update-banner
here.
(slime-repl-insert-prompt): Set slime-repl-input-end-mark to
point-max.
* contrib/slime-banner.el: New file
--- /project/slime/cvsroot/slime/contrib/ChangeLog 2007/09/04 10:04:48 1.27
+++ /project/slime/cvsroot/slime/contrib/ChangeLog 2007/09/04 10:12:41 1.28
@@ -1,5 +1,6 @@
2007-09-04 Helmut Eller <heller at common-lisp.net>
+ * slime-banner.el: New file.
* inferior-slime.el: New file.
2007-09-01 Matthias Koeppe <mkoeppe at mail.math.uni-magdeburg.de>
--- /project/slime/cvsroot/slime/contrib/slime-banner.el 2007/09/04 10:12:41 NONE
+++ /project/slime/cvsroot/slime/contrib/slime-banner.el 2007/09/04 10:12:41 1.1
;;; slime-banner.el -- Persistent header line and startup animation
;;
;; Authors: Helmut Eller <heller at common-lisp.net>
;; Luke Gorrie <luke at synap.se>
;; License: GNU GPL (same license as Emacs)
;;
;;; Installation:
;;
;; Add something like this your .emacs:
;;
;; (add-to-list 'load-path ".../slime/contrib")
;; (add-hook 'slime-load-hook (lambda () (require 'slime-banner)))
(defcustom slime-startup-animation (fboundp 'animate-string)
"Enable the startup animation."
:type '(choice (const :tag "Enable" t) (const :tag "Disable" nil))
:group 'slime-ui)
(defcustom slime-header-line-p (boundp 'header-line-format)
"If non-nil, display a header line in Slime buffers."
:type 'boolean
:group 'slime-repl)
(defun slime-startup-message ()
(when slime-header-line-p
(setq header-line-format
(format "%s Port: %s Pid: %s"
(slime-lisp-implementation-type)
(slime-connection-port (slime-connection))
(slime-pid))))
(when (zerop (buffer-size))
(let ((welcome (concat "; SLIME " (or (slime-changelog-date)
"- ChangeLog file not found"))))
(if slime-startup-animation
(animate-string welcome 0 0)
(insert welcome)))))
(setq slime-repl-banner-function 'slime-startup-message)
(provide 'slime-startup-animation)
More information about the slime-cvs
mailing list