Clean up using hlint and --pedantic

src/TaskMachine/UI/Colortest.hs

@@ -9,12 +9,8 @@ module TaskMachine.UI.Colortest where
 import           Control.Monad
 import           Data.List
 
-import qualified Brick              as B
-import qualified Brick.Focus        as B
-import qualified Brick.Themes       as B
-import qualified Brick.Widgets.List as B
-import qualified Data.Vector        as V
-import qualified Graphics.Vty       as VTY
+import qualified Brick         as B
+import qualified Graphics.Vty  as VTY
 
 colors :: [(String, VTY.Color)]
 colors =
@@ -50,14 +46,14 @@ toName :: String -> String -> String -> B.AttrName
 toName a b c = B.attrName a <> B.attrName b <> B.attrName c
 
 useStyles :: [VTY.Style] -> VTY.Attr -> VTY.Attr
-useStyles styles = foldr (.) id $ map (flip VTY.withStyle) styles
+useStyles = foldr ((.) . flip VTY.withStyle) id
 
 attrMap :: B.AttrMap
 attrMap = B.attrMap VTY.defAttr $ do
   (fgName, fgColor) <- colors
   (bgName, bgColor) <- colors
   styleList <- subsequences styles
-  let styleName = concat $ map fst styleList
+  let styleName = concatMap fst styleList
       name   = toName styleName bgName fgName
       fgAttr = VTY.withForeColor VTY.defAttr fgColor
       bgAttr = VTY.withBackColor fgAttr      bgColor
@@ -72,7 +68,8 @@ cw style = B.vBox $ B.str (' ':style) : do
     let name = toName style bgName fgName
     pure $ B.withAttr name $ B.str "Hi"
 
-testWidget = B.vBox $
+testWidget :: B.Widget n
+testWidget = B.vBox
   [ B.hBox [cw "", cw "standout"]
   , B.hBox [cw "", cw "underline"]
 --  , B.hBox [cw "", cw "reverseVideo"]

src/TaskMachine/UI/TaskList.hs

@@ -1,14 +1,15 @@
-{-# LANGUAGE RecordWildCards #-}
 {-# LANGUAGE OverloadedStrings #-}
 
 module TaskMachine.UI.TaskList where
 
 import qualified Brick                as B
+import qualified Brick.Widgets.Edit   as B
 
 import           TaskMachine.LTask
 import           TaskMachine.Todotxt
 import           TaskMachine.UI.Types
 
+{-
 widgetPriority :: B.AttrName -> Maybe Priority -> B.Widget n
 widgetPriority _         Nothing     = B.emptyWidget
 widgetPriority highlight (Just prio) =
@@ -28,3 +29,12 @@ renderLTask highlight (LTask _ Task{..}) =
       wPriority    = widgetPriority    attrHighlight taskPriority
       wDescription = widgetDescription attrHighlight taskDescription
   in  B.hBox [wCompleted, wPriority, wDescription]
+-}
+
+renderLTask :: Maybe (B.Editor String RName) -> Bool -> LTask -> B.Widget RName
+renderLTask _           False (LTask _ t) = B.withAttr normal    $ B.str $ formatTask t
+  where normal    = "normal"    <> "priority"
+renderLTask Nothing     True  (LTask _ t) = B.withAttr highlight $ B.str $ formatTask t
+  where highlight = "highlight" <> "priority"
+renderLTask (Just edit) True  _           = B.withAttr highlight $ B.renderEditor (B.str . unlines) True edit
+  where highlight = "highlight" <> "priority"

src/TaskMachine/UI/Types.hs

@@ -14,6 +14,7 @@ module TaskMachine.UI.Types
 import qualified Brick.Focus        as B
 import qualified Brick.Themes       as B
 import qualified Brick.Widgets.List as B
+import qualified Brick.Widgets.Edit as B
 import qualified Data.Vector        as V
 import qualified Graphics.Vty       as VTY
 
@@ -21,35 +22,57 @@ import           TaskMachine.LTask
 
 -- | Resource names
 data RName
-  -- These can be tab-cycled through
-  = RTopBar
+  = RSearchEdit
   | RTaskList
-  | REdit
-  -- Items in the top bar that are selected with the ← and → arrow keys
-  | RPrune
-  | RReload
-  | RSearch
+  | RNewEdit
   deriving (Eq, Show, Ord)
 
+data BigRing
+  = BRTopBar
+  | BRTaskList
+  | BRNewTask
+  deriving (Eq)
+
+data SmallRing
+  = SRPrune
+  | SRReload
+  | SRSearch
+  deriving (Eq)
+
 -- | The state of the program and UI
 data UIState = UIState
-  { focus          :: B.FocusRing RName
+  { focus          :: B.FocusRing BigRing
   -- ^ 'B.FocusRing' for tab navigation
-  , topBarFocus    :: B.FocusRing RName
+  , focusTopBar    :: B.FocusRing SmallRing
   -- ^ 'B.FocusRing' for the top bar, for ← and → arrow key navigation
+
+  -- TOP BAR
+  , searchEdit     :: B.Editor String RName
+  -- ^ Content of the search field
+
+  -- TASK LIST
   , taskList       :: B.List RName LTask
   -- ^ List to display tasks
   , invisibleTasks :: V.Vector LTask
   -- ^ All tasks that aren't displayed in the taskList due to search filters
+  , taskEdit       :: Maybe (B.Editor String RName)
+  -- ^ Task currently being edited
+
+  -- NEW TASK
+  , newEdit        :: B.Editor String RName
+  -- ^ "New task" text field at the bottom
   }
 
 -- | Create a starting UI state
 startUIState :: V.Vector LTask -> UIState
 startUIState ltasks = UIState
-  { focus          = B.focusRing [RTaskList, REdit, RTopBar]
-  , topBarFocus    = B.focusRing [RPrune, RReload, RSearch]
+  { focus          = B.focusRing [BRTaskList, BRNewTask, BRTopBar]
+  , focusTopBar    = B.focusRing [SRPrune, SRReload, SRSearch]
+  , searchEdit     = B.editor RSearchEdit (Just 1) ""
   , taskList       = B.list RTaskList ltasks 1
   , invisibleTasks = V.empty
+  , taskEdit       = Nothing
+  , newEdit        = B.editor RNewEdit (Just 1) ""
   }
 
 defaultTheme :: B.Theme
@@ -70,8 +93,8 @@ defaultTheme = B.newTheme VTY.defAttr
   where
     fg  = flip VTY.withForeColor
     bg  = flip VTY.withBackColor
-    st  = flip VTY.withStyle
-    fg' = VTY.withForeColor none
+    --st  = flip VTY.withStyle
+    --fg' = VTY.withForeColor none
     bg' = VTY.withBackColor none
     st' = VTY.withStyle     none
     none = VTY.defAttr