;;; org-wp-link.el --- Support for links to WikiPedia articles from
;;; within Org-mode

;; Copyright (C) 2008 Rudolf Olah

;; Author: Rudolf Olah <omouse@gmail.com>
;; Keywords: outlines, hypermedia, calendar, wp

;; Licensed under the GNU General Public License version 3 or later.
;; The terms of the license are included with Emacs.

(require 'org)
(eval-when-compile
  (require 'cl))

(defvar *org-wp-language* "en"
  "Which language version of WikiPedia to use")

(org-add-link-type "wp" 'org-wp-open)

(defun org-wp-open (title)
  "Follow a WikiPedia link to the article's TITLE."
  (let ((old-buffer (current-buffer)))
    (save-current-buffer
	(set-buffer (get-buffer-create "*ORG-WP-TITLE*"))
	(insert title)
	(goto-char (point-min))
	(capitalized-words-mode 1)
	(while (forward-word)
	  (if (and (< (point) (point-max))
		   (not (char-equal (char-after) ?_)))
	      (insert "_")))
	(browse-url (concat "http://" *org-wp-language*
			    ".wikipedia.org/wiki/" (buffer-string)))
	(kill-buffer nil))))