Keep imalison: prefix for reschedule-past-to-today
Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
This commit is contained in:
@@ -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:
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user