Clojurians Log v2

to jsou tve error kody? pokud jo, tak bych proste pouzil keywordy (`:not-found`, ...)

v Clojure moc upper case veci nevidam (ted si konkretne nevzpomenu na zadnou)

Potřebuju mít jistotu, že to nikdo nezmrví, protože na to jsou navázané regexy na gatewayi, … Tak jsem to prdnul do ns error, skryl co nechci aby někdo používal a postupně se to bude rozšiřovat …

(defn- error-map
  ([code message] {:error-code code
                   :error-message (if (string? message) message (pr-str message))}))


(defn- error
  ([code message] (.stringify js/JSON (clj->js (error-map code message)))))


(defn invalid-params
  [message]
  (error "INVALID_PARAMS" message))


(defn exception
  [message]
  (error "EXCEPTION" message))