Show VPN status in mode-line

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")