Work on terminals, add deactive data type status

2025-08-19 13:48:54 +01:00
parent 2f4fcb42e5
commit b8581a7862
13 changed files with 331 additions and 269 deletions
@@ -397,11 +397,8 @@ updateMouseContextGame cfig u = case u ^. uvWorld . input . mouseContext of
        tm <- w ^? cWorld . lWorld . terminals . ix tmid
        return $
            if isOverTerminalScreen cfig mpos
-                then fromMaybe NoMouseContext $ do
-                    let s = tm ^. tmStatus . tiText
-                    guard $ not (null s) -- && _tmStatus tm == TerminalTextInput
-                    return $ OverTerminalReturn tmid
-                else OverTerminalEscape
+                then OverTerminal tmid (tm ^. tmStatus)
+                else OutsideTerminal

 getMenuMouseContext :: ScreenLayer -> Universe -> MouseContext
 getMenuMouseContext screen u = case screen ^. scOptions of