Function to open github patch from gnus

1 files changed, 25 insertions, 6 deletions

diff --git a/init/km-gnus.el b/init/km-gnus.el
index 7258e36..b88f6d5 100644
--- a/init/km-gnus.el
+++ b/init/km-gnus.el
@@ -92,12 +92,7 @@
 (defun km/follow-gwene-link ()
   "Follow link at bottom of gwene message"
   (interactive)
-  ;; next 3 lines from gnus-sum.el guns-summary-widget-forward
-  (gnus-summary-select-article)
-  (gnus-configure-windows 'article)
-  (select-window (gnus-get-buffer-window gnus-article-buffer))
-
-  (goto-char (point-max))
+  (km/gnus-end-of-article-buffer)
   (search-backward "Link")
   (widget-button-press (point)))
 
@@ -106,6 +101,30 @@
 (define-key gnus-article-mode-map
   (kbd "C-c j") 'km/follow-gwene-link)
 
+(require 'url-handlers)
+
+(defun km/gnus-open-github-patch ()
+  "Open patch from github email.
+
+The patch is downloaded to a temporary file and then opened in
+another window."
+  (interactive)
+  (km/gnus-end-of-article-buffer)
+  (search-backward "patch")
+  (let ((url (thing-at-point 'url))
+        (patch-file (make-temp-file "gnus-github-" nil ".patch")))
+    (url-copy-file url patch-file t)
+    (find-file-other-window patch-file)
+    (view-mode 1)))
+
+(defun km/gnus-end-of-article-buffer ()
+  "Move point to the end of the article buffer."
+  ;; next 3 lines from gnus-sum.el `gnus-summary-widget-forward'
+  (gnus-summary-select-article)
+  (gnus-configure-windows 'article)
+  (select-window (gnus-get-buffer-window gnus-article-buffer))
+  (goto-char (point-max)))
+
 (require 'notmuch)
 (require 'org-gnus)