diff options
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 |