ray/ordo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Reformat to avoid long lines

Browse source
This commit is contained in:
Ray Miller 2025-01-10 17:41:11 +00:00
parent dba8ca3153
commit 31bd78abb1
Signed by: ray
GPG key ID: 043F786C4CD681B8
1 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

17
tryme.scm
View file

@ -20,18 +20,25 @@
(bind-context-vars (bind-context-vars
(base-dir) (base-dir)
(action:install-dir base-dir)) (action:install-dir base-dir))
#:condition (bind-context-vars (base-dir) (negate (cond:directory? base-dir)))) #:condition (bind-context-vars
(base-dir)
(negate (cond:directory? base-dir))))
(task "Create test file from string content" (task "Create test file from string content"
(bind-context-vars (bind-context-vars
(base-dir) (base-dir)
(action:install-file (file-name-join* base-dir "foo") #:content "Hello, world!\n" #:mode #o600)) (action:install-file (file-name-join* base-dir "foo")
#:content "Hello, world!\n"
#:mode #o600))
#:register 'foo) #:register 'foo)
(task "Get file status" (task "Get file status"
(bind-context-vars (foo) (action:stat foo)) (bind-context-vars
(foo)
(action:stat foo))
#:register 'stat-out #:register 'stat-out
#:triggers '(display-stat))) #:triggers '(display-stat)))
#:handlers `((display-stat . ,(handler "Display stat" #:handlers `((display-stat . ,(handler "Display stat"
(bind-context-vars (foo stat-out) (lambda _ (pk foo stat-out)))))))) (bind-context-vars
(foo stat-out)
(lambda _ (pk foo stat-out))))))))
(run-play test-play) (run-play test-play)