1 ;;; esh-module --- Eshell modules
3 ;; Copyright (C) 1999, 2000 Free Software Foundation
5 ;; Author: John Wiegley <johnw@gnu.org>
7 ;; X-URL: http://www.emacs.org/~johnw/eshell.html
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
28 (eval-when-compile (require 'esh-maint
) (require 'cl
))
30 (defgroup eshell-module nil
31 "The `eshell-module' group is for Eshell extension modules, which
32 provide optional behavior which the user can enable or disable by
33 customizing the variable `eshell-modules-list'."
34 :tag
"Extension modules"
41 (defun eshell-load-defgroups (&optional directory
)
42 "Load `defgroup' statements from Eshell's module files."
44 (find-file-noselect (expand-file-name "esh-groups.el" directory
))
46 (insert ";;; do not modify this file; it is auto-generated\n\n")
47 (let ((files (directory-files (or directory
48 (car command-line-args-left
))
49 nil
"\\`em-.*\\.el\\'")))
51 (message "Loading defgroup from `%s'" (car files
))
54 (with-current-buffer (find-file-noselect (car files
))
55 (goto-char (point-min))
58 (if (eobp) (throw 'handled t
))
61 (defg (looking-at "(defgroup")))
64 (setq defgroup
(buffer-substring begin
(point))))))))
66 (insert defgroup
"\n\n")))
67 (setq files
(cdr files
))))
70 ;; load the defgroup's for the standard extension modules, so that
71 ;; documentation can be provided when the user customize's
72 ;; `eshell-modules-list'.
74 (when (and (boundp 'byte-compile-current-file
)
75 byte-compile-current-file
76 (equal (file-name-nondirectory byte-compile-current-file
)
78 (let* ((directory (file-name-directory byte-compile-current-file
))
79 (elc-file (expand-file-name "esh-groups.elc" directory
)))
80 (eshell-load-defgroups directory
)
81 (if (file-exists-p elc-file
) (delete-file elc-file
)))))
83 (load "esh-groups" t t
)
87 (defcustom eshell-module-unload-hook
88 '(eshell-unload-extension-modules)
89 "*A hook run when `eshell-module' is unloaded."
91 :group
'eshell-module
)
93 (defcustom eshell-modules-list
107 "*A list of optional add-on modules to be loaded by Eshell.
108 Changes will only take effect in future Eshell buffers."
110 (list 'set
':tag
"Supported modules")
114 (let ((modsym (intern modname
)))
116 ':tag
(format "%s -- %s" modname
117 (get modsym
'custom-tag
))
118 ':link
(caar (get modsym
'custom-links
))
119 ':doc
(concat "\n" (get modsym
'group-documentation
)
122 (sort (mapcar 'symbol-name
123 (eshell-subgroups 'eshell-module
))
125 '((repeat :inline t
:tag
"Other modules" symbol
)))
126 :group
'eshell-module
)
130 (defsubst eshell-using-module
(module)
131 "Return non-nil if a certain Eshell MODULE is in use.
132 The MODULE should be a symbol corresponding to that module's
133 customization group. Example: `eshell-cmpl' for that module."
134 (memq module eshell-modules-list
))
136 (defun eshell-unload-extension-modules ()
137 "Unload any memory resident extension modules."
138 (eshell-for module
(eshell-subgroups 'eshell-module
)
139 (if (featurep module
)
141 (message "Unloading %s..." (symbol-name module
))
142 (unload-feature module
)
143 (message "Unloading %s...done" (symbol-name module
))))))
145 ;;; esh-module.el ends here