[O] Capture with org-directory not working?

[Rainer M Krug]

Hi

I have the following capture template:

,----
|   ("T"   "TODO to be logged in notes.org"    
|    entry   (file+headline (concat org-directory "/notes.org") "Tasks")        
|    ;; entry   (file+headline "~/org/notes.org" "Tasks")        
|    "* TODO [#D] \n%i \n:PROPERTIES: \n:END: \n%? \n%a")
`----

As it is now, it is not working, but when I use the secont=d entry line,
it is working.

But:

,----
|  (concat org-directory "/notes.org")
| "~/org/notes.org"
`----

So why is the first version (which I prefer as the path is not hard
coded) not working anymore?

,----
| GNU Emacs 25.1.1 (x86_64-apple-darwin15.6.0, Carbon Version 157 AppKit 
1404.47) of 2016-09-19
| Org-mode version 8.3.6 (release_8.3.6-1149-g582233 @ 
/Users/rainerkrug/.emacs.d/org-mode/lisp/)
`----

Backtrace:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (error "Target buffer \".notes\" for 
file+headline should be in Org mode")
  signal(error ("Target buffer \".notes\" for file+headline should be in Org 
mode"))
  error("Target buffer \"%s\" for file+headline should be in Org mode" #<buffer 
.notes>)
  (if (derived-mode-p (quote org-mode)) nil (error "Target buffer \"%s\" for 
file+headline should be in Org mode" (current-buffer)))
  (let ((hd (nth 2 target))) (goto-char (point-min)) (if (derived-mode-p (quote 
org-mode)) nil (error "Target buffer \"%s\" for file+headline 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)))
  (cond ((eq (car target) (quote file)) (set-buffer (org-capture-target-buffer 
(nth 1 target))) (org-capture-put-target-region-and-position) (widen) (setq 
target-entry-p nil)) ((eq (car target) (quote id)) (let ((loc (org-id-find (nth 
1 target)))) (if (not loc) (error "Cannot find target ID \"%s\"" (nth 1 
target)) (set-buffer (org-capture-target-buffer (car loc))) (widen) 
(org-capture-put-target-region-and-position) (goto-char (cdr loc))))) ((eq (car 
target) (quote 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)) (if (derived-mode-p (quote org-mode)) nil 
(error "Target buffer \"%s\" for file+headline 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)))) ((eq (car target) (quote file+olp)) (let ((m 
(org-find-olp (cons (org-capture-expand-file ...) (cdr ...))))) (set-buffer 
(marker-buffer m)) (org-capture-put-target-region-and-position) (widen) 
(goto-char m))) ((eq (car target) (quote file+regexp)) (set-buffer 
(org-capture-target-buffer (nth 1 target))) 
(org-capture-put-target-region-and-position) (widen) (goto-char (point-min)) 
(if (re-search-forward (nth 2 target) nil t) (progn (goto-char (if 
(org-capture-get :prepend) (match-beginning 0) (match-end 0))) (org-capture-put 
:exact-position (point)) (setq target-entry-p (and (derived-mode-p (quote 
org-mode)) (org-at-heading-p)))) (error "No match for target regexp in file %s" 
(nth 1 target)))) ((memq (car target) (quote (file+datetree 
file+datetree+prompt file+weektree file+weektree+prompt))) (require (quote 
org-datetree)) (set-buffer (org-capture-target-buffer (nth 1 target))) 
(org-capture-put-target-region-and-position) (widen) (funcall (cond ((memq (car 
target) (quote (file+weektree file+weektree+prompt))) (function 
org-datetree-find-iso-week-create)) (t (function 
org-datetree-find-date-create))) (calendar-gregorian-from-absolute (cond 
(org-overriding-default-time (time-to-days org-overriding-default-time)) ((memq 
(car target) (quote ...)) (let (...) (org-capture-put :default-time ...) 
(time-to-days prompt-time))) (t (org-today)))))) ((eq (car target) (quote 
file+function)) (set-buffer (org-capture-target-buffer (nth 1 target))) 
(org-capture-put-target-region-and-position) (widen) (funcall (nth 2 target)) 
(org-capture-put :exact-position (point)) (setq target-entry-p (and 
(derived-mode-p (quote org-mode)) (org-at-heading-p)))) ((eq (car target) 
(quote function)) (funcall (nth 1 target)) (org-capture-put :exact-position 
(point)) (setq target-entry-p (and (derived-mode-p (quote org-mode)) 
(org-at-heading-p)))) ((eq (car target) (quote clock)) (if (and (markerp 
org-clock-hd-marker) (marker-buffer org-clock-hd-marker)) (progn (set-buffer 
(marker-buffer org-clock-hd-marker)) 
(org-capture-put-target-region-and-position) (widen) (goto-char 
org-clock-hd-marker)) (error "No running clock that could be used as capture 
target"))) (t (error "Invalid capture target specification")))
  (save-excursion (cond ((eq (car target) (quote file)) (set-buffer 
(org-capture-target-buffer (nth 1 target))) 
(org-capture-put-target-region-and-position) (widen) (setq target-entry-p nil)) 
((eq (car target) (quote id)) (let ((loc (org-id-find (nth 1 target)))) (if 
(not loc) (error "Cannot find target ID \"%s\"" (nth 1 target)) (set-buffer 
(org-capture-target-buffer (car loc))) (widen) 
(org-capture-put-target-region-and-position) (goto-char (cdr loc))))) ((eq (car 
target) (quote 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)) (if (derived-mode-p (quote org-mode)) nil 
(error "Target buffer \"%s\" for file+headline 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)))) ((eq (car target) (quote file+olp)) (let ((m 
(org-find-olp (cons ... ...)))) (set-buffer (marker-buffer m)) 
(org-capture-put-target-region-and-position) (widen) (goto-char m))) ((eq (car 
target) (quote file+regexp)) (set-buffer (org-capture-target-buffer (nth 1 
target))) (org-capture-put-target-region-and-position) (widen) (goto-char 
(point-min)) (if (re-search-forward (nth 2 target) nil t) (progn (goto-char (if 
(org-capture-get :prepend) (match-beginning 0) (match-end 0))) (org-capture-put 
:exact-position (point)) (setq target-entry-p (and (derived-mode-p ...) 
(org-at-heading-p)))) (error "No match for target regexp in file %s" (nth 1 
target)))) ((memq (car target) (quote (file+datetree file+datetree+prompt 
file+weektree file+weektree+prompt))) (require (quote org-datetree)) 
(set-buffer (org-capture-target-buffer (nth 1 target))) 
(org-capture-put-target-region-and-position) (widen) (funcall (cond ((memq (car 
target) (quote ...)) (function org-datetree-find-iso-week-create)) (t (function 
org-datetree-find-date-create))) (calendar-gregorian-from-absolute (cond 
(org-overriding-default-time (time-to-days org-overriding-default-time)) ((memq 
... ...) (let ... ... ...)) (t (org-today)))))) ((eq (car target) (quote 
file+function)) (set-buffer (org-capture-target-buffer (nth 1 target))) 
(org-capture-put-target-region-and-position) (widen) (funcall (nth 2 target)) 
(org-capture-put :exact-position (point)) (setq target-entry-p (and 
(derived-mode-p (quote org-mode)) (org-at-heading-p)))) ((eq (car target) 
(quote function)) (funcall (nth 1 target)) (org-capture-put :exact-position 
(point)) (setq target-entry-p (and (derived-mode-p (quote org-mode)) 
(org-at-heading-p)))) ((eq (car target) (quote clock)) (if (and (markerp 
org-clock-hd-marker) (marker-buffer org-clock-hd-marker)) (progn (set-buffer 
(marker-buffer org-clock-hd-marker)) 
(org-capture-put-target-region-and-position) (widen) (goto-char 
org-clock-hd-marker)) (error "No running clock that could be used as capture 
target"))) (t (error "Invalid capture target specification"))) (if (and 
(featurep (quote org-crypt)) (org-at-encrypted-entry-p)) (progn 
(org-decrypt-entry) (setq decrypted-hl-pos (save-excursion (and 
(org-back-to-heading t) (point)))))) (org-capture-put :buffer (current-buffer) 
:pos (point) :target-entry-p target-entry-p :decrypted decrypted-hl-pos))
  (let ((target-entry-p t) decrypted-hl-pos) (setq target (or target 
(org-capture-get :target))) (save-excursion (cond ((eq (car target) (quote 
file)) (set-buffer (org-capture-target-buffer (nth 1 target))) 
(org-capture-put-target-region-and-position) (widen) (setq target-entry-p nil)) 
((eq (car target) (quote id)) (let ((loc (org-id-find ...))) (if (not loc) 
(error "Cannot find target ID \"%s\"" (nth 1 target)) (set-buffer 
(org-capture-target-buffer ...)) (widen) 
(org-capture-put-target-region-and-position) (goto-char (cdr loc))))) ((eq (car 
target) (quote 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)) (if (derived-mode-p (quote org-mode)) nil 
(error "Target buffer \"%s\" for file+headline should be in Org mode" 
(current-buffer))) (if (re-search-forward (format 
org-complex-heading-regexp-format ...) nil t) (goto-char (point-at-bol)) 
(goto-char (point-max)) (or (bolp) (insert "\n")) (insert "* " hd "\n") 
(beginning-of-line 0)))) ((eq (car target) (quote file+olp)) (let ((m 
(org-find-olp ...))) (set-buffer (marker-buffer m)) 
(org-capture-put-target-region-and-position) (widen) (goto-char m))) ((eq (car 
target) (quote file+regexp)) (set-buffer (org-capture-target-buffer (nth 1 
target))) (org-capture-put-target-region-and-position) (widen) (goto-char 
(point-min)) (if (re-search-forward (nth 2 target) nil t) (progn (goto-char (if 
... ... ...)) (org-capture-put :exact-position (point)) (setq target-entry-p 
(and ... ...))) (error "No match for target regexp in file %s" (nth 1 
target)))) ((memq (car target) (quote (file+datetree file+datetree+prompt 
file+weektree file+weektree+prompt))) (require (quote org-datetree)) 
(set-buffer (org-capture-target-buffer (nth 1 target))) 
(org-capture-put-target-region-and-position) (widen) (funcall (cond ((memq ... 
...) (function org-datetree-find-iso-week-create)) (t (function 
org-datetree-find-date-create))) (calendar-gregorian-from-absolute (cond 
(org-overriding-default-time ...) (... ...) (t ...))))) ((eq (car target) 
(quote file+function)) (set-buffer (org-capture-target-buffer (nth 1 target))) 
(org-capture-put-target-region-and-position) (widen) (funcall (nth 2 target)) 
(org-capture-put :exact-position (point)) (setq target-entry-p (and 
(derived-mode-p (quote org-mode)) (org-at-heading-p)))) ((eq (car target) 
(quote function)) (funcall (nth 1 target)) (org-capture-put :exact-position 
(point)) (setq target-entry-p (and (derived-mode-p (quote org-mode)) 
(org-at-heading-p)))) ((eq (car target) (quote clock)) (if (and (markerp 
org-clock-hd-marker) (marker-buffer org-clock-hd-marker)) (progn (set-buffer 
(marker-buffer org-clock-hd-marker)) 
(org-capture-put-target-region-and-position) (widen) (goto-char 
org-clock-hd-marker)) (error "No running clock that could be used as capture 
target"))) (t (error "Invalid capture target specification"))) (if (and 
(featurep (quote org-crypt)) (org-at-encrypted-entry-p)) (progn 
(org-decrypt-entry) (setq decrypted-hl-pos (save-excursion (and 
(org-back-to-heading t) (point)))))) (org-capture-put :buffer (current-buffer) 
:pos (point) :target-entry-p target-entry-p :decrypted decrypted-hl-pos)))
  org-capture-set-target-location()
  (cond ((equal entry "C") (customize-variable (quote org-capture-templates))) 
((equal entry "q") (user-error "Abort")) (t (org-capture-set-plist entry) 
(org-capture-get-template) (org-capture-put :original-buffer orig-buf 
:original-file (or (buffer-file-name orig-buf) (and (featurep (quote dired)) 
(car (rassq orig-buf dired-buffers)))) :original-file-nondirectory (and 
(buffer-file-name orig-buf) (file-name-nondirectory (buffer-file-name 
orig-buf))) :annotation annotation :initial initial :return-to-wconf 
(current-window-configuration) :default-time (or org-overriding-default-time 
(org-current-time))) (org-capture-set-target-location) (condition-case error 
(org-capture-put :template (org-capture-fill-template)) ((error quit) (if 
(get-buffer "*Capture*") (kill-buffer "*Capture*")) (error "Capture abort: %s" 
error))) (setq org-capture-clock-keep (org-capture-get :clock-keep)) (if (equal 
goto 0) (org-capture-insert-template-here) (condition-case error 
(org-capture-place-template (equal (car (org-capture-get :target)) (quote 
function))) ((error quit) (if (and (buffer-base-buffer ...) (string-prefix-p 
"CAPTURE-" ...)) (kill-buffer (current-buffer))) (set-window-configuration 
(org-capture-get :return-to-wconf)) (error "Capture template `%s': %s" 
(org-capture-get :key) (nth 1 error)))) (if (and (derived-mode-p (quote 
org-mode)) (org-capture-get :clock-in)) (condition-case nil (progn (if 
(org-clock-is-active) (org-capture-put :interrupted-clock ...)) (org-clock-in) 
(set (make-local-variable ...) t)) (error "Could not start the clock in this 
capture buffer"))) (if (org-capture-get :immediate-finish) 
(org-capture-finalize)))))
  (let* ((orig-buf (current-buffer)) (annotation (if (and (boundp (quote 
org-capture-link-is-already-stored)) org-capture-link-is-already-stored) 
(plist-get org-store-link-plist :annotation) (condition-case nil (progn 
(org-store-link nil)) (error nil)))) (entry (or org-capture-entry 
(org-capture-select-template keys))) initial) (setq initial (or 
org-capture-initial (and (org-region-active-p) (buffer-substring (point) 
(mark))))) (if (stringp initial) (progn (remove-text-properties 0 (length 
initial) (quote (read-only t)) initial))) (if (stringp annotation) (progn 
(remove-text-properties 0 (length annotation) (quote (read-only t)) 
annotation))) (cond ((equal entry "C") (customize-variable (quote 
org-capture-templates))) ((equal entry "q") (user-error "Abort")) (t 
(org-capture-set-plist entry) (org-capture-get-template) (org-capture-put 
:original-buffer orig-buf :original-file (or (buffer-file-name orig-buf) (and 
(featurep (quote dired)) (car (rassq orig-buf dired-buffers)))) 
:original-file-nondirectory (and (buffer-file-name orig-buf) 
(file-name-nondirectory (buffer-file-name orig-buf))) :annotation annotation 
:initial initial :return-to-wconf (current-window-configuration) :default-time 
(or org-overriding-default-time (org-current-time))) 
(org-capture-set-target-location) (condition-case error (org-capture-put 
:template (org-capture-fill-template)) ((error quit) (if (get-buffer 
"*Capture*") (kill-buffer "*Capture*")) (error "Capture abort: %s" error))) 
(setq org-capture-clock-keep (org-capture-get :clock-keep)) (if (equal goto 0) 
(org-capture-insert-template-here) (condition-case error 
(org-capture-place-template (equal (car ...) (quote function))) ((error quit) 
(if (and ... ...) (kill-buffer ...)) (set-window-configuration (org-capture-get 
:return-to-wconf)) (error "Capture template `%s': %s" (org-capture-get :key) 
(nth 1 error)))) (if (and (derived-mode-p (quote org-mode)) (org-capture-get 
:clock-in)) (condition-case nil (progn (if ... ...) (org-clock-in) (set ... t)) 
(error "Could not start the clock in this capture buffer"))) (if 
(org-capture-get :immediate-finish) (org-capture-finalize))))))
  (cond ((equal goto (quote (4))) (org-capture-goto-target)) ((equal goto 
(quote (16))) (org-capture-goto-last-stored)) (t (let* ((orig-buf 
(current-buffer)) (annotation (if (and (boundp ...) 
org-capture-link-is-already-stored) (plist-get org-store-link-plist 
:annotation) (condition-case nil (progn ...) (error nil)))) (entry (or 
org-capture-entry (org-capture-select-template keys))) initial) (setq initial 
(or org-capture-initial (and (org-region-active-p) (buffer-substring (point) 
(mark))))) (if (stringp initial) (progn (remove-text-properties 0 (length 
initial) (quote (read-only t)) initial))) (if (stringp annotation) (progn 
(remove-text-properties 0 (length annotation) (quote (read-only t)) 
annotation))) (cond ((equal entry "C") (customize-variable (quote 
org-capture-templates))) ((equal entry "q") (user-error "Abort")) (t 
(org-capture-set-plist entry) (org-capture-get-template) (org-capture-put 
:original-buffer orig-buf :original-file (or (buffer-file-name orig-buf) (and 
... ...)) :original-file-nondirectory (and (buffer-file-name orig-buf) 
(file-name-nondirectory ...)) :annotation annotation :initial initial 
:return-to-wconf (current-window-configuration) :default-time (or 
org-overriding-default-time (org-current-time))) 
(org-capture-set-target-location) (condition-case error (org-capture-put 
:template (org-capture-fill-template)) ((error quit) (if ... ...) (error 
"Capture abort: %s" error))) (setq org-capture-clock-keep (org-capture-get 
:clock-keep)) (if (equal goto 0) (org-capture-insert-template-here) 
(condition-case error (org-capture-place-template ...) (... ... ... ...)) (if 
(and ... ...) (condition-case nil ... ...)) (if (org-capture-get 
:immediate-finish) (org-capture-finalize))))))))
  org-capture(nil)
  funcall-interactively(org-capture nil)
  call-interactively(org-capture nil nil)
  command-execute(org-capture)
--8<---------------cut here---------------end--------------->8---

Rainer

-- 
Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology, 
UCT), Dipl. Phys. (Germany)

Centre of Excellence for Invasion Biology
Stellenbosch University
South Africa

Tel :       +33 - (0)9 53 10 27 44
Cell:       +33 - (0)6 85 62 59 98
Fax :       +33 - (0)9 58 10 27 44

Fax (D):    +49 - (0)3 21 21 25 22 44

email:      address@hidden

Skype:      RMkrug

PGP: 0x0F52F982

signature.asc
Description: PGP signature