branch: master commit a500899b9415ae82166bfb1bda9de14fc11154d3 Author: Ian Dunn <du...@gnu.org> Commit: Ian Dunn <du...@gnu.org>
Added additional excludes to the Org example setup * paced.org (Org Agenda Files): Added keywords, heading prefixes, item bullets, timestamps, horizontal lines, and todo keywords to excluded items. --- paced.org | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/paced.org b/paced.org index 04624dd..6ce0ed0 100644 --- a/paced.org +++ b/paced.org @@ -477,6 +477,21 @@ added to ~paced-async.el~: (when (match-string 1) (<= (match-beginning 1) p (match-end 1)))))) +(defun org-at-keyword-p () + "Return non-nil if point is at a keyword such as #+TITLE." + (save-excursion + (beginning-of-line) + (looking-at-p "^#\\+"))) + +(defun org-at-heading-prefix-p () + "Return non-nil if looking at the leading stars of a heading." + (looking-at outline-regexp)) + +(defun org-at-hline-p () + (save-excursion + (beginning-of-line) + (looking-at-p "^-----"))) + (defun org-paced-exclude () (or ;; Drawers @@ -484,6 +499,12 @@ added to ~paced-async.el~: (org-in-regexp ":END:") ;; but this does (org-at-tag-p) ;; tags + (org-at-keyword-p) ;; Keywords, such as #+TITLE + (org-at-heading-prefix-p) ;; Leading stars of a heading + (org-at-item-bullet-p) ;; Item Bullets + (org-at-timestamp-p) ;; Timestamps + (looking-at-p org-todo-regexp) ;; TODO keywords + (org-at-hline-p) ;; H-lines (org-at-comment-p) ;; comments (org-in-regexp org-any-link-re) ;; links