Browse files

highlight the look mode cursor

  • Loading branch information...
1 parent 8dfc54d commit d2b94b66a9ec6967c701e2f1af9557b89413d4d1 @Mikolaj Mikolaj committed Feb 13, 2011
Showing with 5 additions and 1 deletion.
  1. +5 −1 src/Display2.hs
View
6 src/Display2.hs
@@ -176,7 +176,11 @@ displayLevel session per
Just m | sOmn || vis -> viewMonster (mtype m) (mtype m == mtype player)
_ | sSml && sml >= 0 -> viewSmell sml
| otherwise -> viewTile vis tile assocs
- vision = lVision vis rea
+ vision =
+ case slook state of
+ Just (Look { cursorLoc = cloc })
+ | loc == cloc -> setBG white
+ _ -> lVision vis rea
in
case over (loc `shift` ((sy+1) * n, 0)) of
Just c -> (attr, c)

0 comments on commit d2b94b6

Please sign in to comment.