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

emacs: mv notmuch-{show,common}-do-stash

Browse source 
Here we move the notmuch-show/notmuch-show-do-stash function to
notmuch-lib/notmuch-common-do-stash.  Nothing in this function is
notmuch-show mode specific, so this move will make it cleaner to be
used by other modes (such as notmuch-search).
This commit is contained in:
Jameson Rollins 2010-09-18 15:48:21 -04:00 committed by Carl Worth
parent ea1c2bb5c5
commit 128b6259ee
2 changed files with 16 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/notmuch-lib.el
View file

@ -94,6 +94,13 @@ the user hasn't set this variable with the old or new value."
;; ;;
(defun notmuch-common-do-stash (text)
"Common function to stash text in kill ring, and display in minibuffer."
(kill-new text)
(message "Stashed: %s" text))
;;
;; XXX: This should be a generic function in emacs somewhere, not ;; XXX: This should be a generic function in emacs somewhere, not
;; here. ;; here.
(defun point-invisible-p () (defun point-invisible-p ()
@ -110,3 +117,4 @@ within the current window."
(assq prop buffer-invisibility-spec))))) (assq prop buffer-invisibility-spec)))))
(provide 'notmuch-lib) (provide 'notmuch-lib)

20
emacs/notmuch-show.el
View file

@ -1088,49 +1088,45 @@ buffer."
(interactive) (interactive)
(notmuch-show-archive-thread-internal nil)) (notmuch-show-archive-thread-internal nil))
(defun notmuch-show-do-stash (text)
(kill-new text)
(message "Saved: %s" text))
(defun notmuch-show-stash-cc () (defun notmuch-show-stash-cc ()
"Copy CC field of current message to kill-ring." "Copy CC field of current message to kill-ring."
(interactive) (interactive)
(notmuch-show-do-stash (notmuch-show-get-cc))) (notmuch-common-do-stash (notmuch-show-get-cc)))
(defun notmuch-show-stash-date () (defun notmuch-show-stash-date ()
"Copy date of current message to kill-ring." "Copy date of current message to kill-ring."
(interactive) (interactive)
(notmuch-show-do-stash (notmuch-show-get-date))) (notmuch-common-do-stash (notmuch-show-get-date)))
(defun notmuch-show-stash-filename () (defun notmuch-show-stash-filename ()
"Copy filename of current message to kill-ring." "Copy filename of current message to kill-ring."
(interactive) (interactive)
(notmuch-show-do-stash (notmuch-show-get-filename))) (notmuch-common-do-stash (notmuch-show-get-filename)))
(defun notmuch-show-stash-from () (defun notmuch-show-stash-from ()
"Copy From address of current message to kill-ring." "Copy From address of current message to kill-ring."
(interactive) (interactive)
(notmuch-show-do-stash (notmuch-show-get-from))) (notmuch-common-do-stash (notmuch-show-get-from)))
(defun notmuch-show-stash-message-id () (defun notmuch-show-stash-message-id ()
"Copy message ID of current message to kill-ring." "Copy message ID of current message to kill-ring."
(interactive) (interactive)
(notmuch-show-do-stash (notmuch-show-get-message-id))) (notmuch-common-do-stash (notmuch-show-get-message-id)))
(defun notmuch-show-stash-subject () (defun notmuch-show-stash-subject ()
"Copy Subject field of current message to kill-ring." "Copy Subject field of current message to kill-ring."
(interactive) (interactive)
(notmuch-show-do-stash (notmuch-show-get-subject))) (notmuch-common-do-stash (notmuch-show-get-subject)))
(defun notmuch-show-stash-tags () (defun notmuch-show-stash-tags ()
"Copy tags of current message to kill-ring as a comma separated list." "Copy tags of current message to kill-ring as a comma separated list."
(interactive) (interactive)
(notmuch-show-do-stash (mapconcat 'identity (notmuch-show-get-tags) ","))) (notmuch-common-do-stash (mapconcat 'identity (notmuch-show-get-tags) ",")))
(defun notmuch-show-stash-to () (defun notmuch-show-stash-to ()
"Copy To address of current message to kill-ring." "Copy To address of current message to kill-ring."
(interactive) (interactive)
(notmuch-show-do-stash (notmuch-show-get-to))) (notmuch-common-do-stash (notmuch-show-get-to)))
;; Commands typically bound to buttons. ;; Commands typically bound to buttons.