Keep imalison: prefix for reschedule-past-to-today

Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
This commit is contained in:
2026-01-31 18:49:52 -08:00
parent ad5c3fc8ed
commit 317019d5bc
2 changed files with 2 additions and 5 deletions

View File

@@ -210,7 +210,7 @@ This function finds all incomplete items in the agenda files that are scheduled
in the past and reschedules them to today. Useful for catching up on tasks that in the past and reschedules them to today. Useful for catching up on tasks that
have slipped past their original scheduled date. have slipped past their original scheduled date.
#+begin_src emacs-lisp :tangle org-config-config.el #+begin_src emacs-lisp :tangle org-config-config.el
(defun org-reschedule-past-to-today () (defun imalison:reschedule-past-to-today ()
"Reschedule all incomplete items scheduled in the past to today. "Reschedule all incomplete items scheduled in the past to today.
Iterates through all org-agenda files and reschedules any TODO items Iterates through all org-agenda files and reschedules any TODO items
that have a SCHEDULED date before today to the current date." that have a SCHEDULED date before today to the current date."
@@ -229,9 +229,6 @@ that have a SCHEDULED date before today to the current date."
nil nil
'agenda) 'agenda)
(message "Rescheduled %d items to today" rescheduled-count))) (message "Rescheduled %d items to today" rescheduled-count)))
;; Keep old name as alias for backwards compatibility
(defalias 'imalison:reschedule-past-to-today 'org-reschedule-past-to-today)
#+end_src #+end_src
#+RESULTS: #+RESULTS:

View File

@@ -251,6 +251,6 @@ Returns nil for non-entry templates or templates that can't be converted."
;; Register exposed functions for remote execution via /call-function endpoint ;; Register exposed functions for remote execution via /call-function endpoint
(setq org-agenda-api-exposed-functions (setq org-agenda-api-exposed-functions
'((org-reschedule-past-to-today :name "Reschedule Overdue to Today"))) '((imalison:reschedule-past-to-today :name "Reschedule Overdue to Today")))
;;; custom-config.el ends here ;;; custom-config.el ends here