From 46caf1f91c6beed687205ee7f20e9fbcdb4e94e5 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Thu, 26 Sep 2024 13:01:54 -0300
Subject: system.scm: Add "contact" and "info" email aliases

---
 src/guix/system.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/guix/system.scm b/src/guix/system.scm
index 5dfef4b..e2619bd 100644
--- a/src/guix/system.scm
+++ b/src/guix/system.scm
@@ -33,6 +33,8 @@
 (define +users+
   `(("andre"  "EuAndreh" ("wheel" "become-secrets-keeper") ,(path "src/keys/SSH/andre.pub.txt"))))
 
+(define +alias-emails+ (map s1:first +users+))
+
 (define file (compose string-trim-right pkg:slurp path))
 
 (define +ipv4+        (file "src/config/ipv4.txt"))
@@ -150,7 +152,9 @@
           ("offsite-ssh.txt" ,(plain-file "offsite-ssh.txt" +offsite-ssh+))))
       (service mail-aliases-service-type
         `(("root"    "andre")
-          ("support" ,@(map s1:first +users+)))))
+          ("contact" ,+alias-emails+)
+          ("info"    ,+alias-emails+)
+          ("support" ,+alias-emails+))))
      pkg:base-services))
   (bootloader
     (bootloader-configuration
-- 
cgit v1.2.3