alexanderkiel

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 /

alexanderkiel

(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

alexanderkiel

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

alexanderkiel

(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

alexanderkiel

(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#)))

alexanderkiel

;; 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))

alexanderkiel

Keybase proof

I hereby claim:

• I am alexanderkiel on github.
• I am akiel (https://keybase.io/akiel) on keybase.
• I have a public key ASCIVnTDEAOcjWvpyBBiQt1ijn6hiurmS9uajUMpuHswywo

To claim this, I am signing this object:

alexanderkiel

#!/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)

alexanderkiel

(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]+")

alexanderkiel

{
  "name": "gba-broker-ui-ng",
  "version": "0.1.0",
  "description": "",
  "private": true,
  "dependencies": {
    "@material/button": "^0.40.0",
    "@material/card": "^0.40.0",
    "@material/checkbox": "^0.40.0",
    "@material/dialog": "^0.40.0",