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

[Timeline] Cosmetics

This commit is contained in:
Daniel - 2018-07-31 16:04:20 +02:00
parent 4a93f1218a
commit 35518929d3
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -400,11 +400,11 @@ archives."
(insert "|--|\n")
(setq last-category (timeline-tools-entry-category cluster)))
(insert (format "| %s | %s | %s | %s min | "
(timeline-tools-entry-category cluster)
(timeline-tools-format-entry-time cluster 'start)
(timeline-tools-format-entry-time cluster 'end)
(timeline-tools-entry-duration cluster)))
;; insert headline line by line
(timeline-tools-entry-category cluster)
(timeline-tools-format-entry-time cluster 'start)
(timeline-tools-format-entry-time cluster 'end)
(timeline-tools-entry-duration cluster)))
;; insert headline line by line
(dolist (headline (-interpose "|\n |||||"
(timeline-tools-entry-headlines cluster)))
(insert headline))
@ -466,7 +466,8 @@ Interactively query for the exact value of \"short\"."
(let ((threshold (string-to-number
(read-from-minibuffer "Maximum time for short entries (in seconds): "))))
(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)))
(defun timeline-tools-jump-to-headline ()