Recolher blocos src no modo organizacional por padrão

Quando abro um orgarquivo, quero que todos os srcblocos comecem a ser recolhidos e permaneçam assim até explicitamente org-cycle.

Não consigo encontrar nenhuma variável para controlar esse comportamento. Talvez eu esteja negligenciando alguma coisa? Ou talvez alguém tenha uma solução elisp?

org-mode

— babá
fonte

Aqui está um link para perguntas relacionadas que abordam o uso da variável org-hide-block-startup: stackoverflow.com/a/21563210/2112489 . E o link a seguir tem algo a ver com a visibilidade de ciclos de srcblocos que escrevi há algum tempo, mas não os define como ocultos por padrão. Não terei tempo para trabalhar nisso hoje ou amanhã, mas aqui está o link, caso você ou qualquer outra pessoa queira brincar um pouco com o código: stackoverflow.com/a/25496350/2112489

— lawlist

Você pode conseguir o que deseja adicionando o org-hide-block-allcomando a org-mode-hook:

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

Para minha configuração pessoal, estendi um pouco esta solução:

(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)

Com isso, org-moderecolhe os SRCblocos por padrão e permite alternar a visibilidade de todos os SRCblocos pressionando C-c t. (Se você decidir usar esse código, é claro que poderá adaptar a associação de teclas ao seu gosto.)

— itsjeyd
fonte