Remove some unused functions
This commit is contained in:
parent
4354dd048f
commit
99a4c23dab
1 changed files with 1 additions and 37 deletions
|
@ -4,7 +4,7 @@
|
||||||
|
|
||||||
;; Author: Tom Willemse <tom@ryuslash.org>
|
;; Author: Tom Willemse <tom@ryuslash.org>
|
||||||
;; Keywords: local
|
;; 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)
|
;; 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
|
;; This program is free software; you can redistribute it and/or modify
|
||||||
|
@ -70,41 +70,6 @@ installs it will always be ~."
|
||||||
("[X]" . ?)))
|
("[X]" . ?)))
|
||||||
(prettify-symbols-mode))
|
(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
|
;;;###autoload
|
||||||
(defun oni-org-snippets-initialize ()
|
(defun oni-org-snippets-initialize ()
|
||||||
"Initialize the snippets for ‘oni-org’."
|
"Initialize the snippets for ‘oni-org’."
|
||||||
|
@ -212,7 +177,6 @@ _l_: Store link ^^ _j_: Journal entry
|
||||||
("A" (org-capture nil "a"))
|
("A" (org-capture nil "a"))
|
||||||
("j" (org-capture nil "j")))
|
("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-tags-todo-honor-ignore-options t)
|
||||||
(setq org-agenda-todo-ignore-scheduled 'future)
|
(setq org-agenda-todo-ignore-scheduled 'future)
|
||||||
(setq org-catch-invisible-edits 'error)
|
(setq org-catch-invisible-edits 'error)
|
||||||
|
|
Loading…
Reference in a new issue