about summary refs log tree commit diff
path: root/src/Xanthous/Entities/Environment.hs
diff options
context:
space:
mode:
authorGriffin Smith <root@gws.fyi>2019-12-30T17·37-0500
committerGriffin Smith <root@gws.fyi>2019-12-30T17·37-0500
commit7e6234e2e9e1307cc61884e53d0457c022543894 (patch)
treec4426b189f2bcf24357c8945db395113517f984a /src/Xanthous/Entities/Environment.hs
parentdcf44f29f5df75dedae62a9820b06d7c4cd36df1 (diff)
Use more evocative characters for closed doors
Diffstat (limited to 'src/Xanthous/Entities/Environment.hs')
-rw-r--r--src/Xanthous/Entities/Environment.hs14
1 files changed, 8 insertions, 6 deletions
diff --git a/src/Xanthous/Entities/Environment.hs b/src/Xanthous/Entities/Environment.hs
index c34f2e0634d6..4f70d90253aa 100644
--- a/src/Xanthous/Entities/Environment.hs
+++ b/src/Xanthous/Entities/Environment.hs
@@ -68,19 +68,21 @@ makeLenses ''Door
 
 instance Draw Door where
   drawWithNeighbors neighs door
-    | door ^. open
-    = str . pure $ case wallEdges neighs of
+    = str . pure . ($ door ^. open) $ case wallEdges neighs of
         Edges True  False  False False -> vertDoor
         Edges False True   False False -> vertDoor
         Edges True  True   False False -> vertDoor
         Edges False False  True  False -> horizDoor
         Edges False False  False True  -> horizDoor
         Edges False False  True  True  -> horizDoor
-        _                              -> '+'
-    | otherwise    = str "\\"
+        _                              -> allsidesDoor
     where
-      horizDoor = '␣'
-      vertDoor = '['
+      horizDoor True = '␣'
+      horizDoor False = 'ᚔ'
+      vertDoor True = '['
+      vertDoor False = 'ǂ'
+      allsidesDoor True = '+'
+      allsidesDoor False = '▥'
 
 instance Brain Door where step = brainVia Brainless