From fe1374efae651f914636fd0575f877837136f0d5 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 9 Jul 2023 22:37:52 +1000 Subject: Browsing and navigating with various wiki engines --- wiki-utils.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) (limited to 'wiki-utils.el') diff --git a/wiki-utils.el b/wiki-utils.el index 53b7bd0..26e25b7 100644 --- a/wiki-utils.el +++ b/wiki-utils.el @@ -64,5 +64,28 @@ Then calls CALLBACK which is a closure taking no argument." (car (url-path-and-query (url-generic-parse-url (url-unhex-string url))))))) +(defvar wiki-sites + '((local) + (wikipedia-en :base-url "https://en.wikipedia.org/wiki/" + :engine mediawiki + :display-name "Wikipedia EN") + (wiktionary-en :base-url "https://en.wiktionary.org/wiki/" + :engine mediawiki + :display-name "Wiktionary EN") + (emacswiki :base-url "https://www.emacswiki.org/emacs/" + :engine oddmuse + :display-name "EmacsWiki") + (debianwiki :base-url "https://wiki.debian.org/" + :engine moinmoin + :display-name "Debian Wiki")) + "Alist of wiki sites. + +Each item is in the form of (identifier . properties), where +identifier is a symbol, and properties is a plist of the site. +One of the sites is (local), meaning a local filesystem.") + +(defun wiki-site-fetcher (wiki-site) + (intern (format "wiki-%s-fetch" wiki-site))) + (provide 'wiki-utils) ;;; wiki-utils.el ends here -- cgit v1.2.3