[StumpWM] Use hostname command for determining work system

2022-02-16 15:00:37 +01:00 · 2022-02-16 15:00:37 +01:00 · f5d7a7bfb4
parent 4c8ecfaa1c
commit f5d7a7bfb4
1 changed files with 5 additions and 1 deletions
--- a/stumpwm/stumpwmrc
+++ b/stumpwm/stumpwmrc
@ -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")