ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH get todo state more efficiently

This commit is contained in:
Nathan Dwarshuis 2021-04-06 23:22:51 -04:00
parent b2c295f0fd
commit 8907ab75f6
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
local/lib/org-x/org-x.el
View File

@ -204,9 +204,7 @@ compared to REF-TIME. Returns nil if no timestamp is found."
(defun org-x-is-todoitem-p () (defun org-x-is-todoitem-p ()
"Return todo keyword if heading has one." "Return todo keyword if heading has one."
(let ((keyword (nth 2 (org-heading-components)))) (-some-> (org-get-todo-state) (substring-no-properties)))
(if (member keyword org-todo-keywords-1)
keyword)))
(defun org-x-is-project-p () (defun org-x-is-project-p ()
"Return todo keyword if heading has todoitem children." "Return todo keyword if heading has todoitem children."