exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update function name and docstring for Org template copy function

Browse Source 
We are now not merely copying a template from another item, but more abstractly
insert a checklist consisting of backlinks and a template.  Update docstring and
function name to reflect that, but keep the old name of `db/org-copy-template`
as an obsolete alias.
This commit is contained in:
Daniel Borchmann 2022-10-09 11:22:36 +02:00
parent 564990a1af
commit 754e22dc77
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
3 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
init.el
View File

@ -759,6 +759,7 @@
db/find-csv-in-org
db/org-mark-current-default-task
db/export-diary
db/org-insert-checklist
db/org-copy-template
db/org-copy-body-from-item-to-point
db/org-find-links-to-current-item

2
site-lisp/db-customize.el
View File

@ -149,7 +149,7 @@ in the main agenda view."
("Info Lookup" ?I counsel-info-lookup-symbol)
("Unicode Lookup" ?U counsel-unicode-char)
("Timeline of Day" ?T timeline-tools-format-timeline-of-day)
("Copy template to point" ?C db/org-copy-template))
("Copy template to point" ?C db/org-insert-checklist))
"Mapping of frequently used features to functions implementing
them. Can be used in application shortcuts such as
`db/helm-shortcuts’. Each entry is a list of three items: a

26
site-lisp/db-org.el
View File

@ -831,16 +831,22 @@ Work task and home task are determined by the current values of
org-home-task-id))
(org-clock-mark-default-task))))
(defun db/org-copy-template ()
"Copy template for the current Org Mode item to point.
The template is determined by the TEMPLATE_ID property, which
must be an ID referencing the proper template item. If that
property is not set, search for the topmost sibling of the
current item and see whether its headline is matching
\"^Template.*\"; if so, use its body as template, and barf
otherwise."
(defun db/org-insert-checklist ()
"Insert checklist for Org Mode item at point.
The checklist consists of a listing of all backlinks to the
current item and its parents (without archives) as well as a
template. The template is determined by the TEMPLATE_ID
property, which must be an ID referencing the proper template
item. If that property is not set, search for the topmost
sibling of the current item and see whether its headline is
matching \"^Template.*\"; if so, use its body as template, and
barf otherwise."
(interactive)
(unless (derived-mode-p 'org-mode)
(user-error "Not in Org mode, aborting"))
(let (template-pom)
;; Check for TEMPLATE_ID property
@ -877,6 +883,10 @@ otherwise."
(insert "\n\nTemplate:\n")
(db/org-copy-body-from-item-to-point template-pom)))
(define-obsolete-function-alias 'db/org-copy-template
'db/org-insert-checklist
"2022-10-09")
(defun db/org-copy-body-from-item-to-point (pom)
"Copy body from item given by POM to point.
This can be used to copy checklists from templates to the current