gistfile1.clj

(defn do-join [root]
  (let [pv (pageviews root)
        lnd (landings root)
        nv (new-visits root)
        rv (return-visits root)
        b (bounces root)]
    (<- [?json]
        (pv !pub !datestr !country !region !city !kw !ref !url !!pvs)
        (lnd !pub !datestr !country !region !city !kw !ref !url !!lnds)
        (nv !pub !datestr !country !region !city !kw !ref !url !!nvs)
        (rv !pub !datestr !country !region !city !kw !ref !url !!rvs)
        (b !pub !datestr !country !region !city !kw !ref !url !!b)
        (nil->zeroify !!pvs !!lnds !!nvs !!rvs !!b :>
                      ?pageviews ?landings ?new-visits ?return-visits ?bounces)
        (write-json-map [[:psn :d :url :g_C :g_r :g_c :kw :s :pv :l :nV :rV :b]]
                        !pub !datestr !url !country !region !city !kw !ref
                        ?pageviews ?landings ?new-visits ?return-visits ?bounces :> ?json))))