From 3b2b83c2fee20561b058cf1480c160027a45f6e7 Mon Sep 17 00:00:00 2001
From: Raymond Hogenson <rhogenson@posteo.net>
Date: Sun, 18 Nov 2018 00:37:20 -0500
Subject: Allow quitting with control-[

I don't use escape any more for vim, so here we go.
---
 main.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'main.hs')

diff --git a/main.hs b/main.hs
index ef76160..a5c97d0 100644
--- a/main.hs
+++ b/main.hs
@@ -37,19 +37,24 @@ main = do _ <- initGUI
           containerAdd w grid
           _ <- w `on` deleteEvent $ do
             Cl.liftIO mainQuit
-            return False
+            return True
           _ <- input `on` keyReleaseEvent $ do
             k <- eventKeyName
             let quit = Cl.liftIO mainQuit
             case k of
               "Escape" -> quit
               "Return" -> quit
+              "bracketleft" -> do
+                m <- eventModifier
+                if Control `elem` m
+                  then quit
+                  else return ()
               _ -> return ()
             s <- Cl.liftIO $ entryGetText input
             case RealCalc.calculate s of
               Nothing -> return ()
               Just r -> do Cl.liftIO $ clipboardSetText clip r
                            Cl.liftIO $ set output [ entryText := r ]
-            return False
+            return True
           widgetShowAll w
           mainGUI
-- 
cgit v1.3.1