From 0bfdf970d1031dce99125298d93919480a3c7442 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Wed, 28 Nov 2018 15:45:15 +0100 Subject: [PATCH] [Timeline] Remove obsolete clustering filter function --- site-lisp/timeline-tools.el | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/site-lisp/timeline-tools.el b/site-lisp/timeline-tools.el index 65ce829..e260b0b 100644 --- a/site-lisp/timeline-tools.el +++ b/site-lisp/timeline-tools.el @@ -286,17 +286,6 @@ archives." (< (timeline-tools-entry-start-time entry-1) (timeline-tools-entry-start-time entry-2)))))) -(defun timeline-tools-cluster-same-category (timeline) - "Cluster TIMELINE into consecutive entries with equal category. -Markers to org mode tasks are combined into a list." - (let ((new-timeline (-partition-by #'timeline-tools-entry-category timeline))) - (mapcar (lambda (cluster) - (timeline-tools-make-entry - (timeline-tools-entry-start-time (-first-item cluster)) - (timeline-tools-entry-end-time (-last-item cluster)) - (-mapcat #'timeline-tools-entry-markers cluster))) - new-timeline))) - (defun timeline-tools-cluster-same-entry (timeline) "Cluster TIMELINE into consecutive entries with equal marker. This only works if every entry in timeline consists of a