From ce323630ee8db5f4e515fc1b27f7fcf48ad07815 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Mon, 6 Jun 2022 16:22:58 +0100
Subject: [PATCH] Add file

---
 src/Dodge/InputFocus.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 src/Dodge/InputFocus.hs

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
+