More discrete source links (#22)

* Link source as an emoji next to the var name

Previously, the link to the source of a var was in a `<sub></sub>` at
the end of the var description. However, it did not always play nicely
with the Github markdown renderer. For instance, when the last thing in
a docstring was a markdown table, that link would appear as a row.

This commit solves that kind of issues by moving the link to an emoji
right next to the var name. It also declutters the rendered page and
make var names more striking.

* Print separators between namespaces

Making navigation easier when there are several namespaces on the
rendered page.

Author: helins

src/quickdoc/impl.clj

@@ -57,7 +57,7 @@
                               source-uri]}]
   (cond repo
         (format
-         "<sub>[source](%s/blob/%s/%s#L%s-L%s)</sub>"
+         "%s/blob/%s/%s#L%s-L%s"
          repo
          branch
          (:filename var)
@@ -100,16 +100,18 @@
       docstring)))
 
 (defn print-var [ns->vars ns-name var _source {:keys [collapse-vars] :as opts}]
+  (println)
   (when (var-filter var)
     (when collapse-vars (println "<details>\n\n"))
     (when collapse-vars
       (println (str "<summary><code>" (:name var) "</code>"
                     (when-let [summary (var-summary var)]
                       (str " - " summary)))
                "</summary>\n\n"))
-    (println "##" (format "<a name=\"%s/%s\">`%s`</a>"
+    (println "##" (format "<a name=\"%s/%s\">[:page_facing_up:](%s) `%s`</a>"
                           ns-name
                           (:name var)
+                          (var-source var opts)
                           (:name var)))
     (when-let [arg-lists (or (when-let [quoted-arglists (-> var :meta :arglists)]
                                (if (and (seq? quoted-arglists)
@@ -126,20 +128,20 @@
                         (list (str (:name var) arglist)))
               arglist (binding [pprint/*print-miser-width* nil
                                 pprint/*print-right-margin* 120]
-                        (with-out-str (pprint/pprint arglist)))
-              ]
-          (print arglist)))
-      (println "```\n"))
-    (when-let [doc (:doc var)]
-      (println)
-      (when (:macro var)
-        (println "Macro.\n\n"))
-      (print-docstring ns->vars ns-name doc opts)
-      (print "<br>"))
-    (println (var-source var opts))
-    (when collapse-vars (println "</details>\n\n"))))
+                    (with-out-str (pprint/pprint arglist)))
+            ]
+        (print arglist)))
+    (println "```\n"))
+  (when-let [doc (:doc var)]
+    (println)
+    (when (:macro var)
+      (println "Macro.\n\n"))
+    (print-docstring ns->vars ns-name doc opts)
+    (when collapse-vars (println "</details>\n\n")))))
 
 (defn print-namespace [ns-defs ns->vars ns-name vars opts overrides]
+  (println)
+  (println "-----")
   (let [ns (get-in ns-defs [ns-name 0])
         filename (:filename ns)
         source (try (slurp filename)