add force quit command, doesn't work.

Author: minimapletinytools

src/Potato/Flow/Vty/AppKbCmd.hs

@@ -13,6 +13,7 @@ data AppKbCmd t = AppKbCmd {
   , _appKbCmd_open :: Event t ()
   , _appKbCmd_print :: Event t ()
   , _appKbCmd_quit :: Event t ()
+  , _appKbCmd_forceQuit :: Event t ()
   , _appKbCmd_new :: Event t ()
   , _appKbCmd_capturedInput :: Event t ()
 }
@@ -30,13 +31,21 @@ holdAppKbCmd = do
     printEv = captureKeyWithCtrl 'p'
     quitEv = captureKeyWithCtrl 'q'
     newEv = captureKeyWithCtrl 'n'
-    captureEv = leftmost [saveEv, openEv, quitEv, newEv]
+
+    -- TODO this doesn't seem to work, prob cuz vty isn't handling shift correctly on mac
+    forceQuitEv = fforMaybe inp $ \i -> case i of
+      V.EvKey (V.KChar 'q') [V.MCtrl, V.MShift] -> Just ()
+      V.EvKey (V.KChar 'q') [V.MShift, V.MCtrl] -> Just ()
+      _ -> Nothing
+
+    captureEv = leftmost [saveEv, openEv, quitEv, newEv, forceQuitEv]
 
   return $ AppKbCmd {
       _appKbCmd_save = saveEv
       , _appKbCmd_open = openEv
       , _appKbCmd_print = printEv
       , _appKbCmd_quit = quitEv
+      , _appKbCmd_forceQuit = forceQuitEv
       , _appKbCmd_new = newEv
       , _appKbCmd_capturedInput = captureEv
     }

src/Potato/Flow/Vty/Main.hs

@@ -399,4 +399,4 @@ mainPFWidgetWithBypass MainPFWidgetConfig {..} bypassEvent = mdo
 
 
   -- handle escape event
-  return $ leftmost [_saveBeforeExitOutput_quit, void $ ffilter not doesNeedSaveOnExitEv]
+  return $ leftmost [_appKbCmd_forceQuit, _saveBeforeExitOutput_quit, void $ ffilter not doesNeedSaveOnExitEv]