Apache
/
jclouds
mirror of https://github.com/apache/jclouds.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixed usage and added image name predicate

This commit is contained in:
Adrian Cole 2010-04-02 13:47:20 -07:00
parent 3776354f59
commit 5d68b3e820
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compute/src/main/clojure/org/jclouds/compute.clj
View File

@ -12,14 +12,15 @@ Here's an example of getting some compute configuration from rackspace:
(def user \"username\") (def user \"username\")
(def password \"password\") (def password \"password\")
(def compute-name \"cloudservers\") (def compute-name \"cloudservers\")
(def compute (compute-context compute-name user password)) (def compute (compute-context compute-name user password))
(pprint (locations compute)) (with-compute-service [compute]
(pprint (images compute)) (pprint (locations))
(pprint (nodes compute)) (pprint (images))
(pprint (sizes compute)) (pprint (nodes))
(pprint (sizes)))
See http://code.google.com/p/jclouds for details." See http://code.google.com/p/jclouds for details."
(:use org.jclouds.core (:use org.jclouds.core
clojure.contrib.duck-streams clojure.contrib.duck-streams
@ -253,7 +254,7 @@ See http://code.google.com/p/jclouds for details."
(concat (concat
(make-option-map option-fn-1arg (make-option-map option-fn-1arg
[:os-family :location-id :architecture :image-id :size-id [: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]) :image-description-matches :min-cores :min-ram])
(make-option-map option-option-fn-1arg (make-option-map option-option-fn-1arg
[:run-script :install-private-key :authorize-public-key :inbound-ports])))) [:run-script :install-private-key :authorize-public-key :inbound-ports]))))