escherize

(defn fake-signup-view []
  (let [debug?           (subscribe [:debug?])
        loading?         (subscribe [:loading?])
        email-taken?     (subscribe [:email-taken?])
        signup-form-data (subscribe [:signup-form])
        email            (reaction (:email      @signup-form-data))
        first-name       (reaction (:first-name @signup-form-data))
        last-name        (reaction (:last-name  @signup-form-data))
        password         (reaction (:password   @signup-form-data))]
    (fn []

escherize

(defn fake-signup-view []
  (let [debug?           (subscribe [:debug?])
        loading?         (subscribe [:loading?])
        email-taken?     (subscribe [:email-taken?])
        signup-form-data (subscribe [:signup-form])
        email            (reaction (:email      @signup-form-data))
        first-name       (reaction (:first-name @signup-form-data))
        last-name        (reaction (:last-name  @signup-form-data))
        password         (reaction (:password   @signup-form-data))]
    (fn []

escherize

(defn fake-signup-view []
  (let [debug?           (subscribe [:debug?])
        loading?         (subscribe [:loading?])
        email-taken?     (subscribe [:email-taken?])
        signup-form-data (subscribe [:signup-form])
        email            (reaction (:email      @signup-form-data))
        first-name       (reaction (:first-name @signup-form-data))
        last-name        (reaction (:last-name  @signup-form-data))
        password         (reaction (:password   @signup-form-data))]
    (fn []

escherize

(ns coffee-app.ios.core
  (:require [reagent.core :as r :refer [atom]]
            [re-frame.core :refer [subscribe dispatch dispatch-sync]]
            [coffee-app.handlers]
            [coffee-app.subs]))

(set! js/React (js/require "react-native"))

(def app-registry (.-AppRegistry js/React))
(def text (r/adapt-react-class (.-Text js/React)))

escherize

auto lo

iface lo inet loopback
iface eth0 inet dhcp

allow-hotplug wlan0
auto wlan0


iface wlan0 inet dhcp

escherize

(+ 1 1)

escherize

(ns seagent-ui.catan
  (:require [reagent.core :as r]))

(defn dice-roll []
  (+ (rand-nth [1 2 3 4 5 6])
     (rand-nth [1 2 3 4 5 6])))

(defonce roll    (r/atom (dice-roll)))
(defonce history (r/atom [@roll]))
(defonce players (r/atom ["P 1" "P 2" "P 3" "P 4"]))

escherize

layout	title
post	Example content

Howdy! This is an example blog post that shows several types of HTML content supported in this theme.

escherize

(s/defn shipping-speed->codes :- {:charge-code s/Str
                                  :product-code s/Str
                                  :service-code s/Str}
  [shipping-speed]
  (if-let [codes ({:standard {:charge-code  "7D55"
                              :product-code "00093"
                              :service-code "08"}
                   :express {:charge-code "7I85"
                             :product-code "00096"
                             :service-code "08"}}

escherize

;; image at: http://take.ms/VaXll

(def g {:a {:white :a :black :b}
        :b {:white :d :black :c}
        :c {:white :g :black :d}
        :d {:white :c :black :e}
        :e {:white :f :black :f}
        :f {:white :b :black :g}
        :g {:white :e :black :a}})