             :left 0
             :top 0
             :query ""
+            :file-query ""
             :show-cards false
             :query-filter true
             :debug (atom nil)

  (q/fill 0 0 0 192)
  (q/rect 0 0 300 60)
  (q/fill 255)
  (q/text (str (select-keys state [:left :top :zoom :query :show-cards :query-filter :debug-offset])) 15 15)
  (q/text (str (round (q/current-frame-rate)) "/" (q/target-frame-rate)) 15 45)

  (doseq [[i line] (enumerate (deref (:debug-avail state)))


(defn load-next-image [state]
  (load-image state
              (let [next-file (->> (filter-query (:file-query state) (:file-list state))
                                   (partition-by #{(:image-file state)})
                                   (remove #{(list (:image-file state))})
                                   (last)
