Skip to content

Commit d80d205

Browse files
committed
hsys-org-link-at-p - Switch to using `hpath:www-at-p' for url test
1 parent 29f3759 commit d80d205

3 files changed

Lines changed: 6 additions & 4 deletions

File tree

ChangeLog

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,9 @@
11
2026-06-16 Bob Weiner <rsw@gnu.org>
22

33
* hsys-org.el (hsys-org-link-at-p): Rewrite to handle non-delimited Org links,
4-
such as: file:my-file::my-text. Leave file:// links for www-url ibtype.
4+
such as: file:my-file::my-text. Leave file:// links for www-url ibtype
5+
by using 'hpath:www-at-p' test as Org url test will match to this:
6+
[[Link]] rather than requiring a true url.
57

68
* hasht.el (hash-merge): Fix call to hash-map which was not treating its
79
input as string-keys. This led to HyWiki hash tables having string keys

hsys-org.el

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
;; Author: Bob Weiner
44
;;
55
;; Orig-Date: 2-Jul-16 at 14:54:14
6-
;; Last-Mod: 16-Jun-26 at 14:41:03 by Bob Weiner
6+
;; Last-Mod: 16-Jun-26 at 15:48:04 by Bob Weiner
77
;;
88
;; SPDX-License-Identifier: GPL-3.0-or-later
99
;;
@@ -541,7 +541,7 @@ Assume caller has already checked that the current buffer is in
541541
`org-mode' or is looking for an Org link in a non-Org buffer type."
542542
(unless (or (smart-eolp) (smart-eobp)
543543
;; The types below are handled by Hyperbole ibtypes
544-
(let ((str (thing-at-point 'url)))
544+
(let ((str (hpath:www-at-p)))
545545
(and str
546546
;; If a file link, don't consider a url unless has at
547547
;; least 2 forward slashes after the :.

kotl/EXAMPLE.kotl

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -427,7 +427,7 @@
427427
4f. Flexible view handling has been only partially implemented.
428428

429429

430-
"ben" ;; kvspec:current
430+
"c2en" ;; kvspec:current
431431
69 ;; id-counter
432432
alpha ;; label-type
433433
4 ;; label-min-width

0 commit comments

Comments
 (0)