rwillig

Keybase proof

I hereby claim:

• I am rwillig on github.
• I am raywillig (https://keybase.io/raywillig) on keybase.
• I have a public key ASAKAW7PX6fnzJhyZkLjBg1x2Rm6qm4DSMH9n5pQ3_CE4Ao

To claim this, I am signing this object:

rwillig

Verifying my Blockstack ID is secured with the address 1HXvfKfng1Fm93BDnoEiYadB62NtGTzCCu https://explorer.blockstack.org/address/1HXvfKfng1Fm93BDnoEiYadB62NtGTzCCu

rwillig

(def assets   [{:base :cash            :label "Cash in Banks and Brokerage Accounts"  :fields [:more :amount]}
               {:base :stock           :label "Stock, Bonds, Mutual FUnds, Notes:"    :fields [:more :amount]}
               {:base :pension         :label "Pension nd I.R.A.'s:"                  :fields [:more :amount]}
               {:base :re-pvt          :label "Real Estate: Personal Residence:"      :fields [:more :amount]}
               {:base :re-vac          :label "Real Estate: Vacation Residence:"      :fields [:more :amount]}
               {:base :re-other        :label "Real Estate: Other Properties:"        :fields [:more :amount]}
               {:base :auto-1          :label "Automobile #1: Make/Model:"            :fields [:more :amount]}
               {:base :auto-2          :label "Automobile #2: Make/Model:"            :fields [:more :amount]}
               {:base :auto-3          :label "Automobile #3: Make/Model:"            :fields [:more :amount]}
               {:base :as

rwillig

(set-env!
  :source-paths #{"src"}
  :resource-paths #{"assets" "html"}
  :dependencies '[
      ;           [hoplon/boot-hoplon                       "0.3.0"            :scope "test"]
                  [adzerk/boot-reload                       "0.4.11"            :scope "test"]
                  [adzerk/boot-cljs                         "1.7.170-3"         :scope "test"]
                  [tailrecursion/boot-jetty                 "0.1.3"             :scope "test"]
                  [rowtr/form                               "0.2.1"]
                  [org.clojure/clojurescript                "1.7.122"]

rwillig

                      (div :class "col-xs-6"
                        (a :class (cell= {:active (= form-state :login)}) :click #(reset! form-state :login)))
 

rwillig

(ns ui.component.donate.stripe
  (:require
    [ui.core                  :as core        :refer [donate-state donate-error]]
    [clojure.set              :as set         :refer [rename-keys]]
    [clojure.string           :as s           :refer [split]]))

(declare ensure-stripe stripe-init)

(def stripe-url         "https://js.stripe.com/v2/")
(def key-mappings       {:donor_address     :address_line1

rwillig

(defelem typeahead [{:keys [options datasets id cell] :as attr :or {id (gensym)}} _]
  (let [id          (if (cell? id) @id id)
        attrs       (dissoc attr :options :datasets :cell :id)
        field       (input :id id :type "text" :change #(when (cell? cell) (reset! cell @%)) attrs)
        select-fn   (fn [cell ev s] (when (cell? cell) (reset! cell (aget s "value"))))]
    (with-let [t      (div (field))]
      (when-dom t #(do
                    (.typeahead
                      (js/jQuery (str "#" id))
                      (clj->js options)

rwillig

(defelem currency-typeahead [{:keys [value options currency id cell] :as attr :or {id (gensym)}} _]
  (cell= (.log js/console "options " (clj->js options)))
  (let [id          (if (cell? id) @id id)
        matcher     (fn [options]
                      (fn [q cb]
                        (let [os (mapv str (js->clj options))]
                          (if
                            (= q "")
                            (do (cb (clj->js os)))
                              (let [bs (filterv #(startsWith % q) os)]

rwillig

<configuration>
  <appender name="SYSLOG-TLS" class="com.papertrailapp.logback.Syslog4jAppender">
    <layout class="ch.qos.logback.classic.PatternLayout">
      <pattern>%-5level %logger{35}: %m%n%xEx</pattern>
    </layout>

    <syslogConfig class="org.productivity.java.syslog4j.impl.net.tcp.ssl.SSLTCPNetSyslogConfig">
      <!-- remote system to log to -->
      <host>logs3.papertrailapp.com</host>
      <!-- remote port to log to -->

rwillig

(defelem solution-form [{:keys [depots mappings] :as attr} kids]
  (let [current-solution          (cell nil)
        prop                      (cell {:files nil})
        solution-schema           {:id nil :label nil :depot nil :mapping nil :file nil :files nil}]
    (form/with-form [{:keys [data error state exception loading] :as form-machine}
                      (workflow/form-machine
                        :current    current-solution
                        :action  (fn [& x] (.log js/console (clj->js x)))
                        :schema  solution-schema
                        :success #(.log js/console "Success!"))]