Add SCHEDULED support to +org/dwim-at-point
This commit is contained in:
parent
4f5f51237e
commit
4ecf6c9414
1 changed files with 4 additions and 3 deletions
|
@ -87,14 +87,15 @@ If on a:
|
||||||
(member "TOC" (org-get-tags)))
|
(member "TOC" (org-get-tags)))
|
||||||
(toc-org-insert-toc)
|
(toc-org-insert-toc)
|
||||||
(message "Updating table of contents"))
|
(message "Updating table of contents"))
|
||||||
((org-element-property :todo-type context)
|
((string= "ARCHIVE" (car-safe (org-get-tags)))
|
||||||
|
(org-force-cycle-archived))
|
||||||
|
((or (org-element-property :todo-type context)
|
||||||
|
(org-element-property :scheduled context))
|
||||||
(org-todo
|
(org-todo
|
||||||
(if (eq (org-element-property :todo-type context) 'done)
|
(if (eq (org-element-property :todo-type context) 'done)
|
||||||
(or (car (+org-get-todo-keywords-for (org-element-property :todo-keyword context)))
|
(or (car (+org-get-todo-keywords-for (org-element-property :todo-keyword context)))
|
||||||
'todo)
|
'todo)
|
||||||
'done)))
|
'done)))
|
||||||
((string= "ARCHIVE" (car-safe (org-get-tags)))
|
|
||||||
(org-force-cycle-archived))
|
|
||||||
(t
|
(t
|
||||||
(+org/refresh-inline-images)
|
(+org/refresh-inline-images)
|
||||||
(org-remove-latex-fragment-image-overlays)
|
(org-remove-latex-fragment-image-overlays)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue