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

Introduce explicit force parameter for timeline reparsing

This commit is contained in:
Daniel - 2020-01-26 20:16:57 +01:00
parent 3f5ae63ea4
commit be43c611d9
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 7 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -439,7 +439,7 @@ interactively, START and END are queried with `org-read-date’."
(setq-local timeline-tools-time-format timeline-tools-time-format) (setq-local timeline-tools-time-format timeline-tools-time-format)
(setq-local timeline-tools-headline-time-format timeline-tools-headline-time-format) (setq-local timeline-tools-headline-time-format timeline-tools-headline-time-format)
(hl-line-mode) (hl-line-mode)
(timeline-tools-redraw-timeline)) (timeline-tools-redraw-timeline 'force))
(pop-to-buffer target-buffer) (pop-to-buffer target-buffer)
t)) t))
@ -459,16 +459,15 @@ archives."
(org-time-string-to-time date)) (org-time-string-to-time date))
files))) files)))
(defun timeline-tools-redraw-timeline () (defun timeline-tools-redraw-timeline (&optional force)
"Redraw timeline of current buffer. "Redraw timeline of current buffer.
If the current timeline is `nil' (via the buffer local variable If `force' is non-nil, reparse the timeline using
`timeline-tools--current-timeline', 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)
(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")
(unless timeline-tools--current-timeline (when force
(setq-local timeline-tools--current-timeline (setq-local timeline-tools--current-timeline
(timeline-tools-transform-timeline (timeline-tools-transform-timeline
(timeline-tools-timeline (timeline-tools-timeline
@ -515,8 +514,7 @@ Updates category properties before constructing the new timeline."
(dolist (file timeline-tools--current-files) (dolist (file timeline-tools--current-files)
(with-current-buffer (get-file-buffer file) (with-current-buffer (get-file-buffer file)
(org-refresh-category-properties))) (org-refresh-category-properties)))
(setq-local timeline-tools--current-timeline nil) (timeline-tools-redraw-timeline 'force))
(timeline-tools-redraw-timeline))
(defun timeline-tools-forward-day () (defun timeline-tools-forward-day ()
"Display timeline of next day." "Display timeline of next day."
@ -525,9 +523,7 @@ Updates category properties before constructing the new timeline."
(user-error "Not in Timeline buffer") (user-error "Not in Timeline buffer")
(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))
;; Set current timeline to nil to trigger reparsing (timeline-tools-redraw-timeline 'force)))
(setq-local timeline-tools--current-timeline nil)
(timeline-tools-redraw-timeline)))
(defun timeline-tools-backward-day () (defun timeline-tools-backward-day ()
"Display timeline of next day." "Display timeline of next day."
@ -538,9 +534,7 @@ Updates category properties before constructing the new timeline."
(- timeline-tools--current-time-start 86400)) (- timeline-tools--current-time-start 86400))
(setq-local timeline-tools--current-time-end (setq-local timeline-tools--current-time-end
(- timeline-tools--current-time-end 86400)) (- timeline-tools--current-time-end 86400))
;; Set current timeline to nil to trigger reparsing (timeline-tools-redraw-timeline 'force)))
(setq-local timeline-tools--current-timeline nil)
(timeline-tools-redraw-timeline)))
(defun timeline-tools-skip-short-entries () (defun timeline-tools-skip-short-entries ()
"Skip entries in current timeline that are too short. "Skip entries in current timeline that are too short.