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

Better string formatting, add partition display

Browse Source 
FIXME: All elements in a path are shortened even if not necessary
This commit is contained in:
Lucien Cartier-Tilet 2021-04-29 12:28:07 +02:00
parent ed7319bd09
commit 37656ed83c
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 27 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
eshell-info-banner.el
View File

@ -216,12 +216,34 @@ displayed."
(concat (s-pad-right text-padding "." type)
": "
(eshell-info-banner--progress-bar bar-length percentage)
(format " %6s / %-5s ("
(format " %6s / %-5s (%s%%)\n"
(file-size-human-readable used)
(file-size-human-readable total))
(eshell-info-banner--with-face (number-to-string percentage)
:inherit (eshell-info-banner--get-color-percentage percentage))
"%)\n")))
(file-size-human-readable total)
(eshell-info-banner--with-face (number-to-string percentage)
:inherit (eshell-info-banner--get-color-percentage percentage))))))
(defun eshell-info-banner--display-partition (partition text-padding bar-length)
"Display a progress bar showing how full a `PARTITION' is.
`BAR-LENGTH' represents the total length of the progress bar,
while `TEXT-PADDING' indicates how many dots are to be put
between the partition’s name and the colon following it.
See also `eshell-info-banner--display-memory'."
(let ((percentage (eshell-info-banner--mounted-partitions-percent partition)))
(concat (s-pad-right text-padding "."
(eshell-info-banner--with-face (eshell-info-banner--mounted-partitions-path partition)
:weight 'bold))
": "
(eshell-info-banner--progress-bar bar-length percentage)
(format " %6s/%-5s (%s%%)\n"
(eshell-info-banner--mounted-partitions-used partition)
(eshell-info-banner--mounted-partitions-size partition)
(eshell-info-banner--with-face
(number-to-string percentage)
:inherit (eshell-info-banner--get-color-percentage percentage))))))
(provide 'eshell-info-banner)