From 8c288cf1f2747aa9f8cee68cc1b9a35dd02229b8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Tue, 22 Sep 2020 22:27:10 +0200
Subject: factor out Actions, Core, State from tv config

---
 Action.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'Action.hs')

diff --git a/Action.hs b/Action.hs
index 219246c..08c30a4 100644
--- a/Action.hs
+++ b/Action.hs
@@ -4,6 +4,7 @@
 module Action where
 
 import Blessings.String
+import Scanner
 import State
 import TagUtils
 import TreeSearch
@@ -15,6 +16,14 @@ import qualified Notmuch
 import qualified Notmuch.Message as Notmuch
 import qualified Notmuch.SearchResult as Notmuch
 
+displayKey :: String -> State -> IO State
+displayKey s q = return q { flashMessage = Plain $ show s }
+
+
+displayMouse :: Scan -> State -> IO State
+displayMouse info q =
+    return q { flashMessage = SGR [38,5,202] $ Plain $ show info }
+
 defaultMouse1Click :: Monad m => Int -> State -> m State
 defaultMouse1Click y q@State{..} = do
     let linearClickPos =
-- 
cgit v1.2.3