Skip to content

Instantly share code, notes, and snippets.

View wkf's full-sized avatar
🤝

Will Farrell wkf

🤝
View GitHub Profile
{:marketplace/add-subscription-schema
{:txes [[
{:db/id #db/id[:db.part/db]
:db/ident :subscription/data-set-id
:db/valueType :db.type/string
:db/cardinality :db.cardinality/one
:db.install/_attribute :db.part/db}
{:db/id #db/id[:db.part/db]
:db/ident :subscription/user-id
(ns bunsen.common.component.elasticsearch
(:require [clojure.java.io :as io]
[com.stuartsierra.component :as component :refer [start stop]]
[bunsen.common.helper.elasticsearch :as es])
(:import (java.net URI)
(org.apache.commons.io FileUtils)
(org.elasticsearch.node NodeBuilder)
(org.elasticsearch.common.settings ImmutableSettings)))
(defrecord Elasticsearch [config]
#!/usr/bin/env bash
#
# Bootstrap the Circle CI environment.
#
reconfigure_docker() {
# since docker doesn't listen over tcp by default, change config to listen on all interfaces so containers can connect
echo 'DOCKER_OPTS="-s btrfs -e lxc -H unix:///var/run/docker.sock -H tcp://0.0.0.0:4243"' | sudo tee /etc/default/docker
sudo service docker restart
machine:
services:
- docker
environment:
TAG: "${CIRCLE_SHA1:0:7}"
REGISTRY: quay.io/mojotech
dependencies:
override:
- make bootstrap-ci
;; -*- mode: emacs-lisp -*-
;; This file is loaded by Spacemacs at startup.
;; It must be stored in your home directory.
(defun dotspacemacs/layers ()
"Configuration Layers declaration."
(setq-default
;; List of additional paths where to look for configuration layers.
;; Paths must have a trailing slash (ie. `~/.mycontribs/')
dotspacemacs-configuration-layer-path '()
(ns greenish.site-test
(:require [clojure.test.check :as check]
[clojure.test.check.generators :as generators]
[clojure.test.check.properties :as properties]
[clojure.test.check.clojure-test :refer [defspec]])
(:import (org.openqa.selenium By WebDriver WebElement)
(org.openqa.selenium.chrome ChromeDriver)
(org.openqa.selenium.htmlunit HtmlUnitDriver)
(org.openqa.selenium.support.ui ExpectedConditions WebDriverWait)))
(defcssfn calc)
(defn clearfix []
[:&
{:*zoom 1}
[:&:before :&:after
{:content "''"
:display :table}]
[:&:after
["/" {"auth" :auth
"info" :info
"_ping" :ping
"version" :version
"commit" :create-image-from-container
"events" :events
"build" :build-image
"images" {"/get" :dump-images
"/load" :load-images
"/json" :images
@wkf
wkf / docker.clj
Last active August 29, 2015 14:22
(ns bunsen.provisioner.helper.docker
(:require [clojure.string :as str]
[bunsen.provisioner.helper.rest :as rest])
(:import (org.bouncycastle.openssl PEMParser)
(java.security KeyStore KeyStore$TrustedCertificateEntry KeyFactory)
(java.security.cert Certificate CertificateFactory)
(java.security.spec PKCS8EncodedKeySpec)
(java.nio.file Files Paths OpenOption)
(java.nio.charset Charset)))
(def keystore-pass "docker?")
(def tls?
(comp #{"1"} :docker-tls-verify))
(defn uri
[config]
(when-let [host (:docker-host config)]
(-> (url host)
(assoc :protocol