Как сделать заметку под заголовком "Интерактивный ввод"

Question

Я использую шаблон захвата из этого сообщения . Сценарий позволяет мне выбирать, под каким заголовком я хочу разместить новую заметку. Я хочу использовать этот сценарий, чтобы я мог динамически выбирать под заголовком ведьмы для хранения моей новой заметки.

Вместо использования entry (file+headline "~/org/gtd.org" "Movies"), где заголовки предварительно определены

К сожалению, этот сценарий не работает должным образом. Он не записывает его под правильный заголовок, но создает новый заголовок с таким результатом

* inbox.org/Movies
*  Watch new james bond movie
<2020-07-12 Sun 17:03:28>

Вместо создания заголовка в файле inbox.org под

* Movies
**  Watch new james bond movie
<2020-07-12 Sun 17:03:28>

(setq org-capture-templates  
(append org-capture-templates
     (quote (

                ("t" "add task")
    
("to" "other" 
entry (file+function "~/org/gtd.org" org-ask-location)
    "\n\n** %?\n<%<%Y-%m-%d %a %T>>"
    :empty-lines 1)


               )
        )
     )
)



(defun org-ask-location ()
  (let* ((org-refile-targets '((nil :maxlevel . 9)))
         (hd (condition-case nil
                 (car (org-refile-get-location "Headline" nil t))
               (error (car org-refile-history)))))
    (goto-char (point-min))
    (outline-next-heading)
    (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\n"))
      (insert "* " hd "\n\n")))
    (end-of-line))