diff options
| -rw-r--r-- | emacs/lisp/fcuny-org-custom.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/emacs/lisp/fcuny-org-custom.el b/emacs/lisp/fcuny-org-custom.el index d1b30cd..8992f2d 100644 --- a/emacs/lisp/fcuny-org-custom.el +++ b/emacs/lisp/fcuny-org-custom.el @@ -5,7 +5,7 @@ (calendar-gregorian-from-absolute (org-today)) 'subtree-at-point)) -(defun org-refile-to-datetree (&optional file) +(defun fcuny/org-refile-to-datetree (&optional file) "Refile a subtree to a datetree corresponding to it's timestamp. The current time is used if the entry has no timestamp. If FILE is nil, refile in the current file. A datetree within a subheading @@ -13,13 +13,12 @@ is possible if the heading has a property of DATE_TREE." (interactive "f") (let* ((datetree-date (or (org-entry-get nil "TIMESTAMP" t) (org-read-date t nil "now"))) - (date (org-date-to-gregorian datetree-date)) - ) + (date (org-date-to-gregorian datetree-date))) (save-excursion (with-current-buffer (current-buffer) (org-cut-subtree) (if file (find-file file)) - (widen) + (widen) (org-datetree-find-date-create date) (org-narrow-to-subtree) (show-subtree) @@ -27,7 +26,6 @@ is possible if the heading has a property of DATE_TREE." (newline) (goto-char (point-max)) (org-paste-subtree (+ org-datetree-base-level 3)) - (widen) - )))) + (widen))))) (provide 'fcuny-org-custom) |