hledger/tools/generatetimeclock.hs

32 lines
658 B
Haskell
Raw Normal View History

2015-06-29 02:12:32 +03:00
#!/usr/bin/env runhaskell
{-
2016-04-13 07:10:02 +03:00
generatetimeclock.hs NUMENTRIES
2015-06-29 02:12:32 +03:00
2016-04-13 07:10:02 +03:00
Outputs a dummy timeclock log with the specified number of clock-in/clock-out entries,
2015-06-29 02:12:32 +03:00
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)