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

The filename itself can standin for the namespace when its has none (e.g. project.clj and data_readers.clj)

Browse source
This commit is contained in:
fogus 2014-11-18 13:18:17 -05:00
parent 0bd050d75a
commit e512fec93c
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/marginalia/core.clj
View file

@ -170,10 +170,12 @@
:else (recur (merge-line (first lines) cur-group) groups (rest lines)))))
(defn path-to-doc [fn]
(let [ns (-> (java.io.File. fn)
(let [file (java.io.File. fn)
ns (-> file
(read-file-ns-decl)
(second)
(str))
ns (if (or (nil? ns) (empty? ns)) (.getName file) ns)
groups (parse-file fn)]
{:ns ns
:groups groups}))
@ -264,10 +266,6 @@
["-l" "--leiningen" "Generate the documentation for a Leiningen project file." :default "./project.clj"])
sources (distinct (format-sources (seq files)))
sources (if leiningen (cons leiningen sources) sources)]
(println "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<")
(println leiningen)
(println sources)
(println "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<")
(if-not sources
(do
(println "Wrong number of arguments passed to Marginalia.")