[emacs] my-org-defer-entryHEADmaster

2 files changed, 12 insertions, 1 deletions

diff --git a/emacs/.emacs.d/init/ycp-org.el b/emacs/.emacs.d/init/ycp-org.el
index 77f720d..140b54d 100644
--- a/emacs/.emacs.d/init/ycp-org.el
+++ b/emacs/.emacs.d/init/ycp-org.el
@@ -346,6 +346,7 @@
 	        ("d" . org-deadline)
 	        ("s" . org-schedule)
 	        ("S" . org-toggle-narrow-to-subtree)
+	        ("V" . my-org-defer-entry)
 	        (";" . org-timer-set-timer)
 	        ("," . org-timer-pause-or-continue)
 	        ("h" . my-org-entry-toggle-drawer-visibility)
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))