Remove some unused functions

1 files changed, 1 insertions, 37 deletions

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 <tom@ryuslash.org>
 ;; 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)