From fcf126f8aab283078111f8dac0b589e51f30f0ce Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 20 Jul 2023 21:26:38 +1000 Subject: Adding functions to get html url --- wiki-engine.el | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) (limited to 'wiki-engine.el') diff --git a/wiki-engine.el b/wiki-engine.el index 6da4ad2..74dbe15 100644 --- a/wiki-engine.el +++ b/wiki-engine.el @@ -29,6 +29,17 @@ (require 'wiki-utils) (require 'wiki-markup) +(defun wiki-engine-html-url (site title) + "Return the url of the html webpage of TITLE on SITE." + (format "%s%s" (plist-get (alist-get site wiki-sites) :base-url) + title)) + +(defun wiki-current-html-url () + "Return the url of the html webpage of the current wiki buffer." + (unless (and wiki-site wiki-title) + (error "Nil wiki-site or wiki-title!")) + (wiki-engine-html-url wiki-site wiki-title)) + (defun wiki-engine-mediawiki-fetch (wiki-site title) "Fetch a mediawiki entry describing TITLE. @@ -47,7 +58,8 @@ The site handle is passed as a symbol WIKI-SITE." (wiki-locate-dir wiki-site) (lambda () (wiki-mode) - (setq-local wiki-site wiki-site) + (setq-local wiki-site wiki-site + wiki-title title) ) )))) @@ -65,7 +77,8 @@ The site handle is passed as a symbol WIKI-SITE." (wiki-locate-dir wiki-site) (lambda () (wiki-mode) - (setq-local wiki-site wiki-site) + (setq-local wiki-site wiki-site + wiki-title title) ) title)))) @@ -83,7 +96,8 @@ The site handle is passed as a symbol WIKI-SITE." (wiki-locate-dir wiki-site) (lambda () (wiki-mode) - (setq-local wiki-site wiki-site) + (setq-local wiki-site wiki-site + wiki-title title) ) title)))) -- cgit v1.2.3