Réduire les blocs src en mode organisation par défaut

11

Lorsque j'ouvre un orgfichier, je veux que tous les srcblocs commencent à s'effondrer et restent ainsi jusqu'à ce que je les explicite org-cycle.

Je ne trouve aucune variable pour contrôler ce comportement. Peut-être que j'oublie quelque chose? Ou peut-être que quelqu'un a une solution Elisp?

org-mode nounou
la source
4
Voici un lien vers des questions connexes qui parlent de l'utilisation de la variable org-hide-block-startup: stackoverflow.com/a/21563210/2112489 . Et, le lien suivant a quelque chose à voir avec la visibilité cyclique des srcblocs que j'ai écrits il y a quelque temps, mais il ne les définit pas pour être masqués par défaut. Je n'aurai pas le temps de travailler là-dessus aujourd'hui ou demain, mais voici le lien au cas où vous ou quelqu'un d'autre voudrait jouer un peu avec le code: stackoverflow.com/a/25496350/2112489
lawlist

Réponses:

10

Vous pouvez réaliser ce que vous voulez en ajoutant la org-hide-block-allcommande à org-mode-hook:

(add-hook 'org-mode-hook 'org-hide-block-all)

Pour ma configuration personnelle, j'ai un peu étendu cette solution:

(defvar org-blocks-hidden nil)

(defun org-toggle-blocks ()
  (interactive)
  (if org-blocks-hidden
      (org-show-block-all)
    (org-hide-block-all))
  (setq-local org-blocks-hidden (not org-blocks-hidden)))

(add-hook 'org-mode-hook 'org-toggle-blocks)

(define-key org-mode-map (kbd "C-c t") 'org-toggle-blocks)

Avec cela en place, org-moderéduit les SRCblocs par défaut et me permet de basculer la visibilité de tous les SRCblocs en appuyant sur C-c t. (Si vous décidez d'utiliser ce code, vous pouvez bien sûr adapter le raccourci clavier à votre convenance.)

itsjeyd
la source