          (some? service-id)
          (contains? supported-actions (:Action event)))))
 
-(def service-container-event
+(defn- service-info-data
+  [event]
+  (let [service-id (get-in event [:Actor :Attributes :com.docker.swarm.service.id])
+        service (api/service service-id)
+        tasks (api/service-tasks service-id)
+        networks (api/service-networks service-id)]
+    {:service  service
+     :tasks    tasks
+     :networks networks}))
+
+(def service-list-container-event
   (reify Rule
     (match? [_ event]
       (service-container-event? event))

    (subscribed-data [_ event]
      (api/services-memo))))

(def task-container-event
  (reify Rule
    (match? [_ event]
      (service-container-event? event))

    (subscribed-data [_ event]
      (api/tasks-memo))))

(def service-list-event
  (reify Rule
    (match? [_ event]
      (= "service" (:Type event)))
