From 0c9f3e8994f12f2132e51fc2f32d698d6b8e8ab9 Mon Sep 17 00:00:00 2001 From: rearman Date: Mon, 27 Apr 2026 12:26:20 -0400 Subject: [PATCH] move defuns and settings into one file --- re/re-org-defuns.el | 35 ----------------------------------- re/re-org.el | 28 ++++++++++++++++++++++++++++ 2 files changed, 28 insertions(+), 35 deletions(-) delete mode 100644 re/re-org-defuns.el diff --git a/re/re-org-defuns.el b/re/re-org-defuns.el deleted file mode 100644 index c585603..0000000 --- a/re/re-org-defuns.el +++ /dev/null @@ -1,35 +0,0 @@ -;;; re-org-defuns.el -*- lexical-binding: t; -*- -;; This file is not part of GNU Emacs - -;;; Code: - -(defun re/org-auto-generate-ids-in-file () - "Add ID properties to all headlines in the current - file which do not already have one." - (interactive) - (org-map-entries 'org-id-get-create)) - -(defun re/org-save-all () - "Save all `org-agenda-files' without user confirmation." - (interactive) - (message "Saving all org-agenda-files buffers...") - (save-some-buffers t - (lambda () - (when (member (buffer-file-name) org-agenda-files) t))) - (message "Saving all org-agenda-files buffers... done")) - -(defun re/org-archive-all () - "Archive all tasks marked `DONE' in agenda files" - (interactive) - (message "Archiving all completed tasks in org-agenda-files...") - (org-map-entries (lambda () - (org-archive-subtree) - (setq org-map-continue-from (org-element-property - :begin - (org-element-at-point)))) - "/DONE" - 'agenda) - (message "Archiving all completed tasks in org-agenda-files... done")) - -(provide 're-org-defuns) -;;; re-org-defuns.el ends here diff --git a/re/re-org.el b/re/re-org.el index 708ab12..5e19337 100644 --- a/re/re-org.el +++ b/re/re-org.el @@ -166,9 +166,37 @@ org-attach-id-to-path-function-list '(org-attach-id-ts-folder-format org-attach-id-uuid-folder-format)) +(defun re/org-auto-generate-ids-in-file () + "Add ID properties to all headlines in the current + file which do not already have one." + (interactive) + (org-map-entries 'org-id-get-create)) + +(defun re/org-save-all () + "Save all `org-agenda-files' without user confirmation." + (interactive) + (message "Saving all org-agenda-files buffers...") + (save-some-buffers t + (lambda () + (when (member (buffer-file-name) org-agenda-files) t))) + (message "Saving all org-agenda-files buffers... done")) + (advice-add 'org-refile :after (lambda (&rest _) (re/org-save-all))) ;; Archiving (use re/org-archive-all periodically) +(defun re/org-archive-all () + "Archive all tasks marked `DONE' in agenda files" + (interactive) + (message "Archiving all completed tasks in org-agenda-files...") + (org-map-entries (lambda () + (org-archive-subtree) + (setq org-map-continue-from (org-element-property + :begin + (org-element-at-point)))) + "/DONE" + 'agenda) + (message "Archiving all completed tasks in org-agenda-files... done")) + (setq org-archive-location (concat "~/org/old.org_keep::datetree/") org-agenda-text-search-extra-files '(agenda-archives)) -- 2.39.5