Crthuky

I am trying to encapsulate a couple of environments to pass them to lists using xparse/expl3.
I have defined a one command and two environments and I have had a problem with one of them.

I use the environments to save notes type question/answer where the answers are stored in a list to show them at the end of the file or elsewhere in it, the issue is that sometimes need to use verbatim.

The scontent environment uses the +b argument of xparse and only Verb[...]... (from fvextra) can be used (you can not use the verbatim environment for example).

The scontent* environment is based on filecontentsdef and can use verb|...| in a line or beginverbatim environment, this generates an external file but has the facility of saving the content in a macro.

When executing beginscontent* pass the following:

1. Save the current content in macro
   


2. Copy the current contents of macro in l_my_macro_copy_tl
   


3. Pass the contents of l_my_macro_copy_tl to list using
   expanddafterenvtolistexpanddafter content save in l_my_macro_copy_tl
   


4. If this is the key [show-env = true] run usecontent[-1]l_scontent_env_save_tl
   

The problem is in the execution of

expanddafterenvtolistexpanddafterl_my_macro_copy_tl

at end of environment scontent*, I tried with the following (ugly and incorrect) lines:

% beginscontent*[...] verbatim env save in macro
% Copy a current content of macro in l_my_macro_copy_tl and pass to list
tl_new:N l_my_macro_copy_tl
NewDocumentEnvironmentscontent* !O 
 
 group_begin:
 filecontentsdefjobname.tscmacro % save in macro
 
 endfilecontentsdef %
 group_end:
 IfNoValueF #1 keys_set:nn scontent #1 
 tl_set:Nx l_my_macro_copy_tl macro 
 exp_after:wN envtolist exp_after:wN exp_not:N tex_newlinechar:D = 13 exp_not:N scantokens exp_after:wN l_my_macro_copy_tl %
 IfBooleanT l_scontent_env_show_tl usecontent[-1] l_scontent_env_save_tl 
 

with this I eliminate the errors when compiling, but, the content is not saved in the list...How can i fix this?

My idea is not to occupy directly showme... and only use usecontent[index]list name in document.

I know that the command showme... and usecontent[index]list name works if you execute it out of the environment, but my idea is automate this when run scontent*.

This is my example file (MWE), the comments should be removed to see the error that occurs.

documentclassarticle
usepackagefilecontentsdef,etoolbox,xparse,fvextra,xcolor
usepackage[margin=0.6in,noheadfoot,papersize=8.5in,13in]geometry
setlengthparindent0pt
pagestyleempty
ExplSyntaxOn
% show content save in macro
tl_new:N l_temp_argument_tl
NewDocumentCommandshowme +m %
 tl_set:Nx l_temp_argument_tl #1 
 tex_newlinechar:D = 13
 exp_not:N scantokens exp_after:wN l_temp_argument_tl 


% elementinlistname and clearlistlistname
cs_new:Npn elementin #1 seq_count:c l_savecontent_content_#1_seq 
cs_new:Npn clearlist #1 seq_clear_new:c l_savecontent_content_#1_seq 

% addcontentlistname#1 ...need double ...
NewDocumentCommandaddcontent m +m savecontent_add_content:nn #1 #2 

% usecontent[index]listname
DeclareExpandableDocumentCommandusecontentO1m savecontent_use_content:nn #1 #2 

cs_new_protected:Npn savecontent_add_content:nn #1 #2
 
 seq_if_exist:cF l_savecontent_content_#1_seq 
 seq_new:c l_savecontent_content_#1_seq 
 __savecontent_add_content:nn #1 #2 
 

cs_new_protected:Npn __savecontent_add_content:nn #1 #2
 
 tl_map_inline:nn #2 
 
 seq_gput_right:cn l_savecontent_content_#1_seq ##1 
 
 

cs_new:Npn savecontent_use_content:nn #1 #2 seq_item:cn l_savecontent_content_#2_seq #1 

keys_define:nn scontent 
 
 save-cmd .tl_set:N = l_scontent_cmd_save_tl, save-cmd .initial:n = content,%
 save-env .tl_set:N = l_scontent_env_save_tl, save-env .initial:n = content, %
 show-cmd .bool_set:N = l_scontent_cmd_show_tl, show-cmd .initial:n = false, show-cmd .value_required:n = true,%
 show-env .bool_set:N = l_scontent_env_show_tl, show-env .initial:n = false, show-env .value_required:n = true,%
 show-all .meta:n = show-env = true , show-cmd = true ,%
 

NewDocumentCommandSetscontent +m keys_set:nn scontent #1 

