ordo/tryme.scm

(use-modules
 (ice-9 filesystem)
 (ordo condition)
 (ordo connection)
 (ordo context)
 (ordo action filesystem)
 (ordo play)
 (ordo task)
 (ordo handler))

(define test-play
  (play "Test play"
        #:connection (local-connection)
        #:vars '((base-dir . "/home/ray/ordo-test"))
        #:tasks (list
                 (task "Override base dir"
                       (const "/home/ray/ordo-test-again")
                       #:register 'base-dir)
                 (task "Create test directory"
                       (bind-context-vars
                        (base-dir)
                        (action:install-dir base-dir))
                       #:condition (bind-context-vars
                                    (base-dir)
                                    (negate (cond:directory? base-dir))))
                 (task "Create test file from string content"
                       (bind-context-vars
                        (base-dir)
                        (action:install-file (file-name-join* base-dir "foo")
                                             #:content "Hello, world!\n"
                                             #:mode #o600))
                       #:register 'foo)
                 (task "Get file status"
                       (bind-context-vars
                        (foo)
                        (action:stat foo))
                       #:register 'stat-out
                       #:triggers '(display-stat)))
        #:handlers `((display-stat . ,(handler "Display stat"
                                               (bind-context-vars
                                                (foo stat-out)
                                                (lambda _ (pk foo stat-out))))))))

(run-play test-play)