Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

change the floor item character from _ to -

I've borrowed it wrongly from Angband.
  • Loading branch information...
commit fbc50e6192af30abecca6a55aab4eb6894e7cf03 1 parent f0b24cf
@Mikolaj Mikolaj authored
Showing with 4 additions and 2 deletions.
  1. +2 −2 src/ItemAction.hs
  2. +2 −0  src/Keys.hs
View
4 src/ItemAction.hs
@@ -272,7 +272,7 @@ getItem prompt p ptext is0 isn = do
let loc = mloc body
t = lmap `at` loc -- the map tile in question
tis = titems t
- floorMsg = if L.null tis then "" else " _,"
+ floorMsg = if L.null tis then "" else " -,"
is = L.filter p is0
choice = if L.null is
then "[*," ++ floorMsg ++ " ESC]"
@@ -297,7 +297,7 @@ getItem prompt p ptext is0 isn = do
b <- displayItems ("Objects " ++ isn) True is0
if b then session (getOptionalConfirm (const interact) perform)
else interact
- K.Char '_' ->
+ K.Char '-' ->
case tis of
[] -> return Nothing
i:rs -> -- use first item; TODO: let player select item
View
2  src/Keys.hs
@@ -120,6 +120,8 @@ keyTranslate "KP_Multiply" = Char '*'
keyTranslate "slash" = Char '/'
keyTranslate "KP_Divide" = Char '/'
keyTranslate "underscore" = Char '_'
+keyTranslate "minus" = Char '-'
+keyTranslate "KP_Subtract" = Char '-'
keyTranslate "Escape" = Esc
keyTranslate "Return" = Return
keyTranslate "Tab" = Tab
Please sign in to comment.
Something went wrong with that request. Please try again.