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! (defn save!
[parsed-files] [parsed-files]
(html/create-site! "site" 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 (defn parse
[^RootDoc root] [^RootDoc root]
(if (= 0 (count (.classes root)))
(println "No Java classes found")
(->> (map parse-class (.classes root)) (->> (map parse-class (.classes root))
(filter some?) (filter some?)
(apply concat) (apply concat)
parse-clj parse-clj
save!) save!)))
(println "Created site/ and embed/"))