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

Fix issue with last element in path shortened

Browse Source
This commit is contained in:
Lucien Cartier-Tilet 2021-04-29 14:18:34 +02:00
parent c40d13a0fd
commit 1914b7d0c2
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
eshell-info-banner.el
View File

@ -24,8 +24,6 @@
;;; Commentary: ;;; Commentary:
;; FIXME: All members of paths are shortened even if unnecessary when
;; displaying partitions.
;;; Code: ;;; Code:
@ -117,19 +115,20 @@ For public use, `PATH' should be a string representing a UNIX
path. For internal use, `PATH' cna also be a list. If `PATH' is path. For internal use, `PATH' cna also be a list. If `PATH' is
neither of these, an error will be thrown by the function." neither of these, an error will be thrown by the function."
(cond (cond
((stringp path) (f-short ((stringp path) (abbreviate-file-name
(if abbr (if abbr
(eshell-info-banner--abbr-path (f-split (eshell-info-banner--abbr-path path))) (eshell-info-banner--abbr-path (f-split (eshell-info-banner--abbr-path path)))
path))) path)))
((null path) "") ((null path) "")
((listp path) ((listp path)
(f-join (f-join (if (length= path 1)
(let* ((dir (car path)) (car path)
(first-char (substring dir 0 1))) (let* ((dir (car path))
(if (equal "." first-char) (first-char (substring dir 0 1)))
(substring dir 0 2) (if (string= "." first-char)
first-char)) (substring dir 0 2)
(eshell-info-banner--abbr-path (cdr path)))) first-char)))
(eshell-info-banner--abbr-path (cdr path))))
(t (error "Invalid argument %s, neither stringp or listp" path)))) (t (error "Invalid argument %s, neither stringp or listp" path))))
(defun eshell-info-banner--get-mounted-partitions () (defun eshell-info-banner--get-mounted-partitions ()