Improve sleep-nag timer

2021-07-12 01:02:55 +02:00 · 2021-07-12 01:02:55 +02:00 · 7db0487921
parent 61365b11ad
commit 7db0487921
1 changed files with 3 additions and 1 deletions
--- a/home-manager/roles/desktop/sleep-nag.nix
+++ b/home-manager/roles/desktop/sleep-nag.nix
@ -12,6 +12,8 @@ let
      ];
      bins = [ pkgs.libnotify pkgs.systemd ];
    } ''
+    interval = 5
+
    main = forever $ do
       time <- getZonedTime
       let tod = localTimeOfDay . zonedTimeToLocalTime$ time
@ -24,7 +26,7 @@ let
            | night = systemctl "poweroff"
            | otherwise = pass
       action
-       threadDelay 600000000
+       threadDelay $ (interval - (minute `mod` interval)) * 60 * 1000000
  '';
 in
 {