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

[Timeline] Make default value for skipping short entries customizable

Browse Source
This commit is contained in:
Daniel Borchmann 2018-08-03 20:14:39 +02:00
parent 8c4d4b4744
commit f2475711b7
Signed by: exot
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 :group 'timeline-tools
:type '(list function)) :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 ;; 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. A slot is short if it is not longer than THRESHOLD seconds.
Resulting gaps are distributed evenly among adjacent slots. 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))) (let ((start (timeline-tools-entry-start-time (-first-item timeline)))
(end (timeline-tools-entry-end-time (-last-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) new-timeline)
;; remove all slots that are too short ;; remove all slots that are too short