   (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 (select-keys state [:left :top :zoom :query :show-cards :query-filter :debug-offset :file-query])) 15 15)
   (q/text (str (round (q/current-frame-rate)) "/" (q/target-frame-rate)) 15 45)
 
   (doseq [[i line] (enumerate (deref (:debug-avail state)))

            :debug-avail (atom [])
            :debug-selected (atom [])
            :pid (re-find #"\d+" (.getName (ManagementFactory/getRuntimeMXBean)))})))

(defn debug [state text f]
  (let [query (.toLowerCase (:query 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)
