Capture template for datetree under existing headline

Capture template for datetree under existing headline

[Peter Sterner]

[-- Attachment #1: Type: text/plain, Size: 426 bytes --]

Hi.

I want to have a capture template that generates a datetree under an
existing headline in an org file with existing headlines. I tried this:

("j" "Journal" entry (file+datetree "~/workspace/org/notes.org" "Journal")
"* %?\n Added %U\n %i\n%a")

I tried creating the Journal headline before capturing. But org-mode
generates a 2016 headline not placed under Journal.

I really appreciate any help you can provide.

Peter

[-- Attachment #2: Type: text/html, Size: 1331 bytes --]

Re: Capture template for datetree under existing headline

[Myles English]

Hi Peter,

Peter Sterner writes:

> I want to have a capture template that generates a datetree under an
> existing headline in an org file with existing headlines. I tried this:
>
> ("j" "Journal" entry (file+datetree "~/workspace/org/notes.org" "Journal")
> "* %?\n Added %U\n %i\n%a")
>
> I tried creating the Journal headline before capturing. But org-mode
> generates a 2016 headline not placed under Journal.

This seems to work, by making a new capture target called
'file+headline+datetree'.

Capture template:

("j" "Journal" entry (file+headline+datetree "~/workspace/org/notes.org" "Journal")

Patch:

diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index a89d171..1826d3e 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -923,6 +923,40 @@ Store them in the capture property list."
 	      (setq target-entry-p (and (derived-mode-p 'org-mode) (org-at-heading-p))))
 	  (error "No match for target regexp in file %s" (nth 1 target))))
 
+       ((eq (car target) 'file+headline+datetree)
+	;; copied from sexp for file+headline
+	(set-buffer (org-capture-target-buffer (nth 1 target)))
+	(org-capture-put-target-region-and-position)
+	(widen)
+	(let ((hd (nth 2 target)))
+	  (goto-char (point-min))
+	  (unless (derived-mode-p 'org-mode)
+	    (error
+	     "Target buffer \"%s\" for file+headline+datetree should be in Org mode"
+	     (current-buffer)))
+	  (if (re-search-forward
+	       (format org-complex-heading-regexp-format (regexp-quote hd))
+	       nil t)
+	      (goto-char (point-at-bol))
+	    (goto-char (point-max))
+	    (or (bolp) (insert "\n"))
+	    (insert "* " hd "\n")
+	    (beginning-of-line 0)))
+	(org-narrow-to-subtree)
+	(org-show-subtree)
+	;; copied from the sexp for file+datetree
+	(funcall
+	 #'org-datetree-find-date-create
+	 (calendar-gregorian-from-absolute
+	  (cond
+	   (org-overriding-default-time
+	    ;; use the overriding default time
+	    (time-to-days org-overriding-default-time))
+	   (t
+	    ;; current date, possibly corrected for late night workers
+	    (org-today))))
+	 'restrict))
+
        ((memq (car target) '(file+datetree file+datetree+prompt file+weektree file+weektree+prompt))
 	(require 'org-datetree)
 	(set-buffer (org-capture-target-buffer (nth 1 target)))

This results in:

* Journal
* 2016

unless the following property is set:

* Journal
  :PROPERTIES:
  :DATE_TREE:
  :END:
** 2016

An improvement might be to prompt for the headline to put the datetree
under.  It might have been possible to do this as a 'function' target.

Myles