mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-04 08:47:11 +00:00
740dbf2295
* lisp/eshell/em-xtra.el (cl-lib): Require. (pcomplete, compile): Remove unnecessary requires. (eshell/substitute, eshell/count, eshell/mismatch, eshell/union) (eshell/intersection, eshell/set-difference) (eshell/set-exclusive-or): Use cl-lib. Doc fixes. (eshell/ff, eshell/gf, eshell/expr): Quote function symbols as such. (eshell/expr): Assume 'calc-eval' is always available.
96 lines
3.0 KiB
EmacsLisp
96 lines
3.0 KiB
EmacsLisp
;;; em-xtra.el --- extra alias functions -*- lexical-binding:t -*-
|
|
|
|
;; Copyright (C) 1999-2021 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)
|
|
(eval-when-compile
|
|
(require 'eshell))
|
|
|
|
;; There are no items in this custom group, but eshell modules (ab)use
|
|
;; custom groups.
|
|
;;;###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)
|
|
|
|
;; Local Variables:
|
|
;; generated-autoload-file: "esh-groups.el"
|
|
;; End:
|
|
|
|
;;; em-xtra.el ends here
|