Move application stuff out of core.clj.
This commit is contained in:
parent
cb21d5921a
commit
d8cc9878bc
3 changed files with 25 additions and 24 deletions
|
@ -1,6 +1,6 @@
|
|||
(defproject marginalia "0.7.0-SNAPSHOT"
|
||||
:description "lightweight literate programming for clojure -- inspired by [docco](http://jashkenas.github.com/docco/)"
|
||||
:main marginalia.core
|
||||
:main marginalia.main
|
||||
:dependencies
|
||||
[[org.clojure/clojure "1.3.0"]
|
||||
[org.clojure/tools.namespace "0.1.1"]
|
||||
|
|
|
@ -39,8 +39,7 @@
|
|||
[parser :only (parse-file)]]
|
||||
[clojure.tools
|
||||
[namespace :only (read-file-ns-decl)]
|
||||
[cli :only (cli)]])
|
||||
(:gen-class))
|
||||
[cli :only (cli)]]))
|
||||
|
||||
|
||||
(def ^{:dynamic true} *test* "src/marginalia/core.clj")
|
||||
|
@ -277,24 +276,3 @@
|
|||
(println "Done generating your documentation, please see"
|
||||
(str *docs* "/" file))
|
||||
(println ""))))))
|
||||
|
||||
(defn -main
|
||||
"The main entry point into Marginalia."
|
||||
[& sources]
|
||||
(binding [marginalia.html/*resources* ""]
|
||||
(run-marginalia sources)))
|
||||
|
||||
|
||||
;; # Example Usage
|
||||
(comment
|
||||
;; Command line example
|
||||
(-main "./src/marginalia/core.clj" "./src/marginalia/html.clj")
|
||||
|
||||
;; This will find all marginalia source files, and then generate an uberdoc.
|
||||
(apply -main (find-clojure-file-paths "./src"))
|
||||
|
||||
;; Move these to tests
|
||||
(merge-line {:docstring-text "hello world" :line 3} {:docs ["stuff"]})
|
||||
(merge-line {:code-text "(defn asdf" :line 4} {:docs ["stuff"]})
|
||||
(merge-line {:docs-text "There's only one method in this module", :line 4} {})
|
||||
)
|
||||
|
|
23
src/marginalia/main.clj
Normal file
23
src/marginalia/main.clj
Normal file
|
@ -0,0 +1,23 @@
|
|||
(ns marginalia.main
|
||||
(:use [marginalia.html :only [*resources*]]
|
||||
[marginalia.core :only [run-marginalia]])
|
||||
(:gen-class))
|
||||
|
||||
(defn -main
|
||||
"The main entry point into Marginalia."
|
||||
[& sources]
|
||||
(binding [*resources* ""]
|
||||
(run-marginalia sources)))
|
||||
|
||||
;; # Example Usage
|
||||
(comment
|
||||
;; Command line example
|
||||
(-main "./src/marginalia/core.clj" "./src/marginalia/html.clj")
|
||||
|
||||
;; This will find all marginalia source files, and then generate an uberdoc.
|
||||
(apply -main (find-clojure-file-paths "./src"))
|
||||
|
||||
;; Move these to tests
|
||||
(merge-line {:docstring-text "hello world" :line 3} {:docs ["stuff"]})
|
||||
(merge-line {:code-text "(defn asdf" :line 4} {:docs ["stuff"]})
|
||||
(merge-line {:docs-text "There's only one method in this module", :line 4} {}))
|
Loading…
Reference in a new issue