diff options
Diffstat (limited to 'install.scm')
| -rwxr-xr-x | install.scm | 45 |
1 files changed, 44 insertions, 1 deletions
diff --git a/install.scm b/install.scm index 46ee7a2..f56a591 100755 --- a/install.scm +++ b/install.scm @@ -156,6 +156,49 @@ (log-msg 'INFO " Symlink Tribe29 config") (config-links "git/tribe29" "~/git/.gitconfig" #f)) +(define (format-config-entry item) + (format #t "[~a]~%" (car item)) + (format #t "~:{~a=~@{~a~^;~}~%~}~%" (cdr item))) + +(define (mail-config) + (log-msg 'INFO "Configuring mail") + (log-msg 'INFO " Symlink mbsync") + (config-links (if (string=? (gethostname) "klappbier") + "mail/dot-mbsyncrc.work" + "mail/dot-mbsyncrc.personal") + "~/.mbsyncrc" #f) + (let* ((notmuch-config-file (expand-file "~/.notmuch-config")) + (emails + (list + "hi@oscarnajera.com" + "hello@oscarnajera.com" + "najera.oscar@gmail.com" + "oscar.najera-ocampo@u-psud.fr" + ;; Employer related + "oscar.najera@tribe29.com" + "on@mathias-kettner.de")) + (user-mail + (if (string=? (gethostname) "klappbier") + "oscar.najera@tribe29.com" + "hi@oscarnajera.com")) + ;; setting up notmuch config + (config + `((database (path ".mail")) + (user (name "Oscar Najera") + (primary_email ,user-mail) + ,(cons 'other_email (delete user-mail emails))) + (new (tags new) + (ignore .uidvalidity .mbsyncstate .directory)) + (search (exclude_tags deleted spam)) + (maildir (synchronize_flags true)) + (crypto (gpg_path gpg))))) + (clean-file notmuch-config-file #f) + (with-output-to-file notmuch-config-file + (lambda () + (display "# -*- mode: conf-unix -*-\n# managed by dotfiles install\n") + (for-each format-config-entry config))) + (chmod notmuch-config-file #o400))) + (define (main args) (setup-logging) (log-msg 'INFO "Symlink PIM") @@ -167,6 +210,6 @@ (config-links "gnupu/gpg-agent.conf" "~/.gnupg/gpg-agent" #f) (symlink-tree "bin" "~/.local/bin") (symlink-tree "config" "~/.config") - (symlink-tree "mail" "~/") + (mail-config) (shutdown-logging)) |