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

[Org] Use ‘sort’ instead of ‘cl-sort’ 

Should be equally fast, and is simpler.
This commit is contained in:
Daniel - 2017-12-03 10:17:19 +01:00
parent 62a2154d28
commit 5d347b1112
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
site-lisp/db-org.el
View File

@ -1053,9 +1053,9 @@ resulting list are sorted by START, ascending."
(dolist (clock-time (cdr entry))
(push (list (car clock-time) (cdr clock-time) (car entry))
turned-around-timeline)))
(cl-sort turned-around-timeline
(lambda (entry-1 entry-2)
(< (car entry-1) (car entry-2))))))
(sort turned-around-timeline
(lambda (entry-1 entry-2)
(< (car entry-1) (car entry-2))))))
(defun db/org-format-timeline (tstart tend &optional files)
"Display timeline of tasks in FILES between TSTART and TEND.