sort recently-created by creation date.

This commit is contained in:
Ivan Malison 2015-01-18 14:40:55 -08:00
parent 25ba6d7f78
commit c9c97f9389

View File

@ -143,6 +143,16 @@
;; functions
;; =============================================================================
(defun cmp-int-list (a b)
(when (and a b)
(cond ((> (car a) (car b)) 1)
((< (car a) (car b)) -1)
(t (cmp-int-list (cdr a) (cdr b))))))
(defun get-date-created-from-agenda-entry (agenda-entry)
(org-time-string-to-time
(org-entry-get (get-text-property 1 'org-marker agenda-entry) "CREATED")))
(defun narrow-to-region-indirect (start end)
"Restrict editing in this buffer to the current region, indirectly."
(interactive "r")
@ -674,6 +684,11 @@ The current directory is assumed to be the project's root otherwise."
(defun org-capture-make-linked-todo-template ()
(org-capture-make-todo-template "%? %A"))
(defun org-cmp-creation-times (a b)
(let ((a-created (get-date-created-from-agenda-entry a))
(b-created (get-date-created-from-agenda-entry b)))
(cmp-int-list a-created b-created)))
(defun org-agenda-done (&optional arg)
"Mark current TODO as done.
This changes the line at point, all other lines in the agenda referring to
@ -773,8 +788,9 @@ the same tree node, and the headline of the tree node in the Org-mode file."
"Due today:"))))
(recently-created '(tags-todo
"+CREATED=>\"<-3d>\""
((org-agenda-overriding-header
"Recently created:"))))
((org-agenda-overriding-header "Recently created:")
(org-agenda-cmp-user-defined 'org-cmp-creation-times)
(org-agenda-sorting-strategy '(user-defined-down)))))
(missing-deadline
'(tags-todo "-DEADLINE={.}/!"
((org-agenda-overriding-header