org agenda bulk todo with note

[pinmacs <pinmacs@cas.cat>]

[-- Attachment #1: Type: text/plain, Size: 3091 bytes --]

Given:

1. A tendency of massively marking all items as schedule [1]
2. Some of that items should be done on daily basis (I generate them 
with a daily template and the power of org-capture)
3. Life happens and some of them are accumulated, for my last case, that 
was 29 entries pending to be processed

Action:

I procedure with a batch action for that 29 entries (imagine here a 
batch script), and now that it is done, then I need to clear it up from 
my org-agenda

org-agenda-bulk-action  [2] does not serve me because it marks the TODO 
thing without a note, and it's not possible to add a note with the 
prefix. Going to offtopic, I also discovered that does not respect the 
enforce-todo-dependencies [3], ignores if that entries have child todo 
items.

I tried to create a org-agenda-bulk-custom-functions but I failed 
because I wanted a chosen state and a shared note for all the bulk items 
and the way that functions work cannot be done.

But the bulk items are in a variable (nice), 
org-agenda-bulk-marked-entries, and you can traverse it with a generic 
function, so I did it. It took me, unexpectetly, 1h30m to get it working 
(and I could not find other stuff around), so I am sharing what I have 
done so other people can benefit, and by the way, I would like to know 
what do you think of that approach and if you have ideas to improve it.

See it attached in file org-agenda-bulk-todo-with-note.el

With that script I added a note of resolution of that items saying that 
it was resolved through my task with CUSTOM_ID/ID X (like when you close 
multiple issues in a ticketing software) [4]

A healthy 2025 for you guys,
pinmacs


[1] offtopic, but I am sharing it anyway

#+begin_src emacs-lisp
(defun my/org-heading-insert-scheduled ()
   (if (or
        (and (string-match-p my/diary-file (buffer-name))
             (= (org-current-level) 4))
        (and (string-match-p my/board-file (buffer-name))
             (= (org-current-level) 4))
        (and (string-match-p "projects.org" (buffer-name))
             ;; projects are 4-level (tasks start at 6-level, we don't 
care on its children)
             (> (org-current-level) 5))
        (and (string-match-p "projects-candidates.org" (buffer-name))
             ;; projects are 4-level (tasks start at 3-level, we don't 
care on its children)
             (> (org-current-level) 3))
        )
       (save-excursion
         ;; src 
https://emacs.stackexchange.com/questions/72147/org-mode-adding-creation-date-property-upon-heading-creation
         ;;(org-back-to-heading)
         (org-schedule nil (format-time-string "[%Y-%m-%d %a]" nil)))))

(add-hook 'org-insert-heading-hook 'my/org-heading-insert-scheduled 'append)
#+end_src

[2] https://orgmode.org/manual/Agenda-Commands.html

[3] (setq org-enforce-todo-dependencies t) 
https://orgmode.org/manual/TODO-dependencies.html

[4] all that state changes are stored, in my case, in (setq 
org-log-state-notes-into-drawer "TRACE")

[-- Attachment #2: org-agenda-bulk-todo-with-note.el --]
[-- Type: text/x-emacs-lisp, Size: 1081 bytes --]

;; this should be run with M-x
;; all selected bulk entries should have same todo keywords
(defun my/bulk-todo-with-note ()
  "For each marked entry in the Org agenda, set the TODO state with a shared note,
and insert the same user-provided note for all items."
  (interactive)
  (unless org-agenda-bulk-marked-entries
    (user-error "No entries are marked in the agenda"))
(let* ((buffer-todo-keywords (with-current-buffer (marker-buffer (car org-agenda-bulk-marked-entries)) org-todo-keywords-1))
       (chosen-state
        ;; not good when specific on a buffer
        (org-icompleting-read "Choose new TODO state: " buffer-todo-keywords nil t))
       (shared-note (read-string "Enter note for all marked items: ")))
    (dolist (marker org-agenda-bulk-marked-entries)
      (with-current-buffer (marker-buffer marker)
        (goto-char marker)
        (org-todo chosen-state)
        (org-add-log-setup 'state chosen-state nil nil)
        ;; Insert the shared note and finalize it.
        (org-add-log-note)
        (insert shared-note)
        (org-store-log-note)))))