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

[Timeline] Make default value for skipping short entries customizable

This commit is contained in:
Daniel - 2018-08-03 20:14:39 +02:00
parent 8c4d4b4744
commit f2475711b7
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,6 +27,11 @@ Filter are applied in the order they are given in this list."
:group 'timeline-tools
:type '(list function))
(defcustom timeline-tools-short-task-threshold 300
"Duration of task to be considered as short."
:group 'timeline-tools
:type 'integer)
;; Mode definition
@ -293,10 +298,11 @@ Markers to org mode tasks are combined into a list."
A slot is short if it is not longer than THRESHOLD seconds.
Resulting gaps are distributed evenly among adjacent slots.
THRESHOLD defaults to 300 seconds if not supplied."
THRESHOLD defaults to the value of
`timeline-tools-short-task-threshold’ if not supplied."
(let ((start (timeline-tools-entry-start-time (-first-item timeline)))
(end (timeline-tools-entry-end-time (-last-item timeline)))
(threshold (or threshold 300)) ; magic number, should be customizable or something
(threshold (or threshold timeline-tools-short-task-threshold))
new-timeline)
;; remove all slots that are too short