kenbier

(om/transact! reconciler `[(support-request/new ~support-request)])

kenbier

(defonce app (atom nil))

(defn on-app-started [{:keys [networking initial-state] :as app}]
  (let [reconciler          (:reconciler app)]
    (when st/airbrake-client
      (.addFilter st/airbrake-client
                  (fn [notice]
                    (let [comment (some->> notice
                                           .-errors
                                           first

kenbier

(defn with-auth-token
  "Token wrapper for calls to report-center production server. Gets the
  token from the url params"
  [request]
  (assoc-in request
            [:headers "Authorization"]
            (str "Bearer " (core/get-url-param "token"))))

(defn start-untangled-support-viewer
  "Create and display a new untangled support viewer on the given app root, with VCR controls to browse through the given history. The support HTML file must include

kenbier

(defmethod api-read :support-request
  [env k {:keys [id] :as params}]
  (let [{:keys [current/user blob-store]} env]
    {:value (kv/fetch blob-store
                      (java.util.UUID/fromString id))}))

kenbier

(defmethod api-mutate 'support-request/new
  [{:keys [blob-store twarc-scheduler 
           database current/user] :as env} 
   q
   {:keys [history comment support-id] :as params}]
  {:action (fn []
             (let [{:keys [db/id user/email]} user
                   connection      (db/get-connection database)
                   session         {:history history
                                    :comment comment}]

kenbier

(defmethod m/mutate 'support-request/new
  [{:keys [ast state]} k {:keys [comment support-id]}]
  {:remote (assoc ast :params {:comment    comment
                               :support-id support-id
                               :history    (uc/history @app/app)})})