1.=C2=A0 You have two lists, the original/old one= and the new one.

2.=C2=A0 Push elements from the old list onto the= new list until you get to the first element which should go into the new nested div.

3.=C2=A0 Create a third list and

push elements from the old list onto that list until you get to the last

element which should go into the div.

4.=C2=A0 Create a div from the third

list.

5.=C2=A0 Push the div onto the new list.

6.=C2=A0 Either repeat steps 2=E2=80=935 or resum= e pushing elements from the old

list onto the new list until you get to the last element.

``````lua

function Pandoc(doc)

=C2=A0 local old =3D doc.blocks

=C2=A0 local new =3D pandoc.Blocks({ })

=C2=A0 local div =3D false

=C2=A0 local i =3D 0

=C2=A0 local elem =3D nil

=C2=A0 while i < #old do

=C2=A0 =C2=A0 i =3D i + 1

=C2=A0 =C2=A0 elem =3D old[i]

=C2=A0 =C2=A0 if test_div_start_condition(elem) t= hen

=C2=A0 =C2=A0 =C2=A0 div =3D pandoc.Blocks({ elem= })

=C2=A0 =C2=A0 elseif test_div_end_condition(elem)= then

=C2=A0 =C2=A0 =C2=A0 if div then

=C2=A0 =C2=A0 =C2=A0 =C2=A0 div[#div + 1] =3D ele= m

=C2=A0 =C2=A0 =C2=A0 =C2=A0 new[#new + 1] =3D pan= doc.Div(div, { class =3D 'foo', bar =3D 'baz' })

=C2=A0 =C2=A0 =C2=A0 =C2=A0 div =3D nil

=C2=A0 =C2=A0 =C2=A0 =C2=A0 -- -- If this is the = only div

=C2=A0 =C2=A0 =C2=A0 =C2=A0 -- while i < #old = do

=C2=A0 =C2=A0 =C2=A0 =C2=A0 --=C2=A0 =C2=A0i =3D = i + 1

=C2=A0 =C2=A0 =C2=A0 =C2=A0 --=C2=A0 =C2=A0new[#n= ew + 1] =3D =3D old[i]

=C2=A0 =C2=A0 =C2=A0 =C2=A0 -- end

=C2=A0 =C2=A0 =C2=A0 else

=C2=A0 =C2=A0 =C2=A0 =C2=A0 new[#new + 1] =3D ele= m

=C2=A0 =C2=A0 =C2=A0 end

=C2=A0 =C2=A0 elseif div then

=C2=A0 =C2=A0 =C2=A0 div[#div + 1] =3D elem

=C2=A0 =C2=A0 else

=C2=A0 =C2=A0 =C2=A0 new[#new + 1] =3D elem

=C2=A0 =C2=A0 end

=C2=A0 end

=C2=A0 doc.blocks =3D new

=C2=A0 return doc

end

``````

Den tis 20 juni 2023 02:16H <agents-FcZObrvlYduBUy7/sJONFg@public.gmane.org> skrev:

On June 19, 2023 6:11:35 PM EDT, H <agents@meddatainc.c= om> wrote:
>What is the "best" way of wrapping parts of an existing document in
><div></div> in a filter?
>
>Using insert.table(existingtable, pandoc.Div(existingtextblocks)) does
>not work since the existing text blocks get duplicated in the output.
>
>I see two options but there might be others:
>
>- Surround existing text blocks with pandoc.RawInline(1, 'html,
>'<div>') and pandoc.RawInLine('html', '</div>').
>
>- Create a new table and use insert.table(newtable,
>pandoc.Div(existingtextblock)) and also insert the rest of the
>document.
>
>Are there other options?

Replying to my own question, it seems the most "elegant" way of accomplishing this requires this to be done be in two stages:

- First, delete the blocks in question from the block list table, eg doc.blocks.
- Second, insert them into the same table using pandoc.Div().

Unfortunately it seems table.delete() does not accept a list of blocks, only one block at a time, pandoc.Div, on the other hand, accepts a table. Here is a code example when I was trying it out:

local temp =3D {}
for i =3D 3, 1, -1 do
=C2=A0 table.insert(temp, table.remove(doc.blocks, 5))
end

table.insert(doc.blocks, 2, pandoc.Div(temp))

The above code removes blocks 5 through 7 from doc.blocks, then inserts them, in the same order but surrounded by <div></div>, in position 2.

If there is a better way of accomplishing this, I would appreciate hearing it.