-
 (ns ocr-evaluator.core
   (:require [seesaw.core :refer :all]
             [seesaw.chooser :refer :all]

                        [:action
                         (fn [& args]
                           (value! ocr-dir
                                   (.getPath (choose-file))))])])
              "Zielordner für Ergebnisse"
              (flow-panel
               :items

                        [:action
                         (fn [& args]
                           (value! gt-dir
                                   (.getPath (choose-file :selection-mode :dirs-only))))])])
              "Ordner mit OCR"
              (flow-panel
               :items
