From 2128219439999913a116b9620755bb3284a32469 Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Fri, 26 Jul 2024 19:00:47 +0200
Subject: Setup Nuremberg Toastmasters emails

---
 bin/tagmail                |  3 ++-
 config/doom/config.org     |  1 +
 install.scm                | 15 ++++++++-------
 mail/dot-mbsyncrc.personal | 31 +++++++++++++++++++++++++++++++
 4 files changed, 42 insertions(+), 8 deletions(-)

diff --git a/bin/tagmail b/bin/tagmail
index 95553b7..2ea69aa 100755
--- a/bin/tagmail
+++ b/bin/tagmail
@@ -168,7 +168,8 @@ LD_LIBRARY_PATH=$HOME/.guix-profile/lib exec guile -e main -s "$0" "$@"
       ("+arsmagna +inbox" "to:arsmagna.xyz")
 
       ;; Toastmasters
-      ("+NBG-toastmasters" "to:nuremberg.toastmasters@googlemail.com OR to:nuremberg.toastmasters@gmail.com")
+      ("+NBG-toastmasters" "folder:/nbgtm/")
+      ("+sent" "folder:\"/Google Mail]/Sent Mail/\"")
       ("+Isar-Speak" "to:isarspeak@gmail.com")
       ("+toastmasters" "toastmaster NOT from:info@meetup.com NOT from:linkedin.com" )
 
diff --git a/config/doom/config.org b/config/doom/config.org
index 5569a8c..d900f63 100644
--- a/config/doom/config.org
+++ b/config/doom/config.org
@@ -478,6 +478,7 @@ this new window.
                (string-split "@")))
             (smtp-servers '("oscarnajera.com" "mail.oscarnajera.com"
                             "gmail.com" "smtp.googlemail.com"
+                            "googlemail.com" "smtp.googlemail.com"
                             "byteplant.com" "smtp.byteplant.com"))
             ((&plist :host :user :port :secret)
              (car
diff --git a/install.scm b/install.scm
index acabf6e..68c1533 100755
--- a/install.scm
+++ b/install.scm
@@ -20,17 +20,16 @@
     ((_ value (f ...) rest ...) (->> (f ... value) rest ...))
     ((_ value f rest ...) (->> (f value) rest ...))))
 
-(define (ansi-color-log-formatter lvl time str)
+(define* (ansi-color-log-formatter lvl time str #:key proc-name #:allow-other-keys)
   (let ((color (case lvl
                  ((CRITICAL) 'RED)
                  ((WARN) 'YELLOW)
                  ((OK) 'GREEN))))
-    (string-append
-     (strftime "%F %H:%M:%S" (localtime time))
-     (colorize-string
-      (string-append " (" (symbol->string lvl) "): ") color 'BOLD)
-     str "\n")))
-
+    (format #f "~a ~a: ~a ~@[(proc: ~a)~]~%"
+            (strftime "%F %H:%M:%S" (localtime time))
+            (colorize-string (symbol->string lvl) color 'BOLD)
+            str
+            proc-name)))
 
 (define (setup-logging)
   (let ((lgr (make <logger>))
@@ -187,6 +186,8 @@
            "hello@oscarnajera.com"
            "najera.oscar@gmail.com"
            "oscar@byteplant.com"
+           "nuremberg.toastmasters@googlemail.com"
+           "nuremberg.toastmasters@gmail.com"
            ))
          (user-mail
           (if (string=? (gethostname) "obp")
diff --git a/mail/dot-mbsyncrc.personal b/mail/dot-mbsyncrc.personal
index 527cd52..dce4bea 100644
--- a/mail/dot-mbsyncrc.personal
+++ b/mail/dot-mbsyncrc.personal
@@ -166,6 +166,37 @@ Create Both
 SyncState *
 Expunge Both
 
+###############################################################################
+# GMAIL for Nuremberg Toastmasters
+
+IMAPAccount nbgtm
+# Address to connect to
+Host imap.gmail.com
+User nuremberg.toastmasters@googlemail.com
+PassCmd "pass show orgs/NBG-TM/smtp.googlemail.com"
+AuthMechs LOGIN
+# Use SSL
+SSLType IMAPS
+# The following line should work. If get certificate errors, uncomment the two following lines and read the "Troubleshooting" section.
+CertificateFile /etc/ssl/certs/ca-certificates.crt
+
+IMAPStore nbgtm-remote
+Account nbgtm
+
+MaildirStore nbgtm-local
+# The trailing "/" is important
+Path ~/.mail/nbgtm/
+Inbox ~/.mail/nbgtm/Inbox
+SubFolders Verbatim
+
+Channel nbgtm
+Far :nbgtm-remote:
+Near :nbgtm-local:
+Patterns "INBOX" "[Google Mail]/Sent Mail"
+Create Both
+Expunge Both
+SyncState *
+
 # Local Variables:
 # mode: conf-unix
 # End:
-- 
cgit v1.2.3