md-visitor.clj

(require '[clojure.java.io :as io])

(defn visit-print
  "println approach"
  [path level]
  (when (some #(clojure.string/includes? % ".md") (file-seq (io/file path)))
    (println (str (apply str (repeat level "  ")) "- " (.getName (io/file path))))
    (doseq [path (.listFiles (io/file path))] (visit-print path (inc level)))))

(defn visit-print
  "immutable approach"
  [path level]
  (when (some #(clojure.string/includes? % ".md") (file-seq (io/file path)))
    (filter seq [(str (apply str (repeat level "  ")) "- " (.getName (io/file path)))
                 (filter seq
                         (map #(visit-print % (inc level))
                              (.listFiles (io/file path))))])))

(->> (visit-print "/home/felipecortez/Dev/playbooks" 0)
     flatten
     (clojure.string/join "\n")
     (spit "yay.yml"))

(file-seq (io/file "/home/felipecortez/Dev/playbooks"))