branch: elpa/xkcd
commit 60de549e25dbd467aead3d137e3fe64f34c65bc3
Merge: 66eceb7896 91be72384e
Author: Vibhav Pant <vibh...@gmail.com>
Commit: Vibhav Pant <vibh...@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
