Архивирование всех выполненных состояний - PullRequest
Новая
       20

Архивирование всех выполненных состояний

3 голосов
/ 05 декабря 2011

Я хочу заархивировать все состояния задач DONE в файле. Приведенный ниже код расширяет функцию, указанную в ссылке (пожалуйста, посмотрите на комментарий в ссылке, чтобы понять, почему предоставленный ответ не работает) Как заархивировать все выполненные задачи с помощью одной команды как показано ниже 

(defun my-org-archive-subtree ()
  (if (string-match "^\*.* DONE" (buffer-substring-no-properties (point-at-bol) (point-at-eol)))
  (setq org-map-continue-from (point-at-bol))
  (setq org-map-continue-from nil))

(org-archive-subtree))

(defun my-org-archive-done-tasks ()
  (interactive)
  (org-map-entries 'my-org-archive-subtree "/DONE" (list "/home/myhome/org/office.org")))

, который, кажется, входит в бесконечный цикл для содержимого ниже в файле office.org с заголовком s2

* с1

** СДЕЛАНО ss1

* с2

** СЛЕДУЮЩИЙ ss2

** ссс3

Почему это входит в бесконечный цикл и как решить проблему.

Обновление: - Это было связано с ошибкой в ​​функции org-scan-tags, которая была вызвана org-map-records fn. Ошибка была сообщена и исправлена. Для просмотра обсуждений в списке рассылки нажмите здесь

...