 (defn direction->unicode-char
   [direction]
   (case direction
+    :center     \·
     :up         \↑ 
     :down       \↓
     :left       \←

                      num-harvestable (get @harvestable-counts place-id 0)]
                  (if (< (rr/uniform-int 0 10000)
                         (/ (case cell-type
                              :palm-tree 20
                              :tree 25
                              :tall-grass 2
                              :gravel 20

          (log/debug (rw/get-cell state target-x target-y))
          (-> state
            (rc/append-log "The door creaks open")
            (rw/assoc-cell target-x target-y :type :open-door)
            (rw/assoc-current-state :normal)))
        state))))

(defn open-left
