ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[notmuch] Add some tags to incoming email

Browse source
This commit is contained in:
Tom Willemse 2022-07-02 00:05:21 -07:00
parent 02a48a7c8a
commit 7c25252663
2 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
notmuch/.config/notmuch/default/hooks/post-new
View file

@ -4,5 +4,6 @@ IFS=" "
exec scsh -e main -s "$0" "$@" exec scsh -e main -s "$0" "$@"
!# !#
(define (main . args) (define (main args)
(run (notmuch-collect-tasks ,(format #f "~a/documents/gtd/inbox.org" (getenv "HOME"))))) (run (notmuch-collect-tasks ,(format #f "~a/documents/gtd/inbox.org" (getenv "HOME"))))
(run (notmuch-tag-mailinglists)))

15
notmuch/usr/bin/notmuch-tag-mailinglists Executable file
View file

@ -0,0 +1,15 @@
#!/usr/bin/env sh
# -*- mode: scheme; -*-
IFS=" "
exec scsh -e main -s "$0" "$@"
!#
(define (main args)
(run (notmuch tag +help-gnu-emacs to:help-gnu-emacs@gnu.org))
(run (notmuch tag +help-guix to:help-guix@gnu.org))
(run (notmuch tag +gnu-emacs-sources to:gnu-emacs-sources@gnu.org))
(run (notmuch tag +guile-user to:guile-user@gnu.org))
(run (notmuch tag +emacs-devel to:emacs-devel@gnu.org))
(run (notmuch tag +conkeror to:conkeror@freelists.org))
(run (notmuch tag +arch-announce to:arch-announce@archlinux.org))
(run (notmuch tag +info-gnu-emacs to:info-gnu-emacs@gnu.org)))