jpthomson

(defn parse
  ([q] (parse q {}))
  ([q m]
   (cond (list? q) (parse (first q) (assoc m :params (apply hash-map (rest q))))
         (map? q) (apply merge m (map parse (first q)))
         (vector? q) (assoc m :children (mapv parse q))
         :else (assoc m :dispatch-key q))))

(defn resolve-value [env {:keys [dispatch-key] :as ast} value]
  (if-let [f (get-in env [:resolvers dispatch-key])]

jpthomson

{  
   "method":"post",
   "payload":{  
      "access_token":"<ACCESS TOKEN>",
      "name":"SHOP+DEEPLINKS",
      "adset_id":123,
      "creative":{  
         "creative_id":"<AD CREATIVE ID>"
      },
      "status":"PAUSED"

jpthomson

(deftask start []
  (let [f (delay (do
                   (require 'fy.core) ;; cljx file
                   ((resolve 'fy.core/start-system!))))]
    (with-post-wrap fileset @f fileset)))