{-# LANGUAGE FlexibleContexts #-}
module Villefort.Today (getSummary) where

import Control.Monad.Reader (MonadReader,MonadIO)
import Villefort.Definitions (VConfig)
import Villefort.Database (getDone)
import Villefort.Util (getHeader,makeTable,total)

-- | creates today page
getSummary :: (MonadReader VConfig m, MonadIO m) => m String
getSummary = do
  dat <- getDone
  let cleaned = map (\x -> [x !! 0, x!! 1]) dat
  header <-  getHeader
  return ( header ++ (makeTable ["Subject","Time"] $ cleaned ++ [["Total", show$  total dat]]))