diff options
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 |