[nongnu] elpa/xkcd 91be72384e 61/82: Open current xkcd in external browser

[ELPA Syncer]

branch: elpa/xkcd
commit 91be72384eff7d6697dd624da19694142f7ff03b
Author: Heikki Lehvaslaiho <heikki.lehvaslaiho@gmail.com>
Commit: Heikki Lehvaslaiho <heikki.lehvaslaiho@gmail.com>

    Open current xkcd in external browser
    
    Two new functions: open the strip at the xkcd website in default
    browser, and open the same strip at the xkcd explanation
    website. Defined key bindings 'o' and 'e' for these functions.
---
 xkcd.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/xkcd.el b/xkcd.el
index 0c78843ebc..92b445d4b9 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)
@@ -236,6 +238,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