From fe1374efae651f914636fd0575f877837136f0d5 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 9 Jul 2023 22:37:52 +1000 Subject: Browsing and navigating with various wiki engines --- wiki-markup.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'wiki-markup.el') diff --git a/wiki-markup.el b/wiki-markup.el index 23888d3..d9cc2c9 100644 --- a/wiki-markup.el +++ b/wiki-markup.el @@ -68,11 +68,11 @@ (defvar wiki-outline-regexp "=+.*=+\ *$") -(defvar-local wiki-fetcher nil - "Buffer-local function to fetch a wiki title") +(defvar-local wiki-site nil + "The identifier of the wiki site") (defun wiki-follow-wikilink-action (data) "Button action to follow a wikilink" - (funcall wiki-fetcher (alist-get 'title data))) + (funcall (wiki-site-fetcher wiki-site) (alist-get 'title data))) (defun wiki-outline-level () (when (looking-at "\\(=+\\).*[^=]\\(=+\\)\\ *$") @@ -127,5 +127,11 @@ (setq-local outline-level 'wiki-outline-level) ) +(defun set-wiki-site (wiki-site) + (interactive (list + (completing-read "Set wiki site: " + (mapcar 'car wiki-sites)))) + (setq-local wiki-site (intern wiki-site))) + (provide 'wiki-markup) ;;; wiki-markup.el ends here -- cgit v1.2.3