From 7d5a45ebb25ffc4800fbc1812c9831fd5e78f944 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Wed, 23 Sep 2020 00:26:36 +0200
Subject: State: make tag colours configurable

---
 State.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'State.hs')

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)]
     }
-- 
cgit v1.2.3