Jtdylktuy

The MWE below produces the desired results:

via the ProcessLastPara{} which applies a desired parshape to the given (last) paragraph.

Questions:

The MWE below required me to manually identify both the start and end of the last paragraph so it could be passed on to the ProcessLastPara{} macro.

1. 
   

   Is it possible to achieve the effect of ProcessLastPara{<text>} by simply identifying the beginning of the last paragraph. That is, can I change the call to SetMyText to be of the form:

   
   
   

   SetMyText{%
   
      Other Text... 
   
   
   
      LastParaBeginsHere
   
      Last Para Text%
   
   }%
   
   

   
   
   

   so that LastParaBeginsHere invokesProcessLastPara{Last Para Text}.

   
   
   

   This would need some error checking to make sure that LastParaBeginsHere really was indeed the last paragraph defined by SetMyText.

   
   



2. Is it possible to auto detect where the last paragraph begins and ends so that I do not need to manually invoke ProcessLastPara{} and identify the text of the last paragraph?

Notes:

• This needs to work for the case where the text is defined in a macro before it is typeset.


• The solution of defLastParaBeginsHere{LastParShape} won't work as I need to process the last paragraph text to determine the appropriate parshape to apply. That is, this is a 2 step process, the details of which are not included here to simplify the test case.

Code:

documentclass{article}



usepackage[paperwidth=15cm]{geometry}



makeatletter

    newcommand{@MyText}{}

    newcommand{SetMyText}[1]{def@MyText{#1}}%

    newcommand*{OutputMyText}{@MyText}%

makeatother



newcommand*{LastParShape}{%

    parshape 5

    0.10hsize 0.80hsize

    0.15hsize 0.70hsize

    0.20hsize 0.60hsize

    0.25hsize 0.50hsize

    0.30hsize 0.40hsize

}%





newcommand*{ProcessLastPara}[1]{%

    LastParShape

    #1}%



begin{document}

SetMyText{%

    Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor 

    incididunt ut labore et dolore magna aliqua. 



    Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut 

    aliquip ex ea commodo consequat. 



    ProcessLastPara{%

    Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore 

    eu fugiat nulla pariatur.

    Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia 

    deserunt mollit anim id est laborum.}%

}%

%% ----------------

OutputMyText%

end{document}

documentclass{article}



usepackage[paperwidth=15cm]{geometry}



makeatletter

    newcommand{@MyText}{}

    newcommand{SetMyText}[1]{def@MyText{#1LastParShapepar}}%

    newcommand*{OutputMyText}{@MyText}%

makeatother



newcommand*{LastParShape}{%

    parshape 5

    dimexpr0.10hsize-parindentrelax dimexpr0.80hsize+parindentrelax

    0.15hsize 0.70hsize

    0.20hsize 0.60hsize

    0.25hsize 0.50hsize

    0.30hsize 0.40hsize

}%







begin{document}

SetMyText{%

    Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor 

    incididunt ut labore et dolore magna aliqua. 



    Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut 

    aliquip ex ea commodo consequat. 



    Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore 

    eu fugiat nulla pariatur.

    Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia 

    deserunt mollit anim id est laborum.%

}%

%% ----------------

OutputMyText%

end{document}

It's quite easy with expl3: collect the text, split it at par, then detach the last paragraph and typeset it separately.

documentclass{article}

usepackage[paperwidth=15cm]{geometry}

usepackage{xparse}



ExplSyntaxOn

NewDocumentCommand{SetMyText}{s+m}

 {

  IfBooleanTF{#1}

   {

    seq_set_split:NnV l_peter_mytext_seq { par } #2

   }

   {

    seq_set_split:Nnn l_peter_mytext_seq { par } { #2 }

   }

 }

cs_generate_variant:Nn seq_set_split:Nnn { NnV }

seq_new:N l_peter_mytext_seq

tl_new:N l_peter_mytext_tl



NewDocumentCommand{OutputMyText}{}

 {

  seq_pop_right:NN l_peter_mytext_seq l_peter_mytext_tl

  seq_use:Nn l_peter_mytext_seq { par } par

  LastParShape l_peter_mytext_tl

 }

ExplSyntaxOff



newcommand*{LastParShape}{%

    parshape 5

    0.10hsize 0.80hsize

    0.15hsize 0.70hsize

    0.20hsize 0.60hsize

    0.25hsize 0.50hsize

    0.30hsize 0.40hsize

}



begin{document}



SetMyText{

    Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor 

    incididunt ut labore et dolore magna aliqua. 



    Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut 

    aliquip ex ea commodo consequat. 



    Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore 

    eu fugiat nulla pariatur.

    Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia 

    deserunt mollit anim id est laborum.

}



OutputMyText



end{document}