1
0
Fork 0

Remove some unused functions

This commit is contained in:
Tom Willemse 2020-08-24 15:56:04 -07:00
parent 4354dd048f
commit 99a4c23dab

View file

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