(ns api)

(defn flagged? [state flag]
  (boolean (get-in state [:flags flag])))

(defn flag [state flag]
  (assoc-in state [:flags flag] true))