From 4d71be20ae935a61d30c7892f332b144c7497e52 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Thu, 3 Sep 2015 15:59:36 +0200 Subject: [PATCH] Add Org mode view for my GTD inbox --- emacs/.emacs.d/site-lisp/org-init.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/emacs/.emacs.d/site-lisp/org-init.el b/emacs/.emacs.d/site-lisp/org-init.el index 2462075..02d21de 100644 --- a/emacs/.emacs.d/site-lisp/org-init.el +++ b/emacs/.emacs.d/site-lisp/org-init.el @@ -98,7 +98,9 @@ predecessor if there is a non-DONE sibling defined before it." (defun org-init-skip-tags () "Skip the \"ex\" and \"unconfirmed\" tags." (let ((tags (org-get-tags-at (point)))) - (when (or (member "ex" tags) + (when (or (and (not (and (eql 'org-tags-view (car org-agenda-redo-command)) + (string-match "\\" org-agenda-query-string))) + (member "ex" tags)) (member "unconfirmed" tags) (oni:org-heading-has-predecessor-p)) (oni:next-heading-position)))) @@ -140,6 +142,8 @@ predecessor if there is a non-DONE sibling defined before it." ("w" "Org protocol task" entry (file+headline "~/documents/org/tasks" "Inbox") "* TODO %^{Title|%:description}\n\n Source: %u, %c\n\n %i" :empty-lines-before 1))) +(setq org-agenda-custom-commands + '(("i" tags-todo "+ex+inbox+TODO=\"TODO\""))) (setq org-contacts-files '("~/documents/org/misc/contacts.org")) (setq org-agenda-show-outline-path nil) (setq org-agenda-todo-ignore-deadlines 'far)