Add file

src/Dodge/InputFocus.hs

@@ -0,0 +1,11 @@
+module Dodge.InputFocus where
+import Dodge.Data
+import LensHelp
+
+import Data.Maybe
+
+hasTerminalFocus :: World -> Bool
+hasTerminalFocus w = fromMaybe False $ do
+    tmid <- w ^? hud . hudElement . subInventory . termID
+    w ^? terminals . ix tmid . tmInput . _Just . tiFocus
+