summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2022-01-20 23:48:09 +0100
committerGregor Kleen <gkleen@yggdrasil.li>2022-01-20 23:48:09 +0100
commit99f7fa13ee3967370c2dbce49c54e834ef9a0565 (patch)
treeea546ba732489f2238b54b44904cfefebeb63f97
parent7b76723a6c33b50fffa6972b384169f11da217bd (diff)
downloadnixos-99f7fa13ee3967370c2dbce49c54e834ef9a0565.tar
nixos-99f7fa13ee3967370c2dbce49c54e834ef9a0565.tar.gz
nixos-99f7fa13ee3967370c2dbce49c54e834ef9a0565.tar.bz2
nixos-99f7fa13ee3967370c2dbce49c54e834ef9a0565.tar.xz
nixos-99f7fa13ee3967370c2dbce49c54e834ef9a0565.zip
gkleen@sif: ...
-rw-r--r--accounts/gkleen@sif/xmonad/xmonad.hs2
1 files changed, 1 insertions, 1 deletions
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
572 "sif" -> withUrgencyHookC urgencyHook' $ urgencyConfig { suppressWhen = U.Never, remindWhen = Every 2 } 572 "sif" -> withUrgencyHookC urgencyHook' $ urgencyConfig { suppressWhen = U.Never, remindWhen = Every 2 }
573 _ -> id 573 _ -> id
574 urgencyHook' window = do 574 urgencyHook' window = do
575 let blinkLight = (lightHigh >> threadDelay 1e6) `finally` lightLow 575 let blinkLight = (lightHigh >> threadDelay 0.5e6) `finally` lightLow
576 where 576 where
577 lightHigh = 577 lightHigh =
578 writeFile "/sys/class/leds/input0::capslock/brightness" =<< readFile "/sys/class/leds/input0::capslock/max_brightness" 578 writeFile "/sys/class/leds/input0::capslock/brightness" =<< readFile "/sys/class/leds/input0::capslock/max_brightness"