From f5d7a7bfb46e3b0929d1fcbadcb98815be0dde0a Mon Sep 17 00:00:00 2001
From: Marcel Kapfer <opensource@mmk2410.org>
Date: Wed, 16 Feb 2022 15:00:37 +0100
Subject: [PATCH] [StumpWM] Use hostname command for determining work system

---
 stumpwm/stumpwmrc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc
index c492b23..1aa1230 100644
--- 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")