aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xbin/tagmail3
-rw-r--r--config/doom/config.org1
-rwxr-xr-xinstall.scm15
-rw-r--r--mail/dot-mbsyncrc.personal31
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: