From 99f7fa13ee3967370c2dbce49c54e834ef9a0565 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 20 Jan 2022 23:48:09 +0100 Subject: gkleen@sif: ... --- accounts/gkleen@sif/xmonad/xmonad.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/accounts/gkleen@sif/xmonad/xmonad.hs b/accounts/gkleen@sif/xmonad/xmonad.hs index 853fc47a..a7ecf759 100644 --- a/accounts/gkleen@sif/xmonad/xmonad.hs +++ b/accounts/gkleen@sif/xmonad/xmonad.hs @@ -572,7 +572,7 @@ main = do "sif" -> withUrgencyHookC urgencyHook' $ urgencyConfig { suppressWhen = U.Never, remindWhen = Every 2 } _ -> id urgencyHook' window = do - let blinkLight = (lightHigh >> threadDelay 1e6) `finally` lightLow + let blinkLight = (lightHigh >> threadDelay 0.5e6) `finally` lightLow where lightHigh = writeFile "/sys/class/leds/input0::capslock/brightness" =<< readFile "/sys/class/leds/input0::capslock/max_brightness" -- cgit v1.2.3