Commit faecdfaa authored by Victor A. Stoichiţă's avatar Victor A. Stoichiţă
Browse files

remove org-agenda-skip-gtd-style

parent 8b5ce087
......@@ -125,23 +125,6 @@
(search . " %i %-12:c")))
(setq org-agenda-remove-tags-when-in-prefix 'prefix)
(defun vic/org-agenda-skip-gtd-style (types)
"Skip all but the first non-done entry.
Idea from Nicolas Petton https://emacs.cafe/emacs/orgmode/gtd/2017/06/30/orgmode-gtd.html
TYPES is a list of todo states to check and maybe skip."
(let ((should-skip-entry (unless
(and
(org-get-todo-state) ;; skip if not todo
(not (equal (nth 0 (org-get-tags)) "unjour")) ;; skip if tagged "unjour" (file tag)
t))))
(save-excursion
(while (and (not should-skip-entry) (org-goto-sibling t))
(when (member (org-get-todo-state) types)
(setq should-skip-entry t))))
(when should-skip-entry
(or (outline-next-heading)
(goto-char (point-max))))))
(setq org-agenda-custom-commands
'(("v" "Agenda sans todo" agenda* ""
((org-agenda-files '("~/calendriers"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment