5 (def file-listing (joker.os/ls dir-name))
7 (def start-sequence "#+")
11 (and (joker.string/starts-with? line start-sequence) (joker.string/includes? line tag)))
15 (let [contents (joker.string/split-lines (slurp file-name))]
16 (if (any? (map tag-line? contents))
21 (println (map #(contains-tag? tag (:name %)) file-listing))