[elpa] master a500899 3/6: Added additional excludes to the Org example setup

[Ian Dunn]

branch: master
commit a500899b9415ae82166bfb1bda9de14fc11154d3
Author: Ian Dunn <address@hidden>
Commit: Ian Dunn <address@hidden>

    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