From c79b0264437275fdf4b58973f582ae4d837bf00c Mon Sep 17 00:00:00 2001 From: Bala Ramadurai Date: Fri, 29 Jan 2021 08:18:31 +0530 Subject: [PATCH] file name added to element list `:file` needed to add the path and file name to the org-link --- org-ql.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/org-ql.el b/org-ql.el index 90586c3..360e679 100644 --- a/org-ql.el +++ b/org-ql.el @@ -519,8 +519,10 @@ from within ELEMENT's buffer." ;; time? I don't know, but for now, it seems that we have to use `copy-marker'. (let* ((marker (copy-marker (org-element-property :begin element))) (properties (--> (cadr element) - (plist-put it :org-marker marker) - (plist-put it :org-hd-marker marker)))) + (plist-put it :file buffer-file-name) + (plist-put it :org-marker marker) + (plist-put it :org-hd-marker marker) + ))) (setf (cadr element) properties) element)) @@ -611,7 +613,8 @@ respectively." (rx-to-string `(seq bol (group (zero-or-more (any " "))) "#+begin_src" (one-or-more (any " ")) - ,(or lang `(1+ (not (any " \n \f ")))) + ,(or lang `(1+ (not (any " \n \f + ")))) (zero-or-more (any " ")) (group (or (seq (zero-or-more (not (any "\n\":"))) "\"" @@ -620,7 +623,7 @@ respectively." (zero-or-more (not (any "\n\":")))) (zero-or-more (not (any "\n\":"))))) (group (zero-or-more (not (any "\n")))) "\n" - (63 (group (*\? (not (any ""))) "\n")) + (63 (group (*\? (not (any ""))) "\n")) (zero-or-more (any " ")) "#+end_src") t))