Allow quitting with control-[

I don't use escape any more for vim, so here we go.

1 files changed, 7 insertions, 2 deletions

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