[Timeline] Cosmetics
This commit is contained in:
parent
4a93f1218a
commit
35518929d3
|
@ -400,11 +400,11 @@ archives."
|
||||||
(insert "|--|\n")
|
(insert "|--|\n")
|
||||||
(setq last-category (timeline-tools-entry-category cluster)))
|
(setq last-category (timeline-tools-entry-category cluster)))
|
||||||
(insert (format "| %s | %s | %s | %s min | "
|
(insert (format "| %s | %s | %s | %s min | "
|
||||||
(timeline-tools-entry-category cluster)
|
(timeline-tools-entry-category cluster)
|
||||||
(timeline-tools-format-entry-time cluster 'start)
|
(timeline-tools-format-entry-time cluster 'start)
|
||||||
(timeline-tools-format-entry-time cluster 'end)
|
(timeline-tools-format-entry-time cluster 'end)
|
||||||
(timeline-tools-entry-duration cluster)))
|
(timeline-tools-entry-duration cluster)))
|
||||||
;; insert headline line by line
|
;; insert headline line by line
|
||||||
(dolist (headline (-interpose "|\n |||||"
|
(dolist (headline (-interpose "|\n |||||"
|
||||||
(timeline-tools-entry-headlines cluster)))
|
(timeline-tools-entry-headlines cluster)))
|
||||||
(insert headline))
|
(insert headline))
|
||||||
|
@ -466,7 +466,8 @@ Interactively query for the exact value of \"short\"."
|
||||||
(let ((threshold (string-to-number
|
(let ((threshold (string-to-number
|
||||||
(read-from-minibuffer "Maximum time for short entries (in seconds): "))))
|
(read-from-minibuffer "Maximum time for short entries (in seconds): "))))
|
||||||
(setq-local timeline-tools--current-timeline
|
(setq-local timeline-tools--current-timeline
|
||||||
(timeline-tools-remove-short-entries timeline-tools--current-timeline threshold))
|
(timeline-tools-remove-short-entries
|
||||||
|
timeline-tools--current-timeline threshold))
|
||||||
(timeline-tools-redraw-timeline)))
|
(timeline-tools-redraw-timeline)))
|
||||||
|
|
||||||
(defun timeline-tools-jump-to-headline ()
|
(defun timeline-tools-jump-to-headline ()
|
||||||
|
|
Loading…
Reference in New Issue