initial commit

Author: jumblerg

.gitignore

@@ -0,0 +1,37 @@
+### BOOT #######################################################################
+
+/.boot/
+
+### LEININGEN ##################################################################
+
+.lein-*
+
+### MAVEN (include pom.xml in /base) ###########################################
+
+*.jar
+*.war
+pom.xml
+pom.xml.asc
+
+### NREPL ######################################################################
+
+.repl-*
+.nrepl-*
+
+### JAVA #######################################################################
+
+/hs_err_pid*.log
+
+### OSX ########################################################################
+
+.DS_Store
+
+### EMACS ######################################################################
+
+[#]*[#]
+
+### VIM ########################################################################
+
+*.swn
+*.swo
+*.swp

README.md

@@ -0,0 +1,17 @@
+# boot-stack
+
+a boot task for deploying aws cloud formation templates
+
+[](dependency)
+```clojure
+[tailrecursion/boot-stack "0.1.0-SNAPSHOT"] ;; latest release
+```
+[](/dependency)
+
+## overview
+
+the `create` task provisions a new cloudfront stack from a template described
+by clojure data structures, instead of json and yaml, so it may be conveniently
+manipulated by a boot build.
+
+conversely, the `delete` task tears it down.

boot.properties

@@ -0,0 +1,2 @@
+BOOT_CLOJURE_VERSION=1.9.0
+BOOT_VERSION=2.7.2

build.boot

@@ -0,0 +1,25 @@
+(set-env!
+  :resource-paths #{"src"}
+  :dependencies   '[[org.clojure/clojure "1.8.0"   :scope "provided"]
+                    [adzerk/bootlaces    "0.1.13"  :scope "test"]])
+
+(require
+  '[adzerk.bootlaces :refer :all])
+
+(def +version+ "0.1.0-SNAPSHOT")
+
+(bootlaces! +version+)
+
+(deftask develop []
+  (comp (watch) (speak) (build-jar)))
+
+(deftask deploy []
+  (comp (speak) (build-jar) (push-release)))
+
+(task-options!
+ pom  {:project     'tailrecursion/boot-stack
+       :version     +version+
+       :description "Boot tasks for standing up and tearing down aws resources."
+       :url         "https://github.com/tailrecursion/boot-stack"
+       :scm         {:url "https://github.com/tailrecursion/boot-stack"}
+       :license     {"EPL" "http://www.eclipse.org/legal/epl-v10.html"}})

src/tailrecursion/boot_stack.clj

@@ -0,0 +1,49 @@
+(ns tailrecursion.boot-stack
+  {:boot/export-tasks true}
+  (:require
+    [boot.core :as boot]
+    [boot.pod  :as pod]
+    [boot.util :as util]))
+
+(def ^:private deps
+  '[[cheshire                                  "5.8.1"]
+    [com.amazonaws/aws-java-sdk-cloudformation "1.11.419"]])
+
+(defn- warn-deps [deps]
+  (let [conflict (delay (util/warn "Overriding project dependencies, using:\n"))]
+    (doseq [dep deps]
+      (when (pod/dependency-loaded? dep)
+        @conflict
+        (util/warn "• %s\n" (pr-str dep))))))
+
+(defn- pod-env [deps]
+  (let [dep-syms (->> deps (map first) set)]
+    (warn-deps deps)
+    (-> (dissoc pod/env :source-paths)
+        (update :dependencies #(remove (comp dep-syms first) %))
+        (update :dependencies into deps))))
+
+(boot/deftask create
+  [n stack NAME            str "Name of the stack"
+   r region REGION         str "AWS Region"
+   a access-key ACCESS_KEY str "AWS Access Key"
+   s secret-key SECRET_KEY str "AWS Secret Key"
+   t template TMPL         edn "AWS CloudFormation template."]
+  (let [pod (pod/make-pod (pod-env deps))]
+    (boot/with-pre-wrap fileset
+      (util/info "Creating stack %s in region %s...\n" stack region)
+      (pod/with-call-in pod
+        (tailrecursion.boot-stack.client/create-stack! ~*opts*))
+      fileset)))
+
+(boot/deftask delete
+  [n stack NAME            str "Name of the stack"
+   r region REGION         str "AWS Region"
+   a access-key ACCESS_KEY str "AWS Access Key"
+   s secret-key SECRET_KEY str "AWS Secret Key"]
+  (let [pod (pod/make-pod (pod-env deps))]
+    (boot/with-pre-wrap fileset
+      (util/info "Deleting stack %s in region %s...\n" stack region)
+      (pod/with-call-in pod 
+        (tailrecursion.boot-stack.client/delete-stack! ~*opts*))
+      fileset)))

src/tailrecursion/boot_stack/client.clj

@@ -0,0 +1,34 @@
+(ns tailrecursion.boot-stack.client
+  (:require
+    [cheshire.core :refer [generate-string]])
+  (:import
+    [com.amazonaws.auth                          AWSStaticCredentialsProvider BasicAWSCredentials]
+    [com.amazonaws.services.cloudformation       AmazonCloudFormationClientBuilder]
+    [com.amazonaws.services.cloudformation.model CreateStackRequest DeleteStackRequest]))
+
+(defn client [acc-key sec-key region]
+  (let [creds (AWSStaticCredentialsProvider. (BasicAWSCredentials. acc-key sec-key))]
+    (-> (AmazonCloudFormationClientBuilder/standard)
+        (.withCredentials creds)
+        (.withRegion region)
+        (.build)
+        (delay))))
+
+(defn creation [stack template]
+  (-> (CreateStackRequest.)
+      (.withStackName stack)
+      (.withTemplateBody (generate-string template))))
+
+(defn deletion [stack]
+  (-> (DeleteStackRequest.)
+      (.withStackName stack)))
+
+(defn create-stack! [{:keys [access-key secret-key region stack template]}]
+  (let [client  @(client access-key secret-key region)
+        creation (creation stack template)]
+    (.toString (.createStack client creation))))
+
+(defn delete-stack! [{:keys [access-key secret-key region stack]}]
+  (let [client  @(client access-key secret-key region)
+        deletion (deletion stack)]
+    (.toString (.deleteStack client deletion))))