• Home
• org.cloudhoist
• pallet-vmfest
• 0.2.1
• source code
• add_vmfest_image.clj

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

pallet.task.add_vmfest_image.clj Maven / Gradle / Ivy

(ns pallet.task.add-vmfest-image
  "A task for adding vmfest images"
  (:require
   [pallet.compute :as compute]
   [pallet.compute.vmfest :as vmfest]
   [pallet.core :as core]))

(defn as-str
  [sym]
  (if-let [n (namespace sym)]
    (str n "/" (name sym))
    (name sym)))

(defn add-vmfest-image
  "Add an image to the list of vmfest images."
  {:help-arglists '[[image-url]]}
  [request image-url]
  (let [service (:compute request)]
    (println "Downloading" (name image-url) "...")
    (vmfest/add-image service (as-str image-url))))