Fix #39: fix link when var is named multiple times in docstring

scratch/API.md

@@ -0,0 +1,34 @@
+# Table of contents
+-  [`user`](#user) 
+    -  [`+and`](#user/+and) - Logical AND of heavy-bools which evaluates to a <code>heavy-bool</code>.
+    -  [`heavy-bool`](#user/heavy-bool)
+
+-----
+# <a name="user">user</a>
+
+
+
+
+
+
+## <a name="user/+and">`+and`</a><a name="user/+and"></a>
+``` clojure
+
+(+and & rest)
+```
+Macro.
+
+Logical AND of heavy-bools which evaluates to a [`heavy-bool`](#user/heavy-bool).
+  Expands to code which evaluates to the left-most [`heavy-bool`](#user/heavy-bool) value
+  in the argument list, otherwise evaluates to the right-most
+  value.  If the argument list is empty, evaluates explicitly to
+  `+true`
+<p><sub><a href="/blob/main/src/scratch.clj#L3-L18">Source</a></sub></p>
+
+## <a name="user/heavy-bool">`heavy-bool`</a><a name="user/heavy-bool"></a>
+``` clojure
+
+(heavy-bool)
+```
+Function.
+<p><sub><a href="/blob/main/src/scratch.clj#L1-L1">Source</a></sub></p>

scratch/deps.edn

@@ -0,0 +1 @@
+{:deps {io.github.borkdude/quickdoc {:local/root ".."}}}

scratch/src/scratch.clj

@@ -0,0 +1,18 @@
+(defn heavy-bool [])
+
+(defmacro +and
+  "Logical AND of heavy-bools which evaluates to a `heavy-bool`.
+  Expands to code which evaluates to the left-most `heavy-bool` value
+  in the argument list, otherwise evaluates to the right-most
+  value.  If the argument list is empty, evaluates explicitly to
+  `+true`"
+  [& rest]
+  (case (count rest)
+    (0) true
+    (1) (first rest)
+    (let [v (gensym)
+          [head & tail] rest]
+      `(let [~v ~head]
+         (+if ~v
+              (+and ~@tail)
+              ~v)))))

src/quickdoc/impl.clj

@@ -80,22 +80,22 @@
                   ;; Looks qualified
                  (str/includes? inner "/")
                  (let [split (str/split inner #"/")]
-                   (if (and (= (count split) 2)
+                   (if (and (= 2 (count split))
                             (get-in ns->vars [(symbol (first split))
                                               (symbol (second split))]))
                      (str/replace docstring raw (format "[`%s`](#%s)" inner inner))
                      docstring))
                   ;; Not qualified, maybe a namespace
                  (contains? ns->vars (symbol inner))
                  (str/replace docstring raw (format "[`%s`](#%s)" inner inner))
-                  ;; Not qualified, maybe a var in the current namespace
+                 ;; Not qualified, maybe a var in the current namespace
                  (get-in ns->vars [current-ns (symbol inner)])
                  (str/replace docstring raw (format "[`%s`](#%s/%s)" inner current-ns inner))
-                  ;; Just regular markdown backticks
+                 ;; Just regular markdown backticks
                  :else
                  docstring))
              docstring
-             (re-seq var-regex docstring))
+             (distinct (re-seq var-regex docstring)))
      docstring)))
 
 (defn print-var [ns->vars ns-name var _source {:keys [collapse-vars] :as opts}]