State: make tag colours configurable

1 files changed, 3 insertions, 0 deletions

diff --git a/State.hs b/State.hs
index 917b4c4..d333f95 100644
--- a/State.hs
+++ b/State.hs
@@ -1,6 +1,8 @@
 module State where
 
 import Blessings.String (Blessings)
+import qualified Data.Map as M
+import qualified Data.Text as T
 import Data.Time
 import qualified Data.Tree.Zipper as Z
 import Scanner
@@ -20,4 +22,5 @@ data State = State
     , signalHandlers :: [(Signal, IO ())]
     , keymap :: String -> State -> IO State
     , mousemap :: Scan -> State -> IO State
+    , tagVisuals :: [(T.Text, Blessings String -> Blessings String)]
     }