   {:places {:0 (init-place-0)}
    :current-place :0
    :show-inventory? false
+   :show-pick-up? false
    :last-command nil
+   :remaining-hotkeys (seq "abcdefghijklmnopqrstuvwxyzABCdEFGHIJKLMNOPQRSTUVWQYZ")
    :player {:hp 10
             :max-hp 10
             :$ 0

                                                                     :horizontal-wall
                                                                     :door-closed])
        true))))

(defn move-left [state]
  (let [x (-> state :world :player :pos :x)

      (-> state :world :player :pos :y)
      (-> state :world :player :sym)
      {:fg :green})
    ;; maybe draw pick up menu
    (render-pick-up state)
    ;; maybe draw inventory
    (render-inventory state)
    ;; draw status bar
    (s/put-string (state :screen) 0  23
      (format " %s $%d HP:%d(%d) Pw:%d(%d) Amr:%d XP:%d/%d T%d                         "
        "location-detail"
        (-> state :world :player :$)
        (-> state :world :player :hp)
        (-> state :world :player :max-hp)
        0 0 10
        (-> state :world :player :xp)
        100
        (-> state :time))