% pass to list
newrobustcmdenvtolist[1]addcontent l_scontent_env_save_tl #1

% Scontent[...]... NO verbatim env support, but Verb[...]... yes
NewDocumentCommandScontent O +m 
 
 group_begin:
 IfNoValueF#1 keys_set:nn scontent #1 
 addcontent l_scontent_cmd_save_tl #2 % pass direct to list
 IfBooleanT l_scontent_cmd_show_tl usecontent[-1] l_scontent_cmd_save_tl 
 group_end:
 

% beginscontent[...] NO verbatim env suport, but Verb[...]... yes
NewDocumentEnvironmentscontent !o +b 
 
 group_begin:
 IfNoValueF #1 keys_set:nn scontent #1 
 
 expandafterenvtolistexpandafter#2
 IfBooleanT l_scontent_env_show_tl usecontent[-1] l_scontent_env_save_tl 
 group_end:
 

% beginscontent*[...] verbatim env save in macro
tl_new:N l_my_macro_copy_tl % tl_var to copy macro at definition time
NewDocumentEnvironmentscontent* !O 
 
 group_begin:
 IfNoValueF #1 keys_set:nn scontent #1 
 filecontentsdefjobname.tscmacro
 
 endfilecontentsdef %
 group_end:
 % Copy macro every time in tl_var (at definition time) and pass to list
 %cs_set_eq:NN l_my_macro_copy_tl macro
 %expandafterenvtolistexpandaftershowmel_my_macro_copy_tl
 %IfBooleanT l_scontent_env_show_tl usecontent[-1] l_scontent_env_save_tl 
 
ExplSyntaxOff
% set name of lists
Setscontent save-env=test-env, save-cmd=test-cmd 
begindocument
sectionUsing textttscontent environment whit new texttt+b argument from textttxparse
subsectionWhit texttt[show-env=false]
Text save in verb|beginscontent[show-env=false]| (hidden)

beginscontent[show-env=false]
Some first text whit verbatim inline saved in Verbusecontent[1]test-env par
We have coded this in LaTeX: both $E=mc^2$.
endscontent

OK
subsectionWhit texttt[show-env=true]
Text save in verb|beginscontent[show-env=true]| (Not hidden)

beginscontent[show-env=true]
Some second text whit verbatim inline saved in Verbusecontent[2]test-env...more text par
We have coded this in LaTeX: both $E=mc^2$.
endscontent

OK
subsectionUsing Verbusecontent[1]test-env
Now see saved text in list:par
usecontent[2]test-envpar
usecontent[1]test-env

sectionUsing Verb*Scontent[...]...
Text save whit verb|Scontent....| (hidden)par
Scontent
using a Verb*Scontent[...]... textcolorredwhit verbatim Verb*Verb[...]...par
(by Verb*fvextra) textcolormagentainline
par

And see saved text in list using verb|usecontent[1]test-cmd| par
usecontent[1]test-cmdpar
OK
sectionUsing textttscontent* environment wraped textttfilecontentsdef using textttxparse

subsectionWhit texttt[show-env=false]
Some Text save using verb|beginscontent*[show-env=false]| save in verb|macro| (hidden)

beginscontent*[show-env=false]
Some text in whit verbatim environment ¿saved in list ...verb+usecontent[3]test-env+?(not get for now).par
beginVerbatim
 This is from the verbatim environment: &%_"`´~
 xxxxx
endVerbatim
endscontent*par
OK...it's posible to see verb|macro| whit verb|showmemacro|:par
showmemacropar
or pass to list using verb|Scontentshowmemacro| and see in list whit verb+usecontent[2]test-cmd+:par
Scontentshowmemacro
usecontent[2]test-cmd
subsectionThe idea whit texttt[show-env=true]
Setscontent save-cmd=test-other 
XXXXXXXXXpar
beginscontent*[show-env=false]
Some text in whit verbatim A
beginVerbatim
 verbatim environment A: &%_"`´~
endVerbatim
endscontent*
Scontent[show-cmd=true]showmemacropar
XXXXXXXXXpar
beginscontent*[show-env=false]
Some text in whit verbatim B
beginVerbatim
 verbatim environment B: &%_"`´~
endVerbatim
endscontent*
Scontent[show-cmd=true]showmemacro
XXXXXXXXXpar
And see in reverse order:par
usecontent[2]test-otherpar
usecontent[1]test-otherpar
NOT OK,... 
subsectionThe problem whit texttt[show-env=true]
beginscontent*[show-env=true]
Some text in whit verbatim C
beginVerbatim
 verbatim environment C: &%_"`´~
endVerbatim
endscontent*
enddocument

An image to complement

regards