diff options
| author | Yuchen Pei <id@ypei.org> | 2023-07-09 23:12:55 +1000 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2023-07-09 23:12:55 +1000 |
| commit | 383b7a22e584dd9c5990dcd1b0cdf48f24ffe962 (patch) | |
| tree | 4f2445cf463205feaf3fe07033b7ca29bd358567 /wiki-engine.el | |
| parent | fe1374efae651f914636fd0575f877837136f0d5 (diff) | |
Adding more wiki site examples
and simple moinmoin / oddmuse fetching support.
Diffstat (limited to 'wiki-engine.el')
| -rw-r--r-- | wiki-engine.el | 29 |
1 files changed, 28 insertions, 1 deletions
diff --git a/wiki-engine.el b/wiki-engine.el index f878c30..da4dfb3 100644 --- a/wiki-engine.el +++ b/wiki-engine.el @@ -41,7 +41,34 @@ The site name is passed as a symbol WIKI-SITE." (lambda () (wiki-mode) (setq-local wiki-site wiki-site) - )))) + ) + title))) + +(defun wiki-engine-oddmuse-fetch (wiki-site title) + (let ((wiki-site-info (alist-get wiki-site wiki-sites))) + (cl-assert (eq (plist-get wiki-site-info :engine) 'oddmuse)) + (wiki-fetch-url + (format "%s?action=download;id=%s" + (plist-get wiki-site-info :base-url) + title) + (lambda () + (wiki-mode) + (setq-local wiki-site wiki-site) + ) + title))) + +(defun wiki-engine-moinmoin-fetch (wiki-site title) + (let ((wiki-site-info (alist-get wiki-site wiki-sites))) + (cl-assert (eq (plist-get wiki-site-info :engine) 'moinmoin)) + (wiki-fetch-url + (format "%s%s?action=raw" + (plist-get wiki-site-info :base-url) + title) + (lambda () + (wiki-mode) + (setq-local wiki-site wiki-site) + ) + title))) (defun wiki-engine-fetcher (wiki-site-info) (intern (format "wiki-engine-%s-fetch" |