diff options
author | Yuchen Pei <id@ypei.org> | 2023-07-10 12:53:08 +1000 |
---|---|---|
committer | Yuchen Pei <id@ypei.org> | 2023-07-10 12:53:08 +1000 |
commit | 2e735a1052984299337decc6648ac02034d1263b (patch) | |
tree | 919992303f5f50a232912ee6f122aa8221757c25 /wiki-engine.el | |
parent | 35a15e183ced5cb9529d7e35433dcb26db548897 (diff) |
Show link target in help-echo
Diffstat (limited to 'wiki-engine.el')
-rw-r--r-- | wiki-engine.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/wiki-engine.el b/wiki-engine.el index fb6fcba..b82b9aa 100644 --- a/wiki-engine.el +++ b/wiki-engine.el @@ -22,7 +22,9 @@ ;;; Commentary: -;; client to wiki engines, wiki server software. +;; client to wiki engines, wiki server software. Each engine defines +;; how emacs interacts with the remote server, including how to +;; construct a url to fetch from. ;;; Code: (require 'wiki-utils) @@ -34,6 +36,7 @@ The site name is passed as a symbol WIKI-SITE." (let ((wiki-site-info (alist-get wiki-site wiki-sites))) (cl-assert (eq (plist-get wiki-site-info :engine) 'mediawiki)) + (when (string-empty-p title) (setq title "Main Page")) (wiki-fetch-url (format "%s%s?action=raw" (plist-get wiki-site-info :base-url) @@ -42,7 +45,7 @@ The site name is passed as a symbol WIKI-SITE." (wiki-mode) (setq-local wiki-site wiki-site) ) - title))) + ))) (defun wiki-engine-oddmuse-fetch (wiki-site title) (let ((wiki-site-info (alist-get wiki-site wiki-sites))) |