diff --git a/infornography-macos.rkt b/infornography-macos.rkt index 8f12b63..c120f8a 100755 --- a/infornography-macos.rkt +++ b/infornography-macos.rkt @@ -48,18 +48,23 @@ (number->string total) "M") ""))) -(define (os) +(define (kernel) (string-trim (-> "uname -s"))) +(define (os) + (let* ((os-name (-> "sw_vers -productName")) + (os-version (-> "sw_vers -productVersion"))) + (string-join (map string-trim (list os-name os-version))))) + (define data (list " ....... ............... " ($ USER) "@" (hostname) " .................... Shell: " ($ SHELL) " ......................... Memory: " (memory) " - ........................... OS: " (os) " - ............................. Terminal: " ($ TERM) " - ............................... CPU: " (cpu) " - ..............x................ + ........................... Kernel: " (kernel) " + ............................. OS: " (os) " + ............................... Terminal: " ($ TERM) " + ..............x................ CPU: " (cpu) " ............xo@................ ...........xoo@xxx............. ........o@oxxoo@@@@@@x..xx..... diff --git a/infornography.rkt b/infornography.rkt index b50abd6..0313fd1 100755 --- a/infornography.rkt +++ b/infornography.rkt @@ -49,7 +49,7 @@ (number->string total) "M") ""))) -(define (os) +(define (kernel) (string-trim (-> "uname -s"))) (define data (list " @@ -57,10 +57,10 @@ ............... " ($ USER) "@" (hostname) " .................... Shell: " ($ SHELL) " ......................... Memory: " (memory) " - ........................... OS: " (os) " - ............................. Terminal: " ($ TERM) " - ............................... CPU: " (cpu) " - ..............x................ + ........................... Kernel: " (kernel) " + ............................. OS: Linux + ............................... Terminal: " ($ TERM) " + ..............x................ CPU: " (cpu) " ............xo@................ ...........xoo@xxx............. ........o@oxxoo@@@@@@x..xx.....