phundrak/eshell-info-banner.el
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Leverage -reduce-from function

Browse Source 
Use the high order function -reduce-from instead of reimplementing a
specialiced reduce function to go get the longest path length.
This commit is contained in:
Juergen Hoetzel 2021-05-15 14:29:43 +02:00
parent 999f170337
commit 468167e356
1 changed files with 7 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
eshell-info-banner.el
View File

@ -166,20 +166,14 @@ Return detected partitions as a list of structs."
(string-trim-left percent (regexp-quote "%")))))))
partitions)))
(defun eshell-info-banner--get-longest-path (partitions &optional len)
"Find the length of the longest partition path in `PARTITIONS'.
(defun eshell-info-banner--get-longest-path (partitions)
"Return the length of the longest partition path in `PARTITIONS'.
The variable `LEN' should only be used internally and represents
the longest path so far, or the minimum length of text present on
the left side of the banner."
(let ((len (if (null len)
eshell-info-banner--min-length-left
len)))
(if (null partitions)
len
(let* ((path (eshell-info-banner--mounted-partitions-path (car partitions)))
(len (max (length path) len)))
(eshell-info-banner--get-longest-path (cdr partitions) len)))))
The returned value is in any case greater than `eshell-info-banner--min-length-left'."
(-reduce-from (lambda (len partition)
(max len (length (eshell-info-banner--mounted-partitions-path partition))))
eshell-info-banner--min-length-left
partitions))
(defun eshell-info-banner--get-color-percentage (percentage)
"Display a `PERCENTAGE' with its according face."