ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-capture: Expand sexps in template with Org mode being active 

* lisp/org-capture.el (org-capture-fill-template): Enable `org-mode'
in the temporary template expansion buffer.  Update docstring
accordingly.
(org-capture-templates): Clarify that %(sexp) expansion happens in a
temporary Org mode buffer.

Fixes https://orgmode.org/list/CABUh-776V-_+_JAZwcKQm9ATcs0WUV9SmGwjooGFbt=CtwQj8g@mail.gmail.com
This commit is contained in:
Ihor Radchenko 2022-05-02 08:11:28 +08:00
parent 4487acc630
commit 0e7033e0ca
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-capture.el
View File

@ -309,6 +309,8 @@ be replaced with content and expanded:
introduced with %[pathname] are expanded this way. introduced with %[pathname] are expanded this way.
Since this happens after expanding non-interactive Since this happens after expanding non-interactive
%-escapes, those can be used to fill the expression. %-escapes, those can be used to fill the expression.
The evaluation happens with Org mode set as major mode
in a temporary buffer.
%<...> The result of `format-time-string' on the ... format %<...> The result of `format-time-string' on the ... format
specification. specification.
%t Time stamp, date only. The time stamp is the current %t Time stamp, date only. The time stamp is the current
@ -1572,7 +1574,9 @@ Lisp programs can force the template by setting KEYS to a string."
"Fill a TEMPLATE and return the filled template as a string. "Fill a TEMPLATE and return the filled template as a string.
The template may still contain \"%?\" for cursor positioning. The template may still contain \"%?\" for cursor positioning.
INITIAL content and/or ANNOTATION may be specified, but will be overridden INITIAL content and/or ANNOTATION may be specified, but will be overridden
by their respective `org-store-link-plist' properties if present." by their respective `org-store-link-plist' properties if present.
Expansion occurs in a temporary Org mode buffer."
(let* ((template (or template (org-capture-get :template))) (let* ((template (or template (org-capture-get :template)))
(buffer (org-capture-get :buffer)) (buffer (org-capture-get :buffer))
(file (buffer-file-name (or (buffer-base-buffer buffer) buffer))) (file (buffer-file-name (or (buffer-base-buffer buffer) buffer)))
@ -1645,6 +1649,7 @@ by their respective `org-store-link-plist' properties if present."
(setq buffer-file-name nil) (setq buffer-file-name nil)
(setq mark-active nil) (setq mark-active nil)
(insert template) (insert template)
(org-mode)
(goto-char (point-min)) (goto-char (point-min))
;; %[] insert contents of a file. ;; %[] insert contents of a file.
(save-excursion (save-excursion