Commit 170332d7d97f

@@ -1722,6 +1722,29 @@
        (setq org-agenda-files (find-lisp-find-files org-todos-directory "\.org$"))
        ;; (setq org-enforce-todo-dependencies t)
        (setq org-enforce-todo-checkbox-dependencies t)
+
+       ;;open agenda in current window
+       (setq org-agenda-window-setup (quote current-window))
+       ;;warn me of any deadlines in next 7 days
+       (setq org-deadline-warning-days 7)
+       ;;show me tasks scheduled or due in next fortnight
+       (setq org-agenda-span (quote fortnight))
+       ;;don't show tasks as scheduled if they are already shown as a deadline
+       (setq org-agenda-skip-scheduled-if-deadline-is-shown t)
+       ;;don't give awarning colour to tasks with impending deadlines
+       ;;if they are scheduled to be done
+       (setq org-agenda-skip-deadline-prewarning-if-scheduled (quote pre-scheduled))
+       ;;don't show tasks that are scheduled or have deadlines in the
+       ;;normal todo list
+       (setq org-agenda-todo-ignore-deadlines (quote all))
+       (setq org-agenda-todo-ignore-scheduled (quote all))
+       ;;sort tasks in order of when they are due and then by priority
+       (setq org-agenda-sorting-strategy
+         (quote
+          ((agenda deadline-up priority-down)
+           (todo priority-down category-keep)
+           (tags priority-down category-keep)
+           (search category-keep))))
      #+end_src
 
      We'll also set which files should be opened using org-mode :