dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Timeline] Extend ‘timeline-tools-clockline-no-org-agenda-conflicts’

This commit is contained in:
Daniel - 2019-02-16 11:25:38 +01:00
parent 016fbf3c10
commit 532e2ff22a
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
site-lisp/timeline-tools.el
View File

@ -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.