branch: elpa/xkcd
commit 5693718f717821a0608e10918b6d06943a128965
Author: Vibhav Pant <[email protected]>
Commit: Vibhav Pant <[email protected]>
Add support for browse-url.
---
xkcd.el | 13 +++++++++++++
1 file changed, 13 insertions(+)
diff --git a/xkcd.el b/xkcd.el
index dbae5499a5..b3bea57897 100644
--- a/xkcd.el
+++ b/xkcd.el
@@ -186,6 +186,19 @@ If the image is a gif, animate it."
(xkcd-get-json url 0))))))
(xkcd-get (random last))))
+(defun get-xkcd-from-url (url)
+ "Load xkcd pointed to by URL"
+ (let* ((string (substring url (string-match "[0-9]+" url)))
+ (number (substring string 0 (string-match "/" string))))
+ (xkcd-get (string-to-number number))))
+
+(setq browse-url-browser-function (lambda (url etc) (if
+ (string-match
+ "xkcd.com/[0-9]+"
+ "http://xkcd.com/123/";)
+ (get-xkcd-from-url url)
+
'browse-url-default-browser)))
+
(defun xkcd-get-latest ()
"Get the latest xkcd."
(interactive)
