From 4ecf6c941439133436bb6adacd9dd8c31bd3643e Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 25 Jun 2019 20:29:51 +0200 Subject: [PATCH] Add SCHEDULED support to +org/dwim-at-point --- modules/lang/org/autoload/org.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/modules/lang/org/autoload/org.el b/modules/lang/org/autoload/org.el index 08cdf82ca..954be6cff 100644 --- a/modules/lang/org/autoload/org.el +++ b/modules/lang/org/autoload/org.el @@ -87,14 +87,15 @@ If on a: (member "TOC" (org-get-tags))) (toc-org-insert-toc) (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 (if (eq (org-element-property :todo-type context) 'done) (or (car (+org-get-todo-keywords-for (org-element-property :todo-keyword context))) 'todo) 'done))) - ((string= "ARCHIVE" (car-safe (org-get-tags))) - (org-force-cycle-archived)) (t (+org/refresh-inline-images) (org-remove-latex-fragment-image-overlays)