I hereby claim:
- I am mccraigmccraig on github.
- I am mccraigmccraig (https://keybase.io/mccraigmccraig) on keybase.
- I have a public key whose fingerprint is 1200 ACF5 97F1 53C3 7246 5B5A 172A 5DB8 BFD8 9F3F
To claim this, I am signing this object:
(use 'cascalog.api) | |
(use 'cascalog.playground) | |
(require '[clojure.tools.logging :as log]) | |
(require '[clojure.pprint :as pp]) | |
(bootstrap) | |
(defn vectorvector | |
[& vals] | |
[(apply vector vals)]) |
#!/usr/bin/env sh | |
if ! which md5sum > /dev/null; then | |
echo Install md5sum | |
exit 1 | |
fi | |
if ! which curl > /dev/null; then | |
echo Install curl | |
exit 1 |
I hereby claim:
To claim this, I am signing this object:
;;;;;;;;;;;;;;;;;;;;; macro | |
(ns clustermap.lastcall-method | |
(:require [clojure.tools.macro :refer [name-with-attributes]])) | |
(defn ^:private lastcall-method* | |
"defines an API method with last-call-wins semantics : returns a | |
channel of a single-value, the response | |
only responses corresponding to the the last |
(require '[cats.core :refer :all]) | |
(require '[cats.monad.continuation :as cont]) | |
(defn with-something | |
[config] | |
(cont/continuation | |
(fn [cc] | |
(prn (str "setting up something: " (pr-str config))) | |
(let [r (cc :something)] | |
(prn "tearing down something") |
(require '[clojure.algo.monads :refer :all]) | |
(defn with-something | |
[config] | |
(fn [cc] | |
(prn (str "setting up something: " (pr-str config))) | |
(let [r (cc :something)] | |
(prn "tearing down something") | |
r))) |
(ns clustermap.application | |
(:require [parenjin.application :as app] | |
[parenjin.job :as job] | |
[clustermap.config :as conf] | |
[clustermap.connectors :as conn] | |
[clomponents.control :as clomp])) | |
(def app-spec {:enjins { | |
:ping {:model :clustermap.datasets.ping.dataset/dataset} |
(ns delaymap | |
(:require [schema.core :as s]) | |
(:import [clojure.lang MapEntry])) | |
(defn ^:private deref-seq [underlying] | |
(when-first [[k v] underlying] | |
(lazy-seq (cons (MapEntry. k @v) (deref-seq (rest underlying)))))) | |
(defprotocol IValidatable | |
(schema [this]) |
;; ; specify S3 repositories with something like | |
;; | |
;; (set-env! | |
;; :wagons '[[s3-wagon-private "1.2.0"]] | |
;; :repositories #(concat % [["releases" {:url "s3p://your-s3-wagon-bucket/releases/" | |
;; :username [:env/aws_access_key :gpg] | |
;; :passphrase [:env/aws_secret_key :gpg]}] | |
;; ["snapshots" {:url "s3p://your-s3-wagon-bucket/snapshots/" | |
;; :username [:env/aws_access_key :gpg] |
;; ; specify S3 repositories with something like | |
;; | |
;; (set-env! | |
;; :wagons '[[s3-wagon-private "1.2.0"]] | |
;; :repositories #(concat % [["releases" {:url "s3p://your-s3-wagon-bucket/releases/" | |
;; :username [:env/aws_access_key :gpg] | |
;; :passphrase [:env/aws_secret_key :gpg]}] | |
;; ["snapshots" {:url "s3p://your-s3-wagon-bucket/snapshots/" | |
;; :username [:env/aws_access_key :gpg] |