example of using the default override in Pallet's automated-admin-user crate

default-admin-user.clj

;(require '[pallet.crate.automated-admin-user :as automated-admin-user])

;; ## Set Admin User with Assumptions(tm)
;; * assume that /home/USERNAME/.pallet exists
;; * keyfiles of the format ADMIN-USER_rsa and ADMIN-USER_rsa.pub are put in /home/USERNAME/.pallet
(defn set-admin-user
  [admin-user]
  (let [home-pallet-dir "/home/USERNAME/.pallet"]
    (core/admin-user admin-user
      :private-key-path (str home-pallet-dir "/" admin-user "_rsa")
      :public-key-path (str home-pallet-dir "/" admin-user "_rsa.pub"))))

;; *admin-user* is a global VAR that the automated-admin-user crate will use by default if it is set
(def *admin-user* (set-admin-user "myadmin"))

;; this is pretty standard, just call automated-admin-user without any parameters in your bootstrap
(def with-webserver
  (core/server-spec
    :phases { :bootstrap (phase/phase-fn (automated-admin-user/automated-admin-user ))
              :configure (phase/phase-fn (web-server-config)) }))

local-pallet-dir.clj

;; Instead of manually setting home-pallet-dir above, you could call this instead
(defn local-pallet-dir
  "Get the .pallet dir of the user currently running pallet"
  []
  (.getAbsolutePath
    (doto (if-let [pallet-home (System/getenv "PALLET_HOME")]
            (java.io.File. pallet-home)
            (java.io.File. (System/getProperty "user.home") ".pallet"))
      .mkdirs)))