iterate-gql-connection.clj

(defn iterate-gql-connection [{:keys [api-url token]} query variables]
  (->> (iteration
         (fn [after]
           (some->> (client/post api-url {:content-type :json
                                          :accept       :json
                                          :as           :json
                                          :headers      {"authorization" (str "Bearer " token)}
                                          :form-params  {:query     query
                                                         :variables (merge variables {:after after})}})
                    :body
                    :data
                    (vals)
                    (first)
                    :edges))
         :some? not-empty
         :vf (partial map :node)
         :kf (comp :cursor last)
         :initk nil)
       (mapcat identity)))