gistfile1.clj

;;from cljs namespace util
(defn fields->map [& ks]
  (into {}
        (for [k ks]
          [k (js->clj (j/val ($id->elem k)))])))

;;from cljs namespace manage
(defn submit-group-form []
  (let [g (util/fields->map :grpname :grpsubs)]
    (fm/letrem [grp (add-group g)]
               (if (= :success grp)
                 (do (state/trigger app :select-page "manage")
                     (state/unset app :form-submitted "grp-form"))
                 (state/unset app :form-submitted "grp-form" "Invalid Form Data")))))

;;from clj namespace remotes
(defremote add-group [grp]
  (prn grp))

;;result of prn :
;;{:grpname "MEFASupervisor", :grpsubs ["[object Object]"]}