From f0e6ac0875a67b5b7acae8d5a998c58f6899a658 Mon Sep 17 00:00:00 2001 From: JSDurand Date: Sat, 25 Feb 2023 21:36:07 +0800 Subject: eshell: Fix typo and change section headings * eshell-conf.el: Fix a typo in the documentation string of the function eshell/dl, and add some more sections for better structures. --- eshell-conf.el | 10 +++++++--- 1 file 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 -- cgit v1.2.3-18-g5258