diff --git a/init.el b/init.el index 6ed5303..6c37ea6 100644 --- a/init.el +++ b/init.el @@ -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 diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 8eaaa70..cecf78f 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -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/