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

Fixed support for non-standard def* forms.

Browse source
This commit is contained in:
Nicolas Buduroi 2011-01-19 21:40:57 -05:00
parent 30aec7ca6f
commit 0709fd6598
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/marginalia/parser.clj
View file

@ -131,8 +131,11 @@
(strip-docstring docstring raw)
nspace-sym]))
(defmethod dispatch-form :default [_ raw nspace-sym]
[nil raw nspace-sym])
(defmethod dispatch-form :default
[form raw nspace-sym]
(if (re-find #"^def" (-> form first name))
(extract-common-docstring form raw nspace-sym)
[nil raw nspace-sym]))
(defn extract-docstring [m raw nspace-sym]
(let [raw (join "\n" (subvec raw (-> m :start dec) (:end m)))