diff --git a/src/marginalia/parser.clj b/src/marginalia/parser.clj index b7b9374..6df4741 100644 --- a/src/marginalia/parser.clj +++ b/src/marginalia/parser.clj @@ -76,22 +76,10 @@ (replace "\"" "\\\"")) \") "") + (replace #"#?\^\{\s*:doc\s*\}" "") (replace #"\n\s*\n" "\n") (replace #"\n\s*\)" ")"))) -(defn- internal-strip-docstring - [R internal-ds] - (reduce (fn [raw docstring] - (replace - raw - (str \" (-> docstring - str - (replace "\"" "\\\"")) - \") - "")) - R - internal-ds)) - (defn get-var-docstring [nspace-sym sym] (try (-> `(var ~(symbol (str nspace-sym) (str sym))) eval meta :doc)