summaryrefslogtreecommitdiff
path: root/emacs/lisp/fcuny-org-custom.el
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--emacs/lisp/fcuny-org-custom.el31
1 files changed, 0 insertions, 31 deletions
diff --git a/emacs/lisp/fcuny-org-custom.el b/emacs/lisp/fcuny-org-custom.el
deleted file mode 100644
index 8992f2d..0000000
--- a/emacs/lisp/fcuny-org-custom.el
+++ /dev/null
@@ -1,31 +0,0 @@
-(defun fcuny/org-new-datetree-at-point ()
- (interactive)
- (org-up-heading-safe)
- (org-datetree-find-date-create
- (calendar-gregorian-from-absolute (org-today))
- 'subtree-at-point))
-
-(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
-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)))
- (save-excursion
- (with-current-buffer (current-buffer)
- (org-cut-subtree)
- (if file (find-file file))
- (widen)
- (org-datetree-find-date-create date)
- (org-narrow-to-subtree)
- (show-subtree)
- (org-end-of-subtree t)
- (newline)
- (goto-char (point-max))
- (org-paste-subtree (+ org-datetree-base-level 3))
- (widen)))))
-
-(provide 'fcuny-org-custom)