11 lines
427 B
Scheme
Executable file
11 lines
427 B
Scheme
Executable file
#!/usr/bin/env sh
|
|
# -*- mode: scheme; -*-
|
|
IFS=" "
|
|
exec scsh -e main -s "$0" "$@"
|
|
!#
|
|
|
|
(define (main args)
|
|
(run (notmuch-collect-tasks ,(format #f "~a/documents/gtd/inbox.org" (getenv "HOME"))))
|
|
(run (notmuch-tag-mailinglists))
|
|
(run (notmuch tag "+@me" "(" to:tom@ryuslash.org or to:ryuslash@gmail.com ")" and not tag:@me))
|
|
(run (notmuch tag "+deleted" from:gog.com and "subject:expires in 24" and date:..24-hours-ago)))
|