diff options
Diffstat (limited to 'emacs/.emacs.d/lisp/my')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-org.el | 12 |
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)) |