summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Diddo/Entry.hs17
-rw-r--r--HMSTime.hs36
-rw-r--r--diddohs.hs20
3 files changed, 55 insertions, 18 deletions
diff --git a/Diddo/Entry.hs b/Diddo/Entry.hs
new file mode 100644
index 0000000..f6eda25
--- /dev/null
+++ b/Diddo/Entry.hs
@@ -0,0 +1,17 @@
+module Diddo.Entry
+( DiddoEntry(DiddoEntry, start, finish, delta, entry)
+) where
+
+import HMSTime( HMSTime )
+import Data.List( intercalate )
+
+data DiddoEntry = DiddoEntry
+ { start :: String
+ , finish :: String
+ , delta :: HMSTime
+ , entry :: String
+ }
+
+instance Show DiddoEntry where
+ show (DiddoEntry start finish delta entry) = intercalate ";" [start,finish,(show delta),entry]
+
diff --git a/HMSTime.hs b/HMSTime.hs
new file mode 100644
index 0000000..6e903d3
--- /dev/null
+++ b/HMSTime.hs
@@ -0,0 +1,36 @@
+module HMSTime
+( HMSTime(HMSTime, hours, minutes, seconds)
+, secondsToHMS
+, hmsTimeStringToHMSTime
+, hmsTimeStringToSeconds
+) where
+
+import Text.Printf( printf )
+import Data.List.Split( splitOn )
+
+data HMSTime = HMSTime { hours :: Integer, minutes :: Integer, seconds :: Integer }
+
+instance Show HMSTime where
+ show (HMSTime h m s) = printf "%d:%02d:%02d" h m s
+
+secondsToHMS :: Integer -> HMSTime
+secondsToHMS seconds = HMSTime h m s where
+ (mLeft, s) = seconds `divMod` 60
+ (h, m) = mLeft `divMod` 60
+
+hmsTimeStringToHMSTime :: String -> HMSTime
+hmsTimeStringToHMSTime hmsString = HMSTime h m s where
+ h:m:s:_ = map readInteger $ splitOn ":" hmsString
+
+hmsTimeToSeconds :: HMSTime -> Integer
+hmsTimeToSeconds (HMSTime {hours = h, minutes = m, seconds = s}) = h*3600 + m*60 + s
+
+hmsTimeStringToSeconds :: String -> Integer
+hmsTimeStringToSeconds = hmsTimeToSeconds . hmsTimeStringToHMSTime
+
+hmsIntsToSeconds :: [Int] -> Int
+hmsIntsToSeconds (h:m:s:_) = (3600*h + 60*m + s)
+
+readInteger :: String -> Integer
+readInteger x = read x :: Integer
+
diff --git a/diddohs.hs b/diddohs.hs
index 6baa5e9..c9ec405 100644
--- a/diddohs.hs
+++ b/diddohs.hs
@@ -7,24 +7,8 @@ import Data.Monoid( mempty )
import Data.Time.Clock( secondsToDiffTime )
import Options.Applicative( execParser, info, strOption, long )
import System.Environment( getArgs )
-import Text.Printf( printf )
-
-data HMSTime = HMSTime { hours :: Integer, minutes :: Integer, seconds :: Integer }
-instance Show HMSTime where
- show (HMSTime h m s) = printf "%d:%02d:%02d" h m s
-
-secondsToHMS :: Integer -> HMSTime
-secondsToHMS seconds = HMSTime h m s where
- (mLeft, s) = seconds `divMod` 60
- (h, m) = mLeft `divMod` 60
-
-data DiddoEntry = DiddoEntry { start :: String
- , finish :: String
- , delta :: HMSTime
- , entry :: String
- }
-instance Show DiddoEntry where
- show (DiddoEntry start finish delta entry) = printf "%s;%s;%s;%s" start finish (show delta) entry
+import HMSTime( HMSTime(..), secondsToHMS )
+import Diddo.Entry( DiddoEntry(..) )
data DiddoOpts = DiddoOpts
{ inDateFmt :: String