From d8e167c9b044cb3ae2b7afdffdc86be21c1a2fb8 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Wed, 21 Aug 2024 14:24:32 -0300 Subject: src/config/offsite-ssh.txt: Derive from Makefile and include in /etc/ --- src/guix/system.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'src/guix/system.scm') diff --git a/src/guix/system.scm b/src/guix/system.scm index f6e2948..bad1348 100644 --- a/src/guix/system.scm +++ b/src/guix/system.scm @@ -45,6 +45,10 @@ ((compose pkg:slurp path) "src/config/known-hosts.txt")) +(define +offsite-ssh+ + ((compose pkg:slurp path) + "src/config/offsite-ssh.txt")) + (define +cert.pem+ (pkg:str "/etc/letsencrypt/live/" +tld+ "/cert.pem")) (define +privkey.pem+ (pkg:str "/etc/letsencrypt/live/" +tld+ "/privkey.pem")) @@ -116,8 +120,9 @@ (service q:cyrus-sasl-service-type) (service q:dovecot-service-type) (service q:internet-postfix-service-type) - (simple-service 'known-hosts-etc-file etc-service-type - `(("known_hosts" ,(plain-file "known-hosts.txt" +known-hosts+)))) + (simple-service 'host-specific-etc-file etc-service-type + `(("known_hosts" ,(plain-file "known-hosts.txt" +known-hosts+)) + ("offsite-ssh.txt" ,(plain-file "offsite-ssh.txt" +offsite-ssh+)))) (service mail-aliases-service-type `(("root" "andre") ("support" ,@(map s1:first +users+))))) -- cgit v1.2.3