     (->> level
          (viewable-coords character)
          (map get-in-level)
-         (run! #(draw-block term %)))))
+         (run! #(draw-block term %))
+         )))
 
 (defn show-map-with-buffer [term level character]
   (let [

               :attr #js {:r r :g g :b b :bgR bgR :bgG bgG :bgB bgB}}
          char)))


(defn draw-block [term block]
  (let [{:keys [x y solid inhabitants color visible]} block
        has-inhabitant (boolean (seq inhabitants))
        fgcolor (or (:color (first inhabitants)) [0 0 0])
        bgcolor (.rgb COLOR color)
        bgcolor (color-to-vec bgcolor)
        char    (if has-inhabitant
                  (:char (first inhabitants))
                  (if solid "▒" " "))]
    (apply (.-colorRgb term) fgcolor)
    (apply (.-bgColorRgb term) bgcolor)
    (.moveTo term x y char)))

(defn fov [character]



(defn show-screen [term level character]
  (.clear term)

  (if (-> (.-support term) (aget "trueColor"))
    (show-map-with-buffer term level character)
    (show-map-direct term level character))

  (show-map-direct term level character)

  (doto term
    (.color256    7)
