diff options
author | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2020-09-23 08:20:14 +0200 |
---|---|---|
committer | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2020-09-23 08:20:44 +0200 |
commit | 1c85531091161f82fd8ff1afeecd660127e1edcf (patch) | |
tree | 15c302ab0b0857deb0ec8430849bd08a9d13da72 /Core.hs | |
parent | 7d5a45ebb25ffc4800fbc1812c9831fd5e78f944 (diff) |
State: make colors and tag symbols configurable
Diffstat (limited to 'Core.hs')
-rw-r--r-- | Core.hs | 24 |
1 files changed, 19 insertions, 5 deletions
@@ -42,11 +42,25 @@ emptyState = State , signalHandlers = [] , keymap = displayKey , mousemap = displayMouse - , tagVisuals = - [ ("killed", SGR [38,5,088]) - , ("star", SGR [38,5,226]) - , ("draft", SGR [38,5,202]) - ] + , colorConfig = ColorConfig + { tagMap = + [ ("killed", SGR [38,5,088]) + , ("star", SGR [38,5,226]) + , ("draft", SGR [38,5,202]) + ] + , alt = SGR [38,5,182] + , search = SGR [38,5,162] + , focus = SGR [38,5,160] + , quote = SGR [38,5,242] + , boring = SGR [38,5,240] + , prefix = SGR [38,5,235] + , date = SGR [38,5,071] + , tags = SGR [38,5,036] + , boringMessage = SGR [38,5,023] + , unreadMessage = SGR [38,5,117] + , unreadSearch = SGR [38,5,250] + } + , tagSymbols = [] } withQuery :: String -> State -> IO State |