Garmelon/task-machine
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change syntax highlighting

Browse source
This commit is contained in:
Joscha 2018-10-23 15:31:24 +00:00
parent 05f4343d40
commit 54e192aa8c
3 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/TaskMachine/UI/Task.hs
View file

@ -30,7 +30,10 @@ withSpace :: B.Widget n -> B.Widget n
withSpace w = w B.<+> B.withDefAttr taskAttr (B.str " ")
renderCompletion :: Completion -> B.Widget n
renderCompletion = B.withDefAttr taskCompletionAttr . B.str . formatCompletion
renderCompletion Incomplete = B.str "-"
renderCompletion (Complete Nothing) = B.str "x"
renderCompletion (Complete (Just day)) =
B.str "x" B.<+> B.withDefAttr taskCompletionAttr (B.str $ formatDate day)
renderPriority :: Priority -> B.Widget n
renderPriority p =

2
src/TaskMachine/UI/Types.hs
View file

@ -53,7 +53,7 @@ defaultTheme = B.newTheme VTY.defAttr
, (B.listSelectedAttr, st' VTY.bold)
, (B.listSelectedFocusedAttr, bg VTY.blue $ st' VTY.bold)
, (taskAttr, none)
, (taskCompletionAttr, none)
, (taskCompletionAttr, fg' VTY.brightBlack)
, (taskPriorityAttr, fg VTY.cyan $ st' VTY.bold)
, (taskPriorityAttr <> "A", fg VTY.red $ st' VTY.bold)
, (taskPriorityAttr <> "B", fg VTY.yellow $ st' VTY.bold)