 (ns clojuredocs.data
   (:require [somnium.congomongo :as mon]
-            [clojuredocs.schemas :as cds]
             [schema.core :as sc]))
 
 (defn validate-payload [comp context-name payload]


;; See Alsos

(defn update-see-also-where! [where payload]
  (update-where! cds/SeeAlsoComp where payload))

(defn find-see-alsos-for [{:keys [ns name library-url]}]
  (->> (mon/fetch-one :see-alsos :where {:var.name name
                                         :var.ns ns


;; Examples

(defn find-examples-for [{:keys [ns name library-url]}]
  (mon/fetch :examples
    :where {:var.name name
