yogsototh/marginalia
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Pulled the call to (parse-project-file) out of uberdocbang so that it can be used in a more generic way. The old way was causing heartburn for Maven integration.

Browse source
This commit is contained in:
fogus 2011-01-07 14:21:46 -05:00
parent db80a2abbc
commit 19b665e42d
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/marginalia/core.clj
View file

@ -223,13 +223,16 @@
"Generates an uberdoc html file from 3 pieces of information: "Generates an uberdoc html file from 3 pieces of information:
1. Results from processing source files (`path-to-doc`) 1. Results from processing source files (`path-to-doc`)
2. Project metadata obtained from `parse-project-file`. 2. The path to spit the result (`output-file-name`)
3. The path to spit the result (`output-file-name`)" 3. Project metadata as a map, containing at a minimum the following:
[output-file-name files-to-analyze] - :name
- :version
"
[output-file-name files-to-analyze props]
(let [docs (map path-to-doc files-to-analyze) (let [docs (map path-to-doc files-to-analyze)
source (uberdoc-html source (uberdoc-html
output-file-name output-file-name
(parse-project-file) props
(map path-to-doc files-to-analyze))] (map path-to-doc files-to-analyze))]
(spit output-file-name source))) (spit output-file-name source)))
@ -260,7 +263,7 @@
(println " " s)) (println " " s))
(println) (println)
(ensure-directory! "./docs") (ensure-directory! "./docs")
(uberdoc! "./docs/uberdoc.html" sources) (uberdoc! "./docs/uberdoc.html" sources (parse-project-file))
(println "Done generating your docs, please see ./docs/uberdoc.html") (println "Done generating your docs, please see ./docs/uberdoc.html")
(println))))) (println)))))