diff --git a/src/Dodge/InputFocus.hs b/src/Dodge/InputFocus.hs
new file mode 100644
index 000000000..47ce6b37c
--- /dev/null
+++ b/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
+