                (-mapcat #'timeline-tools-entry-markers cluster)))
             new-timeline)))
 
-(defun timeline-tools-skip-short-entries (timeline)
-  "Skip entries shorter than THRESHOLD in TIMELINE.
+(defun timeline-tools-remove-short-entries (timeline &optional threshold)
+  "Remove entries from TIMELINE shorter than THRESHOLD.
 
 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."
   (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
         new-timeline)
 
     ;; remove all slots that are too short

    (define-key map "R" #'timeline-tools-reparse-timeline)
    (define-key map "f" #'timeline-tools-forward-day)
    (define-key map "b" #'timeline-tools-backward-day)
    (define-key map "q" #'quit-window)
    map))


                 timeline-tools--current-time-start
                 timeline-tools--current-time-end
                 timeline-tools--current-files))
    (timeline-tools-redraw-timeline)))

(defun timeline-tools-skip-short-entries ()
  "Skip entries in current timeline that are too short.
Interactively query for the exact value of \"short\"."
  (interactive)
  (when (not (eq major-mode 'timeline-tools-mode))
    (user-error "Not in Timeline buffer"))
  (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-redraw-timeline)))

