mjhjmtu

I need to execute a renewenvironment within a group. Using globalrenewenvironment is not sufficient.

What changes do I need to make to the DisableMyEnvironment macro in the MWE below so as to achieve the equivalent of globalrenewenvironment?

Currently, the MWE yields:

Once this is working as desired, the second line in blue should be in black.

Notes:

• There are two test cases. The default one is within a foreach and commenting out defForeachTestCase uses a simple group.

References:

• 
  globalrenewcommand equivalent of globaldef.

Code:

defForeachTestCase%

documentclassarticle
usepackagexcolor
usepackagexstring
usepackagetikz

newenvironmentMyEnvironment[1][blue]%
 begingroup
 color#1%
%
 endgroup
%

newcommand*DisableMyEnvironment%
 %% How make this global??
 renewenvironmentMyEnvironment[1]%
%

newcommand*MyTestText[1]%
 Some before text

 beginMyEnvironment
 This should be in #1.
 endMyEnvironment

 Some after text%


begindocument

MyTestTextblue

%DisableMyEnvironment% <-- This works, but want it to work when used in a group as follows
ifdefinedForeachTestCase
 foreach x in 1,...,3 %
 IfStrEqCasex%
 1%
 2DisableMyEnvironment%
 3%
 %
 
else
 begingroup
 DisableMyEnvironment
 endgroup
fi

medskippar
MyTestTextblack

enddocument

Create a dummy (or alternate) environment in the global scope (preamble), here, XEnvironment, and then in the DisableMyEnvironment macro, globally reassign by way of

globalletMyEnvironmentXEnvironment%
globalletendMyEnvironmentendXEnvironment%

MWE:

documentclassarticle
usepackagexcolor
newenvironmentXEnvironment[1]%
newenvironmentMyEnvironment[1][blue]%
 begingroup
 color#1%
%
 endgroup
%

newcommand*DisableMyEnvironment%
 %% How make this global??
 globalletMyEnvironmentXEnvironment%
 globalletendMyEnvironmentendXEnvironment%
%

newcommand*MyTestText[1]%
 Some before text

 beginMyEnvironment
 This should be in #1.
 endMyEnvironment

 Some after text%


begindocument

MyTestTextblue

%DisableMyEnvironment% <-- This works, but want it to work when used in a group as follows
begingroup
 DisableMyEnvironment
endgroup

medskippar
MyTestTextblack


enddocument

Edit: First approach didn't seem to work with optional arguments.

Edit 2: Found an easier way using globaldefs:

Final answer:

In spirit of answering how to do a renewenvironment global:

documentclassarticle
begindocument
 newenvironmenttestHELLOWORLD
 bgroup
 globaldefs=1
 renewenvironmenttest[1][world]foo #1bar
 egroup
 begintest[hello]
 endtest
enddocument

Second answer:

Two commands loosely inspired by makeatletter and makeatother: makerenewglobal and makerenewlocal. When makerenewglobal is called, renewenvironment do only global definitions. If makerenewlocal is called, it does the oposite: makes all renewenvironment-definitions local.

documentclassarticle
makeatletter
let@local@newenv@newenv
longdef@global@newenv#1#2#3#4%
 @ifundefined#1globalexpandafterletcsname#1expandafterendcsnamecsname end#1endcsnamerelax
 letdefgdefexpandafternew@commandcsname #1endcsname#2#3%
 l@ngrel@xexpandaftergdefcsname end#1endcsname#4%

gdefmakerenewglobalgloballet@newenv@global@newenv
gdefmakerenewlocalgloballet@newenv@local@newenv
begindocument
 newenvironmenttestHELLOWORLD
 bgroupmakerenewglobal
 renewenvironmenttest[1][world]foo #1bar
 egroup
 begintest[hello]
 endtest
enddocument

First answer:

In spirit of semi-generality; a command, makeenvglobaltheenv, that makes a environment global:

documentclassarticle
gdefmakeenvglobal#1%
 globalexpandafterexpandafterletcsname #1expandafterendcsnamecsname #1endcsname
 globalexpandafterexpandafterletcsname end#1expandafterendcsnamecsname end#1endcsname

begindocument
 newenvironmenttestHELLOWORLD
 bgroup
 renewenvironmenttestfoobar
 makeenvglobaltest
 egroup
 begintest
 endtest
enddocument

prints foo bar

As requested :)

I read somewhere here that foreach executes its commands inside two groups. You can check this statement with this (requires e-TeX):

documentclassarticle
usepackagepgffor
begindocument
foreach i in 0thecurrentgrouplevel
enddocument

which will print 2 :)

If you want to do a definition outside the scope of this foreach, then you can use a couple of aftergroups. In your case you want to run DisableMyEnvironment (one token) outside of two grouping levels.

If you do aftergroupDisableMyEnvironment, this will insert DisableMyEnvironment after the first group (one aftergroup per token). To make it reach the second level, you have to aftergroup that (two tokens), so aftergroupaftergroup aftergroupDisableMyEnvironment.

Have in mind that this is not a global assignment, rather just local to another grouping level. If you are in, say, a third grouping level, the changes will be restored after the third one ends.

Just a few days ago I was doing something (can't remember what though --- or can I?) and was using a very long chain of aftergroups, and was getting it wrong because I was missing one or another. What did I do? An even longer chain of expandafter =D

I made a (probably suboptimal) macro afterNgroups<N><token-list> that inserts the <token-list> after <N> groups:

makeatletter
defafterNgroups#1#2%
 count@z@
 toks@#2%
 loop
 ifnumcount@<#1 %
 toks2%
 expandafter@tforexpandaftertknexpandafter:expandafter=thetoks@do%
 toks2
 expandafterexpandafterexpandafter
 expandaftertheexpandaftertoksexpandafter2expandafteraftergrouptkn%
 toks@expandafterthetoks2%
 advancecount@@ne
 repeat
 thetoks@
makeatother

you can use this macro for your case with afterNgroups2DisableMyEnvironment. It apparently works for trivial cases. Didn't test it extensively though.