[Timeline] Extend ‘timeline-tools-clockline-no-org-agenda-conflicts’
This commit is contained in:
parent
016fbf3c10
commit
532e2ff22a
|
@ -669,7 +669,9 @@ not given, update clock lines in the buffer of TARGET-MARKER."
|
||||||
(defun timeline-tools-clockline-no-org-agenda-conflicts ()
|
(defun timeline-tools-clockline-no-org-agenda-conflicts ()
|
||||||
"Read clock line from user and return it.
|
"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"))
|
(let* ((now (format-time-string "%H:%M"))
|
||||||
(start (org-read-date t nil nil "Started: " (current-time) now))
|
(start (org-read-date t nil nil "Started: " (current-time) now))
|
||||||
(end (org-read-date t nil nil "Ended: " (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 start)
|
||||||
(org-time-string-to-seconds end)
|
(org-time-string-to-seconds end)
|
||||||
(mapcar #'find-file-noselect
|
(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)
|
(defun timeline-tools-copy-clocklines (source-id target-id)
|
||||||
"Copy clock lines from SOURCE-ID to TARGET-ID.
|
"Copy clock lines from SOURCE-ID to TARGET-ID.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user