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

Update sleep-nag

Browse source
This commit is contained in:
Malte Brandy 2020-10-13 00:17:38 +02:00
parent 5be4b11dbe
commit 99ad74c19d
No known key found for this signature in database
GPG key ID: 226A2D41EF5378C9
1 changed files with 5 additions and 7 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

@ -15,14 +15,12 @@ let
time <- getZonedTime
let tod = localTimeOfDay . zonedTimeToLocalTime$ time
hour = todHour tod
night = (hour < 6 || hour >= 23)
diff = diffUTCTime (zonedTimeToUTC time{zonedTimeToLocalTime = (zonedTimeToLocalTime time){localTimeOfDay = TimeOfDay 23 0 0}}) (zonedTimeToUTC time)
delay = toRational diff
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)
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 (floor $ delay * 1000000)
threadDelay 600000000
'';
in {