From bf6492b9daf511480efdd0e6e4cda855be1e22c7 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Sun, 30 Apr 2017 15:18:13 +0200
Subject: test5: viewSource/editTagsAtCursor w/o handlers

---
 test5.hs | 31 +++++++++++++++++++++++++------
 1 file changed, 25 insertions(+), 6 deletions(-)

(limited to 'test5.hs')

diff --git a/test5.hs b/test5.hs
index 718c449..066bbc0 100644
--- a/test5.hs
+++ b/test5.hs
@@ -79,6 +79,7 @@ data State = State
     , headBuffer :: [Blessings String]
     , treeBuffer :: [Blessings String]
     , now :: UTCTime
+    , signalHandlers :: [(Signal, IO ())]
     }
 
 initState :: String -> IO State
@@ -95,6 +96,7 @@ initState query = do
         , headBuffer = []
         , treeBuffer = []
         , now = UTCTime (fromGregorian 1984 5 23) 49062
+        , signalHandlers = []
         }
 
 
@@ -140,10 +142,12 @@ runState q0 = do
         v <- newEmptyMVar
         return (putMVar v, takeMVar v)
 
-    mapM_ (\(s, f) -> installHandler s (Catch f) Nothing)
-        [ (sigINT, putEvent EShutdown)
-        , (28, winchHandler putEvent)
-        ]
+    let q1 = q0 { signalHandlers =
+                    [ (sigINT, putEvent EShutdown)
+                    , (28, winchHandler putEvent)
+                    ] }
+
+    installHandlers (signalHandlers q1)
 
     threadIds <- mapM forkIO
         [ forever $ scan stdin >>= putEvent . EScan
@@ -155,6 +159,21 @@ runState q0 = do
     mapM_ killThread threadIds
 
 
+installHandlers :: [(Signal, IO ())] -> IO ()
+installHandlers =
+    mapM_ (\(s, h) -> installHandler s (Catch h) Nothing)
+
+uninstallHandlers :: [(Signal, IO ())] -> IO ()
+uninstallHandlers =
+    mapM_ (\(s, _) -> installHandler s Ignore Nothing)
+
+withoutHandlers :: (State -> IO State) -> State -> IO State
+withoutHandlers f q@State{..} =
+    bracket_ (uninstallHandlers signalHandlers)
+             (installHandlers signalHandlers)
+             (f q)
+
+
 winchHandler :: (Event -> IO ()) -> IO ()
 winchHandler putEvent =
     Term.size >>= \case
@@ -242,8 +261,8 @@ keymap "s" = toggleTagAtCursor "unread"
 keymap "&" = toggleTagAtCursor "killed"
 keymap "*" = toggleTagAtCursor "star"
 keymap "r" = replyToAll
-keymap "e" = viewSource
-keymap "t" = editTagsAtCursor
+keymap "e" = withoutHandlers viewSource
+keymap "t" = withoutHandlers editTagsAtCursor
 keymap "k" = moveCursorUp 1
 keymap "j" = moveCursorDown 1
 keymap "K" = moveTreeDown 1
-- 
cgit v1.2.3