From 1c85531091161f82fd8ff1afeecd660127e1edcf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= Date: Wed, 23 Sep 2020 08:20:14 +0200 Subject: State: make colors and tag symbols configurable --- Core.hs | 24 +++++++++++++++++++----- 1 file changed, 19 insertions(+), 5 deletions(-) (limited to 'Core.hs') diff --git a/Core.hs b/Core.hs index bc54927..5073c59 100644 --- a/Core.hs +++ b/Core.hs @@ -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 -- cgit v1.2.3