(ns core
  (:use [pallet core compute]
        [pallet.phase :only [phase-fn]]
        [pallet.utils :only [make-user]]
        [pallet.action.exec-script :only [exec-script]]))

(require 'pallet.compute.node-list)

(def comp
     (pallet.compute/compute-service
    "node-list"
     :node-list [(pallet.compute.node-list/make-node
                  "smfd-akg-19-sr3.devel.twitter.com" "jasontest" "10.35.10.118" :debian)]
     :environment {:user (make-user "jackson")
                   :algorithms {:lift-fn pallet.core/sequential-lift
                                :converge-fn pallet.core/parallel-adjust-node-counts}}))


(def pa-node-spec
     (node-spec
      :image nil))

(def pa-server-spec
     (server-spec
      :phases {:configure (phase-fn
                           (exec-script
                            (touch hello)))}))

(def pa-group-spec
     (group-spec "jasontest" :node-spec pa-node-spec))

#_ (lift pa-group-spec :compute comp :phase :configure)