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

[Timeline] Don’t stack ‘car’ and ‘cdr’ too much 

For clarity and sanity.
This commit is contained in:
Daniel - 2018-01-24 21:09:26 +01:00
parent eebf3f0e35
commit 54a2edb223
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -212,8 +212,8 @@ Markers to org mode tasks are combined into a list."
(org-entry-get marker "CATEGORY")))
timeline)))
(mapcar (lambda (cluster)
(list (caar cluster) ; start of first entry
(cadar (last cluster)) ; end of last entry
(list (car (car cluster)) ; start of first entry
(cadr (car (last cluster))) ; end of last entry
(mapcar #'third cluster)))
new-timeline)))
@ -222,8 +222,8 @@ Markers to org mode tasks are combined into a list."
A slot is short if it is not longer than THRESHOLD seconds.
Resulting gaps are distributed evenly among adjacent slots."
(let ((start (caar timeline))
(end (cadar (last timeline)))
(let ((start (car (car timeline)))
(end (cadr (car (last timeline))))
new-timeline)
;; remove all slots that are too short
(setq new-timeline
@ -233,8 +233,8 @@ Resulting gaps are distributed evenly among adjacent slots."
timeline))
;; reset start and end times
(setf (caar new-timeline) start)
(setf (cadar (last new-timeline)) end)
(setf (car (car new-timeline)) start)
(setf (cadr (car (last new-timeline))) end)
;; distribute gaps evenly among adjacent slots
(cl-do