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) (strip-docstring docstring raw)
nspace-sym])) nspace-sym]))
(defmethod dispatch-form :default [_ raw nspace-sym] (defmethod dispatch-form :default
[nil raw nspace-sym]) [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] (defn extract-docstring [m raw nspace-sym]
(let [raw (join "\n" (subvec raw (-> m :start dec) (:end m))) (let [raw (join "\n" (subvec raw (-> m :start dec) (:end m)))