X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=diddohs.hs;fp=diddohs.hs;h=d2a796bc05d4e3a010cd6f6b969228ca322cab55;hb=79eb0216f15e1a8570cfae7ae5ed83da74ca30b8;hp=f54ec2d91b77da4e7f845a0337615a229c3a8654;hpb=d38cc424b83a0240b466f41ec1fe7521aba2d64e;p=user%2Fhenk%2Fcode%2Fhaskell%2Fdiddohs.git

diff --git a/diddohs.hs b/diddohs.hs
index f54ec2d..d2a796b 100644
--- a/diddohs.hs
+++ b/diddohs.hs
@@ -5,43 +5,75 @@ import Data.List( zipWith4, transpose )
 import Data.Maybe( fromJust, fromMaybe )
 import Data.Monoid( mempty )
 import Data.Time.Clock( secondsToDiffTime )
-import Options.Applicative( execParser, info, strOption, long )
-import System.Environment( getArgs )
-import HMSTime( HMSTime(..), secondsToHMS )
+import Data.Time.Format( parseTime, formatTime )
+import Data.Time.LocalTime( LocalTime(..), ZonedTime(..), zonedTimeToUTC, midnight, localDay )
 import Diddo.Entry( DiddoEntry(..) )
+import HMSTime( HMSTime(..), secondsToHMS )
+import Options.Applicative( execParser, info, strOption, long, help, helper, briefDesc, fullDesc, progDesc, header, (<>) )
+import System.Environment( getArgs )
+import System.Locale
 
 data DiddoOpts = DiddoOpts
   { inDateFmt :: String
   , inFile :: String
   }
 
-calculateDeltas :: [DateTime] -> [Integer]
-calculateDeltas dateTimes = zipWith diffSeconds dateTimes ((startOfDay $ head dateTimes) : init dateTimes)
+parseToZonedTime :: String -> String -> ZonedTime
+parseToZonedTime format = fromMaybe (error "Input data broken.") . parseTime defaultTimeLocale format
 
-parseDateTimeFormat :: String -> String -> DateTime
-parseDateTimeFormat format = fromMaybe (error "Input data broken.") . parseDateTime format
+parseISOsecondsTime :: String -> ZonedTime
+parseISOsecondsTime = parseToZonedTime $ iso8601DateFormat $ Just "%T%z"
 
-startOfDay :: DateTime -> DateTime
-startOfDay = fromJust . parseDateTime "%x" . formatDateTime "%x"
+parseRFC822Time :: String -> ZonedTime
+parseRFC822Time = parseToZonedTime rfc822DateFormat
+
+formatZonedTime :: String -> ZonedTime -> String
+formatZonedTime format = formatTime defaultTimeLocale format
+
+zonedTimesDeltas :: ZonedTime -> [ZonedTime] -> [Integer]
+zonedTimesDeltas startTime timestamps =
+  let
+    startTimeUTC        = zonedTimeToUTC startTime
+    relevantTimestamps  = dropWhile (< startTimeUTC) $ map zonedTimeToUTC timestamps
+  in
+    zipWith diffSeconds relevantTimestamps $ startTimeUTC : init relevantTimestamps
+
+startOfZonedDay :: ZonedTime -> ZonedTime
+startOfZonedDay time = ZonedTime (LocalTime day midnight) $ zonedTimeZone time
+  where
+    day = localDay $ zonedTimeToLocalTime time
 
 mainWithOpts :: DiddoOpts -> IO ()
 mainWithOpts opts =
   do
-    [ timeStrings
-      , entries
+    [
+      timeStamps
+      , entryText
       ]                     <- transpose . map (splitOn ";") . lines <$> readFile (inFile opts)
 
     let
-      deltasHMS             = map secondsToHMS $ calculateDeltas $ map (parseDateTimeFormat (inDateFmt opts)) timeStrings
-      diddos_summarized     = zipWith4 DiddoEntry ("" : init timeStrings) timeStrings deltasHMS entries
+      parseCustomTime       = parseToZonedTime $ inDateFmt opts
+--      parsedTimes           = map (parseToZonedTime $ inDateFmt opts) timeStamps
+      parsedTimes           = map parseCustomTime timeStamps
+      deltasHMS             = map secondsToHMS $ zonedTimesDeltas (startOfZonedDay $ head parsedTimes) parsedTimes
+      diddos_summarized     = zipWith4 DiddoEntry
+                                ((formatZonedTime (inDateFmt opts) $ startOfZonedDay $ head parsedTimes) : init timeStamps)
+                                timeStamps deltasHMS entryText
 
     mapM_ print diddos_summarized
 
 main :: IO ()
 main = execParser opts >>= mainWithOpts
   where
-    opts = info parser mempty
+    opts = info (helper <*> parser)
+      ( header "diddohs - A Time/Task Tracker"
+     <> progDesc "Diddoh Desc"
+--     <> briefDesc
+     <> fullDesc
+     )
     parser = DiddoOpts
-      <$> strOption ( long "indateform" )
+      <$> strOption ( long "indateform"
+                   <> help "Input date format, see date(1)"
+                   )
       <*> strOption ( long "infile" )