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

Code formatting, version revision bump

Browse Source 
Making shorter lines
This commit is contained in:
Lucien Cartier-Tilet 2021-05-22 00:19:54 +02:00
parent 285fd95b8b
commit 84294cb12c
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 31 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
eshell-info-banner.el
View File

@ -2,7 +2,7 @@
;; Author: Lucien Cartier-Tilet <lucien@phundrak.com> ;; Author: Lucien Cartier-Tilet <lucien@phundrak.com>
;; Maintainer: Lucien Cartier-Tilet <lucien@phundrak.com> ;; Maintainer: Lucien Cartier-Tilet <lucien@phundrak.com>
;; Version: 0.4.0 ;; Version: 0.4.1
;; Package-Requires: ((emacs "24") (dash "2") (f "0.20") (s "1")) ;; Package-Requires: ((emacs "24") (dash "2") (f "0.20") (s "1"))
;; Homepage: https://labs.phundrak.com/phundrak/eshell-info-banner.el ;; Homepage: https://labs.phundrak.com/phundrak/eshell-info-banner.el
@ -157,7 +157,8 @@
The returned value is in any case greater than `eshell-info-banner--min-length-left'." The returned value is in any case greater than `eshell-info-banner--min-length-left'."
(-reduce-from (lambda (len partition) (-reduce-from (lambda (len partition)
(max len (length (eshell-info-banner--mounted-partitions-path partition)))) (max len
(length (eshell-info-banner--mounted-partitions-path partition))))
eshell-info-banner--min-length-left eshell-info-banner--min-length-left
partitions)) partitions))
@ -177,7 +178,8 @@ neither of these, an error will be thrown by the function."
(cond (cond
((stringp path) (abbreviate-file-name ((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)
@ -260,8 +262,10 @@ Return detected partitions as a list of structs."
For TEXT-PADDING and BAR-LENGTH, see the documentation of For TEXT-PADDING and BAR-LENGTH, see the documentation of
`eshell-info-banner--display-memory'." `eshell-info-banner--display-memory'."
(let ((percentage (eshell-info-banner--mounted-partitions-percent partition))) (let ((percentage (eshell-info-banner--mounted-partitions-percent partition)))
(concat (s-pad-right text-padding "." (concat (s-pad-right text-padding
(eshell-info-banner--with-face (eshell-info-banner--mounted-partitions-path partition) "."
(eshell-info-banner--with-face
(eshell-info-banner--mounted-partitions-path partition)
:weight 'bold)) :weight 'bold))
": " ": "
(eshell-info-banner--progress-bar bar-length percentage) (eshell-info-banner--progress-bar bar-length percentage)
@ -353,7 +357,8 @@ displayed."
(format " %6s / %-5s (%3s%%)" (format " %6s / %-5s (%3s%%)"
(file-size-human-readable used) (file-size-human-readable used)
(file-size-human-readable total) (file-size-human-readable total)
(eshell-info-banner--with-face (number-to-string percentage) (eshell-info-banner--with-face
(number-to-string percentage)
:inherit (eshell-info-banner--get-color-percentage percentage)))))) :inherit (eshell-info-banner--get-color-percentage percentage))))))
(defun eshell-info-banner--display-memory (text-padding bar-length) (defun eshell-info-banner--display-memory (text-padding bar-length)
@ -435,14 +440,17 @@ the warning face with a battery level of 25% or less."
"" ""
(let ((percentage (save-match-data (let ((percentage (save-match-data
(string-match "\\([0-9]+\\)\\(\\.[0-9]\\)?%" battery-level) (string-match "\\([0-9]+\\)\\(\\.[0-9]\\)?%" battery-level)
(string-to-number (substring battery-level (match-beginning 1) (match-end 1)))))) (string-to-number (substring battery-level
(match-beginning 1)
(match-end 1))))))
(concat (s-pad-right text-padding "." "Battery") (concat (s-pad-right text-padding "." "Battery")
": " ": "
(eshell-info-banner--progress-bar bar-length (eshell-info-banner--progress-bar bar-length
percentage percentage
t) t)
(s-repeat 16 " ") (s-repeat 16 " ")
(format "(%3s%%)\n" (eshell-info-banner--with-face (format "(%3s%%)\n"
(eshell-info-banner--with-face
(number-to-string percentage) (number-to-string percentage)
:inherit (eshell-info-banner--get-color-percentage (- 100.0 percentage))))))))) :inherit (eshell-info-banner--get-color-percentage (- 100.0 percentage)))))))))
@ -488,10 +496,17 @@ If RELEASE-FILE is nil, use '/etc/os-release'."
"Get operating system identifying information." "Get operating system identifying information."
(let ((prefix (if eshell-info-banner-tramp-aware (file-remote-p default-directory) ""))) (let ((prefix (if eshell-info-banner-tramp-aware (file-remote-p default-directory) "")))
(cond (cond
((executable-find "hostnamectl" eshell-info-banner-tramp-aware) (eshell-info-banner--get-os-information-from-hostnamectl)) ;; Linux
((executable-find "lsb_release" eshell-info-banner-tramp-aware) (eshell-info-banner--get-os-information-from-lsb-release)) ((executable-find "hostnamectl" eshell-info-banner-tramp-aware)
((file-exists-p (concat prefix "/etc/os-release")) (eshell-info-banner--get-os-information-from-release-file)) (eshell-info-banner--get-os-information-from-hostnamectl))
((executable-find "reg") (eshell-info-banner--get-os-information-from-registry)) ((executable-find "lsb_release" eshell-info-banner-tramp-aware)
(eshell-info-banner--get-os-information-from-lsb-release))
((file-exists-p (concat prefix "/etc/os-release"))
(eshell-info-banner--get-os-information-from-release-file))
;; Windows
((executable-find "reg")
(eshell-info-banner--get-os-information-from-registry))
(t "Unknown")))) (t "Unknown"))))