awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add SCHEDULED support to +org/dwim-at-point

Browse Source
This commit is contained in:
Henrik Lissner
2019-06-25 20:29:51 +02:00
parent 4f5f51237e
commit 4ecf6c9414
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
modules/lang/org/autoload/org.el
View File

@ -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)