From b6bfe67ed19b2c3a0c3744488f051c29e79a5b3d Mon Sep 17 00:00:00 2001 Message-ID: From: Ihor Radchenko Date: Thu, 18 Jan 2024 16:24:34 +0100 Subject: [PATCH] Allow transfering dblock affiliated keywords to its contents * lisp/org.el (org-prepare-dblock): Use :org-dblock-prepend dblock parameter and append the listed affiliated keywords before the generated dynamic block contents. --- lisp/org.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/org.el b/lisp/org.el index 8929a7217..585b9aa5b 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8836,6 +8836,12 @@ (defun org-prepare-dblock () (delete-region begdel (match-beginning 0)) (goto-char begdel) (open-line 1) + (let ((prepend (plist-get params :org-dblock-prepend)) + (dblock (org-element-at-point (1- (point)))) + (affiliated (org-element-create 'paragraph))) + (dolist (prop prepend) + (org-element-put-property affiliated prop (org-element-property prop dblock)) + (insert (org-element-interpret-data affiliated)))) params)) (defun org-map-dblocks (&optional command) -- 2.43.0