The filename itself can standin for the namespace when its has none (e.g. project.clj and data_readers.clj)
This commit is contained in:
parent
0bd050d75a
commit
e512fec93c
1 changed files with 3 additions and 5 deletions
|
@ -170,10 +170,12 @@
|
||||||
:else (recur (merge-line (first lines) cur-group) groups (rest lines)))))
|
:else (recur (merge-line (first lines) cur-group) groups (rest lines)))))
|
||||||
|
|
||||||
(defn path-to-doc [fn]
|
(defn path-to-doc [fn]
|
||||||
(let [ns (-> (java.io.File. fn)
|
(let [file (java.io.File. fn)
|
||||||
|
ns (-> file
|
||||||
(read-file-ns-decl)
|
(read-file-ns-decl)
|
||||||
(second)
|
(second)
|
||||||
(str))
|
(str))
|
||||||
|
ns (if (or (nil? ns) (empty? ns)) (.getName file) ns)
|
||||||
groups (parse-file fn)]
|
groups (parse-file fn)]
|
||||||
{:ns ns
|
{:ns ns
|
||||||
:groups groups}))
|
:groups groups}))
|
||||||
|
@ -264,10 +266,6 @@
|
||||||
["-l" "--leiningen" "Generate the documentation for a Leiningen project file." :default "./project.clj"])
|
["-l" "--leiningen" "Generate the documentation for a Leiningen project file." :default "./project.clj"])
|
||||||
sources (distinct (format-sources (seq files)))
|
sources (distinct (format-sources (seq files)))
|
||||||
sources (if leiningen (cons leiningen sources) sources)]
|
sources (if leiningen (cons leiningen sources) sources)]
|
||||||
(println "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<")
|
|
||||||
(println leiningen)
|
|
||||||
(println sources)
|
|
||||||
(println "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<")
|
|
||||||
(if-not sources
|
(if-not sources
|
||||||
(do
|
(do
|
||||||
(println "Wrong number of arguments passed to Marginalia.")
|
(println "Wrong number of arguments passed to Marginalia.")
|
||||||
|
|
Loading…
Reference in a new issue