                            dir)))
   :config
   (progn
+    (defun xkcd-copy-link ()
+      "Save the link to the current comic to the kill-ring."
+      (interactive)
+      (let ((link (concat "http://xkcd.com/"
+                          (number-to-string xkcd-cur))))
+        (kill-new link)
+        (message link)))
+
     (bind-keys
      :map xkcd-mode-map
       ("/" . xkcd-get)

;; | n       | Next comic                     |
;; | r       | Random                         |
;; | v       | Open in browser                |
;; | ?       | Explain the comic              |
;; | t       | Show alt text                  |
;; | q       | Quit                           |

      ("p" . xkcd-prev)
      ("n" . xkcd-next)
      ("v" . xkcd-open-browser)
      ("w" . xkcd-copy-link)
      ("?" . xkcd-open-explanation-browser))))


