Fix #14 and #18

Author: borkdude

API.md

@@ -1,6 +1,6 @@
 # Table of contents
 -  [`quickdoc.api`](#quickdocapi)  - API namespace for quickdoc.
-    -  [`quickdoc`](#quickdoc) - Generate API docs
+    -  [`quickdoc`](#quickdoc) - Generate API docs.
 # quickdoc.api 
 
 
@@ -29,4 +29,4 @@ Generate API docs. Options:
   * `:overrides` - overrides in the form `{namespace {:no-doc true var {:no-doc true :doc ...}}}`.
 
   Returns a map containing the generated markdown string under the key `:markdown`.
-<br><sub>[source](https://github.com/borkdude/quickdoc/blob/main/src/quickdoc/api.cljc#L9-L76)</sub>
+<br><sub>[source](https://github.com/borkdude/quickdoc/blob/main/src/quickdoc/api.cljc#L9-L78)</sub>

src/quickdoc/api.cljc

@@ -40,10 +40,12 @@
          var-links true}
     :as opts}]
   (let [ana (-> (clj-kondo/run! {:lint source-paths
-                                 :config {:output {:analysis
+                                 :config {:skip-comments true
+                                          :output {:analysis
                                                    {:arglists true
                                                     :var-definitions {:meta [:no-doc
-                                                                             :skip-wiki]}
+                                                                             :skip-wiki
+                                                                             :arglists]}
                                                     :namespace-definitions {:meta [:no-doc
                                                                                    :skip-wiki]}}}}})
                 :analysis)

src/quickdoc/impl.clj

@@ -82,7 +82,12 @@
                       (str " - " summary)))
                "</summary>\n\n"))
     (println "##" (format "`%s`" (:name var)))
-    (when-let [arg-lists (seq (:arglist-strs var))]
+    (when-let [arg-lists (or (when-let [quoted-arglists (-> var :meta :arglists)]
+                               (if (and (seq? quoted-arglists)
+                                        (= 'quote (first quoted-arglists)))
+                                 (second quoted-arglists)
+                                 quoted-arglists))
+                             (seq (:arglist-strs var)))]
       (println "``` clojure\n")
       (doseq [arglist arg-lists]
         (let [arglist (try (edn/read-string arglist)