branch: elpa/xkcd
commit 91be72384eff7d6697dd624da19694142f7ff03b
Author: Heikki Lehvaslaiho <heikki.lehvasla...@gmail.com>
Commit: Heikki Lehvaslaiho <heikki.lehvasla...@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
