diff options
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 |