support_request_new.clj

(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}]
               
               ;; Store the user session.
               (kv/store blob-store support-id session)
               ;; Store the key to the user session.
               @(d/transact connection [[:db/add id :user/sessions support-id]])
               ;; Sumologic will search for this log.
               (timbre/error "new support request recorded:" email support-id comment)
               support-id))})