From 7e6234e2e9e1307cc61884e53d0457c022543894 Mon Sep 17 00:00:00 2001
From: Griffin Smith <root@gws.fyi>
Date: Mon, 30 Dec 2019 12:37:50 -0500
Subject: Use more evocative characters for closed doors

---
 src/Xanthous/Entities/Environment.hs | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'src/Xanthous/Entities/Environment.hs')

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
 
-- 
cgit 1.4.1