[nongnu] elpa/xkcd 60de549e25 63/82: Merge pull request #10 from heikkil/master

[ELPA Syncer]

branch: elpa/xkcd
commit 60de549e25dbd467aead3d137e3fe64f34c65bc3
Merge: 66eceb7896 91be72384e
Author: Vibhav Pant <vibhavp@gmail.com>
Commit: Vibhav Pant <vibhavp@gmail.com>

    Merge pull request #10 from heikkil/master
    
    Open current xkcd in external browser
---
 xkcd.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/xkcd.el b/xkcd.el
index 2c823a8d60..ccb7b54c98 100644
--- a/xkcd.el
+++ b/xkcd.el
@@ -47,6 +47,8 @@
 (define-key xkcd-mode-map (kbd "r") 'xkcd-rand)
 (define-key xkcd-mode-map (kbd "t") 'xkcd-alt-text)
 (define-key xkcd-mode-map (kbd "q") 'xkcd-kill-buffer)
+(define-key xkcd-mode-map (kbd "o") 'xkcd-open-browser)
+(define-key xkcd-mode-map (kbd "e") 'xkcd-open-explanation-browser)
 
 (defvar xkcd-alt nil)
 (defvar xkcd-cur nil)
@@ -225,6 +227,17 @@ If the image is a gif, animate it."
       (setq xkcd-latest (string-to-number
                         (buffer-substring-no-properties (point-min) 
(point-max))))
       (kill-buffer (current-buffer)))))
+(defun xkcd-open-browser ()
+  "Open current xkcd in default browser"
+  (interactive)
+  (browse-url-default-browser (concat "http://xkcd.com/";
+                                      (number-to-string xkcd-cur))))
+
+(defun xkcd-open-explanation-browser ()
+  "Open explanation of current xkcd in default browser"
+  (interactive)
+  (browse-url-default-browser (concat 
"http://www.explainxkcd.com/wiki/index.php/";
+                                      (number-to-string xkcd-cur))))
 
 (provide 'xkcd)
 ;;; xkcd.el ends here