mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-10 15:56:18 +00:00
a464a6c73a
* woman.el, winner.el, vc/vc-rcs.el, vc/vc-hooks.el, vc/vc-hg.el: * vc/vc-git.el, vc/vc-dir.el, vc/vc-bzr.el, vc/vc-annotate.el: * textmodes/tex-mode.el, textmodes/sgml-mode.el, tar-mode.el: * strokes.el, ses.el, server.el, progmodes/js.el, progmodes/gdb-mi.el: * progmodes/flymake.el, progmodes/ebrowse.el, progmodes/compile.el: * play/tetris.el, play/snake.el, play/pong.el, play/landmark.el: * play/hanoi.el, play/decipher.el, play/5x5.el, nxml/nxml-mode.el: * net/secrets.el, net/quickurl.el, midnight.el, mail/footnote.el: * image-dired.el, ibuffer.el, ibuf-macs.el, ibuf-ext.el, hexl.el: * eshell/eshell.el, eshell/esh-io.el, eshell/esh-ext.el: * eshell/esh-cmd.el, eshell/em-ls.el, eshell/em-hist.el: * eshell/em-cmpl.el, eshell/em-banner.el: * url/url.el, url/url-queue.el, url/url-parse.el, url/url-http.el: * url/url-future.el, url/url-dav.el, url/url-cookie.el: * calendar/parse-time.el, test/eshell.el: Use cl-lib. * wid-browse.el, wdired.el, vc/vc.el, vc/vc-mtn.el, vc/vc-cvs.el: * vc/vc-arch.el, tree-widget.el, textmodes/texinfo.el: * textmodes/refill.el, textmodes/css-mode.el, term/tvi970.el: * term/ns-win.el, term.el, shell.el, ps-samp.el: * progmodes/perl-mode.el, progmodes/pascal.el, progmodes/gud.el: * progmodes/glasses.el, progmodes/etags.el, progmodes/cwarn.el: * play/gamegrid.el, play/bubbles.el, novice.el, notifications.el: * net/zeroconf.el, net/xesam.el, net/snmp-mode.el, net/mairix.el: * net/ldap.el, net/eudc.el, net/browse-url.el, man.el: * mail/mailheader.el, mail/feedmail.el: * url/url-util.el, url/url-privacy.el, url/url-nfs.el, url/url-misc.el: * url/url-methods.el, url/url-gw.el, url/url-file.el, url/url-expand.el: Dont use CL. * ibuf-ext.el (ibuffer-mark-old-buffers): Use float-time. * eshell/esh-opt.el (eshell-eval-using-options): Quote code with `lambda' rather than with `quote'. (eshell-do-opt): Adjust accordingly. (eshell-process-option): Simplify. * eshell/esh-var.el: * eshell/em-script.el: Require `esh-opt' for eshell-eval-using-options. * emacs-pcase.el (pcase--dontcare-upats, pcase--let*) (pcase--expand, pcase--u1): Rename pcase's internal `dontcare' pattern to `pcase--dontcare'. * emacs-cl.el (labels): Mark obsolete. (cl--letf, letf): Move to cl-lib. (cl--letf*, letf*): Remove. * emacs-cl-lib.el (cl-nth-value): Use defalias. * emacs-cl-macs.el (cl-dolist, cl-dotimes): Add indent rule. (cl-progv): Rewrite. (cl--letf, cl-letf): Move from cl.el. (cl-letf*): New macro. * emacs-cl-extra.el (cl--progv-before, cl--progv-after): Remove.
93 lines
3.0 KiB
EmacsLisp
93 lines
3.0 KiB
EmacsLisp
;;; em-banner.el --- sample module that displays a login banner
|
|
|
|
;; Copyright (C) 1999-2012 Free Software Foundation, Inc.
|
|
|
|
;; Author: John Wiegley <johnw@gnu.org>
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;; There is nothing to be done or configured in order to use this
|
|
;; module, other than to select it by customizing the variable
|
|
;; `eshell-modules-list'. It will then display a version information
|
|
;; message whenever Eshell is loaded.
|
|
;;
|
|
;; This code is only an example of a how to write a well-formed
|
|
;; extension module for Eshell. The better way to display login text
|
|
;; is to use the `eshell-script' module, and to echo the desired
|
|
;; strings from the user's `eshell-login-script' file.
|
|
;;
|
|
;; There is one configuration variable, which demonstrates how to
|
|
;; properly define a customization variable in an extension module.
|
|
;; In this case, it allows the user to change the string which
|
|
;; displays at login time.
|
|
|
|
;;; Code:
|
|
|
|
(eval-when-compile
|
|
(require 'cl-lib)
|
|
(require 'esh-mode)
|
|
(require 'eshell))
|
|
|
|
(require 'esh-util)
|
|
|
|
;;;###autoload
|
|
(progn
|
|
(defgroup eshell-banner nil
|
|
"This sample module displays a welcome banner at login.
|
|
It exists so that others wishing to create their own Eshell extension
|
|
modules may have a simple template to begin with."
|
|
:tag "Login banner"
|
|
;; :link '(info-link "(eshell)Login banner")
|
|
:group 'eshell-module))
|
|
|
|
;;; User Variables:
|
|
|
|
(defcustom eshell-banner-message "Welcome to the Emacs shell\n\n"
|
|
"The banner message to be displayed when Eshell is loaded.
|
|
This can be any sexp, and should end with at least two newlines."
|
|
:type 'sexp
|
|
:group 'eshell-banner)
|
|
|
|
(put 'eshell-banner-message 'risky-local-variable t)
|
|
|
|
(defcustom eshell-banner-load-hook nil
|
|
"A list of functions to run when `eshell-banner' is loaded."
|
|
:version "24.1" ; removed eshell-banner-initialize
|
|
:type 'hook
|
|
:group 'eshell-banner)
|
|
|
|
(defun eshell-banner-initialize ()
|
|
"Output a welcome banner on initialization."
|
|
;; it's important to use `eshell-interactive-print' rather than
|
|
;; `insert', because `insert' doesn't know how to interact with the
|
|
;; I/O code used by Eshell
|
|
(unless eshell-non-interactive-p
|
|
(cl-assert eshell-mode)
|
|
(cl-assert eshell-banner-message)
|
|
(let ((msg (eval eshell-banner-message)))
|
|
(cl-assert msg)
|
|
(eshell-interactive-print msg))))
|
|
|
|
(provide 'em-banner)
|
|
|
|
;; Local Variables:
|
|
;; generated-autoload-file: "esh-groups.el"
|
|
;; End:
|
|
|
|
;;; em-banner.el ends here
|