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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (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.3: +1 -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 ;;; slime-motd.el ---
2 ;;
3 ;; Authors:
4 ;;
5 ;; License: GNU GPL (same license as Emacs)
6 ;;
7 ;;; Installation
8 ;;
9 ;; Add slime-motd to your slime-setup call.
10
11 (define-slime-contrib slime-motd
12 "Message Of The Day in a slime repl"
13 (:authors "Marco Baringer <mb@bese.it>")
14 (:license "GPL")
15 (:slime-dependencies slime-banner)
16 (:swank-dependencies swank-motd)
17 (:on-load
18 (add-hook 'slime-connected-hook 'slime-insert-motd)))
19
20 (defcustom slime-motd-pathname nil
21 "The local pathname the motd is read from."
22 :group 'slime-mode
23 :type '(file :must-match t))
24
25 (defun slime-insert-motd ()
26 (slime-eval-async `(swank::read-motd ,slime-motd-pathname)
27 (lambda (motd)
28 (when motd
29 (slime-repl-insert-result (list :values motd))))))
30
31 (provide 'slime-motd)

  ViewVC Help
Powered by ViewVC 1.1.5