From 5d68b3e8200b576d78a62ef7af16705bde63c81f Mon Sep 17 00:00:00 2001 From: Adrian Cole Date: Fri, 2 Apr 2010 13:47:20 -0700 Subject: [PATCH] fixed usage and added image name predicate --- compute/src/main/clojure/org/jclouds/compute.clj | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/compute/src/main/clojure/org/jclouds/compute.clj b/compute/src/main/clojure/org/jclouds/compute.clj index d245e3278f..777e4759b5 100644 --- a/compute/src/main/clojure/org/jclouds/compute.clj +++ b/compute/src/main/clojure/org/jclouds/compute.clj @@ -12,14 +12,15 @@ Here's an example of getting some compute configuration from rackspace: (def user \"username\") (def password \"password\") (def compute-name \"cloudservers\") - + (def compute (compute-context compute-name user password)) - (pprint (locations compute)) - (pprint (images compute)) - (pprint (nodes compute)) - (pprint (sizes compute)) - + (with-compute-service [compute] + (pprint (locations)) + (pprint (images)) + (pprint (nodes)) + (pprint (sizes))) + See http://code.google.com/p/jclouds for details." (:use org.jclouds.core clojure.contrib.duck-streams @@ -253,7 +254,7 @@ See http://code.google.com/p/jclouds for details." (concat (make-option-map option-fn-1arg [:os-family :location-id :architecture :image-id :size-id - :os-description-matches :image-version-matches + :os-description-matches :image-version-matches :image-name-matches :image-description-matches :min-cores :min-ram]) (make-option-map option-option-fn-1arg [:run-script :install-private-key :authorize-public-key :inbound-ports]))))