From 4ce635661de19247f0669d451c292f8c369da2ee Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sat, 22 Apr 2023 00:32:05 -0700 Subject: [PATCH] Show VPN status in mode-line --- oni/home/services/stumpwm/config | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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")