From fac48ba9d1bb698902206c9dfb943e75da466929 Mon Sep 17 00:00:00 2001 From: goodmind Date: Sun, 12 Mar 2017 12:44:00 +0500 Subject: [PATCH] switch kernel with os P.S. linux version temporarily will have Linux as OS --- infornography-macos.rkt | 15 ++++++++++----- infornography.rkt | 10 +++++----- 2 files changed, 15 insertions(+), 10 deletions(-) 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.....