Comment formater automatiquement le bloc de code source en mode org

Lorsque j'utilise le mode organisationnel pour prendre des notes sur un livre, je vais parfois copier / coller des extraits de code dans le fichier de notes. Après l'avoir collé, je vais

1. `C-c '` to call `org-edit-special`
2. `C-x h` to mark all the source code
3. `TAB` to format it

Existe-t-il une solution en mode org pour moi qui, après avoir collé du code #+BEGIN_SRC...#+END_SRC, formatera automatiquement le bloc de code ou je peux utiliser une seule clé TABpour formater (mettre en retrait) tout le bloc de code source?

La valeur par défaut TAB(tapée dans le bloc, sans utiliser C-c ') est simplement d'aligner toutes les lignes 2 colonnes après l'en- #+BEGIN_SRCtête, s'il y a des espaces au début de la deuxième ligne, cela ajoutera simplement plus d'espaces, il n'indentera pas toutes les lignes comme les 3 étapes.

Voici une solution difficile, mais cela fonctionne parfaitement. En fait, c'est juste une fonction qui simule vos opérations, et utilisez un run-at-timepour le faire appeler toutes les 10 secondes. À votre santé.

(defun indent-org-block-automatically ()
  (when (org-in-src-block-p)
   (org-edit-special)
    (indent-region (point-min) (point-max))
    (org-edit-src-exit)))

(run-at-time 1 10 'indent-org-block-automatically)

Bien sûr, vous pouvez l'appeler toutes les 1 seconde, changez simplement 10 en 1.

Commencez avec https://github.com/Bruce-Connor/aggressive-indent-mode pour obtenir le comportement de collage que vous décrivez.

Tu sais faire le reste.

Voici le code que j'ai écrit pour résoudre ce problème:

(defun udf/my-org-tab-dwim (&optional arg)
  (interactive)
  (or (org-babel-do-key-sequence-in-edit-buffer (kbd "TAB"))
      (org-cycle arg)))

(define-key org-mode-map
  (kbd "<tab>") #'udf/my-org-tab-dwim)