diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/xpackages/xhead/xtextblock.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/xpackages/xhead/xtextblock.sty | 101 |
1 files changed, 101 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/xpackages/xhead/xtextblock.sty b/Master/texmf-dist/tex/latex/xpackages/xhead/xtextblock.sty new file mode 100644 index 00000000000..3f1907a5b5d --- /dev/null +++ b/Master/texmf-dist/tex/latex/xpackages/xhead/xtextblock.sty @@ -0,0 +1,101 @@ +% tmp file during development + +\DeclareObjectType {textblock-1} {1} +\DeclareObjectType {textblock-2} {2} +\DeclareObjectType {textblock-3} {3} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\DeclareTemplateInterface {textblock-1} {std} {1} + { + font : tokenlist = , + parshape : instance {parshape} = plain , + justification : instance {justification} = default , + } + + +\tl_new:N \l_tblock_font_tl + +\cs_new:Npn \tblock_parshape: {} +\cs_new:Npn \tblock_justification: {} + + +\DeclareTemplateCode {textblock-1} {std} {1} + { + font = \l_tblock_font_tl , + parshape = \tblock_parshape: , + justification = \tblock_justification: , + } + { + \AssignTemplateKeys + \group_begin: + \l_tblock_font_tl + \tblock_parshape: + \tblock_justification: + #1 + \@@par + \group_end: +} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\dim_new:N \l_tblock_h_dim +\tl_new:N \l_tblock_font_ii_tl + +\DeclareTemplateInterface {textblock-2} {hangfrom} {2} + { + font-1 : tokenlist = , + font-2 : tokenlist = , + h-sep : length = 1em , + parshape : instance {parshape} = plain , + justification : instance {justification} = default , + } + + +\DeclareTemplateCode {textblock-2} {hangfrom} {2} + { + + font-1 = \l_tblock_font_tl , + font-2 = \l_tblock_font_ii_tl , + h-sep = \l_tblock_h_dim , + parshape = \tblock_parshape: , + justification = \tblock_justification: , + } + { + \AssignTemplateKeys + \group_begin: + \l_tblock_font_tl + + \hbox_set:Nn \l_tmpa_box + { \tl_if_empty:oF {#1} {#1 \hskip \l_tblock_h_dim } } + + \UseInstance{measure}{fullwidth} + { \box_wd:N \l_tmpa_box } + + \l_tblock_font_ii_tl + \tblock_parshape: + \tblock_justification: + + \leavevmode + \box_set_to_last:N \l_tmpb_box + \hskip -\leftskip + \hbox_overlap_left:n{ \box_use:N \l_tmpa_box } + \hskip \leftskip + \box_use:N \l_tmpb_box + #2 + \@@par + \group_end: +} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%555 + + +\DeclareTemplateInterface {textblock-3} {std} {3} + { + } + + + |