1 ;;; esh-module --- Eshell modules
3 ;; Copyright (C) 1999, 2000 Free Sofware 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 (equal (file-name-nondirectory byte-compile-current-file
)
76 (let* ((directory (file-name-directory byte-compile-current-file
))
77 (elc-file (expand-file-name "esh-groups.elc" directory
)))
78 (eshell-load-defgroups directory
)
79 (if (file-exists-p elc-file
) (delete-file elc-file
)))))
81 (load "esh-groups" t t
)
85 (defcustom eshell-module-unload-hook
86 '(eshell-unload-extension-modules)
87 "*A hook run when `eshell-module' is unloaded."
89 :group
'eshell-module
)
91 (defcustom eshell-modules-list
105 "*A list of optional add-on modules to be loaded by Eshell.
106 Changes will only take effect in future Eshell buffers."
108 (list 'set
':tag
"Supported modules")
112 (let ((modsym (intern modname
)))
114 ':tag
(format "%s -- %s" modname
115 (get modsym
'custom-tag
))
116 ':link
(caar (get modsym
'custom-links
))
117 ':doc
(concat "\n" (get modsym
'group-documentation
)
120 (sort (mapcar 'symbol-name
121 (eshell-subgroups 'eshell-module
))
123 '((repeat :inline t
:tag
"Other modules" symbol
)))
124 :group
'eshell-module
)
128 (defsubst eshell-using-module
(module)
129 "Return non-nil if a certain Eshell MODULE is in use.
130 The MODULE should be a symbol corresponding to that module's
131 customization group. Example: `eshell-cmpl' for that module."
132 (memq module eshell-modules-list
))
134 (defun eshell-unload-extension-modules ()
135 "Unload any memory resident extension modules."
136 (eshell-for module
(eshell-subgroups 'eshell-module
)
137 (if (featurep module
)
139 (message "Unloading %s..." (symbol-name module
))
140 (unload-feature module
)
141 (message "Unloading %s...done" (symbol-name module
))))))
143 ;;; esh-module.el ends here