maralorn/nixos-config
1
0
Fork 0
Code Wiki Activity

Fix sleep-nag

Browse source
This commit is contained in:
Malte Brandy 2021-07-09 01:42:07 +02:00
parent a2eb193959
commit 4c9e1d882b
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
home-manager/roles/desktop/sleep-nag.nix
View file

@ -16,12 +16,14 @@ let
time <- getZonedTime
let tod = localTimeOfDay . zonedTimeToLocalTime$ time
hour = todHour tod
minute = todMinute tod
evening = hour == 0
night = (hour < 6 && hour >= 1)
if night then do {
notify_send ([i|Es ist #{formatTime defaultTimeLocale "%H:%M" time} Uhr: Zeit ins Bett zu gehen!|]::String) "Du kannst das hier auch morgen tun!";
threadDelay 600000000}
else
threadDelay 600000000
action
| evening = notify_send "Shutdown alert!" ([i|Rechner fährt in #{59-minute} Minuten runter.|]::String)
| night = exe "/run/current-system/sw/bin/sudo" "systemctl" "shutdown"
action
threadDelay 600000000
'';
in
{