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

Perform code cosmetics in timeline tools

This commit is contained in:
Daniel - 2022-03-31 13:04:55 +02:00
parent 8068107326
commit 9f0a890b1c
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -468,7 +468,8 @@ archives."
(defun timeline-tools-redraw-timeline (&optional force) (defun timeline-tools-redraw-timeline (&optional force)
"Redraw timeline of current buffer. "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 `timeline-tools-timeline' within the time span given by the
current values of the relevant buffer local variables." current values of the relevant buffer local variables."
(interactive) (interactive)
@ -586,6 +587,9 @@ Updates category properties before constructing the new timeline."
(interactive) (interactive)
(if (not (eq major-mode 'timeline-tools-mode)) (if (not (eq major-mode 'timeline-tools-mode))
(user-error "Not in Timeline buffer") (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-start (+ 86400 timeline-tools--current-time-start))
(setq-local timeline-tools--current-time-end (+ 86400 timeline-tools--current-time-end)) (setq-local timeline-tools--current-time-end (+ 86400 timeline-tools--current-time-end))
(timeline-tools-redraw-timeline 'force))) (timeline-tools-redraw-timeline 'force)))
@ -640,7 +644,7 @@ Updates category properties before constructing the new timeline."
(forward-line (1- linenum)))) (forward-line (1- linenum))))
;;; Manipulating Clocklines ;;; Manipulating Clocklines in Org Files
;; XXX: All this needs some autoloadable frontend ;; XXX: All this needs some autoloadable frontend