diff options
author | Yuchen Pei <id@ypei.org> | 2023-07-09 22:37:52 +1000 |
---|---|---|
committer | Yuchen Pei <id@ypei.org> | 2023-07-09 22:37:52 +1000 |
commit | fe1374efae651f914636fd0575f877837136f0d5 (patch) | |
tree | 4da4658a6ecbbdf1a0f71c6a1025c8c28f2a3a44 /wiki-utils.el | |
parent | e4c70093406cf2140782683717dab78093c387ac (diff) |
Browsing and navigating with various wiki engines
Diffstat (limited to 'wiki-utils.el')
-rw-r--r-- | wiki-utils.el | 23 |
1 files changed, 23 insertions, 0 deletions
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 |