Warn when no Java classes are found

This commit is contained in:
oakes
2014-08-03 16:50:23 -04:00
parent 007b5fcadc
commit d7e5bdb5ca
2 changed files with 10 additions and 8 deletions

View File

@@ -157,13 +157,15 @@
(defn save!
[parsed-files]
(html/create-site! "site" parsed-files)
(html/create-embed! "embed" parsed-files))
(html/create-embed! "embed" parsed-files)
(println "Created site/ and embed/"))
(defn parse
[^RootDoc root]
(->> (map parse-class (.classes root))
(filter some?)
(apply concat)
parse-clj
save!)
(println "Created site/ and embed/"))
(if (= 0 (count (.classes root)))
(println "No Java classes found")
(->> (map parse-class (.classes root))
(filter some?)
(apply concat)
parse-clj
save!)))