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
