From 0fcd7ed11b719f0de89a4c76e7a281bb6b6f0bd4 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Sat, 16 Oct 2021 15:10:21 -0700 Subject: fcuny: remove unused org functions --- emacs/custom/fcuny-org.el | 1 - emacs/lisp/fcuny-org-custom.el | 31 ------------------------------- 2 files changed, 32 deletions(-) delete mode 100644 emacs/lisp/fcuny-org-custom.el diff --git a/emacs/custom/fcuny-org.el b/emacs/custom/fcuny-org.el index 2646a3b..cb3cab4 100644 --- a/emacs/custom/fcuny-org.el +++ b/emacs/custom/fcuny-org.el @@ -1,4 +1,3 @@ -(require 'fcuny-org-custom) (require 'fcuny-vars) (use-package org-ml 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) -- cgit 1.4.1