@@ -88,6 +88,7 @@

    (%rollback-configuration :initarg :rollback-configuration :reader rollback-configuration)

    (%drift-information :initarg :drift-information :reader drift-information)

    (%enable-termination-protection :initarg :enable-termination-protection :reader enable-termination-protection)

+   (%template-description :initarg :template-description :reader template-description)

    (%parameters :initarg :parameters :reader parameters :initform (list))))

 (defclass timeline ()

@@ -137,8 +138,24 @@

                                  (:rollback-configuration . car)

                                  (:drift-information . car)

                                  (:enable-termination-protection . car)

+                                 (:template-description . car)

                                  (:parameters . extract-list)))))))

+(defparameter *stack-statuses*

+  '("CREATE_COMPLETE" "CREATE_IN_PROGRESS" "CREATE_FAILED"

+    "DELETE_COMPLETE" "DELETE_FAILED" "DELETE_IN_PROGRESS"

+    "REVIEW_IN_PROGRESS"

+    "ROLLBACK_COMPLETE" "ROLLBACK_FAILED" "ROLLBACK_IN_PROGRESS"

+    "UPDATE_COMPLETE" "UPDATE_COMPLETE_CLEANUP_IN_PROGRESS" "UPDATE_IN_PROGRESS"

+    "UPDATE_ROLLBACK_COMPLETE" "UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS" "UPDATE_ROLLBACK_FAILED" "UPDATE_ROLLBACK_IN_PROGRESS"))

+

+#+nil

+(aws-sdk/services/cloudformation:list-stacks 

+ :stack-status-filter '("UPDATE_COMPLETE" "UPDATE_IN_PROGRESS"

+                        "UPDATE_COMPLETE_CLEANUP_IN_PROGRESS" "UPDATE_ROLLBACK_COMPLETE"

+                        "UPDATE_ROLLBACK_IN_PROGRESS" "UPDATE_ROLLBACK_FAILED" 

+                        "UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS" "CREATE_FAILED"

+                        "CREATE_COMPLETE" "CREATE_IN_PROGRESS"))

 (defgeneric initialize-date (value)

   (:method ((value cons)) (local-time:parse-timestring (car value)))

@@ -159,3 +176,4 @@

   (should be equal "outputs" (decamelize "Outputs"))

   (should be equal "outputs-outputs" (decamelize "OutputsOutputs"))

   (should be equal "a-b-c" (decamelize "ABC")))

+

@@ -13,6 +13,7 @@

 (defparameter *cloud-watcher-synopsis*

   (defsynopsis (:postfix "ARGS...")

     (group (:header "actions")

+           (flag :short-name "s" :long-name "stacks" :description "show stack information")

            (flag :short-name "p" :long-name "parameters" :description "show stack parameters")

            (flag :short-name "o" :long-name "outputs" :description "show stack outputs")

            (flag :short-name "w" :long-name "watch" :description "watch a cloudformation stack until it's done processing")

@@ -26,6 +27,17 @@

            (flag :long-name "self-test")

            (flag :long-name "help"))))

+(defun stacks-main ()

+  (mapcar (lambda (s)

+            (format t "~3&STACK ~a ~a~2%"

+                    (cloud-watcher.aws-result:stack-name s)

+                    (cloud-watcher.aws-result:stack-status s))

+            (stack-info s))

+          (mapcar 'cloud-watcher.aws-result:extract-stack

+                  (cloud-watcher.aws-result:extract-list

+                   (cdar

+                    (aws/cloudformation:describe-stacks))))))

+

 (defun stack-parameters-main (name)

   (stack-parameters (stack-for-name name)))

@@ -63,6 +75,7 @@

     (cond ((clon:getopt :long-name "help") (clon:help))

           ((clon:getopt :long-name "info") (stack-info-main (car files)))

           ((clon:getopt :long-name "watch") (cloud-watcher.main:watch-stack (car files)))

+          ((clon:getopt :long-name "stacks") (stacks-main))

           ((clon:getopt :long-name "outputs") (stack-outputs-main (car files)))

           ((clon:getopt :long-name "parameters") (stack-parameters-main (car files)))

           ((clon:getopt :long-name "self-test") (run-tests))

@@ -17,8 +17,13 @@

                  #:local-time

                  #:local-time-duration

                  #:aws-sdk/services/cloudformation

+                 #:aws-sdk/services/monitoring

                  #:aws-sdk/services/elasticmapreduce

-                 #:should-test)

+                 #:should-test

+                 #:yason

+                 #:hunchentoot

+                 #:data-lens

+                 )

     :serial t

     :components ((:file "aws-result")

                  (:file "main")

@@ -26,10 +26,9 @@

   (let ((key-key (format nil "~aKey" prefix))

         (value-key (format nil "~aValue" prefix)))

     (mapcar (lambda (inp)

-              (declare (ignore _ __))

               (let ((k (cadr (assoc key-key inp :test #'equal)))

                     (v (cadr (assoc value-key inp :test #'equal))))

-                (funcall formatter stream k v)))

+                (format stream formatter k v)))

             data)))

 (defun stack-outputs (the-stack)