Deploy a warfile to tomcat

gistfile1.clj

;; Example for deploying a war file
(ns tomcat-deploy
  (:require
   [pallet.crate.tomcat :as tomcat]
   [pallet.core :as core]))

(defn deploy-my-file
  []
  (tomcat/deploy-local-file "path to warfile" "appname"))

;;;

(defn all-in-one
  []
  (defnode appserver [:debian])
  (with-admin-user ["username" :public-key-path "path-to-public-key"]
    (with-compute-service ["rimu" "user" "password"]
      (core/lift appserver (deploy-myfile)))))