diff options
| author | Franck Cuny <franck@fcuny.net> | 2021-02-12 14:57:18 -0800 |
|---|---|---|
| committer | Franck Cuny <franck@fcuny.net> | 2021-02-12 14:57:18 -0800 |
| commit | d6148fd8754efc7ca7e5e427203c8762664c713b (patch) | |
| tree | eb4058924089543e2a50ab86c97782115a91784f /emacs/lisp/fcuny-org-custom.el | |
| parent | org: more updates for captures (diff) | |
| download | emacs.d-d6148fd8754efc7ca7e5e427203c8762664c713b.tar.gz | |
elisp: clean up indentation
Diffstat (limited to '')
| -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) |