Recently created TODO list.

This commit is contained in:
Ivan Malison 2015-01-12 14:09:18 -08:00
parent 82ca1f2994
commit 92c51e8406

View File

@ -679,6 +679,7 @@ The current directory is assumed to be the project's root otherwise."
;; variable configuration ;; variable configuration
(add-to-list 'org-modules 'org-habit) (add-to-list 'org-modules 'org-habit)
(add-to-list 'org-modules 'org-expiry)
(setq org-src-fontify-natively t) (setq org-src-fontify-natively t)
(setq org-habit-graph-column 50) (setq org-habit-graph-column 50)
(setq org-habit-show-habits-only-for-today t) (setq org-habit-show-habits-only-for-today t)
@ -742,6 +743,10 @@ The current directory is assumed to be the project's root otherwise."
"+DEADLINE=<\"<+0d>\"" "+DEADLINE=<\"<+0d>\""
((org-agenda-overriding-header ((org-agenda-overriding-header
"Due today:")))) "Due today:"))))
(recently-created '(tags-todo
"+CREATED=>\"<-3d>\""
((org-agenda-overriding-header
"Recently created:"))))
(missing-deadline (missing-deadline
'(tags-todo "-DEADLINE={.}/!" '(tags-todo "-DEADLINE={.}/!"
((org-agenda-overriding-header ((org-agenda-overriding-header
@ -755,6 +760,7 @@ The current directory is assumed to be the project's root otherwise."
`(("M" "Main agenda view" `(("M" "Main agenda view"
(,due-today (,due-today
,this-week-high-priority ,this-week-high-priority
,recently-created
(agenda "" (agenda ""
((org-agenda-overriding-header "Agenda:") ((org-agenda-overriding-header "Agenda:")
(org-agenda-ndays 5) (org-agenda-ndays 5)
@ -763,7 +769,8 @@ The current directory is assumed to be the project's root otherwise."
,missing-priority) ,missing-priority)
nil nil) nil nil)
,(cons "A" (cons "High priority upcoming" this-week-high-priority)) ,(cons "A" (cons "High priority upcoming" this-week-high-priority))
,(cons "od" (cons "Overdue tasks and due today" due-today))))) ,(cons "d" (cons "Overdue tasks and due today" due-today))
,(cons "r" (cons "Recently created" recently-created)))))
;; Record changes to todo states ;; Record changes to todo states
(setq org-log-into-drawer t) (setq org-log-into-drawer t)
(setq org-todo-keywords (setq org-todo-keywords