#+BEGIN_SRC emacs-lisp
(defvar *re/org-agenda-inbox*
'(tags "CATEGORY=\"inbox\"" ((org-agenda-skip-function
- '(org-agenda-skip-entry-if 'regexp "^\\* ")))))
+ '(org-agenda-skip-entry-if 'regexp "^\\* "))
+ (org-agenda-overriding-header "INBOX:"))))
(defvar *re/org-agenda-todo*
'(tags-todo "-recurring/TODO" ((org-agenda-overriding-header "NEXT:"))))
'(org-agenda-skip-entry-if 'notregexp "^\\*\\* ")))))
(defvar *re/org-agenda-waiting*
- '(todo "WAITING" ((org-agenda-skip-function
- '(org-agenda-skip-entry-if 'regexp "^\\*\\* "))
- (org-agenda-overriding-header "WAITIŊ:"))))
-
-(defvar *re/org-agenda-two-week-overview*
- '(agenda "" ((org-agenda-span 14)
- (org-agenda-start-day "+1d")
- (org-agenda-start-on-weekday nil)
- (org-agenda-overriding-header "TWO-WEEK UPCOMIŊ:"))))
+ '(todo "WAITING" ((org-agenda-overriding-header "WAITIŊ:"))))
(setq org-agenda-custom-commands `(("i" "Inbox" ,@*re/org-agenda-inbox*)
("n" "Next Actions" ,@*re/org-agenda-todo*)
("u" "Undertakings" ,@*re/org-agenda-undertakings*)
("w" "Waiting" ,@*re/org-agenda-waiting*)
- ("o" "Overview" ((agenda)
- (tags-todo "-recurring/-MEETING")))))
+ ("o" "Overview" (,*re/org-agenda-inbox*
+ ,,*re/org-agenda-todo*
+ ,,*re/org-agenda-waiting*))))
#+END_SRC
***** Capture Templates
#+BEGIN_SRC emacs-lisp