Implement wikilink following

1 files changed, 13 insertions, 12 deletions

diff --git a/wiki-engine.el b/wiki-engine.el
index a2fcaef..a9f65d5 100644
--- a/wiki-engine.el
+++ b/wiki-engine.el
@@ -25,22 +25,23 @@
 ;; client to wiki engines, wiki server software.
 
 ;;; Code:
-(require 'wiki-markup)
+(require 'wiki-utils)
 
-(defvar-local wiki-engine-host "https://en.wikipedia.org"
-  "The host of the current wiki engine instance.")
+(defun wiki-make-wikilink-url (title))
 
-(defvar-local wiki-engine-path "/wiki/"
-  "The path to the current wiki engine instance.")
-
-(defun wiki-engine-mediawiki-fetch (title)
-  (interactive "sFetch wiki title: ")
+(defun wiki-engine-mediawiki-fetch (base-url title fetcher)
+  "Fetch a mediawiki entry describing TITLE."
   (wiki-fetch-url
-   (format "%s%s%s?action=raw"
-           wiki-engine-host wiki-engine-path title))
-  (wiki-mode))
-
+   (format "%s%s?action=raw" base-url title)
+   (lambda ()
+     (wiki-mode)
+     (setq-local wiki-fetcher fetcher)
+     )))
 
+(defun wiki-wikipedia-fetch (title)
+  (interactive "sFetch wiki title: ")
+  (wiki-engine-mediawiki-fetch "https://en.wikipedia.org/wiki/" title
+                               'wiki-wikipedia-fetch))
 
 (provide 'wiki-engine)
 ;;; wiki-engine.el ends here