Add newlines when inserting templates
I find myself inserting these newlines whenever I insert a template, so let's let them insert them automatically.
This commit is contained in:
parent
1fa15e6736
commit
407f5d70f2
|
@ -647,12 +647,10 @@ otherwise."
|
||||||
|
|
||||||
(defun db/org-copy-body-from-item-to-point (pom)
|
(defun db/org-copy-body-from-item-to-point (pom)
|
||||||
"Copy body from item given by POM to point.
|
"Copy body from item given by POM to point.
|
||||||
|
|
||||||
This can be used to copy checklists from templates to the current
|
This can be used to copy checklists from templates to the current
|
||||||
item, which might be an instance of a periodic task.
|
item, which might be an instance of a periodic task. If POM is
|
||||||
|
not given, use `db/org-get-location' to interactively query for
|
||||||
If POM is not given, use `db/org-get-location' to interactively
|
it. Adds newline before and after the template."
|
||||||
query for it."
|
|
||||||
(interactive (list (db/org-get-location t)))
|
(interactive (list (db/org-get-location t)))
|
||||||
(unless (number-or-marker-p pom)
|
(unless (number-or-marker-p pom)
|
||||||
(user-error "Argument is neither point nor mark: %s" pom))
|
(user-error "Argument is neither point nor mark: %s" pom))
|
||||||
|
@ -679,7 +677,9 @@ query for it."
|
||||||
(user-error "Cannot find content in template, or content is empty"))
|
(user-error "Cannot find content in template, or content is empty"))
|
||||||
(string-trim-right
|
(string-trim-right
|
||||||
(buffer-substring-no-properties content-begin content-end))))))))
|
(buffer-substring-no-properties content-begin content-end))))))))
|
||||||
|
(insert "\n")
|
||||||
(insert body)
|
(insert body)
|
||||||
|
(insert "\n")
|
||||||
(org-update-statistics-cookies nil)))
|
(org-update-statistics-cookies nil)))
|
||||||
|
|
||||||
(defun db/org-update-headline-log-note (&optional new-headline)
|
(defun db/org-update-headline-log-note (&optional new-headline)
|
||||||
|
|
Loading…
Reference in New Issue