diff options
| author | Yuchen Pei <id@ypei.org> | 2024-12-26 23:01:53 +1100 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2024-12-26 23:01:53 +1100 |
| commit | 7c90e1c35abb0a8eb25bcb5f3b5d8676dc13fc54 (patch) | |
| tree | e2506cc83d75666a1804e03b1321c86316dc42fa | |
| parent | e501c186bccd76a2373977b3df59300fe390bd61 (diff) | |
Add a function to determine whether a url is a wiki entry.
| -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) |