diff options
| author |  Tom Willemse | 2015-09-03 15:59:36 +0200 |
|---|---|---|
| committer | Tom Willemse | 2015-09-03 15:59:36 +0200 |
| commit | 4d71be20ae935a61d30c7892f332b144c7497e52 (patch) | |
| tree | 9127569688bae5655e04c86996963f745507b956 /emacs/.emacs.d/site-lisp/org-init.el | |
| parent | 7909c2a1702b92e230cdf63ec73240dc0fbd874a (diff) | |
| download | dotfiles-4d71be20ae935a61d30c7892f332b144c7497e52.tar.gz dotfiles-4d71be20ae935a61d30c7892f332b144c7497e52.zip | |
Add Org mode view for my GTD inbox
Diffstat (limited to 'emacs/.emacs.d/site-lisp/org-init.el')
| -rw-r--r-- | emacs/.emacs.d/site-lisp/org-init.el | 6 |
1 files changed, 5 insertions, 1 deletions
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 "\\<ex\\>" 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) |