Remove obsolete function to skip tags in agenda views

This commit is contained in:
Daniel - 2023-04-29 17:28:35 +02:00
parent 8c9c47f6e3
commit a44b7b660e
Signed by: dbo
GPG Key ID: 784AA8DF0CCDF625
2 changed files with 0 additions and 19 deletions

View File

@ -741,7 +741,6 @@
org-dblock-write:db/org-workload-report
endless/org-ispell
db/org-agenda-list-deadlines
db/org-agenda-skip-tag
db/org-agenda-insert-active-filters
hydra-org-agenda-view/body
db/org-agenda-insert-efforts

View File

@ -146,24 +146,6 @@ Add this function to `org-agenda-finalize-hook' to enable this."
(propertize (format " [%s]" ff)
'db/active-filter-display t)))))))
(defun db/org-agenda-skip-tag (tag &optional others)
;; https://stackoverflow.com/questions/10074016/org-mode-filter-on-tag-in-agenda-view
"Skip all entries that correspond to TAG.
If OTHERS is true, skip all entries that do not correspond to TAG."
(let* ((next-headline (save-mark-and-excursion
(or (outline-next-heading) (point-max))))
(current-headline (or (and (org-at-heading-p)
(point))
(save-mark-and-excursion
;; remember to also consider invisible headings
(org-back-to-heading t))))
(has-tag (member tag (org-get-tags current-headline))))
(if (or (and others (not has-tag))
(and (not others) has-tag))
next-headline
nil)))
;; A Hydra for changing agenda appearance
;; http://oremacs.com/2016/04/04/hydra-doc-syntax/