 ;; Pro: Learned a bit about clojure list comprehensions
 ;; Con: This file is turning into something like a little monster
 
-(defn assoc-map [img-vector indices-to-colors]
+(defn assoc-map [img-vector indices-to-colors paste-transparent-pixels]
   (loop [img img-vector
          keys-to-assoc (vec (keys indices-to-colors))]
     (if (empty? keys-to-assoc)

              blit-x (- doc-x offset-x)
              blit-y (- doc-y offset-y)]
          (clear-preview-canvas)
          (set! (.-fillStyle preview-context) (get-in @app [:tools :paint-color]))
          (when (not selection-was-pasted)
            (.fillRect preview-context
               (* x1 zoom-factor)

      (let [key-to-assoc (peek keys-to-assoc)
            keys-to-assoc (pop keys-to-assoc)
            color (indices-to-colors key-to-assoc)
            img (if (and
                      (not (= key-to-assoc :clipped))
                      (or (not= color "#T") paste-transparent-pixels))
                  (assoc img key-to-assoc color)
                  img)]
        (recur img keys-to-assoc)))))
