Ticket summary widget

src/Vervis/Widget/Ticket.hs

@@ -14,26 +14,57 @@
  -}
 
 module Vervis.Widget.Ticket
-    ( ticketDepW
+    ( TicketSummary (..)
+    , ticketDepW
+    , ticketSummaryW
     )
 where
 
 import Prelude
 
-import Yesod.Core (Route)
-import Yesod.Core.Handler (getUrlRender)
+import Control.Arrow ((***))
+import Data.HashMap.Lazy (HashMap)
+import Data.Text (Text)
+import Data.Time.Clock (UTCTime)
+import Yesod.Core.Handler (getCurrentRoute)
 import Yesod.Core (newIdent)
 
-import qualified Data.Text as T (unpack)
+import qualified Data.HashMap.Lazy as M (toList)
+import qualified Data.Text as T (pack, unpack)
 
 import Vervis.Foundation
 import Vervis.Model
 import Vervis.Model.Ident
 import Vervis.Settings (widgetFile)
 import Vervis.Style
+import Vervis.Time (showDate)
+import Vervis.Widget.Sharer (personLinkW)
+
+data TicketSummary = TicketSummary
+    { tsNumber    :: Int
+    , tsCreatedBy :: Sharer
+    , tsCreatedAt :: UTCTime
+    , tsTitle     :: Text
+    , tsDone      :: Bool
+    , tsComments  :: Int
+    }
 
 ticketDepW :: ShrIdent -> PrjIdent -> Ticket -> Widget
 ticketDepW shr prj ticket = do
-    todoC <- newIdent
-    doneC <- newIdent
+    cTodo <- newIdent
+    cDone <- newIdent
     $(widgetFile "ticket/widget/dep")
+
+ticketSummaryW
+    :: ShrIdent
+    -> PrjIdent
+    -> TicketSummary
+    -> Maybe (HashMap Int Int)
+    -> Widget
+ticketSummaryW shr prj ts mcs = do
+    cTodo <- newIdent
+    cDone <- newIdent
+    let tshow = T.pack . show
+        mparams = map (tshow *** tshow) . M.toList <$> mcs
+    mroute <- getCurrentRoute
+    $(widgetFile "ticket/widget/summary")