diff options
| -rwxr-xr-x | bin/tagmail | 3 | ||||
| -rw-r--r-- | config/doom/config.org | 1 | ||||
| -rwxr-xr-x | install.scm | 15 | ||||
| -rw-r--r-- | 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: |