     (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 "s" #'timeline-tools-skip-short-entries)
     (define-key map "q" #'quit-window)
     map))
 

          (cl-remove-if (lambda (entry)
                          (<= (- (timeline-tools-entry-end-time entry)
                                 (timeline-tools-entry-start-time entry))
                              timeline-tools-short-task-threshold))
                        timeline))

    ;; reset start and end times

               (-mapcat #'timeline-tools-entry-markers cluster)))
            new-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.
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
