acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Ignore DEADLINE and SCHEDULED in acdw-org/count-words-stupidly

This commit is contained in:
Case Duckworth 2021-10-06 16:50:40 -05:00
parent ee64ffc41f
commit 8974c4e56c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/acdw-org.el
View File

@ -299,11 +299,15 @@ instead of the true count."
;; Ignore headings
((or (org-at-heading-p))
(forward-line))
;; Ignore drawers
;; Ignore property and log drawers
((or (looking-at org-drawer-regexp)
(looking-at org-clock-drawer-re))
(search-forward ":END:" nil :noerror)
(forward-line))
;; Ignore DEADLINE and SCHEDULED keywords
((or (looking-at org-deadline-regexp)
(looking-at org-scheduled-regexp))
(forward-line))
;; Ignore tables
((org-at-table-p) (forward-line))
;; Ignore hyperlinks, but count the descriptions