Load tasks from file

app/Main.hs

@@ -1,10 +1,40 @@
 module Main where
 
+import           Control.Applicative
 import           Control.Monad
 
 import qualified Brick                as B
+import qualified Options.Applicative  as O
 
+import           TaskMachine.TaskList
+import           TaskMachine.Todotxt
 import           TaskMachine.UI
 
+data Options = Options
+  { oTodofile :: FilePath
+  } deriving (Show)
+
+opts :: O.Parser Options
+opts = pure Options
+  <*> todofile
+  where
+    todofile = O.strArgument
+      (  O.help "The file containing all your tasks"
+      <> O.metavar "TODOFILE"
+      )
+
+optsInfo :: O.ParserInfo Options
+optsInfo = O.info (opts <**> O.helper)
+  (  O.fullDesc
+  -- <> O.progDesc "program description"
+  -- <> O.header "help header"
+  )
+
 main :: IO()
-main = void $ B.defaultMain myApp startState
+main = do
+  o <- O.execParser optsInfo
+  result <- loadLTasks (oTodofile o)
+  case result of
+    Left parseError -> putStrLn parseError
+    --Right tasks -> mapM_ (putStrLn . formatTask . ltaskTask) tasks
+    Right tasks -> mapM_ (print . ltaskTask) tasks

package.yaml

@@ -24,6 +24,7 @@ dependencies:
 - brick
 - containers
 - megaparsec
+- optparse-applicative
 - time
 - vector
 - vty
@@ -31,7 +32,6 @@ dependencies:
 - hspec
 - QuickCheck
   #- ConfigFile
-  #- optparse-applicative
   #- sqlite-simple
   #- text
   #- unix

src/TaskMachine/TaskList.hs

@@ -2,13 +2,28 @@
 
 module TaskMachine.TaskList
   ( LTask(..)
+  , fromTasks
+  , loadLTasks
   ) where
 
+import qualified Data.Vector         as V
+import           Text.Megaparsec
+
 import           TaskMachine.Todotxt
 
 data LTask = LTask
   { ltaskNumber :: Integer
   -- ^ Sort by this number to get the original order of the tasks
-  , ltaskTast   :: Task
+  , ltaskTask   :: Task
   -- ^ The 'Task' itself
-  }
+  } deriving (Show)
+
+fromTasks :: [Task] -> [LTask]
+fromTasks = zipWith LTask [1..]
+
+loadLTasks :: FilePath -> IO (Either String (V.Vector LTask))
+loadLTasks file = do
+  content <- readFile file
+  case parseTasks file content of
+    Right tasks     -> pure $ Right $ V.fromList $ fromTasks tasks
+    Left parseError -> pure $ Left $ show parseError

src/TaskMachine/Todotxt.hs

@@ -5,6 +5,7 @@ module TaskMachine.Todotxt
   -- * Tasks
     Task(..)
   , formatTask
+  , parseTasks
   -- * Creation and deletion dates
   , Dates(..)
   , formatDates
@@ -14,6 +15,8 @@ module TaskMachine.Todotxt
   , priorityToChar
   , charToPriority
   -- * Parsing
+  , task
+  , tasks
   , day
   , dates
   , priorityChar
@@ -46,13 +49,10 @@ formatDates (CoCrDate cr co) = show cr ++ " " ++ show co
 {- Dates parsing -}
 
 day :: Parser Day
-day = label "date" $ do
+day = label "date" $ fromGregorian
-  y <- integer
+    <$> integer
-  void $ char '-'
+    <*> (char '-' *> int)
-  m <- int
+    <*> (char '-' *> int)
-  void $ char '-'
-  d <- int
-  pure $ fromGregorian y m d
   where
     integer :: Parser Integer
     integer = read <$> count 4 digitChar
@@ -124,6 +124,9 @@ formatTask (Task done prio dates desc)
   ++ maybe "" ((++" ") . formatDates) dates
   ++ desc
 
+parseTasks :: FilePath -> String -> Either (ParseError Char Void) [Task]
+parseTasks = parse tasks -- hehe
+
 {- Task parsing -}
 
 andSpace :: Parser a -> Parser a
@@ -142,9 +145,11 @@ untilEndOfLine :: Parser String
 untilEndOfLine = takeWhile1P (Just "description") (/='\n')
 
 task :: Parser Task
-task = do
+task =   Task
-  taskCompleted   <- boolParse  (andSpace completed)
+     <$> boolParse  (andSpace completed)
-  taskPriority    <- maybeParse (andSpace priority)
+     <*> maybeParse (andSpace priority)
-  taskDates       <- maybeParse (andSpace dates)
+     <*> maybeParse (andSpace dates)
-  taskDescription <- untilEndOfLine
+     <*> untilEndOfLine
-  pure $ Task taskCompleted taskPriority taskDates taskDescription
+
+tasks :: Parser [Task]
+tasks = many $ task <* (eof <|> void (char '\n'))

src/TaskMachine/UI.hs

@@ -52,6 +52,9 @@ data UIState = UIState
   , invisibleTasks :: V.Vector LTask
   }
 
+startUIState :: V.Vector LTask -> UIState
+startUIState = undefined
+
 startState :: UIState
 startState = UIState (B.list RTaskList V.empty 1) V.empty