Re: git am/send-email support?

[David Engster <deng@randomsample.de>]

Daiki Ueno writes:
> Lars Ingebrigtsen <larsi@gnus.org> writes:
>
>> Daiki Ueno <ueno@gnu.org> writes:
>>
>>> Is there any Gnus command(s) to interact with git, particularly applying
>>> a patch from an article buffer and composing/sending a patch by email?
>>
>> I haven't seen anything in particular.  I just use the `|' command to
>> pipe stuff into "patch"...
>
> Thanks, I haven't thought of it.  But isn't it a bit cumbersome to
> manually specify the path of a git working directory (than being asked
> interactively)?
>
> I'd appreciate if anyone could provide well-tested handy little snippets
> for those operations :-)

Well, here's mine:

(defvar DE-gnus-git-directories
      '(("cedet" "~/cedet-git")
        ("emacs" "~/emacs-git"))
  "Name and directory for git projects.")

(defvar DE-gnus-git-last-dir nil)

(defun DE-gnus-apply-git-patch ()
  "Run git-am on currently visible mail or posting."
  (interactive)
  (when (null gnus-article-buffer)
    (error "No opened article buffer."))
  (with-current-buffer gnus-article-buffer
    (let* ((project
	    (completing-read 
	     "Choose project: "
	     (mapcar 'car DE-gnus-git-directories)
	     nil t DE-gnus-git-last-dir))
	   (output (get-buffer-create  "*git output*"))
	   (default-directory (file-name-as-directory 
			       (expand-file-name
				(cadr (assoc project DE-gnus-git-directories))))))
      (setq DE-gnus-git-last-dir project)
      (if (zerop
	   (shell-command-on-region
	    (point-min) (point-max)
	    (format "git am")
	    output))
	  (message "Patch(es) applied. See *git output* for details.")
	(message "There was an error running git.")
	(switch-to-buffer output)))))

-David