From f2d3c6ca51bfbf7620ddde9faf83ec5fd973abf5 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 23 Jul 2023 23:05:13 +1000 Subject: Add a mediawiki API fetcher. Applicable to wikihow. Also clean up the code to reduce duplication with fetching and finding files. And fix when the wiki entry is under a directory naming itself which is common in mediawiki: both foo and foo/bar could be a valid wiki title. So locally files need to have an extension (by default .wiki). Also add the extension to auto-mode-alist. --- wiki-markup.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'wiki-markup.el') diff --git a/wiki-markup.el b/wiki-markup.el index 4809695..61cdca8 100644 --- a/wiki-markup.el +++ b/wiki-markup.el @@ -90,8 +90,13 @@ This can be overriden with .dir-locals.el." (unless wiki-site (setq-local wiki-site (let ((guessed - (intern (file-name-base - (directory-file-name default-directory))))) + (intern (replace-regexp-in-string + (format + "%s/\\(.+?\\)/.*" + (regexp-quote + (expand-file-name wiki-local-dir))) + "\\1" + default-directory)))) (if (alist-get guessed wiki-sites) guessed 'local)))) -- cgit v1.2.3