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

Add error handling in case of an unknown OS, warn instead of message

Browse Source 
Warn the user if something goes wrong instead of just a message in the
minibuffer and the *Message* buffer.
This commit is contained in:
Lucien Cartier-Tilet 2021-11-06 22:51:11 +01:00
parent 27ae353336
commit 41222b5f89
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
eshell-info-banner.el
View File

@ -318,7 +318,7 @@ Return detected partitions as a list of structs. See
`eshell-info-banner-partition-prefixes' to see how partitions are
chosen."
(progn
(message "Partition detection for Windows and DOS not yet supported.")
(warn "Partition detection for Windows and DOS not yet supported.")
nil))
(defun eshell-info-banner--get-mounted-partitions/darwin ()
@ -363,7 +363,7 @@ Return detected partitions as a list of structs."
(eshell-info-banner--get-mounted-partitions/darwin))
(other
(progn
(message "Partition detection for %s not yet supported." other)
(warn "Partition detection for %s not yet supported." other)
nil)))))
(defun eshell-info-banner--partition-to-string (partition text-padding bar-length)
@ -444,7 +444,7 @@ For TEXT-PADDING and BAR-LENGTH, see the documentation of
(defun eshell-info-banner--get-memory/windows ()
"Get memory usage for Window."
(message "Memory usage not yet implemented for Windows and DOS")
(warn "Memory usage not yet implemented for Windows and DOS")
nil)
(defun eshell-info-banner--get-memory ()
@ -464,7 +464,7 @@ in bytes."
(eshell-info-banner--get-memory/darwin))
((or 'ms-dos 'windows-nt 'cygwin)
(eshell-info-banner--get-memory/windows))
(os (message "Memory usage not yet implemented for %s" os)
(os (warn "Memory usage not yet implemented for %s" os)
nil)))
(defun eshell-info-banner--memory-to-string (type total used text-padding bar-length)
@ -688,7 +688,9 @@ build number)."
((or 'gnu 'gnu/linux 'gnu/kfreebsd)
(eshell-info-banner--get-os-information/gnu))
('darwin
(eshell-info-banner--get-os-information/darwin))))
(eshell-info-banner--get-os-information/darwin))
(os (warn "Operating system information retrieving not yet supported for %s")
'((format "%s") . "Unknown"))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;