From 2e735a1052984299337decc6648ac02034d1263b Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 10 Jul 2023 12:53:08 +1000 Subject: Show link target in help-echo --- wiki-engine.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'wiki-engine.el') 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))) -- cgit v1.2.3