Attempt to simplify text positioning

2023-05-05 02:37:18 +01:00
parent 031af611cd
commit 03c3d34ea1
4 changed files with 16 additions and 15 deletions
@@ -90,7 +90,7 @@ tryAssignHotkey w sc = fromMaybe w $ do
    guard (pt == InitialPress)
    cr <- w ^? cWorld . lWorld . creatures . ix 0
    itid <- cr ^? crManipulation . manObject . inInventory . ispItem
-    return $ assignHotkey itid (scancodeToHotkey sc) w
+    return $ w & cWorld . lWorld . creatures . ix 0 %~ assignHotkey itid (scancodeToHotkey sc)

 -- | Turn key presses into creature movement.
 -- | note the order of operation, setting the posture first--this prevents the twist fire bug