mmk2410/dotfiles
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

[StumpWM] Use hostname command for determining work system

Browse source
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
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
stumpwm/stumpwmrc
View file

@ -10,7 +10,11 @@
(defun mmk2410/work () (defun mmk2410/work ()
"Returns T if running my work machine" "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 ;; Other parameters
(defparameter *key-layout* "de" "Stores the current key layout") (defparameter *key-layout* "de" "Stores the current key layout")