Tweak combine filtering

2023-01-16 00:57:55 +00:00
parent bb72ec9baa
commit 43e3c1fe4c
6 changed files with 35 additions and 12 deletions
@@ -1,5 +1,6 @@
 module Dodge.InputFocus where

+import Dodge.Data.SelectionList
 import Data.Maybe
 import Dodge.Data.World
 import LensHelp
@@ -10,3 +11,7 @@ inTermFocus w = fromMaybe False $ do
    hasfocus <- w ^? cWorld . lWorld . terminals . ix tmid . tmInput . tiFocus
    connectionstatus <- w ^? cWorld . lWorld . terminals . ix tmid . tmStatus
    return $ hasfocus && connectionstatus == TerminalReady
+
+inputFocus :: World -> Bool
+inputFocus w = inTermFocus w 
+    || (w ^? hud . hudElement . subInventory . subInvMap . smRegexInput) == Just True