debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: add helper for tag change list manipulation

Browse source 
Add a helper to create (and optionally reverse) a list of tag changes.
This commit is contained in:
Jani Nikula 2012-09-06 18:32:37 +03:00 committed by David Bremner
parent 69843dd628
commit 1dc7e66ee7
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
emacs/notmuch-tag.el
View file

@ -140,6 +140,21 @@ notmuch-after-tag-hook will be run."
;; in all cases we return tag-changes as a list ;; in all cases we return tag-changes as a list
tag-changes) tag-changes)
(defun notmuch-tag-change-list (tags &optional reverse)
"Convert TAGS into a list of tag changes.
Add a \"+\" prefix to any tag in TAGS list that doesn't already
begin with a \"+\" or a \"-\". If REVERSE is non-nil, replace all
\"+\" prefixes with \"-\" and vice versa in the result."
(mapcar (lambda (str)
(let ((s (if (string-match "^[+-]" str) str (concat "+" str))))
(if reverse
(concat (if (= (string-to-char s) ?-) "+" "-")
(substring s 1))
s)))
tags))
;; ;;
(provide 'notmuch-tag) (provide 'notmuch-tag)