Emaranhado de origem organizacional de uma linha

Às vezes, especialmente ao fazer anotações, um arquivo organizacional alfabetizado pode conter blocos de origem de uma linha, da seguinte maneira:

* Taking notes
:PROPERTIES:
:tangle: whatever.pl
:comments: org
:END:

Perl set command
#+BEGIN_SRC perl
set $random_var=1;
#+END_SRC

Perl unset command (just making it up... :P)
#+BEGIN_SRC perl
unset $random_var;
#+END_SRC

Para tais aplicações, o #+BEGIN_SRC...#+END_SRCpragma parece ser um exagero. Modelos fáceis reduzem a digitação, mas o documento organizacional ainda parece um pouco exagerado.

Existe uma maneira fácil de fazer isso? Eu sei que uma linha que começa com a :chega ao texto literal automaticamente. Existe uma maneira de fazer algo semelhante com org-emaranhado?

Estou procurando uma solução parecida com esta, ou pelo menos próxima a essas linhas, mantendo as facilidades de realce e emaranhamento da fonte no modo pai:

* Taking notes
:PROPERTIES:
:tangle: whatever.pl
:comments: org
:mode: perl
:END:

Perl set command
: set $random_var=1;

Perl unset command (just making it up... :P)
: unset $random_var;

É mais limpo, fácil de olhar e, IMHO, um pouco menos barulhento.

Todas as sugestões serão apreciadas. Desde já, obrigado!

org-babel literate-programming

— DJ
fonte

Que tal um comando de ocultar / mostrar para o arquivo inteiro o início e o fim dos blocos de código-fonte, deixando o que estiver entre eles? O início eo fim teria ...em vez disso, ou você pode usar qualquer taquigrafia você gosta para indicar texto oculto (por exemplo, um rosto sorridente ☺), ou você pode ter nenhum indicador qualquer para as linhas ocultas

— lawlist

@lawlist Não consigo entender seu exemplo ... você pode mostrar uma demonstração?

— deejay

Em um buffer que contém seu primeiro exemplo, avalie o seguinte trecho para ocultar o texto:

(save-excursion (goto-char (point-max)) (while (re-search-backward "#\\+BEGIN_SRC\\|#\\+END_SRC" nil t) (let ((ov (make-overlay (line-beginning-position) (1+ (line-end-position))))) (overlay-put ov 'invisible t))))

Ao concluir o teste, avalie (remove-overlays). Este é apenas um exemplo simples de como ocultar texto. Você pode criar marcadores de posição para o texto oculto que parece ...ou o que quiser - por exemplo hidden text lies here,. Avaliar código comM-x eval-expression

— lawlist

@lawlist thanks. que limpa o buffer significativamente. Eu teria ficado mais ansioso pela solução de modo organizacional proposta acima, no entanto. Uma pergunta: I tentou envolver seu código em uma função:

(defun clean-org-buffer()  (save-excursion (goto-char (point-max)) (while (re-search-backward "#\\+BEGIN_SRC\\|#\\+END_SRC" nil t) (let ((ov (make-overlay (line-beginning-position) (1+ (line-end-position))))) (overlay-put ov 'invisible t)))))

No entanto, avaliar esta função resulta em erro da seguinte forma: Wrong type argument: commandp, clean-org-buffer. Você pode sugerir como ajudar isso?

— deejay

Você pode usar M-x eval-expression RET (clean-org-buffer) RET(sem nenhuma modificação no snippet) e / ou adicionar um (interactive)pouco antes do snippet no meu comentário anterior (2 parágrafos acima) para que ele possa ser usado de forma interativa M-x clean-org-buffer.

— lawlist

From (org) Estrutura dos blocos de código :

Os blocos de código ativo também podem ser especificados em linha usando
src_<language>{<body>}
ou
src_<language>[<header arguments>]{<body>}

Portanto, você deve poder usar em src_perl{set $random_var=1;}vez do bloco completo.

— Tyler
fonte

Isso não parece funcionar. 1) O realce da sintaxe desapareceu, 2) O código emaranhado vem como um comentário - não como uma declaração no arquivo de saída (seja o que for .pl, neste caso). Estou fazendo errado?

— deejay