diff options
author | Case Duckworth | 2022-07-06 16:47:51 -0500 |
---|---|---|
committer | Case Duckworth | 2022-07-06 16:47:51 -0500 |
commit | 58e163e03be262dd2ac7c8239e638cf880a38e09 (patch) | |
tree | 1d7d0917002ad4cc364adb27dbc71e95ae9a2e95 /lisp | |
parent | Rename +compat.el to avoid collision; add a thing (diff) | |
download | emacs-58e163e03be262dd2ac7c8239e638cf880a38e09.tar.gz emacs-58e163e03be262dd2ac7c8239e638cf880a38e09.zip |
apodsf8u
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/+org.el | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/lisp/+org.el b/lisp/+org.el index 6b956ae..2557671 100644 --- a/lisp/+org.el +++ b/lisp/+org.el | |||
@@ -730,6 +730,42 @@ When called with a prefix ARG, will still unconditionally call | |||
730 | (t #'org-return))))) | 730 | (t #'org-return))))) |
731 | 731 | ||
732 | 732 | ||
733 | ;;; move org archives to a dedicated file | ||
734 | (defun +org-archive-monthwise (archive-file) | ||
735 | (if (file-exists-p archive-file) | ||
736 | (with-current-buffer (find-file-noselect archive-file) | ||
737 | (let ((dir (file-name-directory (file-truename archive-file))) | ||
738 | (prog (make-progress-reporter (format "Archiving from %s..." archive-file))) | ||
739 | (keep-going t)) | ||
740 | (goto-char (point-min)) | ||
741 | (while keep-going | ||
742 | (when-let* ((time (or (org-entry-get (point) "ARCHIVE_TIME") | ||
743 | (org-get-deadline-time (point)))) | ||
744 | (parsed-time (and time | ||
745 | (org-parse-time-string time))) | ||
746 | (refile-target (format "%s%02d-%02d.org" | ||
747 | dir | ||
748 | (decoded-time-year parsed-time) | ||
749 | (decoded-time-month parsed-time))) | ||
750 | (title-str (format "#+title: Archive for %02d-%02d (%s)\n\n" | ||
751 | (decoded-time-year parsed-time) | ||
752 | (decoded-time-month parsed-time) | ||
753 | (file-truename archive-file)))) | ||
754 | (unless (file-exists-p refile-target) | ||
755 | (with-current-buffer (find-file-noselect refile-target) | ||
756 | (insert title-str) | ||
757 | (save-buffer))) | ||
758 | (org-refile nil nil (list "" | ||
759 | refile-target | ||
760 | nil | ||
761 | 0))) | ||
762 | (progress-reporter-update prog) | ||
763 | (org-next-visible-heading 1) | ||
764 | (when (>= (point) (point-max)) | ||
765 | (setq keep-going nil))))) | ||
766 | (message "Archive file %s does not exist!" archive-file))) | ||
767 | |||
768 | |||
733 | ;;; el-patch | 769 | ;;; el-patch |
734 | 770 | ||
735 | (el-patch-defun org-format-outline-path (path &optional width prefix separator) | 771 | (el-patch-defun org-format-outline-path (path &optional width prefix separator) |