diff --git a/oni-org/oni-org.el b/oni-org/oni-org.el index f3a025b..28cd58b 100644 --- a/oni-org/oni-org.el +++ b/oni-org/oni-org.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse ;; Keywords: local -;; Version: 2020.0818.080153 +;; Version: 2020.0824.155403 ;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org-plus-contrib org-bullets org-edna diminish all-the-icons) ;; This program is free software; you can redistribute it and/or modify @@ -70,41 +70,6 @@ installs it will always be ~." ("[X]" . ?))) (prettify-symbols-mode)) -(defun oni-org-heading-has-predecessor-p () - "Determine if the heading at point has any predecessors. -Only tasks of a level greater than 3 are considered. A task has a -predecessor if there is a non-DONE sibling defined before it." - (let ((point (point))) - (save-excursion - (org-backward-heading-same-level 1 :invisible-ok) - (seq-let [level _ keyword] (org-heading-components) - (not (or (< level 3) - (= point (point)) - (member keyword org-done-keywords))))))) - -(defun oni-org-looking-for-tag-p (tag) - "Return t if we're currently looking for TAG in an agenda." - (and (eql 'org-tags-view (car org-agenda-redo-command)) - (string-match-p (rx-to-string `(and word-start ,tag word-end)) - org-agenda-query-string))) - -(defun oni-org-next-heading-position () - "Get the position of the next Org heading." - (or (ignore-errors - (org-forward-element) - (point)) - (point-max))) - -(defun oni-org-skip-tasks () - "Skip over tasks I don't want to see right now. -Tasks being skipped over include ones with the \"ex\" tag and -ones that have a predecessor." - (let ((tags (org-get-tags (point)))) - (when (or (and (not (oni-org-looking-for-tag-p "ex")) - (member "ex" tags)) - (oni-org-heading-has-predecessor-p)) - (oni-org-next-heading-position)))) - ;;;###autoload (defun oni-org-snippets-initialize () "Initialize the snippets for ‘oni-org’." @@ -212,7 +177,6 @@ _l_: Store link ^^ _j_: Journal entry ("A" (org-capture nil "a")) ("j" (org-capture nil "j"))) -(setq org-agenda-skip-function-global #'oni-org-skip-tasks) (setq org-agenda-tags-todo-honor-ignore-options t) (setq org-agenda-todo-ignore-scheduled 'future) (setq org-catch-invisible-edits 'error)