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

Add in support for filling in the bare link in org capture 

* doc/org-manual.org: Document new %L capture template formatting
directive.
* lisp/org-capture.el (org-capture-templates): Document new %L capture
template formatting directive.
* lisp/org-capture.el (org-capture-fill-template): Add in support for
%L, bare link formatting, in org-capture-fill-template.

TINYCHANGE
This commit is contained in:
Samuel W. Flint 2020-09-14 09:07:07 -05:00 committed by Bastien
parent 6c75b00217
commit d06aa486d6
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
doc/org-manual.org
View File

@ -7799,6 +7799,10 @@ here:
Like =%a=, but only insert the literal link. Like =%a=, but only insert the literal link.
- =%L= ::
Like =%l=, but without brackets (the link content itself).
- =%c= :: - =%c= ::
Current kill ring head. Current kill ring head.

7
lisp/org-capture.el
View File

@ -315,6 +315,7 @@ be replaced with content and expanded:
%a Annotation, normally the link created with `org-store-link'. %a Annotation, normally the link created with `org-store-link'.
%A Like %a, but prompt for the description part. %A Like %a, but prompt for the description part.
%l Like %a, but only insert the literal link. %l Like %a, but only insert the literal link.
%L Like %l, but without brackets (the link content itself).
%c Current kill ring head. %c Current kill ring head.
%x Content of the X clipboard. %x Content of the X clipboard.
%k Title of currently clocked task. %k Title of currently clocked task.
@ -1592,6 +1593,9 @@ The template may still contain \"%?\" for cursor positioning."
(v-l (if (and v-a (string-match l-re v-a)) (v-l (if (and v-a (string-match l-re v-a))
(replace-match "[[\\1]]" nil nil v-a) (replace-match "[[\\1]]" nil nil v-a)
v-a)) v-a))
(v-L (if (or v-a (string-match l-re v-a))
(replace-match "\\1" nil nil v-a)
v-a))
(v-n user-full-name) (v-n user-full-name)
(v-k (if (marker-buffer org-clock-marker) (v-k (if (marker-buffer org-clock-marker)
(org-no-properties org-clock-heading) (org-no-properties org-clock-heading)
@ -1644,7 +1648,7 @@ The template may still contain \"%?\" for cursor positioning."
;; Mark %() embedded elisp for later evaluation. ;; Mark %() embedded elisp for later evaluation.
(org-capture-expand-embedded-elisp 'mark) (org-capture-expand-embedded-elisp 'mark)
;; Expand non-interactive templates. ;; Expand non-interactive templates.
(let ((regexp "%\\(:[-A-Za-z]+\\|<\\([^>\n]+\\)>\\|[aAcfFikKlntTuUx]\\)")) (let ((regexp "%\\(:[-A-Za-z]+\\|<\\([^>\n]+\\)>\\|[aAcfFikKlLntTuUx]\\)"))
(save-excursion (save-excursion
(while (re-search-forward regexp nil t) (while (re-search-forward regexp nil t)
;; `org-capture-escaped-%' may modify buffer and cripple ;; `org-capture-escaped-%' may modify buffer and cripple
@ -1681,6 +1685,7 @@ The template may still contain \"%?\" for cursor positioning."
(?k v-k) (?k v-k)
(?K v-K) (?K v-K)
(?l v-l) (?l v-l)
(?L v-L)
(?n v-n) (?n v-n)
(?t v-t) (?t v-t)
(?T v-T) (?T v-T)