     (setq new-timeline
           (cl-remove-if (lambda (entry)
                           (<= (- (second entry) (first entry))
-                              threshold))
+                              timeline-tools-short-task-threshold))
                         timeline))
 
     ;; reset start and end times

  "Duration of task to be considered as short."
  :group 'timeline-tools
  :type 'integer)



                    (mapcar #'third cluster)))
            new-timeline)))

(defun timeline-tools-skip-short-entries (timeline)
  "Skip entries shorter than THRESHOLD in TIMELINE.

A slot is short if it is not longer than THRESHOLD seconds.
