diff options
author | Yuchen Pei <id@ypei.org> | 2023-07-09 22:37:52 +1000 |
---|---|---|
committer | Yuchen Pei <id@ypei.org> | 2023-07-09 22:37:52 +1000 |
commit | fe1374efae651f914636fd0575f877837136f0d5 (patch) | |
tree | 4da4658a6ecbbdf1a0f71c6a1025c8c28f2a3a44 /wiki-markup.el | |
parent | e4c70093406cf2140782683717dab78093c387ac (diff) |
Browsing and navigating with various wiki engines
Diffstat (limited to 'wiki-markup.el')
-rw-r--r-- | wiki-markup.el | 12 |
1 files changed, 9 insertions, 3 deletions
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 |