Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/planck
- (ns deploy.core
- (:require [cljs.reader :refer [read-string]]
- [planck.shell :as shell]))
- (defn sh [& args]
- (let [result (apply shell/sh args)]
- (if (= 0 (:exit result))
- (:out result)
- (throw (ex-info (:err result) {})))))
- (let [push-out (sh "clojure" "-A:dev" "-m" "datomic.ion.dev" "{:op :push}") ; optionally: :uname \"$(uuidgen)\"
- _ (print push-out)
- deploy-cmd (get-in (read-string (str "[" push-out "]")) [1 :deploy-command])
- deploy-out (sh "bash" "-c" deploy-cmd)
- _ (print deploy-out)
- status-cmd (:status-command (read-string deploy-out))]
- (println "Monitoring deployment; press Ctrl-C to exit.")
- (while true
- (print (sh "bash" "-c" status-cmd))
- (sh "sleep" "5")))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement