 (hiccups/defhtml literal [n]
   [:span.literal-c3029 n])
 
-(hiccups/defhtml fn-link [nme]
-  [:a.fn-a8476 (encode nme)])
+(defn- nme->cljdocs-url [nme]
+  (-> nme
+    (clojure.string/replace "?" "_q")
+    encode-uri))
+
+(defn- docs-href [nme nme-space]
+  (str "http://clojuredocs.org/"
+       (encode-uri nme-space) "/"
+       (nme->cljdocs-url nme)))
+
+(hiccups/defhtml fn-link
+  ([nme] (fn-link nme "clojure.core"))
+  ([nme nme-space]
+    [:a.fn-a8476
+      {:href (docs-href nme nme-space)}
+      (encode nme)]))
 
 ;;------------------------------------------------------------------------------
 ;; Sections

          [:td.label-9e0b7 "Set Ops"]
          [:td.body-885f4
            (literal "(clojure.set/)")
            (fn-link "union")
            (fn-link "difference")
            (fn-link "intersection")
            (fn-link "select")]]
        [:tr.odd-372e6
          [:td.label-9e0b7 "Test"]
          [:td.body-885f4
            (literal "(clojure.set/)")
            (fn-link "subset?")
            (fn-link "superset?")]]]]])

(hiccups/defhtml maps-section []
  [:div.section-31efe

  (:require-macros [hiccups.core :as hiccups])
  (:require
    hiccups.runtime
    clojure.string
    [cljsinfo-server.util :refer [js-log log]]))

;; TODO: text for footer:
;; "Please copy, improve, and share this work."

(def encode js/goog.string.htmlEscape)
(def encode-uri js/encodeURIComponent)

(def clj-string "clojure.string")
(def clj-set "clojure.set")

;;------------------------------------------------------------------------------
;; Helpers
