nixos-config/home-manager/roles/desktop/sleep-nag.nix

{ pkgs, ... }:
let
  sleep-nag = pkgs.writeHaskellScript {
    name = "sleep-nag";
    imports = [
      "Data.Time.LocalTime"
      "Data.Time.Format"
      "Data.Time.Clock"
      "Control.Concurrent"
      "Data.Functor"
    ];
    bins = [ pkgs.libnotify ];
  } ''
    main = forever $ do
       time <- getZonedTime
       let tod = localTimeOfDay . zonedTimeToLocalTime$ time
           hour = todHour tod
           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
  '';
in {
  systemd.user.services.sleep-nag = {
    Unit.Description = "Sleep nag";
    Service.ExecStart = "${sleep-nag}/bin/sleep-nag";
    Install.WantedBy = [ "graphical-session.target" ];
  };
}