[StumpWM] Use hostname command for determining work system

This commit is contained in:
Marcel Kapfer 2022-02-16 15:00:37 +01:00
parent 4c8ecfaa1c
commit f5d7a7bfb4
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09

View file

@ -10,7 +10,11 @@
(defun mmk2410/work ()
"Returns T if running my work machine"
(string-equal (getenv "HOSTNAME") "knuth"))
(string-equal
(string-trim
'(#\Space #\Newline #\Linefeed #\Return)
(run-shell-command "hostname" t))
"knuth"))
;; Other parameters
(defparameter *key-layout* "de" "Stores the current key layout")