mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-07 15:00:34 -08:00
4c924a5333
This will let modules define their own, regular autoloads, independent
of the core Eshell machinery for defining modules.
* lisp/eshell/em-alias.el (em-alias):
* lisp/eshell/em-banner.el (em-banner):
* lisp/eshell/em-basic.el (em-basic):
* lisp/eshell/em-cmpl.el (em-cmpl):
* lisp/eshell/em-dirs.el (em-dirs):
* lisp/eshell/em-elecslash.el (em-elecslash):
* lisp/eshell/em-extpipe.el:
* lisp/eshell/em-glob.el (em-glob):
* lisp/eshell/em-hist.el (em-hist):
* lisp/eshell/em-ls.el (em-ls):
* lisp/eshell/em-pred.el (em-pred):
* lisp/eshell/em-prompt.el (em-prompt):
* lisp/eshell/em-rebind.el (em-rebind):
* lisp/eshell/em-script.el (em-script):
* lisp/eshell/em-smart.el (em-smart):
* lisp/eshell/em-term.el (em-term):
* lisp/eshell/em-tramp.el (em-tramp):
* lisp/eshell/em-unix.el (em-unix):
* lisp/eshell/em-xtra.el (em-xtra): Use 'esh-module-autoload'.
* lisp/eshell/esh-module.el ("esh-module-loaddefs"): Load this instead
of "esh-groups".
* .gitignore: Change esh-groups.el to esh-module-loaddefs.el
88 lines
2.9 KiB
EmacsLisp
88 lines
2.9 KiB
EmacsLisp
;;; em-xtra.el --- extra alias functions -*- lexical-binding:t -*-
|
|
|
|
;; Copyright (C) 1999-2024 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 <https://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(require 'cl-lib)
|
|
(require 'esh-util)
|
|
|
|
;; There are no items in this custom group, but eshell modules (ab)use
|
|
;; custom groups.
|
|
;;;###esh-module-autoload
|
|
(progn
|
|
(defgroup eshell-xtra nil
|
|
"This module defines some extra alias functions which are entirely
|
|
optional. They can be viewed as samples for how to write Eshell alias
|
|
functions, or as aliases which make some of Emacs's behavior more
|
|
naturally accessible within Emacs."
|
|
:tag "Extra alias functions"
|
|
:group 'eshell-module))
|
|
|
|
;;; Functions:
|
|
|
|
(autoload 'eshell-parse-command "esh-cmd")
|
|
|
|
(defun eshell/expr (&rest args)
|
|
"Implementation of expr, using the calc package."
|
|
(calc-eval (eshell-flatten-and-stringify args)))
|
|
|
|
(defun eshell/substitute (&rest args)
|
|
"Easy front-end to `cl-substitute', for comparing lists of strings."
|
|
(apply #'cl-substitute (car args) (cadr args) :test #'equal
|
|
(cddr args)))
|
|
|
|
(defun eshell/count (&rest args)
|
|
"Easy front-end to `cl-count', for comparing lists of strings."
|
|
(apply #'cl-count (car args) (cadr args) :test #'equal
|
|
(cddr args)))
|
|
|
|
(defun eshell/mismatch (&rest args)
|
|
"Easy front-end to `cl-mismatch', for comparing lists of strings."
|
|
(apply #'cl-mismatch (car args) (cadr args) :test #'equal
|
|
(cddr args)))
|
|
|
|
(defun eshell/union (&rest args)
|
|
"Easy front-end to `cl-union', for comparing lists of strings."
|
|
(apply #'cl-union (car args) (cadr args) :test #'equal
|
|
(cddr args)))
|
|
|
|
(defun eshell/intersection (&rest args)
|
|
"Easy front-end to `cl-intersection', for comparing lists of strings."
|
|
(apply #'cl-intersection (car args) (cadr args) :test #'equal
|
|
(cddr args)))
|
|
|
|
(defun eshell/set-difference (&rest args)
|
|
"Easy front-end to `cl-set-difference', for comparing lists of strings."
|
|
(apply #'cl-set-difference (car args) (cadr args) :test #'equal
|
|
(cddr args)))
|
|
|
|
(defun eshell/set-exclusive-or (&rest args)
|
|
"Easy front-end to `cl-set-exclusive-or', for comparing lists of strings."
|
|
(apply #'cl-set-exclusive-or (car args) (cadr args) :test #'equal
|
|
(cddr args)))
|
|
|
|
(defalias 'eshell/ff #'find-name-dired)
|
|
(defalias 'eshell/gf #'find-grep-dired)
|
|
|
|
(provide 'em-xtra)
|
|
;;; em-xtra.el ends here
|