key binding to invoke more than two commands

Question

I'm in org-mode and would like to have C-c C-c ' run org-edit-special then mark-whole-buffer then indent-region then org-edit-special to get back out again. I've tried

(defun my-run-org-babel-codeblock-format ()
  "Run org babel codeblock formatting in sequence."
  (interactive)
  (org-edit-special)
  (mark-whole-buffer)
  (indent-region))

(global-set-key (kbd "C-c C-'") 'my-run-org-babel-codeblock-format)

but this doesn't work:

my-run-org-babel-codeblock-format: Wrong number of arguments: (2 . 3), 0

Apparently multiple means no more than two commands. That is, when I remove (indent-region) it seems to work. Is there something I can do to have all four commands under one key binding?

Answer 1

Various options:

1. Make it a keyboard macro rather than an Elisp function. I.e. rather than record the functions you invoke, only record the keys you press.

2. reproduce faithfully the interactive calls to the functions:

   (defun my-run-org-babel-codeblock-format ()
     "Run org babel codeblock formatting in sequence."
     (interactive)
     (call-interactively 'org-edit-special)
     (call-interactively 'mark-whole-buffer)
     (call-interactively 'indent-region))
   

3. Mimic by hand the computation of the arguments:

   (defun my-run-org-babel-codeblock-format ()
     "Run org babel codeblock formatting in sequence."
     (interactive)
     (org-edit-special)
     (mark-whole-buffer)
     (indent-region (region-beginning) (region-end)))
   

4. Avoid commands which aren't meant to be used within functions:

   (defun my-run-org-babel-codeblock-format ()
     "Run org babel codeblock formatting in sequence."
     (interactive)
     (org-edit-special)
     (indent-region (point-min) (point-max)))
   

5. ...