From c36b17fa7a034f0f653680f1d4a1467b6babe0c5 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 6 Nov 2023 00:28:00 -0800
Subject: Add MSMTP configuration

---
 oni/home/config/rincewind.scm | 39 ++++++++++++++++++++++++++++++++++++---
 1 file changed, 36 insertions(+), 3 deletions(-)

(limited to 'oni')

diff --git a/oni/home/config/rincewind.scm b/oni/home/config/rincewind.scm
index afaaaf1..b026bad 100644
--- a/oni/home/config/rincewind.scm
+++ b/oni/home/config/rincewind.scm
@@ -1,8 +1,13 @@
 (define-module (oni home config rincewind)
-  #:use-module ((gnu home services guix)
-                #:select (home-channels-service-type))
   #:use-module ((gnu home)
                 #:select (home-environment))
+  #:use-module ((gnu home services mail)
+                #:select (home-msmtp-service-type
+                          home-msmtp-configuration
+                          msmtp-configuration
+                          msmtp-account))
+  #:use-module ((gnu home services guix)
+                #:select (home-channels-service-type))
   #:use-module ((gnu packages certs)
                 #:select (nss-certs))
   #:use-module ((gnu packages cdrom)
@@ -487,4 +492,32 @@
                            ".mbsyncstate.journal" ".mbsyncstate.new"))))
 
    (service home-autokey-service-type)
-   (service home-copyq-service-type))))
+   (service home-copyq-service-type)
+
+   (service home-msmtp-service-type
+            (home-msmtp-configuration
+             (defaults (msmtp-configuration
+                        (auth? #t)
+                        (tls? #t)
+                        (tls-starttls? #t)
+                        (port 587)))
+             (accounts
+              (list (msmtp-account
+                     (name "gmail")
+                     ;; Use `secret-tool store --label=msmtp host smtp.gmail.com
+                     ;; service smtp user ryuslash@gmail.com' to store the
+                     ;; password.
+                     (configuration (msmtp-configuration
+                                     (host "smtp.gmail.com")
+                                     (from "ryuslash@gmail.com")
+                                     (user "ryuslash@gmail.com"))))
+                    (msmtp-account
+                     (name "ryuslash")
+                     ;; Use `secret-tool store --label=msmtp host
+                     ;; smtp-ryuslash.alwaysdata.net service smtp user
+                     ;; tom@ryuslash.org' to store the password.
+                     (configuration (msmtp-configuration
+                                     (host "smtp-ryuslash.alwaysdata.net")
+                                     (from "tom@ryuslash.org")
+                                     (user "tom@ryuslash.org"))))))
+             (default-account "ryuslash"))))))
-- 
cgit v1.2.3-54-g00ecf