mirror of
https://github.com/quantum9Innovation/suntheme.git
synced 2024-11-28 11:03:50 -08:00
1ed2a75f6c
move time-related functions from `Main.hs` to a new `Time` module for better organization and code separation
28 lines
923 B
Haskell
28 lines
923 B
Haskell
module Pure where
|
|
|
|
import Data.Time (ZonedTime)
|
|
import Data.Time.RFC3339 (formatTimeRFC3339)
|
|
import Data.Time.LocalTime (zonedTimeToUTC)
|
|
|
|
readLines :: [String] -> Maybe (String, Double, Double, String)
|
|
readLines [msg, latStr, lonStr, tz] = Just (msg, read latStr, read lonStr, tz)
|
|
readLines _ = Nothing
|
|
|
|
kill :: String -> String
|
|
kill = (++) "atrm "
|
|
|
|
after :: (Eq a) => a -> [a] -> [a]
|
|
after c = drop 1 . dropWhile (/= c)
|
|
|
|
formatTime :: ZonedTime -> String
|
|
formatTime = take 5 . after 'T' . formatTimeRFC3339
|
|
|
|
buildCmd :: String -> ZonedTime -> String
|
|
buildCmd script time = "echo \"" ++ script ++ "\" | at " ++ formatTime time
|
|
|
|
sunriseNext :: ZonedTime -> ZonedTime -> ZonedTime -> Bool
|
|
sunriseNext sunriseTime sunsetTime time =
|
|
let utcTimeNow = zonedTimeToUTC time
|
|
utcSunrise = zonedTimeToUTC sunriseTime
|
|
utcSunset = zonedTimeToUTC sunsetTime
|
|
in utcTimeNow < utcSunrise || utcTimeNow > utcSunset
|