(ns app.guards
  (:require [interop.anomalies :as anom]
            [app.utils :as utils]))

(defn is-incorrect?
  [s]
  (let [resp (last (:event s))]
    (anom/incorrect? resp)))

(defn is-anomaly?
  [s]
  (let [resp (last (:event s))]
    (anom/anomaly? resp)))

(defn is-unavailable?
  [s]
  (let [resp (last (:event s))]
    (anom/unavailable? resp)))

(defn is-interrupted?
  [s]
  (let [resp (last (:event s))]
    (anom/interrupted? resp)))

(defn is-missing-fields?
  [s]
  (let [form (get-in s [:db :app/register-form])]
    (utils/register-form-missing-fields? form)))

(defn has-errors?
  [s]
  (let [form (get-in s [:db :app/register-form])]
    (seq (utils/register-form-errors form))))

(defn is-offline?
  [s]
  (false? (get-in s [:db :app/online?])))