commit af9c4aed737831d18d556d43f6d5859fd3cc7a12 · ryan.freumh.org/nixos

+108 -108

home/emacs/config/email.el

···

       10
        
       (let ((full-name "Ryan Gibb")

     

       11
        
             (signature "Ryan Gibb"))

     

       12
        
         (setq mu4e-contexts

     

       13
       -
       	`(,

     

       14
       -
       	  (let ((mail-address "ryan@freumh.org")

     

       15
       -
       		(dir-name (concat "/ryan@freumh.org")))

     

       16
       -
       	    (make-mu4e-context

     

       17
       -
       	     :name (concat "1 " mail-address)

     

       18
       -
       	     :match-func

     

       19
       -
       	     `(lambda (msg)

     

       20
       -
       		(when msg

     

       21
       -
       		  (string-match-p

     

       22
       -
       		   ,(concat "^" dir-name)

     

       23
       -
       		   (mu4e-message-field msg :maildir))))

     

       24
       -
       	     :vars

     

       25
       -
       	     `((user-mail-address    . ,mail-address)

     

       26
       -
       	       (user-full-name       . ,full-name)

     

       27
       -
       	       (mu4e-sent-folder     . ,(concat dir-name "/Sent"))

     

       28
       -
       	       (mu4e-drafts-folder   . ,(concat dir-name "/Drafts"))

     

       29
       -
       	       (mu4e-trash-folder    . ,(concat dir-name "/Trash"))

     

       30
       -
       	       (mu4e-refile-folder   . ,(concat dir-name "/Archive"))

     

       31
       -
       	       (mu4e-compose-signature . ,signature)

     

       32
       -
       	       (mu4e-maildir-shortcuts .

     

       33
       -
       				       ,'((:maildir "/ryan@freumh.org/Inbox"   :key ?i)

     

       34
       -
       					  (:maildir "/ryan@freumh.org/Sent"    :key ?s)

     

       35
       -
       					  (:maildir "/ryan@freumh.org/Drafts"  :key ?d)

     

       36
       -
       					  (:maildir "/ryan@freumh.org/Archive" :key ?a)

     

       37
       -
       					  (:maildir "/ryan@freumh.org/Trash"   :key ?t)))

     

       38
       -
       	       )))

     

       39
       -
       	  ,(let ((mail-address "ryangibb321@gmail.com")

     

       40
       -
       		(dir-name (concat "/ryangibb321@gmail.com")))

     

       41
       -
       	    (make-mu4e-context

     

       42
       -
       	     :name (concat "2 " mail-address)

     

       43
       -
       	     :match-func

     

       44
       -
       	     `(lambda (msg)

     

       45
       -
       		(when msg

     

       46
       -
       		  (string-match-p

     

       47
       -
       		   ,(concat "^" dir-name)

     

       48
       -
       		   (mu4e-message-field msg :maildir))))

     

       49
       -
       	     :vars

     

       50
       -
       	     `((user-mail-address    . ,mail-address)

     

       51
       -
       	       (user-full-name       . ,full-name)

     

       52
       -
       	       (mu4e-sent-folder     . ,(concat dir-name "/[Gmail]/Sent Mail"))

     

       53
       -
       	       (mu4e-drafts-folder   . ,(concat dir-name "/[Gmail]/Drafts"))

     

       54
       -
       	       (mu4e-trash-folder    . ,(concat dir-name "/[Gmail]/Bin"))

     

       55
       -
       	       (mu4e-refile-folder   . ,(concat dir-name "/[Gmail]/All Mail"))

     

       56
       -
       	       (mu4e-compose-signature . ,signature)

     

       57
       -
       	       (mu4e-maildir-shortcuts .

     

       58
       -
       				   ,'((:maildir "/ryangibb321@gmail.com/Inbox"             :key ?i)

     

       59
       -
       					  (:maildir "/ryangibb321@gmail.com/[Gmail]/Sent Mail" :key ?s)

     

       60
       -
       					  (:maildir "/ryangibb321@gmail.com/[Gmail]/Drafts"    :key ?d)

     

       61
       -
       					  (:maildir "/ryangibb321@gmail.com/[Gmail]/All Mail"  :key ?a)

     

       62
       -
       					  (:maildir "/ryangibb321@gmail.com/[Gmail]/Spam"      :key ?x)

     

       63
       -
       					  (:maildir "/ryangibb321@gmail.com/[Gmail]/Bin"       :key ?t)))

     

       64
       -
       	       )))

     

       65
       -
       	  ,(let ((mail-address "ryan.gibb@cl.cam.ac.uk")

     

       66
       -
       		(dir-name (concat "/ryan.gibb@cl.cam.ac.uk")))

     

       67
       -
       	    (make-mu4e-context

     

       68
       -
       	     :name (concat "3 " mail-address)

     

       69
       -
       	     :match-func

     

       70
       -
       	     `(lambda (msg)

     

       71
       -
       		(when msg

     

       72
       -
       		  (string-match-p

     

       73
       -
       		   ,(concat "^" dir-name)

     

       74
       -
       		   (mu4e-message-field msg :maildir))))

     

       75
       -
       	     :vars

     

       76
       -
       	     `((user-mail-address    . ,mail-address)

     

       77
       -
       	       (user-full-name       . ,full-name)

     

       78
       -
       	       (mu4e-sent-folder     . ,(concat dir-name "/Sent"))

     

       79
       -
       	       (mu4e-drafts-folder   . ,(concat dir-name "/Drafts"))

     

       80
       -
       	       (mu4e-trash-folder    . ,(concat dir-name "/Trash"))

     

       81
       -
       	       (mu4e-refile-folder   . ,(concat dir-name "/Archive"))

     

       82
       -
       	       (mu4e-compose-signature . ,signature)

     

       83
       -
       	       (mu4e-maildir-shortcuts .

     

       84
       -
       				   ,'((:maildir "/ryan.gibb@cl.cam.ac.uk/Inbox"     :key ?i)

     

       85
       -
       					  (:maildir "/ryan.gibb@cl.cam.ac.uk/Sent"      :key ?s)

     

       86
       -
       					  (:maildir "/ryan.gibb@cl.cam.ac.uk/Drafts"    :key ?d)

     

       87
       -
       					  (:maildir "/ryan.gibb@cl.cam.ac.uk/Archive"   :key ?a)

     

       88
       -
       					  (:maildir "/ryan.gibb@cl.cam.ac.uk/Spam"      :key ?x)

     

       89
       -
       					  (:maildir "/ryan.gibb@cl.cam.ac.uk/Trash"     :key ?t)))

     

       90
       -
       	       )))

     

       91
       -
       	  ,(let ((mail-address "misc@freumh.org")

     

       92
       -
       		(dir-name (concat "/misc@freumh.org")))

     

       93
       -
       	    (make-mu4e-context

     

       94
       -
       	     :name (concat "4 " mail-address)

     

       95
       -
       	     :match-func

     

       96
       -
       	     `(lambda (msg)

     

       97
       -
       		(when msg

     

       98
       -
       		  (string-match-p

     

       99
       -
       		   ,(concat "^" dir-name)

     

       100
       -
       		   (mu4e-message-field msg :maildir))))

     

       101
       -
       	     :vars

     

       102
       -
       	     `((user-mail-address    . ,mail-address)

     

       103
       -
       	       (user-full-name       . ,full-name)

     

       104
       -
       	       (mu4e-sent-folder     . ,(concat dir-name "/Sent"))

     

       105
       -
       	       (mu4e-drafts-folder   . ,(concat dir-name "/Drafts"))

     

       106
       -
       	       (mu4e-trash-folder    . ,(concat dir-name "/Trash"))

     

       107
       -
       	       (mu4e-refile-folder   . ,(concat dir-name "/Archive"))

     

       108
       -
       	       (mu4e-compose-signature . ,signature)

     

       109
       -
       	       (mu4e-maildir-shortcuts .

     

       110
        
                          ,'((:maildir "/misc@freumh.org/Inbox"   :key ?i)

     

       111
       -
       					  (:maildir "/misc@freumh.org/Sent"    :key ?s)

     

       112
       -
       					  (:maildir "/misc@freumh.org/Drafts"  :key ?d)

     

       113
       -
       					  (:maildir "/misc@freumh.org/Archive" :key ?a)

     

       114
       -
       					  (:maildir "/misc@freumh.org/Trash"   :key ?t)))

     

       115
       -
       	       )))

     

       116
        
       

     

       117
        
                 )))

     

       118
        
       

     
···

       128
        
       (setq mu4e-bookmarks

     

       129
        
             '((:name "Unified Inbox"

     

       130
        
                      :query "maildir:/ryan@freumh.org/Inbox OR maildir:/ryangibb321@gmail.com/Inbox OR maildir:/ryan.gibb@cl.cam.ac.uk/Inbox"

     

       131
       -
       	       :favorite t

     

       132
        
                      :key ?i)

     

       133
        
               (:name "Unread messages"

     

       134
        
                      :query "flag:unread AND NOT flag:trashed AND NOT maildir:\"/ryangibb321@gmail.com/[Gmail]/All Mail\""

     
···

       146
        
       

     

       147
        
       (setq mu4e-headers-fields

     

       148
        
             '((:maildir . 40)

     

       149
       -
       	(:human-date . 12)

     

       150
       -
       	(:flags . 6)

     

       151
       -
       	(:mailing-list . 10)

     

       152
       -
       	(:from-or-to . 22)

     

       153
       -
       	(:thread-subject . nil)))

     

       154
        
       

     

       155
        
       (setq mu4e-search-show-threads nil)

     

       156

···

       10
        
       (let ((full-name "Ryan Gibb")

     

       11
        
             (signature "Ryan Gibb"))

     

       12
        
         (setq mu4e-contexts

     

       13
       +
           `(,

     

       14
       +
             (let ((mail-address "ryan@freumh.org")

     

       15
       +
               (dir-name (concat "/ryan@freumh.org")))

     

       16
       +
               (make-mu4e-context

     

       17
       +
                :name (concat "1 " mail-address)

     

       18
       +
                :match-func

     

       19
       +
                `(lambda (msg)

     

       20
       +
               (when msg

     

       21
       +
                 (string-match-p

     

       22
       +
                  ,(concat "^" dir-name)

     

       23
       +
                  (mu4e-message-field msg :maildir))))

     

       24
       +
                :vars

     

       25
       +
                `((user-mail-address    . ,mail-address)

     

       26
       +
                  (user-full-name       . ,full-name)

     

       27
       +
                  (mu4e-sent-folder     . ,(concat dir-name "/Sent"))

     

       28
       +
                  (mu4e-drafts-folder   . ,(concat dir-name "/Drafts"))

     

       29
       +
                  (mu4e-trash-folder    . ,(concat dir-name "/Trash"))

     

       30
       +
                  (mu4e-refile-folder   . ,(concat dir-name "/Archive"))

     

       31
       +
                  (mu4e-compose-signature . ,signature)

     

       32
       +
                  (mu4e-maildir-shortcuts .

     

       33
       +
                          ,'((:maildir "/ryan@freumh.org/Inbox"   :key ?i)

     

       34
       +
                             (:maildir "/ryan@freumh.org/Sent"    :key ?s)

     

       35
       +
                             (:maildir "/ryan@freumh.org/Drafts"  :key ?d)

     

       36
       +
                             (:maildir "/ryan@freumh.org/Archive" :key ?a)

     

       37
       +
                             (:maildir "/ryan@freumh.org/Trash"   :key ?t)))

     

       38
       +
                  )))

     

       39
       +
             ,(let ((mail-address "ryangibb321@gmail.com")

     

       40
       +
               (dir-name (concat "/ryangibb321@gmail.com")))

     

       41
       +
               (make-mu4e-context

     

       42
       +
                :name (concat "2 " mail-address)

     

       43
       +
                :match-func

     

       44
       +
                `(lambda (msg)

     

       45
       +
               (when msg

     

       46
       +
                 (string-match-p

     

       47
       +
                  ,(concat "^" dir-name)

     

       48
       +
                  (mu4e-message-field msg :maildir))))

     

       49
       +
                :vars

     

       50
       +
                `((user-mail-address    . ,mail-address)

     

       51
       +
                  (user-full-name       . ,full-name)

     

       52
       +
                  (mu4e-sent-folder     . ,(concat dir-name "/[Gmail]/Sent Mail"))

     

       53
       +
                  (mu4e-drafts-folder   . ,(concat dir-name "/[Gmail]/Drafts"))

     

       54
       +
                  (mu4e-trash-folder    . ,(concat dir-name "/[Gmail]/Bin"))

     

       55
       +
                  (mu4e-refile-folder   . ,(concat dir-name "/[Gmail]/All Mail"))

     

       56
       +
                  (mu4e-compose-signature . ,signature)

     

       57
       +
                  (mu4e-maildir-shortcuts .

     

       58
       +
                          ,'((:maildir "/ryangibb321@gmail.com/Inbox"             :key ?i)

     

       59
       +
                             (:maildir "/ryangibb321@gmail.com/[Gmail]/Sent Mail" :key ?s)

     

       60
       +
                             (:maildir "/ryangibb321@gmail.com/[Gmail]/Drafts"    :key ?d)

     

       61
       +
                             (:maildir "/ryangibb321@gmail.com/[Gmail]/All Mail"  :key ?a)

     

       62
       +
                             (:maildir "/ryangibb321@gmail.com/[Gmail]/Spam"      :key ?x)

     

       63
       +
                             (:maildir "/ryangibb321@gmail.com/[Gmail]/Bin"       :key ?t)))

     

       64
       +
                  )))

     

       65
       +
             ,(let ((mail-address "ryan.gibb@cl.cam.ac.uk")

     

       66
       +
               (dir-name (concat "/ryan.gibb@cl.cam.ac.uk")))

     

       67
       +
               (make-mu4e-context

     

       68
       +
                :name (concat "3 " mail-address)

     

       69
       +
                :match-func

     

       70
       +
                `(lambda (msg)

     

       71
       +
               (when msg

     

       72
       +
                 (string-match-p

     

       73
       +
                  ,(concat "^" dir-name)

     

       74
       +
                  (mu4e-message-field msg :maildir))))

     

       75
       +
                :vars

     

       76
       +
                `((user-mail-address    . ,mail-address)

     

       77
       +
                  (user-full-name       . ,full-name)

     

       78
       +
                  (mu4e-sent-folder     . ,(concat dir-name "/Sent"))

     

       79
       +
                  (mu4e-drafts-folder   . ,(concat dir-name "/Drafts"))

     

       80
       +
                  (mu4e-trash-folder    . ,(concat dir-name "/Trash"))

     

       81
       +
                  (mu4e-refile-folder   . ,(concat dir-name "/Archive"))

     

       82
       +
                  (mu4e-compose-signature . ,signature)

     

       83
       +
                  (mu4e-maildir-shortcuts .

     

       84
       +
                          ,'((:maildir "/ryan.gibb@cl.cam.ac.uk/Inbox"     :key ?i)

     

       85
       +
                             (:maildir "/ryan.gibb@cl.cam.ac.uk/Sent"      :key ?s)

     

       86
       +
                             (:maildir "/ryan.gibb@cl.cam.ac.uk/Drafts"    :key ?d)

     

       87
       +
                             (:maildir "/ryan.gibb@cl.cam.ac.uk/Archive"   :key ?a)

     

       88
       +
                             (:maildir "/ryan.gibb@cl.cam.ac.uk/Spam"      :key ?x)

     

       89
       +
                             (:maildir "/ryan.gibb@cl.cam.ac.uk/Trash"     :key ?t)))

     

       90
       +
                  )))

     

       91
       +
             ,(let ((mail-address "misc@freumh.org")

     

       92
       +
               (dir-name (concat "/misc@freumh.org")))

     

       93
       +
               (make-mu4e-context

     

       94
       +
                :name (concat "4 " mail-address)

     

       95
       +
                :match-func

     

       96
       +
                `(lambda (msg)

     

       97
       +
               (when msg

     

       98
       +
                 (string-match-p

     

       99
       +
                  ,(concat "^" dir-name)

     

       100
       +
                  (mu4e-message-field msg :maildir))))

     

       101
       +
                :vars

     

       102
       +
                `((user-mail-address    . ,mail-address)

     

       103
       +
                  (user-full-name       . ,full-name)

     

       104
       +
                  (mu4e-sent-folder     . ,(concat dir-name "/Sent"))

     

       105
       +
                  (mu4e-drafts-folder   . ,(concat dir-name "/Drafts"))

     

       106
       +
                  (mu4e-trash-folder    . ,(concat dir-name "/Trash"))

     

       107
       +
                  (mu4e-refile-folder   . ,(concat dir-name "/Archive"))

     

       108
       +
                  (mu4e-compose-signature . ,signature)

     

       109
       +
                  (mu4e-maildir-shortcuts .

     

       110
        
                          ,'((:maildir "/misc@freumh.org/Inbox"   :key ?i)

     

       111
       +
                             (:maildir "/misc@freumh.org/Sent"    :key ?s)

     

       112
       +
                             (:maildir "/misc@freumh.org/Drafts"  :key ?d)

     

       113
       +
                             (:maildir "/misc@freumh.org/Archive" :key ?a)

     

       114
       +
                             (:maildir "/misc@freumh.org/Trash"   :key ?t)))

     

       115
       +
                  )))

     

       116
        
       

     

       117
        
                 )))

     

       118
        
       

     
···

       128
        
       (setq mu4e-bookmarks

     

       129
        
             '((:name "Unified Inbox"

     

       130
        
                      :query "maildir:/ryan@freumh.org/Inbox OR maildir:/ryangibb321@gmail.com/Inbox OR maildir:/ryan.gibb@cl.cam.ac.uk/Inbox"

     

       131
       +
                  :favorite t

     

       132
        
                      :key ?i)

     

       133
        
               (:name "Unread messages"

     

       134
        
                      :query "flag:unread AND NOT flag:trashed AND NOT maildir:\"/ryangibb321@gmail.com/[Gmail]/All Mail\""

     
···

       146
        
       

     

       147
        
       (setq mu4e-headers-fields

     

       148
        
             '((:maildir . 40)

     

       149
       +
           (:human-date . 12)

     

       150
       +
           (:flags . 6)

     

       151
       +
           (:mailing-list . 10)

     

       152
       +
           (:from-or-to . 22)

     

       153
       +
           (:thread-subject . nil)))

     

       154
        
       

     

       155
        
       (setq mu4e-search-show-threads nil)

     

       156