On 20/05/2023 22:01, Ihor Radchenko wrote:
> You can try to bisect your config to identify which part is triggering
> the problem. See
> https://list.orgmode.org/orgmode/87ee2nlslt.fsf@localhost/ and
> https://github.com/Malabarba/elisp-bug-hunter
I have been able to create a minimal set of init.el and WORK.org which
allows me to reproduce the problem
1) start Emacs
2) F6 (shortcut for capture)
3) create a task in the capture buffer
4) press C-c C-q and enjoy the loop
5) C-g breaks the loop
--- WORK.org
;; -*- coding: utf-8 -*-
#+TODO: WAIT(w) TODO(t) DELG(d) | DONE(x)
#+STARTUP: show2levels hidestars nologrepeat
#+ARCHIVE: %s_archive::
* CAPTURE
** Regulars
*** TODO [#C] -- Empty CAP.org/CAPTURE
SCHEDULED: <2023-05-26 Fri ++1w>
** Cap-X
** WAIT hello
:test:
** DONE read "acceptable use"
DEADLINE: <2023-05-19 Fri>
--- init.el
;; custom variables
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(org-capture-templates
'(("x" "Todo (test)" entry
(file+olp "/Users/pu/Workcloud/org/WORK.org" "CAPTURE" "Cap-X")
"* TODO %^{Task Description}" :prepend t)
("t" "Todo (work)" entry
(file+olp "~/Workcloud/org/WORK.org" "CAPTURE")
"* TODO %^{Task Description}" :prepend t)
("n" "Note (work)" entry
(file+olp "~/Workcloud/org/WORK.org" "CAPTURE")
"* %^{Note Description}" :prepend t))))
;; system-specific
(when (eq system-type 'darwin)
(setq ns-alternate-modifier 'meta)
(setq ns-right-alternate-modifier nil))
;; package: org
(add-hook
'org-load-hook
(lambda ()
(define-key org-mode-map "\C-ca" 'org-agenda)
(add-hook
'org-agenda-load-hook
(lambda ()
(define-key org-agenda-mode-map "\M-p" 'org-agenda-backward-block)
(define-key org-agenda-mode-map "\M-n" 'org-agenda-forward-block)))
(global-set-key (kbd "<f6>") 'org-capture)))
(defun pu/options ()
(interactive)
(pu/option-org))
(add-hook 'window-setup-hook 'pu/options)
(defun pu/option-org ()
(find-file "~/Workcloud/org/WORK.org"))
