[Emacs] Replace linguistics mu4e bookmark with internship
I haven’t been a subscriber of some linguistics-related mailinglists for quite some time since I began reading them through Gnus, so that bookmark is now useless. However, I will very soon begin my internship, so I need a bookmark for it.
This commit is contained in:
parent
edb534baa1
commit
c9c8832054
GPG Key ID:
BD7789E705CB8DCA
@ -1864,7 +1864,7 @@ simple inbox, outbox and all. Actually, four of my bookmarks have a
|
||||
couple of filtering:
|
||||
- anything in my inbox linked to my university
|
||||
- the [[https://emacs-doctor.com/lists/listinfo][emacs-doctor mailing list]] (French Emacs mailing list)
|
||||
- the conlang mailing lists
|
||||
- emails related to my internship
|
||||
- and my inbox for any mail not caught by any of these filters
|
||||
And all of them will have the requirement not to display any trashed
|
||||
email. Actually, all of my bookmarks will have this requirement,
|
||||
@ -1962,20 +1962,18 @@ more general development topics, including issues and PRs from Github.
|
||||
#+RESULTS[673f76e7a682ed64f98dbe6d4a06810436ba6799]: mu4e-bookmarks-filter-github-list
|
||||
: list:/.*\.github\.com/ OR t:/.*\.github\.com/ OR f:/.*\.github\.com/ OR contact:/.*\.github\.com/ OR list:/.*\.gitlab\.com/ OR t:/.*\.gitlab\.com/ OR f:/.*\.gitlab\.com/ OR contact:/.*\.gitlab\.com/ OR list:stumpwm-devel@nongnu.org OR t:stumpwm-devel@nongnu.org OR f:stumpwm-devel@nongnu.org OR contact:stumpwm-devel@nongnu.org OR list:/.*sr\.ht/ OR t:/.*sr\.ht/ OR f:/.*sr\.ht/ OR contact:/.*sr\.ht/ AND NOT ( list:/ateliers.*emacs.*/ OR t:/ateliers.*emacs.*/ OR f:/ateliers.*emacs.*/ OR contact:/ateliers.*emacs.*/ OR list:/emacs-.*@gnu.org/ OR t:/emacs-.*@gnu.org/ OR f:/emacs-.*@gnu.org/ OR contact:/emacs-.*@gnu.org/ OR list:/.*eshell-info-banner.*/ OR t:/.*eshell-info-banner.*/ OR f:/.*eshell-info-banner.*/ OR contact:/.*eshell-info-banner.*/ OR list:/.*emacsfr.*/ OR t:/.*emacsfr.*/ OR f:/.*emacsfr.*/ OR contact:/.*emacsfr.*/ )
|
||||
|
||||
When it comes to the conlang mailing list, let’s not match anything
|
||||
from or to them. I’ll also include the auxlang mailing list –I’m not
|
||||
subscribed anymore, but it’ll keep my inbox clean.
|
||||
#+name: mu4e-conlanging-mailing-lists
|
||||
- ~/.*LANG@LISTSERV.BROWN.EDU/~
|
||||
When it comes to my internship, all emails will contain an address containing ~aubay.com~ (that’s where my internship takes place).
|
||||
- ~/.*aubay.com/~
|
||||
|
||||
#+name: mu4e-bookmarks-filter-conlang-list
|
||||
#+name: mu4e-bookmarks-filter-aubay
|
||||
#+header: :tangle no :cache yes
|
||||
#+begin_src emacs-lisp
|
||||
"<<mu4e-bookmarks-mailing-lists(lists=mu4e-conlanging-mailing-lists)>>"
|
||||
(let ((regex "/.*aubay\\.com/"))
|
||||
<<mu4e-bookmarks-from-copy-to-gen>>)
|
||||
#+end_src
|
||||
|
||||
#+RESULTS[4be7eb7c9f0b85ceb1cbd30aa87b5f1d9612d849]: mu4e-bookmarks-filter-conlang-list
|
||||
: list:/.*LANG@LISTSERV.BROWN.EDU/ OR t:/.*LANG@LISTSERV.BROWN.EDU/ OR f:/.*LANG@LISTSERV.BROWN.EDU/ OR contact:/.*LANG@LISTSERV.BROWN.EDU/
|
||||
#+RESULTS[06105e10cf2addb8e11360ff2629023fad946ddf]: mu4e-bookmarks-filter-aubay
|
||||
: f:/.*aubay\.com/ OR c:/.*aubay\.com/ OR t:/.*aubay\.com/
|
||||
|
||||
As I said earlier, something that will often come back in my bookmarks
|
||||
is the emails must not be trashed to appear. I want also to display
|
||||
@ -2001,7 +1999,7 @@ And for the last string-generating code, let’s describe my main inbox:
|
||||
(mapconcat #'identity
|
||||
(cons "<<mu4e-bookmarks-default-filter()>>"
|
||||
`(,(format "(%s)"
|
||||
<<mu4e-bookmarks-filter-conlang-list>>)
|
||||
<<mu4e-bookmarks-filter-aubay>>)
|
||||
,(format "(%s)" "<<mu4e-bookmarks-filter-asso()>>")
|
||||
,(format "(%s)"
|
||||
<<mu4e-bookmarks-filter-emacs-list>>)
|
||||
@ -2012,8 +2010,8 @@ And for the last string-generating code, let’s describe my main inbox:
|
||||
" AND NOT ")
|
||||
#+end_src
|
||||
|
||||
#+RESULTS[78b388eafb2fdb1c0a8140cc0566c2de227439de]: mu4e-bookmarks-inbox-filters
|
||||
: NOT flag:trashed AND (maildir:/Inbox OR maildir:/Junk) AND NOT (list:/.*LANG@LISTSERV.BROWN.EDU/ OR t:/.*LANG@LISTSERV.BROWN.EDU/ OR f:/.*LANG@LISTSERV.BROWN.EDU/ OR contact:/.*LANG@LISTSERV.BROWN.EDU/) AND NOT (f:/.*supran.fr/ OR c:/.*supran.fr/ OR t:/.*supran.fr/) AND NOT (list:/ateliers.*emacs.*/ OR t:/ateliers.*emacs.*/ OR f:/ateliers.*emacs.*/ OR contact:/ateliers.*emacs.*/ OR list:/emacs-.*@gnu.org/ OR t:/emacs-.*@gnu.org/ OR f:/emacs-.*@gnu.org/ OR contact:/emacs-.*@gnu.org/ OR list:/.*eshell-info-banner.*/ OR t:/.*eshell-info-banner.*/ OR f:/.*eshell-info-banner.*/ OR contact:/.*eshell-info-banner.*/ OR list:/.*emacsfr.*/ OR t:/.*emacsfr.*/ OR f:/.*emacsfr.*/ OR contact:/.*emacsfr.*/) AND NOT (list:/.*\.github\.com/ OR t:/.*\.github\.com/ OR f:/.*\.github\.com/ OR contact:/.*\.github\.com/ OR list:/.*\.gitlab\.com/ OR t:/.*\.gitlab\.com/ OR f:/.*\.gitlab\.com/ OR contact:/.*\.gitlab\.com/ OR list:stumpwm-devel@nongnu.org OR t:stumpwm-devel@nongnu.org OR f:stumpwm-devel@nongnu.org OR contact:stumpwm-devel@nongnu.org OR list:/.*sr\.ht/ OR t:/.*sr\.ht/ OR f:/.*sr\.ht/ OR contact:/.*sr\.ht/ AND NOT ( list:/ateliers.*emacs.*/ OR t:/ateliers.*emacs.*/ OR f:/ateliers.*emacs.*/ OR contact:/ateliers.*emacs.*/ OR list:/emacs-.*@gnu.org/ OR t:/emacs-.*@gnu.org/ OR f:/emacs-.*@gnu.org/ OR contact:/emacs-.*@gnu.org/ OR list:/.*eshell-info-banner.*/ OR t:/.*eshell-info-banner.*/ OR f:/.*eshell-info-banner.*/ OR contact:/.*eshell-info-banner.*/ OR list:/.*emacsfr.*/ OR t:/.*emacsfr.*/ OR f:/.*emacsfr.*/ OR contact:/.*emacsfr.*/ )) AND NOT (f:/.*up8\.edu|.*univ-paris8.*/ OR c:/.*up8\.edu|.*univ-paris8.*/ OR t:/.*up8\.edu|.*univ-paris8.*/)
|
||||
#+RESULTS[94290b02a0da24cffeba43e1d47395e801bc0158]: mu4e-bookmarks-inbox-filters
|
||||
: NOT flag:trashed AND (maildir:/Inbox OR maildir:/Junk) AND NOT (f:/.*aubay\.com/ OR c:/.*aubay\.com/ OR t:/.*aubay\.com/) AND NOT (f:/.*supran.fr/ OR c:/.*supran.fr/ OR t:/.*supran.fr/) AND NOT (list:/ateliers.*emacs.*/ OR t:/ateliers.*emacs.*/ OR f:/ateliers.*emacs.*/ OR contact:/ateliers.*emacs.*/ OR list:/emacs-.*@gnu.org/ OR t:/emacs-.*@gnu.org/ OR f:/emacs-.*@gnu.org/ OR contact:/emacs-.*@gnu.org/ OR list:/.*eshell-info-banner.*/ OR t:/.*eshell-info-banner.*/ OR f:/.*eshell-info-banner.*/ OR contact:/.*eshell-info-banner.*/ OR list:/.*emacsfr.*/ OR t:/.*emacsfr.*/ OR f:/.*emacsfr.*/ OR contact:/.*emacsfr.*/) AND NOT (list:/.*\.github\.com/ OR t:/.*\.github\.com/ OR f:/.*\.github\.com/ OR contact:/.*\.github\.com/ OR list:/.*\.gitlab\.com/ OR t:/.*\.gitlab\.com/ OR f:/.*\.gitlab\.com/ OR contact:/.*\.gitlab\.com/ OR list:stumpwm-devel@nongnu.org OR t:stumpwm-devel@nongnu.org OR f:stumpwm-devel@nongnu.org OR contact:stumpwm-devel@nongnu.org OR list:/.*sr\.ht/ OR t:/.*sr\.ht/ OR f:/.*sr\.ht/ OR contact:/.*sr\.ht/ AND NOT ( list:/ateliers.*emacs.*/ OR t:/ateliers.*emacs.*/ OR f:/ateliers.*emacs.*/ OR contact:/ateliers.*emacs.*/ OR list:/emacs-.*@gnu.org/ OR t:/emacs-.*@gnu.org/ OR f:/emacs-.*@gnu.org/ OR contact:/emacs-.*@gnu.org/ OR list:/.*eshell-info-banner.*/ OR t:/.*eshell-info-banner.*/ OR f:/.*eshell-info-banner.*/ OR contact:/.*eshell-info-banner.*/ OR list:/.*emacsfr.*/ OR t:/.*emacsfr.*/ OR f:/.*emacsfr.*/ OR contact:/.*emacsfr.*/ )) AND NOT (f:/.*up8\.edu|.*univ-paris8.*/ OR c:/.*up8\.edu|.*univ-paris8.*/ OR t:/.*up8\.edu|.*univ-paris8.*/ OR maildir:/Univ/Inbox OR maildir:/Univ/Junk)
|
||||
|
||||
We can finally define our bookmarks! The code reads as follows:
|
||||
#+name: mu4e-bookmarks
|
||||
@ -2023,6 +2021,11 @@ We can finally define our bookmarks! The code reads as follows:
|
||||
:key ?i
|
||||
:query ,(format "%s"
|
||||
<<mu4e-bookmarks-inbox-filters>>))
|
||||
(:name "Internship"
|
||||
:key ?a
|
||||
:query ,(format "(%s) AND (%s)"
|
||||
"<<mu4e-bookmarks-default-filter()>>"
|
||||
<<mu4e-bookmarks-filter-aubay>>))
|
||||
(:name "University"
|
||||
:key ?u
|
||||
:query ,(format "%s AND %s"
|
||||
@ -2038,11 +2041,6 @@ We can finally define our bookmarks! The code reads as follows:
|
||||
:query ,(format "%s AND %s"
|
||||
"<<mu4e-bookmarks-default-filter()>>"
|
||||
<<mu4e-bookmarks-filter-emacs-list>>))
|
||||
(:name "Linguistics"
|
||||
:key ?l
|
||||
:query ,(format "(%s) AND (%s)"
|
||||
"<<mu4e-bookmarks-default-filter()>>"
|
||||
<<mu4e-bookmarks-filter-conlang-list>>))
|
||||
(:name "Supran"
|
||||
:key ?s
|
||||
:query ,(format "%s AND %s"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user