diff options
| -rw-r--r-- | eshell-conf.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/eshell-conf.el b/eshell-conf.el index 02036b7..0884d49 100644 --- a/eshell-conf.el +++ b/eshell-conf.el @@ -370,7 +370,7 @@ candidates." "Choose a link: " candidates nil t)) candidates #'string=)))))))) -;;; convenient ls +;;; Custom ls (defvar dir-literal nil) (defvar show-recursive nil) @@ -387,13 +387,17 @@ candidates." (defvar flush-func nil) (defvar error-func nil) +;;;; Convenient wrapper + (defun eshell/l (&rest args) "Equivalent with \"dl -alhg ARGS\"." (eshell/dl "-alhg" (or args "."))) +;;;; Enhanced command + (defun eshell/dl (&rest args) "My enhanced implementation of \"ls\" in Emacs Lisp, with ARGS. -See `eshell/l` for the original version. +See `eshell/ls' for the original version. I added the option of \"g\" for grouping directories first." (let ((insert-func 'eshell-buffered-print) @@ -490,7 +494,7 @@ Sort entries alphabetically across.") t (expand-file-name default-directory))) (funcall flush-func)))) -;;; Group directories first in `eshell/ls' +;;;; Group directories first in `eshell/ls' (defvar durand-eshell-ls-dirs-first nil "The variable that controls whether |