diff --git a/site-lisp/timeline-tools.el b/site-lisp/timeline-tools.el index 6583434..1ba854b 100644 --- a/site-lisp/timeline-tools.el +++ b/site-lisp/timeline-tools.el @@ -468,7 +468,8 @@ archives." (defun timeline-tools-redraw-timeline (&optional force) "Redraw timeline of current buffer. -If `force' is non-nil, reparse the timeline using + +If FORCE is non-nil, reparse the timeline using `timeline-tools-timeline' within the time span given by the current values of the relevant buffer local variables." (interactive) @@ -586,6 +587,9 @@ Updates category properties before constructing the new timeline." (interactive) (if (not (eq major-mode 'timeline-tools-mode)) (user-error "Not in Timeline buffer") + ;; CAVEAT: this does not work properly when daylight time saving occured. + ;; In that case, jump directly to the day you want to display. This is not + ;; going to be fixed. (setq-local timeline-tools--current-time-start (+ 86400 timeline-tools--current-time-start)) (setq-local timeline-tools--current-time-end (+ 86400 timeline-tools--current-time-end)) (timeline-tools-redraw-timeline 'force))) @@ -640,7 +644,7 @@ Updates category properties before constructing the new timeline." (forward-line (1- linenum)))) -;;; Manipulating Clocklines +;;; Manipulating Clocklines in Org Files ;; XXX: All this needs some autoloadable frontend