Allow for scrolling in combine regex

2023-02-13 23:15:34 +00:00
parent 8b39a99194
commit 9dd4c53316
10 changed files with 46 additions and 37 deletions
@@ -16,5 +16,12 @@ inTermFocus w = fromMaybe False $ do
    return $ hasfocus && connectionstatus == TerminalReady

 inputFocus :: World -> Bool
-inputFocus w = inTermFocus w 
-    || (w ^? hud . hudElement . subInventory . subInvMap . smRegex . smrInput) == Just True
+inputFocus w = inTermFocus w || inregexfocus
+  where
+    inregexfocus = fromMaybe False $ do
+        sm <- w ^? hud . hudElement . subInventory . subInvMap
+        i <- sm ^? smSelPos . _Just
+        si <- sm ^? smShownItems . ix i
+        case si of
+            SelectionRegex {} -> return True
+            _ -> return False