Skip to content

Instantly share code, notes, and snippets.

View pbzdyl's full-sized avatar
😎

Piotrek Bzdyl pbzdyl

😎
View GitHub Profile
(ns app.ui.login
(:require [goog.net.cookies :as cks]
[app.rpc :as rpc]
[ui.form :as form]
[ui.button :as button]
[workflow.form :as workflow]
[ui.modal :as modal]
[ui.app :as app]
[cemerick.url :refer [url]]))
(ns workflow.form
(:require
[castra.core :as castra]
[clojure.walk :as walk]
[clojure.data :as data]))
;; Form data manager ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn- reset-vals!
[map-of-cells default]
(ns ui.app
(:refer-hoplon :exclude [main body])
(:refer-clojure :exclude [meta])
(:require-macros [ui.app :as app])
(:require [app.routes :as routes]
[app.integrations :as int]
[ui.global-state :as global]))
(def meta html-meta)
(page "index.html"
(:require
[cljs.reader :refer [read-string]]
[app.rpc :as rpc]
[app.routes :as routes]
[app.ui.nav :as nav]
[app.ui.login :as login]
[app.ui.loading :as loading]
[app.ui.advertisers.creatives :as creatives]
[app.ui.inventory.adtypes :as adtypes]
(ns ui.form
(:refer-hoplon :exclude [select input textarea label form])
(:require [clojure.string :as str]
[ui.form.input :as input]
[ui.button :as button]
[ui.modal :as modal]
[ui.grid :as grid]
[ui.icon :as icon]
[ui.filters :as filters]
[ui.link :as link]
(ns ui.form.input
(:refer-hoplon :exclude (input textarea select)))
(defn- change-state
[state handler]
(let [handler (or handler (fn []))]
#(do (reset! state @%)
(handler %))))
(defn- field
@pbzdyl
pbzdyl / form.clj
Created May 8, 2017 06:04 — forked from micha/form.clj
(ns ui.form)
(defmacro with-form
[[binding form-machine] & body]
`(let [form-machine# ~form-machine
~binding form-machine#
{data# :data
error# :error
state# :state
exception# :exception
(ns ui.form
(:refer-hoplon :exclude [select input textarea label form])
(:require [ui.form.input :as input]
[ui.button :as button]
[ui.modal :as modal]
[ui.grid :as grid]
[ui.filters :as filters]
[ui.link :as link]
[ui.util :as util]
[ui.icon :as icon]
(ns app.ui.login
(:require [goog.net.cookies :as cks]
[app.rpc :as rpc]
[ui.form :as form]
[ui.button :as button]
[workflow.form :as workflow]
[ui.modal :as modal]
[ui.app :as app]))
(def schema