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

[Timeline] Remove obsolete clustering filter function

This commit is contained in:
Daniel - 2018-11-28 15:45:15 +01:00
parent 57a8f25ea0
commit 0bfdf970d1
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
site-lisp/timeline-tools.el
View File

@ -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