ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add Org mode view for my GTD inbox

Browse source
This commit is contained in:
Tom Willemse 2015-09-03 15:59:36 +02:00
parent 7909c2a170
commit 4d71be20ae
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
emacs/.emacs.d/site-lisp/org-init.el
View file

@ -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)