Error handling with fulcro and pathom

create_gift.cljs

;; Example error-action
(error-action [{:keys [state result] :as env}]
  (let [message (get-in env [:result :body `create-gift ::p/error ::anom/message])]
    (swap! state
      #(-> %
         (assoc-in [::gift/id id :ui/submitting] false)
         (assoc-in [:component/id :flash-message] #:ui{:active true
                                                       :message message
                                                       :type "negative"})))))

parser.clj

;; Assoc errors to ::p/error key using ::p/env in parser definition
::p/env     {::p/reader               [p/map-reader pc/parallel-reader
                                       pc/open-ident-reader p/env-placeholder-reader]
             ::p/process-error (fn [env e]
                                 (log/error (p/error-str e))
                                 (log/error (with-out-str (.printStackTrace e)))
                                 {::p/error (ex-data e)})
             ::p/placeholder-prefixes #{">"}}

server.clj

;; Detect errors in parser results
(defn wrap-api [handler uri]
  (fn [request]
    (if (= uri (:uri request))
      (let [result (parser/parser {:ring/request request}
                     (:transit-params request))
            errors (sequence (keep (comp ::p/error val)) result)]
        (log/debug "result" result)
        (assoc-in {:status (if (seq errors) 500 200) :body result}
          [:headers "Content-Type"] "application/transit+json"))
      (handler request))))