factor out Actions, Core, State from tv config

1 files changed, 9 insertions, 0 deletions

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 =