[nongnu] elpa/xkcd 5693718f71 52/82: Add support for browse-url.

[ELPA Syncer]

branch: elpa/xkcd
commit 5693718f717821a0608e10918b6d06943a128965
Author: Vibhav Pant <vibhavp@gmail.com>
Commit: Vibhav Pant <vibhavp@gmail.com>

    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)