Move some examples, skip subdirectories in examples/ (#25)

metafacture · Jan 11, 2022 · 38c1eeb · 38c1eeb
1 parent 760347d
commit 38c1eeb
Show file tree

Hide file tree

Showing 5 changed files with 3 additions and 3 deletions.
diff --git a/resources/examples/Web_JSON_to_JSON_(fix) → .../examples/disabled/Web_JSON_to_JSON_(fix) b/resources/examples/Web_JSON_to_JSON_(fix) → .../examples/disabled/Web_JSON_to_JSON_(fix)
diff --git a/resources/examples/Web_Marc21_to_formeta → ...s/examples/disabled/Web_Marc21_to_formeta b/resources/examples/Web_Marc21_to_formeta → ...s/examples/disabled/Web_Marc21_to_formeta
diff --git a/...rces/examples/Web_Pica-to-MarcXML_(morph) → ...ples/disabled/Web_Pica-to-MarcXML_(morph) b/...rces/examples/Web_Pica-to-MarcXML_(morph) → ...ples/disabled/Web_Pica-to-MarcXML_(morph)
diff --git a/resources/examples/Web_Pica_to_formeta → ...ces/examples/disabled/Web_Pica_to_formeta b/resources/examples/Web_Pica_to_formeta → ...ces/examples/disabled/Web_Pica_to_formeta
diff --git a/src/clj/metafacture_playground/handler.clj b/src/clj/metafacture_playground/handler.clj
@@ -37,9 +37,9 @@
     (process-request data flux fix morph uri))
   (GET "/examples" request
     (try
-      (let [files (-> (io/file "resources/examples/")
-                      file-seq
-                      rest)
+      (let [files (->> (io/file "resources/examples/")
+                      .listFiles
+                      (filter #(.isFile %)))
             files-content (reduce
                            (fn [result file]
                              (assoc result (.getName file) (slurp file)))