Add ecs-parameters to AWS::Events::Rule (#200)

Author: keerts

src/crucible/aws/events.clj

@@ -3,13 +3,18 @@
   (:require [crucible.resources :refer [spec-or-ref defresource] :as res]
             [crucible.values :as v]
             [crucible.encoding.keys :refer [->key]]
+            [crucible.aws.events.ecs-parameters :as ecs-parameters]
             [clojure.spec.alpha :as s]))
 
-(s/def ::id (spec-or-ref #(re-matches #"[\.\-_A-Za-z0-9]+" %)))
+(s/def ::id (spec-or-ref (s/and string? #(re-matches #"[\.\-_A-Za-z0-9]+" %))))
 
 (s/def ::arn (spec-or-ref string?))
 
-(s/def ::target (s/keys :req [::arn ::id]))
+(s/def ::ecs-parameters ::ecs-parameters/ecs-parameters-spec)
+
+(s/def ::target (s/keys :req [::arn
+                              ::id]
+                        :opt [::ecs-parameters]))
 
 (s/def ::targets (s/coll-of ::target :kind vector?))
 

src/crucible/aws/events/aws_vpc_configuration.clj

@@ -0,0 +1,14 @@
+(ns crucible.aws.events.aws-vpc-configuration
+  "AWS::ECS::Rule > AwsVpcConfiguration"
+  (:require [clojure.spec.alpha :as s]
+            [crucible.resources :refer [spec-or-ref]]))
+
+(s/def ::assign-public-ip (spec-or-ref string?))
+
+(s/def ::security-groups (s/coll-of string? :type vector))
+
+(s/def ::subnets (s/coll-of string? :type vector))
+
+(s/def ::aws-vpc-configuration-spec (s/keys :req [::subnets]
+                                            :opt [::assign-public-ip
+                                                  ::security-groups]))

src/crucible/aws/events/ecs_parameters.clj

@@ -0,0 +1,19 @@
+(ns crucible.aws.events.ecs-parameters
+  "AWS::ECS::Rule > EcsParameters"
+  (:require [clojure.spec.alpha :as s]
+            [crucible.aws.events.network-configuration :as network-configuration]
+            [crucible.resources :refer [spec-or-ref]]))
+
+(s/def ::group (spec-or-ref string?))
+(s/def ::launch-type (spec-or-ref string?))
+(s/def ::platform-version (spec-or-ref string?))
+(s/def ::task-count (spec-or-ref integer?))
+(s/def ::task-definition-arn (spec-or-ref string?))
+(s/def ::network-configuration ::network-configuration/network-configuration-spec)
+
+(s/def ::ecs-parameters-spec (s/keys :req [::task-definition-arn]
+                                     :opt [::group
+                                           ::launch-type
+                                           ::platform-version
+                                           ::task-count
+                                           ::network-configuration]))

src/crucible/aws/events/network_configuration.clj

@@ -0,0 +1,9 @@
+(ns crucible.aws.events.network-configuration
+  "AWS::ECS::Rule > NetworkConfiguration"
+  (:require [clojure.spec.alpha :as s]
+            [crucible.aws.events.aws-vpc-configuration :as aws-vpc-configuration]
+            [crucible.resources :refer [spec-or-ref]]))
+
+(s/def ::aws-vpc-configuration ::aws-vpc-configuration/aws-vpc-configuration-spec)
+
+(s/def ::network-configuration-spec (s/keys :opt [::aws-vpc-configuration]))