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

Add OS name detection for BSD OSes, memory improvements for UNIX 

Simpler function for UNIX systems, including macOS.

Bump to 0.6
This commit is contained in:
Lucien Cartier-Tilet 2021-11-03 18:26:14 +01:00
parent 41222b5f89
commit 0a8a340260
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
eshell-info-banner.el
View File

@ -2,7 +2,7 @@
;; Author: Lucien Cartier-Tilet <lucien@phundrak.com>
;; Maintainer: Lucien Cartier-Tilet <lucien@phundrak.com>
;; Version: 0.5.0
;; Version: 0.6.0
;; Package-Requires: ((emacs "25") (dash "2") (f "0.20") (s "1"))
;; Homepage: https://labs.phundrak.com/phundrak/eshell-info-banner.el
@ -409,10 +409,16 @@ For TEXT-PADDING and BAR-LENGTH, see the documentation of
"\n"
t)))
(defun eshell-info-banner--get-memory/bsd ()
"Get memory usage for *BSD."
(message "Memory usage not yet implemented for BSD")
nil)
(defun eshell-info-banner--get-memory/unix ()
"Get memory usage for UNIX systems.
Compatible with Darwin and FreeBSD at least."
(let* ((command-to-mem (lambda (command)
(string-to-number (s-trim (cadr (split-string (shell-command-to-string command) " " t)))))))
`(("RAM"
,(apply command-to-mem '("sysctl hw.physmem"))
,(apply command-to-mem '("sysctl hw.usermem"))))))
(defalias 'eshell-info-banner--get-memory/bsd #'eshell-info-banner--get-memory/unix)
(defun eshell-info-banner--get-memory/darwin ()
"Get memory usage for macOS."
@ -460,8 +466,8 @@ in bytes."
(eshell-info-banner--get-memory/gnu))
('gnu/kfreebsd
(eshell-info-banner--get-memory/bsd))
('darwin
(eshell-info-banner--get-memory/darwin))
((or 'darwin 'berkeley-unix)
(eshell-info-banner--get-memory/unix))
((or 'ms-dos 'windows-nt 'cygwin)
(eshell-info-banner--get-memory/windows))
(os (warn "Memory usage not yet implemented for %s" os)
@ -657,6 +663,11 @@ If RELEASE-FILE is nil, use '/etc/os-release'."
(substring-no-properties distro
(match-beginning 1)
(match-end 1))))))
((equal system-type 'gnu/kfreebsd)
(let* ((default-directory (if eshell-info-banner-tramp-aware default-directory "~")))
(s-trim (with-temp-buffer
(process-file "uname" nil t nil "-s")
(buffer-string)))))
(t "Unknown"))
.
,(s-trim (shell-command-to-string "uname -rs")))))
@ -685,7 +696,7 @@ build number)."
(pcase system-type
((or 'ms-dos 'windows-nt 'cygwin)
(eshell-info-banner--get-os-information/windows))
((or 'gnu 'gnu/linux 'gnu/kfreebsd)
((or 'gnu 'gnu/linux 'gnu/kfreebsd 'berkeley-unix)
(eshell-info-banner--get-os-information/gnu))
('darwin
(eshell-info-banner--get-os-information/darwin))