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

Made parser all types of forms.

Browse source
This commit is contained in:
Nicolas Buduroi 2011-01-16 21:35:09 -05:00
parent 97e9877d60
commit 6317084736
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/marginalia/parser.clj
View file

@ -65,7 +65,7 @@
(catch Exception _)))
(defn extract-docstring [form raw nspace-sym]
(when (re-find #"^(def|ns)" (-> form first name))
(if (re-find #"^(def|ns)" (-> form first name))
(let [sym (-> form second)
_ (when-not nspace-sym (require sym))
nspace (find-ns sym)]
@ -74,7 +74,8 @@
(get-var-docstring nspace-sym sym))]
[docstring
(strip-docstring docstring raw)
(if nspace sym nspace-sym)]))))
(if nspace sym nspace-sym)]))
[nil raw nspace-sym]))
(defn- ->str [m]
(replace (-> m :form .content) #"^;+\s*" ""))