From 92c51e8406d69dffc1243462753f920b014fe81d Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Mon, 12 Jan 2015 14:09:18 -0800 Subject: [PATCH] Recently created TODO list. --- dotfiles/emacs.d/init.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index 486422a8..0779c43f 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -679,6 +679,7 @@ The current directory is assumed to be the project's root otherwise." ;; variable configuration (add-to-list 'org-modules 'org-habit) + (add-to-list 'org-modules 'org-expiry) (setq org-src-fontify-natively t) (setq org-habit-graph-column 50) (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>\"" ((org-agenda-overriding-header "Due today:")))) + (recently-created '(tags-todo + "+CREATED=>\"<-3d>\"" + ((org-agenda-overriding-header + "Recently created:")))) (missing-deadline '(tags-todo "-DEADLINE={.}/!" ((org-agenda-overriding-header @@ -755,6 +760,7 @@ The current directory is assumed to be the project's root otherwise." `(("M" "Main agenda view" (,due-today ,this-week-high-priority + ,recently-created (agenda "" ((org-agenda-overriding-header "Agenda:") (org-agenda-ndays 5) @@ -763,7 +769,8 @@ The current directory is assumed to be the project's root otherwise." ,missing-priority) nil nil) ,(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 (setq org-log-into-drawer t) (setq org-todo-keywords