/[slime]/slime/contrib/slime-banner.el
ViewVC logotype

Contents of /slime/contrib/slime-banner.el

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (show annotations)
Fri May 28 19:13:17 2010 UTC (3 years, 10 months ago) by heller
Branch: MAIN
CVS Tags: SLIME-2-3, FAIRLY-STABLE, byte-stream, SLIME-2-2, HEAD
Changes since 1.5: +2 -0 lines
Call provide at the end of the file.

* slime-asdf.el slime-banner.el slime-clipboard.el
slime-compiler-notes-tree.el slime-enclosing-context.el
slime-highlight-edits.el slime-hyperdoc.el slime-indentation.el
slime-mdot-fu.el slime-motd.el slime-mrepl.el
slime-presentation-streams.el slime-sbcl-exts.el slime-snapshot.el
slime-sprof.el slime-tramp.el slime-typeout-frame.el
slime-xref-browser.el:
1
2 (define-slime-contrib slime-banner
3 "Persistent header line and startup animation."
4 (:authors "Helmut Eller <heller@common-lisp.net>"
5 "Luke Gorrie <luke@synap.se>")
6 (:license "GPL")
7 (:on-load (setq slime-repl-banner-function 'slime-startup-message))
8 (:on-unload (setq slime-repl-banner-function 'slime-repl-insert-banner)))
9
10 (defcustom slime-startup-animation (fboundp 'animate-string)
11 "Enable the startup animation."
12 :type '(choice (const :tag "Enable" t) (const :tag "Disable" nil))
13 :group 'slime-ui)
14
15 (defcustom slime-header-line-p (boundp 'header-line-format)
16 "If non-nil, display a header line in Slime buffers."
17 :type 'boolean
18 :group 'slime-repl)
19
20 (defun slime-startup-message ()
21 (when slime-header-line-p
22 (setq header-line-format
23 (format "%s Port: %s Pid: %s"
24 (slime-lisp-implementation-type)
25 (slime-connection-port (slime-connection))
26 (slime-pid))))
27 (when (zerop (buffer-size))
28 (let ((welcome (concat "; SLIME " (or (slime-changelog-date)
29 "- ChangeLog file not found"))))
30 (if slime-startup-animation
31 (animate-string welcome 0 0)
32 (insert welcome)))))
33
34 (provide 'slime-banner)

  ViewVC Help
Powered by ViewVC 1.1.5