         (when-not (empty? a) " ")
         a
         ")")])
+
+(defn $argform [s]
+  [:li.arglist s])
 
 (defn see-alsos-for [{:keys [ns name library-url]}]
   (->> (mon/fetch :see-alsos

   [:div.col-sm-12
    [:section
     [:ul.arglists
      (map #($arglist name %) arglists)]]]])

(defn var-page-handler [ns name]
  (let [name (util/cd-decode name)

(defn $number-badge [num]
  [:span.badge num])

(defn $var-header [{:keys [ns name added arglists forms] :as v}]
  [:div.row.var-header
   [:div.col-sm-8
    [:h1.var-name (util/html-encode name)]]
