aboutsummaryrefslogtreecommitdiff
path: root/sync/vps.scm
diff options
context:
space:
mode:
Diffstat (limited to 'sync/vps.scm')
-rw-r--r--sync/vps.scm13
1 files changed, 6 insertions, 7 deletions
diff --git a/sync/vps.scm b/sync/vps.scm
index 96049fc..4cec65b 100644
--- a/sync/vps.scm
+++ b/sync/vps.scm
@@ -6,25 +6,24 @@
(define user "andreh")
(define (slurp f)
- (call-with-input-file f get-string-all))
-
-(define slurp-trim
- (compose string-trim-both slurp))
+ (string-trim-both
+ (call-with-input-file f get-string-all)))
(define ssh-public-key
- (slurp-trim "id_rsa.pub"))
+ (slurp "id_rsa.pub"))
(define sudoers "\
root ALL=(ALL) ALL
%wheel ALL=NOPASSWD: ALL\n")
(define tld
- (slurp-trim "tld.txt"))
+ (slurp "tld.txt"))
(define mail-domain
(string-append "mail." tld))
-(define letsencrypt-prefix "/etc/letsencrypt/live/")
+(define letsencrypt-prefix
+ "/etc/letsencrypt/live/")
(define (tls-pub-for domain)
(string-append letsencrypt-prefix domain "/fullchain.pem"))