Samuel Loury <konubi...@gmail.com> writes: > I would like to propose a patch for `org-open-at-point' to find a link > after point when called inside a paragraph. It had this behavior at some > time and I think lost it during the org-element re-factoring. This patch > restores this ancient behavior with the new way the function is coded. > > Please find the patch attached in this mail.
Actually, I just found out that the behavior could be the same in items. Please find attached the modified patch. Best regards,
From e05f1a54af26f2eebc4b33fe961951af65e70195 Mon Sep 17 00:00:00 2001
From: Konubinix <konubi...@gmail.com>
Date: Mon, 26 Jan 2015 08:44:06 +0100
Subject: [PATCH] Find a link after point in `org-open-at-point'
* lisp/org.el (org-open-at-point): Look for a link after point but in the same
line as (point) when called inside a paragraph or an item.
Now, the user doesn't have to move the cursor to the link to call
`org-open-at-point'.
---
lisp/org.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/lisp/org.el b/lisp/org.el
index 1041c13..73ff1fc 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -10694,7 +10694,8 @@ link in a property drawer line."
(org-element-lineage
(org-element-context)
'(comment comment-block footnote-definition footnote-reference
- headline inlinetask link node-property timestamp)
+ headline inlinetask link node-property
+ timestamp paragraph item)
t))
(type (org-element-type context))
(value (org-element-property :value context)))
@@ -10870,6 +10871,12 @@ link in a property drawer line."
(= (org-element-property :post-affiliated context)
(line-beginning-position)))))))
(org-footnote-action))
+ ;; On a paragraph, find a link on the current line after point.
+ ((memq type '(paragraph item))
+ (save-excursion
+ (if (re-search-forward org-any-link-re (line-end-position) t)
+ (org-open-at-point)
+ (user-error "No link found"))))
(t (user-error "No link found")))))
(move-marker org-open-link-marker nil)
(run-hook-with-args 'org-follow-link-hook)))
--
2.1.4
-- Konubinix GPG Key : 7439106A Fingerprint: 5993 BE7A DA65 E2D9 06CE 5C36 75D2 3CED 7439 106A
signature.asc
Description: PGP signature
