summary refs log tree commit diff
path: root/emacs
diff options
context:
space:
mode:
authorFranck Cuny <franck@fcuny.net>2021-10-16 15:10:21 -0700
committerFranck Cuny <franck@fcuny.net>2021-10-16 15:10:21 -0700
commit0fcd7ed11b719f0de89a4c76e7a281bb6b6f0bd4 (patch)
tree42005896b380ded92a922b223d987ab268679183 /emacs
parentorg: be specific about the refile targets (diff)
downloademacs.d-0fcd7ed11b719f0de89a4c76e7a281bb6b6f0bd4.tar.gz
fcuny: remove unused org functions
Diffstat (limited to '')
-rw-r--r--emacs/custom/fcuny-org.el1
-rw-r--r--emacs/lisp/fcuny-org-custom.el31
2 files changed, 0 insertions, 32 deletions
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)