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

View File

@@ -11,6 +11,6 @@ public class Start {
RT.var("clojure.core", "require").invoke(Symbol.intern("play-clj-doclet.core")); RT.var("clojure.core", "require").invoke(Symbol.intern("play-clj-doclet.core"));
Var parse = RT.var("play-clj-doclet.core", "parse"); Var parse = RT.var("play-clj-doclet.core", "parse");
parse.invoke(root); parse.invoke(root);
return true; return true;
} }
} }