64 |
:group 'eshell-ls) |
:group 'eshell-ls) |
65 |
|
|
66 |
(defcustom eshell-ls-dired-initial-args nil |
(defcustom eshell-ls-dired-initial-args nil |
67 |
"*If non-nil, args is included before any call to `ls' in dired. |
"*If non-nil, args is included before any call to `ls' in Dired. |
68 |
This is useful for enabling human-readable format (-h), for example." |
This is useful for enabling human-readable format (-h), for example." |
69 |
:type '(repeat :tag "Arguments" string) |
:type '(repeat :tag "Arguments" string) |
70 |
:group 'eshell-ls) |
:group 'eshell-ls) |
71 |
|
|
72 |
(defcustom eshell-ls-use-in-dired nil |
(defcustom eshell-ls-use-in-dired nil |
73 |
"*If non-nil, use `eshell-ls' to read directories in dired." |
"*If non-nil, use `eshell-ls' to read directories in Dired." |
74 |
:set (lambda (symbol value) |
:set (lambda (symbol value) |
75 |
(if value |
(if value |
76 |
(unless (and (boundp 'eshell-ls-use-in-dired) |
(unless (and (boundp 'eshell-ls-use-in-dired) |
158 |
(defface eshell-ls-missing |
(defface eshell-ls-missing |
159 |
'((((class color) (background light)) (:foreground "Red" :weight bold)) |
'((((class color) (background light)) (:foreground "Red" :weight bold)) |
160 |
(((class color) (background dark)) (:foreground "Red" :weight bold))) |
(((class color) (background dark)) (:foreground "Red" :weight bold))) |
161 |
"*The face used for highlighting non-existant file names." |
"*The face used for highlighting non-existent file names." |
162 |
:group 'eshell-ls) |
:group 'eshell-ls) |
163 |
;; backward-compatibility alias |
;; backward-compatibility alias |
164 |
(put 'eshell-ls-missing-face 'face-alias 'eshell-ls-missing) |
(put 'eshell-ls-missing-face 'face-alias 'eshell-ls-missing) |
863 |
(cons col-widths newfiles))))) |
(cons col-widths newfiles))))) |
864 |
|
|
865 |
(defun eshell-ls-decorated-name (file) |
(defun eshell-ls-decorated-name (file) |
866 |
"Return FILE, possibly decorated. |
"Return FILE, possibly decorated." |
|
Use TRUENAME for predicate tests, if passed." |
|
867 |
(if eshell-ls-use-colors |
(if eshell-ls-use-colors |
868 |
(let ((face |
(let ((face |
869 |
(cond |
(cond |