I would like to implement the following. Suppose, we have this org file:
#+BABEL: :cache yes :tangle yes :noweb yes
#+NAME: top_block
#+begin_src perl :tangle "test.pl" :noweb tangle :shebang #!/usr/bin/perl
use strict;
use warnings;
open(my $fh, "<", "test.txt")
or die "cannot open < file name: $!";
<<output-all>>
close($fh);
#+end_src
#+NAME: output-all
#+begin_src perl
while (my $line = <$fh>) {
print $line;
}
#+end_src
I can expand/collapse src blocks only when the cursor is on the top lines:
#+NAME: top_block
#+begin_src perl ...
But when it is inside any text in the scr block, expand/collapse doesn't
work. How can I add this functionality as moving the cursor every time is
not nice.