     (-> rstate
       (render-list :ui 27 4 width 6
         (concat
-          [{:s "" :fg :black :bg :white :style #{}}]
+          [{:s "" :fg :black :bg :white}]
           (map
             (fn [line] {:s line :fg :black :bg :white :style #{:center}})
             ["You died."

        _ (log/debug "last-response" last-response)
        response-wrapped (wrap-line (- 30 17) last-response)
        _ (log/debug "response-wrapped" response-wrapped)
        style {:fg :black :bg :white :styles #{:bold}}]
    (put-string rstate :ui 0 16 (format "Doing business with %-69s" (get npc :name)) :black :white #{:bold})
    (doall (map (fn [y] (put-string rstate :ui 12 y "                    " :black :white #{:bold}))
                (range 17 (+ 17 6))))

        (if (= (get (rw/get-cell state x y) :discovered) current-time)
          (let [bg (rcolor/color->rgb (rand-nth [:beige :temple-beige :light-brown]))]
          ;; TODO implement
            (conj characters {:x x :y y :c \space :fg [0 0 0] :bg bg}))
          characters))
        (keys (get trap :locations))))))

