Add support for empty lesser blocks.

This commit is contained in:
Tom Alexander 2023-09-06 18:11:57 -04:00
parent 6e2fc362ea
commit 3fc3a5d1ef
Signed by: talexander
GPG Key ID: D3A179C9A53C0EDE
3 changed files with 7 additions and 4 deletions

View File

@ -0,0 +1,2 @@
#+begin_src
#+end_src

View File

@ -1223,6 +1223,8 @@ fn compare_src_block<'s>(
Ok(_) => {}
};
// TODO: Compare :language :switches :parameters :number-lines :preserve-indent :retain-labels :use-labels :label-fmt :value
Ok(DiffResult {
status: this_status,
name: emacs_name.to_owned(),

View File

@ -8,7 +8,6 @@ use nom::combinator::not;
use nom::combinator::opt;
use nom::combinator::peek;
use nom::combinator::recognize;
use nom::combinator::verify;
use nom::multi::many0;
use nom::multi::many_till;
use nom::sequence::tuple;
@ -160,9 +159,9 @@ pub fn text_until_exit<'b, 'g, 'r, 's>(
context: RefContext<'b, 'g, 'r, 's>,
input: OrgSource<'s>,
) -> Res<OrgSource<'s>, OrgSource<'s>> {
recognize(verify(
many_till(anychar, parser_with_context!(exit_matcher_parser)(context)),
|(children, _exit_contents)| !children.is_empty(),
recognize(many_till(
anychar,
parser_with_context!(exit_matcher_parser)(context),
))(input)
}