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

Display of memory and partitions added!

Browse Source 
FIXME: Wrong face used, warning instead of critical
This commit is contained in:
Lucien Cartier-Tilet 2021-04-29 20:03:02 +02:00
parent 4b592a1f9e
commit 3d3e2b3bbe
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
eshell-info-banner.el
View File

@ -252,7 +252,7 @@ See also `eshell-info-banner--display-memory'."
:weight 'bold)) :weight 'bold))
": " ": "
(eshell-info-banner--progress-bar bar-length percentage) (eshell-info-banner--progress-bar bar-length percentage)
(format " %6s/%-5s (%s%%)\n" (format " %6s / %-5s (%3s%%)"
(eshell-info-banner--mounted-partitions-used partition) (eshell-info-banner--mounted-partitions-used partition)
(eshell-info-banner--mounted-partitions-size partition) (eshell-info-banner--mounted-partitions-size partition)
(eshell-info-banner--with-face (eshell-info-banner--with-face
@ -292,11 +292,8 @@ See also `eshell-info-banner--display-memory'."
(shell-command-to-string "free -b | tail -2") (shell-command-to-string "free -b | tail -2")
t))) t)))
(ram (nth 0 memory)) (ram (nth 0 memory))
(swap (nth 1 memory))) (swap (nth 1 memory))
(message "%s" partitions) (bar-length (- tot-width left-padding 4 22)))
(message "%s" memory)
(message "%s" ram)
(message "%s" swap)
(concat (format "%s\n" (s-repeat tot-width eshell-info-banner-progress-bar-char)) (concat (format "%s\n" (s-repeat tot-width eshell-info-banner-progress-bar-char))
(format "%s: %s Kernel.: %s\n" (format "%s: %s Kernel.: %s\n"
(s-pad-right left-padding (s-pad-right left-padding
@ -309,7 +306,21 @@ See also `eshell-info-banner--display-memory'."
(s-pad-right middle-padding " " (eshell-info-banner--with-face hostname :weight 'bold)) (s-pad-right middle-padding " " (eshell-info-banner--with-face hostname :weight 'bold))
uptime uptime
) )
))) (eshell-info-banner--display-memory "Ram"
(string-to-number (nth 2 ram))
(string-to-number (nth 1 ram))
left-padding
bar-length)
(eshell-info-banner--display-memory "Swap"
(string-to-number (nth 2 swap))
(string-to-number (nth 1 swap))
left-padding
bar-length)
(mapconcat (lambda (partition)
(eshell-info-banner--display-partition partition left-padding bar-length))
partitions
"\n")
(format "\n%s\n" (s-repeat tot-width eshell-info-banner-progress-bar-char)))))