[elpa] externals/hyperbole 7670cfb36a 3/6: hibtypes.el - Add new 'hywiki-existing-word' ibtype

[ELPA Syncer]

branch: externals/hyperbole
commit 7670cfb36a484d6543f2e393f94c5329a716f880
Author: bw <rsw@gnu.org>
Commit: bw <rsw@gnu.org>

    hibtypes.el - Add new 'hywiki-existing-word' ibtype
    
    Separates handling of this from HyWikiWords that don't yet have pages.
---
 ChangeLog   |  7 +++++++
 hibtypes.el | 15 +++++++++++++++
 2 files changed, 22 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 59f383b6bc..38dfe0dc68 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2024-08-18  Bob Weiner  <rsw@gnu.org>
+
+* hibtypes.el (hywiki-existing-word): Add this new ibtype to match to
+    HyWikiWords with an existing page at a higher priority than those
+    without an existing page, so can be handled separately.  Must be
+    defined in this file to set its priority at a high level.
+
 * hywiki.el (hywiki-is-wikiword): Rename to 'hywiki-word-is-p'.
             (hywiki-word-activate , hywiki-page-strip-section,
              hywiki-page-exists-p): Add.
diff --git a/hibtypes.el b/hibtypes.el
index 78742fa0da..781ac4ee56 100644
--- a/hibtypes.el
+++ b/hibtypes.el
@@ -1632,6 +1632,21 @@ If a boolean function or variable, display its value."
                   (apply #'actype:eval actype args)))
        (error "(action:help): No action button labeled: %s" label)))))
 
+;;; ========================================================================
+;;; Activates HyWikiWords with existing HyWiki pages.
+;;; Non-existing HyWikiWords are handled by the (load "hywiki") at a low
+;;; priority earlier in this file which defines the `hywiki-word' ibtype.
+;;; ========================================================================
+
+(defib hywiki-existing-word ()
+  "When on a HyWiki word with an existing page, display its page and optional 
section."
+  (cl-destructuring-bind (page-name start end)
+      (hywiki-page-exists-p 'range)
+    (when page-name
+      (when (and start end)
+       (ibut:label-set page-name (match-beginning 0) (match-end 0)))
+      (hact 'hywiki-find-page page-name))))
+
 ;;; ========================================================================
 ;;; Inserts completion into minibuffer or other window.
 ;;; ========================================================================