diff options
| -rw-r--r-- | wiki-engine.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/wiki-engine.el b/wiki-engine.el index e636c34..804f439 100644 --- a/wiki-engine.el +++ b/wiki-engine.el @@ -113,6 +113,14 @@ And switch to the corresponding buffer." ('oddmuse (format "%s/wiki" host)) (_ (error "Unknown engine: %s" engine)))))) +(defun wiki-engine-entry-url-p (url) + (seq-find + (lambda (site-pair) + (when-let ((base-url (wiki-engine-compute-base-url + (cdr site-pair)))) + (string-prefix-p (format "%s/" base-url) url))) + wiki-sites)) + (defun wiki-engine-compute-api-base-url (site-info) "Return :api-base-url of SITE-INFO, or engine-specific default." (or (plist-get site-info :api-base-url) |