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

Add autoload, banner updater and correct require

Browse Source
This commit is contained in:
Lucien Cartier-Tilet 2021-04-29 20:07:16 +02:00
parent 3d3e2b3bbe
commit ccb4bf0c36
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
eshell-info-banner.el
View File

@ -30,6 +30,7 @@
(require 'cl-lib) (require 'cl-lib)
(require 'dash) (require 'dash)
(require 'f) (require 'f)
(require 'em-banner)
; Groups ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Groups ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -179,6 +180,7 @@ the left side of the banner."
(len (max (length path) len))) (len (max (length path) len)))
(eshell-info-banner--get-longest-path (cdr partitions) len))))) (eshell-info-banner--get-longest-path (cdr partitions) len)))))
;; FIXME: There’s apparently an issue here selecting faces
(defun eshell-info-banner--get-color-percentage (percentage) (defun eshell-info-banner--get-color-percentage (percentage)
"Display a `PERCENTAGE' with its according face." "Display a `PERCENTAGE' with its according face."
(let ((percentage (if (stringp percentage) (let ((percentage (if (stringp percentage)
@ -259,6 +261,7 @@ See also `eshell-info-banner--display-memory'."
(number-to-string percentage) (number-to-string percentage)
:inherit (eshell-info-banner--get-color-percentage percentage)))))) :inherit (eshell-info-banner--get-color-percentage percentage))))))
;;;###autoload
(defun eshell-info-banner () (defun eshell-info-banner ()
"Banner for Eshell displaying system information." "Banner for Eshell displaying system information."
(let* ((partitions (eshell-info-banner--get-mounted-partitions)) (let* ((partitions (eshell-info-banner--get-mounted-partitions))
@ -322,6 +325,9 @@ See also `eshell-info-banner--display-memory'."
"\n") "\n")
(format "\n%s\n" (s-repeat tot-width eshell-info-banner-progress-bar-char))))) (format "\n%s\n" (s-repeat tot-width eshell-info-banner-progress-bar-char)))))
(defun eshell-info-banner-update-banner ()
"Update the Eshell banner."
(setq eshell-banner-message (eshell-info-banner)))
(provide 'eshell-info-banner) (provide 'eshell-info-banner)