diff options
Diffstat (limited to 'oni/home')
| -rw-r--r-- | oni/home/services/stumpwm/config | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/oni/home/services/stumpwm/config b/oni/home/services/stumpwm/config index 2c0ff58..252a983 100644 --- a/oni/home/services/stumpwm/config +++ b/oni/home/services/stumpwm/config @@ -16,6 +16,9 @@ (when (eq (sb-ext:process-status process) :exited) (run-hook *screen-unlocked-hook*))) +(defun vpn-connected-p () + (probe-file "/sys/class/net/vpn")) + (defcommand lock-screen () () "Lock the screen using i3lock. Run `*screen-locking-hook*' before locking it and run `*screen-unlocked-hook*' @@ -56,7 +59,12 @@ after it has been unlocked." '(:eval (or (ignore-errors (window-title (current-window))) "Unknown")) - "^>%d ")) + "^>" + '(:eval + (if (vpn-connected-p) + "^*5^B[VPN]^b^n " + "")) + "%d ")) (mode-line) (restore-from-file "default") |