*scratch*.el

(defmacro my-notmuch-search-creator (name &rest tags)
  (let ((funname (intern (concat "my-notmuch-search-for-" (symbol-name name)))))
    `(progn
       (defun ,funname ()
         (interactive)
         (notmuch-search-tag (my-notmuch-toggle-tags-changes
                              (notmuch-search-get-tags)
                              tags)))

       ',funname)))

(evil-define-key 'motion notmuch-search-mode-map
  "d" (my-notmuch-search-creator deleted "deleted")
  "a" (my-notmuch-search-creator new-arrivals "inbox")
  "m" (my-notmuch-search-creator muted "muted")
  "s" (my-notmuch-search-creator unread "unread")
  "S" (my-notmuch-search-creator there-it-goes "learn" "spam") 
  )