Alexander Kiel alexanderkiel

I hereby claim:

To claim this, I am signing this object:

	(require '[datomic.api :as d])

	(d/create-database "datomic:mem://test")
	(def conn (d/connect "datomic:mem://test"))

	;; Add the schema
	(d/transact conn [{:db/id (d/tempid :db.part/db )
	:db/ident :community/type
	:db/valueType :db.type/ref
	:db/cardinality :db.cardinality/one

	FROM ubuntu:13.10

	RUN locale-gen --no-purge en_US.UTF-8
	ENV LC_ALL en_US.UTF-8

	RUN apt-get update
	RUN apt-get -yq install ruby2.0 ruby2.0-dev git build-essential
	RUN gem install bundler berkshelf

	ADD client.pem /

	(ns typeahead-search-field
	(:require-macros [cljs.core.async.macros :refer [go-loop]])
	(:require [om.core :as om :include-macros true]
	[om.dom :as dom :include-macros true]
	[cljs.core.async :as async :refer [put! chan <! >! alts!]]))

	(defn typeahead-search-field
	"Renders a standalone typeahead search field.

	The search field collects the chars typed and executes a search after

	Jun 23 18:02:45 deis-1 docker[12507]: Accepted publickey for git from 172.17.42.1 port 44368 ssh2
	Jun 23 18:02:45 deis-1 docker[12507]: Received disconnect from 172.17.42.1: 11: disconnected by user
	Jun 23 18:03:10 deis-1 docker[12507]: Accepted publickey for git from 172.17.42.1 port 44442 ssh2
	Jun 23 18:03:10 deis-1 docker[12507]: 2014/06/23 18:03:10 POST /v1.11/containers/create
	Jun 23 18:03:10 deis-1 docker[12507]: [2694e9f0] +job create()
	Jun 23 18:03:10 deis-1 docker[12507]: [2694e9f0] -job create() = OK (0)
	Jun 23 18:03:10 deis-1 docker[12507]: 2014/06/23 18:03:10 POST /v1.11/containers/763ebf685ece4b0fdf27ed1f9cc7836c34723beaa9f7bb9708d8aa0fffc80508/attach?stdin=1&stream=1
	Jun 23 18:03:10 deis-1 docker[12507]: [2694e9f0] +job inspect(763ebf685ece4b0fdf27ed1f9cc7836c34723beaa9f7bb9708d8aa0fffc80508, container)
	Jun 23 18:03:10 deis-1 docker[12507]: [2694e9f0] -job inspect(763ebf685ece4b0fdf27ed1f9cc7836c34723beaa9f7bb9708d8aa0fffc80508, container) = OK (0)
	Jun 23 18:03:10 deis-1 docker[12507]: [2694e9f0

	(defmethod assert-expr 'conform-var? [msg form]
	;; Test if the var v conforms to it's spec.
	(let [args (rest form)]
	`(let [result# (clojure.spec.test/check-var ~@args)]
	(if (true? (:result result#))
	(do-report {:type :pass :message ~msg
	:expected '~form :actual result#})
	(do-report {:type :fail :message ~msg
	:expected '~form :actual result#}))
	result#)))

	(ns ring.spec
	(:require [clojure.java.io :as io]
	[clojure.spec :as s]
	[clojure.spec.gen :as gen]
	[clojure.string :as str])
	(:import [java.io File InputStream]))

	;; ---- Internal Primitives ---------------------------------------------------

	(def ^:private token-pattern #"[\!#$%&'*+-.^_`\|0-9A-Za-z]+")

	;; I have the following specs
	(s/def ::product-id int?)
	(s/def ::amount int?)
	(s/def ::price bigdec?)

	(s/def ::line-item
	(s/keys :req [::product-id ::amount ::price]))

	(s/def ::line-items
	(s/coll-of ::line-item))

	#!/usr/bin/env planck -D phrase:0.3-alpha2

	(require '[clojure.spec.alpha :as s])
	(require '[phrase.alpha :refer [defphraser phrase]])

	(s/def ::required-string (s/and string? not-empty))
	(s/def ::name ::required-string)
	(s/def ::phone (s/and string? #(re-matches #"(\+47)?\d+" %)))
	(s/def ::email (s/and string? #(re-matches #".+@.+" %)))
	(s/def ::first-name ::name)