newedge/liminix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pass service to output fn in output-template

Browse Source 
instead of on command line
This commit is contained in:
Daniel Barlow
2024-08-12 22:53:07 +01:00
parent 3c353e4aff
commit ff3a1905a5
12 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
pkgs/output-template/output-template.fnl
View File

@@ -20,11 +20,14 @@
(fn [x] (string.format "\\u%04X" (string.byte x))))))
(fn substitute [text service opening closing]
(fn substitute [text opening closing]
(let [delim (.. opening "(.-)" closing)
myenv {
: string
:secret (fn [x] (service:output x))
:output
(fn [service-path path]
(let [s (assert (svc.open (.. service-path "/.outputs")))]
(s:output path)))
:lua_quote #(string.format "%q" %1)
:json_quote (fn [x] (.. "\"" (json-escape x) "\""))
}]
@@ -34,10 +37,8 @@
(string.format "missing value for %q" x))))))
(fn run []
(let [[service-dir opening closing] arg
service (assert (svc.open service-dir))
out (substitute (: (io.input) :read "*a") service opening closing)]
(let [[opening closing] arg
out (substitute (: (io.input) :read "*a") opening closing)]
(io.write out)))
{ : run }