hledger/tools/generatetimeclock.hs
2016-04-12 21:13:19 -07:00

32 lines
658 B
Haskell

#!/usr/bin/env runhaskell
{-
generatetimeclock.hs NUMENTRIES
Outputs a dummy timeclock log with the specified number of clock-in/clock-out entries,
one per day.
-}
module Main
where
import System.Environment
import Data.Time.LocalTime
import Data.Time.Calendar
import Text.Printf
main = do
args <- getArgs
let [numentries] = map read args :: [Integer]
today <- getCurrentDay
let startdate = addDays (-numentries) today
mapM_ (putStr . showentry) [startdate..today]
return ()
showentry d =
printf "i %s 09:00:00 dummy\no %s 17:00:00\n" (show d) (show d)
getCurrentDay = do
t <- getZonedTime
return $ localDay (zonedTimeToLocalTime t)