18 lines
568 B
EmacsLisp
18 lines
568 B
EmacsLisp
;;; magit-wanderlust.el --- wanderlust extension for Magit
|
|
|
|
(require 'magit)
|
|
|
|
(defun magit-wl-pipe-to-am ()
|
|
"Ask the user for a project in which to apply (via am) the
|
|
current email in wl."
|
|
(interactive)
|
|
"Pipe a wanderlust message into git am."
|
|
(let* ((proj (funcall magit-completing-read
|
|
"Apply to project: "
|
|
(magit-list-projects)
|
|
nil t nil nil)))
|
|
(wl-summary-pipe-message-subr
|
|
nil (format "cd '%s' && git am" proj))))
|
|
|
|
(provide 'magit-wanderlust)
|
|
;;; magit-wanderlust.el ends here
|