Basic functionality for play and playbook

examples/playbook.scm

@@ -5,4 +5,13 @@
  #:vars '((foo . 1) (bar . "baz"))
  #:plays (list
           (play #:name "Example play"
-                #:host "localhost")))
+                #:host "localhost"
+                #:tasks (list
+                         (task #:name "First task"
+                               #:action (const #t))
+                         (task #:name "Second task"
+                               #:action (lambda (conn)
+                                          (trigger-handler! 'foo))))
+                #:handlers (list
+                            (handler #:name 'foo
+                                     #:action (const #f))))))