diff options
| author | EuAndreh <eu@euandre.org> | 2020-11-30 20:03:58 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2020-11-30 20:03:58 -0300 |
| commit | 368fc7069c0e6b2ed3b27c37a98f9d6f8c32d2f9 (patch) | |
| tree | f753d335500ae237d790d42e66c2983063336ce2 /sync/vps.scm | |
| parent | vps.scm: Use #; over ; comments (diff) | |
| download | server-368fc7069c0e6b2ed3b27c37a98f9d6f8c32d2f9.tar.gz server-368fc7069c0e6b2ed3b27c37a98f9d6f8c32d2f9.tar.xz | |
vps.scm: Add #[f % b c] reader
Diffstat (limited to '')
| -rw-r--r-- | sync/vps.scm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/sync/vps.scm b/sync/vps.scm index b850a39..8a4aa71 100644 --- a/sync/vps.scm +++ b/sync/vps.scm @@ -101,6 +101,19 @@ (read-hash-extend #\> heredoc-reader) +(define (read-delimited-list char port) + (let ((sexp-string (string-append + "(" + (rdelim:read-delimited (string char) port) + ")"))) + (call-with-input-string sexp-string read))) + +(define (lambda-shorthand-reader _char port) + `(lambda (%) + ,(read-delimited-list #\] port))) + +(read-hash-extend #\[ lambda-shorthand-reader) + (define-macro (-> x . sexps) (srfi-1:fold (lambda (el acc) @@ -272,8 +285,7 @@ pki " mail-domain " key \"" (tls-priv-for mail-domain) "\""))) (define tls-domains (cons tld - (map (lambda (prefix) - (string-append prefix "." tld)) + (map #[string-append % "." tld] tls-prefixes))) (define generate-logs-html-job |