From 368fc7069c0e6b2ed3b27c37a98f9d6f8c32d2f9 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Mon, 30 Nov 2020 20:03:58 -0300
Subject: vps.scm: Add #[f % b c] reader

---
 sync/vps.scm | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

(limited to 'sync/vps.scm')

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
-- 
cgit v1.2.3