From 1c85531091161f82fd8ff1afeecd660127e1edcf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Wed, 23 Sep 2020 08:20:14 +0200
Subject: State: make colors and tag symbols configurable

---
 State.hs | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

(limited to 'State.hs')

diff --git a/State.hs b/State.hs
index d333f95..abd25b0 100644
--- a/State.hs
+++ b/State.hs
@@ -22,5 +22,21 @@ data State = State
     , signalHandlers :: [(Signal, IO ())]
     , keymap :: String -> State -> IO State
     , mousemap :: Scan -> State -> IO State
-    , tagVisuals :: [(T.Text, Blessings String -> Blessings String)]
+    , tagSymbols :: [(T.Text, T.Text)]
+    , colorConfig :: ColorConfig
+    }
+
+data ColorConfig = ColorConfig
+    { alt :: Blessings String -> Blessings String
+    , search :: Blessings String -> Blessings String
+    , focus :: Blessings String -> Blessings String
+    , quote :: Blessings String -> Blessings String
+    , boring :: Blessings String -> Blessings String
+    , prefix :: Blessings String -> Blessings String
+    , date :: Blessings String -> Blessings String
+    , tags :: Blessings String -> Blessings String
+    , unreadSearch :: Blessings String -> Blessings String
+    , unreadMessage :: Blessings String -> Blessings String
+    , boringMessage :: Blessings String -> Blessings String
+    , tagMap :: [(T.Text, Blessings String -> Blessings String)]
     }
-- 
cgit v1.2.3