[StumpWM] Use hostname command for determining work system
This commit is contained in:
parent
4c8ecfaa1c
commit
f5d7a7bfb4
1 changed files with 5 additions and 1 deletions
|
@ -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")
|
||||
|
|
Loading…
Reference in a new issue