mccraigmccraig

{;; this defines hierarchy-type and hierarchy-id attachments of
 ;; heritable-attrs and heritable-perms
 :er-model.importer.import-sources/hierarchy-metadata
 {"group"

  ;; attachments by hierarchy-type id
  {:er-model.importer.import-objects/group-type-id
   {;; hierarchytype 1 - root
    "[[H]]1"
    {:h_attrs

mccraigmccraig

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

mccraigmccraig

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

mccraigmccraig

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

mccraigmccraig

(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}

mccraigmccraig

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

mccraigmccraig

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

mccraigmccraig

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

mccraigmccraig

Keybase proof

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:

mccraigmccraig

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