howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Reformat with dash library to make code more readable

Browse source 
Using the anaphoric macros from the dash library allows the banner
code to be smaller and I feel more readable. Yes, I could have run the
`ls` command into another buffer and copied it, I have bigger plans
for displaying my directory listing.
This commit is contained in:
Howard Abrams 2022-09-29 09:18:59 -07:00
parent d5e30ec98f
commit b399c30bb6
1 changed files with 18 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
ha-eshell.org
View file

@ -563,7 +563,7 @@ The [[http://projects.ryuslash.org/eshell-fringe-status/][eshell-fringe-status]]
:hook (eshell-mode . eshell-fringe-status-mode))
#+end_src
** Opening Banner
Whenever I open a shell, I instinctively type =ls= … so why not do that automatically?
Whenever I open a shell, I instinctively type =ls= … so why not do that automatically? The [[elisp:(describe-variable 'eshell-banner-message)][eshell-banner-message]] variable, while normally a string, can be a /form/ (an s-expression) that calls a function, so I made a customized =ls= that can be attractive:
#+begin_src emacs-lisp
(defun ha-eshell-banner ()
"Return a string containing the files in the current directory."
@ -573,34 +573,32 @@ Whenever I open a shell, I instinctively type =ls= … so why not do that automa
(not "~")
string-end))
(files (directory-files default-directory nil non-hidden))
(longest (reduce (lambda (longest file) (max longest (length file)))
files :initial-value 1))
(longest (--reduce-from (max acc (length it)) 1 files))
(padded (format "%%-%ds " longest))
(width (window-total-width))
(columns (/ width (+ longest 3))))
(cl-flet* ((process-file
(file)
(let ((image-rx (rx "." (or "png" "jpg" "jpeg" "tif" "wav") string-end))
(let ((impor-rx (rx string-start "README"))
(image-rx (rx "." (or "png" "jpg" "jpeg" "tif" "wav") string-end))
(code-rx (rx "." (or "el" "py" "rb") string-end))
(docs-rx (rx "." (or "org" "md") string-end)))
(format padded (cond
((string-match image-rx file) (propertize file 'face '(:foreground "light pink")))
((string-match code-rx file) (propertize file 'face '(:foreground "DarkSeaGreen1")))
((file-directory-p file) (propertize file 'face '(:foreground "SteelBlue")))
(t file)))))
;; This nasty little function was an attempt to make
;; things readable, but who would have thunk that
;; `mapconcat' couldn't access a symbol reference to a
;; function created by `cl-flet*'!?
(process-files
(table)
(mapconcat (lambda (line) (mapconcat
(lambda (file) (process-file file))
line
"• "))
table
"\n")))
((string-match impor-rx file)
(propertize file 'face '(:foreground "gold")))
((string-match image-rx file)
(propertize file 'face '(:foreground "light pink")))
((string-match code-rx file)
(propertize file 'face '(:foreground "DarkSeaGreen1")))
((file-directory-p file)
(propertize file 'face 'eshell-ls-directory))
(t
file)))))
(process-lines (files) (s-join "• " (--map (process-file it) files)))
(process-files (table) (s-join "\n" (--map (process-lines it) table))))
(concat (process-files (seq-partition files columns)) "\n\n"))))
#+end_src