From 532e2ff22ac8a7f029ef184293da0aabb107b9af Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 16 Feb 2019 11:25:38 +0100 Subject: [PATCH] =?UTF-8?q?[Timeline]=20Extend=20=E2=80=98timeline-tools-c?= =?UTF-8?q?lockline-no-org-agenda-conflicts=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- site-lisp/timeline-tools.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/site-lisp/timeline-tools.el b/site-lisp/timeline-tools.el index a533e37..737a21b 100644 --- a/site-lisp/timeline-tools.el +++ b/site-lisp/timeline-tools.el @@ -669,7 +669,9 @@ not given, update clock lines in the buffer of TARGET-MARKER." (defun timeline-tools-clockline-no-org-agenda-conflicts () "Read clock line from user and return it. -Update all files in `org-agenda-files’ to update conflicting clock lines." +Update all files in `org-agenda-files’ to update conflicting +clock lines, without restrictions. If `org-agenda-archive-mode’ +is set, also include archive files." (let* ((now (format-time-string "%H:%M")) (start (org-read-date t nil nil "Started: " (current-time) now)) (end (org-read-date t nil nil "Ended: " (current-time) now))) @@ -677,7 +679,8 @@ Update all files in `org-agenda-files’ to update conflicting clock lines." (org-time-string-to-seconds start) (org-time-string-to-seconds end) (mapcar #'find-file-noselect - (cl-remove-if-not #'file-exists-p org-agenda-files))))) + (cl-remove-if-not #'file-exists-p + (org-agenda-files t 'ifmode)))))) (defun timeline-tools-copy-clocklines (source-id target-id) "Copy clock lines from SOURCE-ID to TARGET-ID.