[emacs] my-org-defer-entryHEADmaster

1 files changed, 11 insertions, 1 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-org.el b/emacs/.emacs.d/lisp/my/my-org.el
index 5a50673..b3b3f28 100644
--- a/emacs/.emacs.d/lisp/my/my-org.el
+++ b/emacs/.emacs.d/lisp/my/my-org.el
@@ -696,7 +696,7 @@ Interactively remove empty logbooks when called with prefix-arg \\[universal-arg
 					                                   (null (org-element-contents el)))
                                     (org-element-remove el)
                                     )))))))
-	(setq clocks (sort clocks #'org-element-clock-start<=))
+	      (setq clocks (sort clocks #'org-element-clock-start<=))
         (setq headline (org-element-map data 'headline 'identity nil t)) ;; get the first headline within data
         (or (org-element-map
                 (org-element-contents headline)
@@ -718,6 +718,16 @@ Interactively remove empty logbooks when called with prefix-arg \\[universal-arg
         (kill-region (point-min) (point-max))
         (insert (org-element-interpret-data data))))))
 
+(defun my-org-defer-entry ()
+  "Move current entry to the last of its parent."
+  (interactive)
+  (org-cut-subtree)
+  (save-excursion
+    (outline-up-heading 1)
+    (org-forward-heading-same-level 1)
+    (org-yank))
+  (message "Entry deferred."))
+
 (defun my-org-refile-cache-rebuild ()
   (org-refile-cache-clear)
   (org-refile-get-targets))