From 383b7a22e584dd9c5990dcd1b0cdf48f24ffe962 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 9 Jul 2023 23:12:55 +1000 Subject: Adding more wiki site examples and simple moinmoin / oddmuse fetching support. --- wiki-engine.el | 29 ++++++++++++++++++++++++++++- 1 file changed, 28 insertions(+), 1 deletion(-) (limited to 'wiki-engine.el') 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" -- cgit v1.2.3