%PDF- %PDF-
| Direktori : /proc/self/root/usr/share/texlive/texmf-dist/tex/latex/l3experimental/xgalley/ |
| Current File : //proc/self/root/usr/share/texlive/texmf-dist/tex/latex/l3experimental/xgalley/xgalley.sty |
%%
%% This is file `xgalley.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% xgalley.dtx (with options: `package')
%%
%% EXPERIMENTAL CODE
%%
%% Do not distribute this file without also distributing the
%% source files specified above.
%%
%% Do not distribute a modified version of this file.
%%
%% File: xgalley.dtx Copyright (C) 1999-2001, 2004-2009 Frank Mittelbach
%% (C) 2010-2012 The LaTeX3 Project
%%
%% It may be distributed and/or modified under the conditions of the
%% LaTeX Project Public License (LPPL), either version 1.3c of this
%% license or (at your option) any later version. The latest version
%% of this license is in the file
%%
%% http://www.latex-project.org/lppl.txt
%%
%% This file is part of the "l3experimental bundle" (The Work in LPPL)
%% and all files in that bundle must be distributed together.
%%
%% The released version of this bundle is available from CTAN.
%%
%% -----------------------------------------------------------------------
%%
%% The development version of the bundle can be found at
%%
%% http://www.latex-project.org/svnroot/experimental/trunk/
%%
%% for those people who are interested.
%%
%%%%%%%%%%%
%% NOTE: %%
%%%%%%%%%%%
%%
%% Snapshots taken from the repository represent work in progress and may
%% not work or may contain conflicting material! We therefore ask
%% people _not_ to put them into distributions, archives, etc. without
%% prior consultation with the LaTeX Project Team.
%%
%% -----------------------------------------------------------------------
%%
\RequirePackage{expl3}
\GetIdInfo$Id: xgalley.dtx 4373 2012-12-17 16:41:59Z joseph $
{L3 Experimental galley}
\ProvidesExplPackage
{\ExplFileName}{\ExplFileDate}{\ExplFileVersion}{\ExplFileDescription}
\RequirePackage{xparse,xtemplate,l3galley}
\clist_new:N \l__galley_tmpa_clist
\clist_new:N \l__galley_tmpb_clist
\DeclareObjectType { measure } { 0 }
\DeclareTemplateInterface { measure } { absolute } { 0 }
{
left-margin : length = 0 pt ,
right-margin : length = 0 pt
}
\DeclareTemplateInterface { measure } { relative } { 0 }
{
left-margin : length = 0 pt ,
right-margin : length = 0 pt
}
\cs_new_eq:NN \l__galley_left_margin_dim \leftmargin
\cs_new_eq:NN \l__galley_right_margin_dim \rightmargin
\DeclareTemplateCode { measure } { absolute } { 0 }
{
left-margin = \l__galley_left_margin_dim ,
right-margin = \l__galley_right_margin_dim
}
{
\AssignTemplateKeys
\galley_margins_set_absolute:nn \l__galley_left_margin_dim
\l__galley_right_margin_dim
}
\DeclareTemplateCode { measure } { relative } { 0 }
{
left-margin = \l__galley_left_margin_dim ,
right-margin = \l__galley_right_margin_dim
}
{
\AssignTemplateKeys
\galley_margins_set_relative:nn \l__galley_left_margin_dim
\l__galley_right_margin_dim
}
\DeclareObjectType { parshape } { 0 }
\DeclareTemplateInterface { parshape } { hang } { 0 }
{
indent : length = 0 pt ,
on-left-side : boolean = true ,
lines : integer = 1
}
\DeclareTemplateInterface { parshape } { initial } { 0 }
{
indent : length = 0 pt ,
on-left-side : boolean = true ,
lines : integer = 2
}
\DeclareTemplateCode { parshape } { hang } { 0 }
{
indent = \l__galley_parshape_indent_dim ,
on-left-side = \l__galley_parshape_on_left_bool ,
lines = \l__galley_parshape_lines_int
}
{
\AssignTemplateKeys
\bool_if:NTF \l__galley_parshape_on_left_bool
{
\galley_parshape_set_single:nVVN
\l__galley_parshape_lines_int
\l__galley_parshape_indent_dim
\c_zero_dim
\c_false_bool
}
{
\galley_parshape_set_single:nVVN
\l__galley_parshape_lines_int
\c_zero_dim
\l__galley_parshape_indent_dim
\c_false_bool
}
}
\DeclareTemplateCode { parshape } { initial } { 0 }
{
indent = \l__galley_parshape_indent_dim ,
on-left-side = \l__galley_parshape_on_left_bool ,
lines = \l__galley_parshape_lines_int
}
{
\AssignTemplateKeys
\clist_clear:N \l__galley_tmpa_clist
\clist_clear:N \l__galley_tmpb_clist
\prg_replicate:nn { \l__galley_parshape_lines_int }
{
\clist_put_right:Nn \l__galley_tmpa_clist
{ \l__galley_parshape_indent_dim }
\clist_put_right:Nn \l__galley_tmpb_clist
{ \c_zero_dim }
}
\bool_if:NTF \l__galley_parshape_on_left_bool
{
\galley_parshape_set_single:nVVN
\c_zero
\l__galley_tmpa_clist
\l__galley_tmpb_clist
\c_true_bool
}
{
\galley_parshape_set_single:nVVN
\c_zero
\l__galley_tmpb_clist
\l__galley_tmpa_clist
\c_true_bool
}
}
\DeclareTemplateInterface { parshape } { std } { 0 } { }
\DeclareTemplateCode { parshape } { std } { 0 } { } { }
\DeclareObjectType { hyphenation } { 0 }
\DeclareTemplateInterface { hyphenation } { std } { 0 }
{
enable : boolean = true ,
enable-upper-case : boolean = true ,
penalty : choice { low , medium , high } = low
}
\DeclareTemplateCode { hyphenation } { std } { 0 }
{
enable = \l_galley_hyphen_enable_bool ,
enable-upper-case = \l_galley_hyphen_uppercase_bool ,
penalty =
{
low =
{
\int_set:Nn \tex_hyphenpenalty:D { 51 }
\int_set:Nn \tex_exhyphenpenalty:D { 51 }
} ,
medium =
{
\int_set:Nn \tex_hyphenpenalty:D { 151 }
\int_set:Nn \tex_exhyphenpenalty:D { 151 }
} ,
high =
{
\int_set:Nn \tex_hyphenpenalty:D { 301 }
\int_set:Nn \tex_exhyphenpenalty:D { 301 }
} ,
}
}
{
\AssignTemplateKeys
\int_set:Nn \tex_lefthyphenmin:D
{
\bool_if:NTF \l_galley_hyphen_enable_bool
{ \l_galley_hyphen_left_int }
{ 63 }
}
\int_set:Nn \tex_uchyph:D
{
\bool_if:NTF \l_galley_hyphen_uppercase_bool
{ 1 }
{ 0 }
}
}
\UseTemplate { hyphenation } { std } { }
\tex_defaulthyphenchar:D 45 \scan_stop:
\tl_new:N \l__galley_justification_other_tl
\DeclareObjectType { justification } { 0 }
\DeclareTemplateInterface { justification } { std } { 0 }
{
end-skip : skip = 0 pt plus 1 fil ,
fixed-word-spacing : boolean = false ,
indent-width : length ,
left-skip : skip = 0 pt ,
right-skip : skip = 0 pt ,
start-skip : skip = 0 pt ,
stretch-last-line : boolean = false
}
\DeclareTemplateInterface { justification } { single } { 0 }
{
end-skip : skip = 0 pt plus 1 fil ,
fixed-word-spacing : boolean = false ,
indent-width : length ,
left-skip : skip = 0 pt ,
right-skip : skip = 0 pt ,
start-skip : skip = 0 pt ,
stretch-last-line : boolean = false
}
\DeclareTemplateCode { justification } { std } { 0 }
{
end-skip = \l_galley_par_end_skip ,
fixed-word-spacing = \l_galley_fixed_spacing_bool ,
indent-width = \l_galley_par_indent_dim ,
left-skip = \l_galley_line_left_skip ,
right-skip = \l_galley_line_right_skip ,
start-skip = \l_galley_par_begin_skip ,
stretch-last-line = \l_galley_par_stretch_last_bool
}
{
\AssignTemplateKeys
\tl_clear:N \l__galley_justification_other_tl
\galley_interword_spacing_set:N \l_galley_fixed_spacing_bool
\bool_if:NTF \l_galley_par_stretch_last_bool
{ \int_set_eq:NN \l_galley_last_line_fit_int \c_one_thousand }
{ \int_zero:N \l_galley_last_line_fit_int }
\skip_set:Nn \@rightskip { \l_galley_line_right_skip }
}
\DeclareTemplateCode { justification } { single } { 0 }
{
end-skip = \l_galley_par_end_skip ,
fixed-word-spacing = \l_galley_fixed_spacing_bool ,
indent-width = \l_galley_par_indent_dim ,
left-skip = \l_galley_line_left_skip ,
right-skip = \l_galley_line_right_skip ,
start-skip = \l_galley_par_begin_skip ,
stretch-last-line = \l_galley_par_stretch_last_bool
}
{
\tl_put_left:Nx \l__galley_justification_other_tl
{
\skip_set:Nn \exp_not:N \l_galley_par_end_skip
{ \skip_use:N \l_galley_par_end_skip }
\bool_if:NTF \l_galley_fixed_spacing_bool
{ \bool_set_true:N \exp_not:N \l_galley_fixed_spacing_bool }
{ \bool_set_false:N \exp_not:N \l_galley_fixed_spacing_bool }
\galley_interword_spacing_set:N
\exp_not:N \l_galley_fixed_spacing_bool
\dim_set:Nn \exp_not:N \l_galley_par_indent_dim
{ \dim_use:N \l_galley_par_indent_dim }
\skip_set:Nn \l_galley_line_left_skip
{ \skip_use:N \l_galley_line_left_skip }
\skip_set:Nn \exp_not:N \l_galley_line_right_skip
{ \skip_use:N \l_galley_line_right_skip }
\skip_set:Nn \exp_not:N \l_galley_par_begin_skip
{ \skip_use:N \l_galley_par_begin_skip }
\int_set:Nn \exp_not:N \l_galley_last_line_fit_int
{ \int_use:N \l_galley_last_line_fit_int }
\skip_set:Nn \exp_not:N \@rightskip
{ \skip_use:N \l_galley_line_right_skip }
}
\tl_gput_right:Nn \g_galley_restore_running_tl
{ \l__galley_justification_other_tl }
\AssignTemplateKeys
\galley_interword_spacing_set:N \l_galley_fixed_spacing_bool
\bool_if:NTF \l_galley_par_stretch_last_bool
{ \int_set_eq:NN \l_galley_last_line_fit_int \c_one_thousand }
{ \int_zero:N \l_galley_last_line_fit_int }
\skip_set:Nn \@rightskip { \l_galley_line_right_skip }
}
\DeclareInstance { justification } { justified } { std }
{ indent-width = 15 pt }
\UseInstance { justification } { justified }
\DeclareInstance { justification } { noindent } { std }
{
end-skip = 15 pt plus 1 fil ,
indent-width = 0 pt
}
\DeclareInstance { justification } { ragged-left } { std }
{
end-skip = 0 pt ,
fixed-word-spacing = true ,
indent-width = 0 pt ,
left-skip = 0 pt plus 2 em ,
right-skip = 0 pt
}
\DeclareInstance { justification } { ragged-right } { std }
{
end-skip = 0 pt plus 1 fil ,
fixed-word-spacing = true ,
indent-width = 0 pt ,
left-skip = 0 pt ,
right-skip = 0 pt plus 2 em
}
\DeclareInstance { justification } { center } { std }
{
end-skip = 0 pt ,
fixed-word-spacing = true ,
indent-width = 0 pt ,
left-skip = 0 pt plus 1 fil ,
right-skip = 0 pt plus 1 fil
}
\DeclareTemplateInterface { justification } { compound } { 0 }
{
first-paragraph : instance { justification } ,
other-paragraphs : instance { justification }
}
\DeclareTemplateCode { justification } { compound } { 0 }
{
first-paragraph = \__galley_justification_first: ,
other-paragraphs = \__galley_justification_other:
}
{
\AssignTemplateKeys
\__galley_justification_first:
\tl_set:Nn \l__galley_justification_other_tl
{ \__galley_justification_other: }
\tl_gput_right:Nn \g_galley_restore_running_tl
{ \l__galley_justification_other_tl }
}
\DeclareObjectType { line-breaking } { 0 }
\DeclareTemplateInterface { line-breaking } { std } { 0 }
{
badness : integer = 1000 ,
binop-penalty : integer = 700 ,
double-hyphen-demerits : integer = 10 000 ,
emergency-stretch : skip = 0 pt ,
final-hyphen-demerits : integer = 5000 ,
fuzz : length = 0.1 pt ,
line-penalty : integer = 10 ,
mismatch-demerits : integer = 10 000 ,
pretolerance : integer = 100 ,
relation-penalty : integer = 500 ,
tolerance : integer = 200
}
\DeclareTemplateCode{ line-breaking } { std } { 0 }
{
badness = \l_galley_linebreak_badness_int ,
binop-penalty = \l__galley_binop_penalty_int ,
double-hyphen-demerits = \l_galley_double_hyphen_demerits_int ,
emergency-stretch = \l_galley_emergency_stretch_skip ,
final-hyphen-demerits = \l_galley_final_hyphen_demerits_int ,
fuzz = \l_galley_linebreak_fuzz_dim ,
line-penalty = \l__galley_linebreak_penalty_int ,
mismatch-demerits = \l_galley_mismatch_demerits_int ,
pretolerance = \l_galley_linebreak_pretolerance_int ,
relation-penalty = \l__galley_relation_penalty_int ,
tolerance = \l_galley_linebreak_tolerance_int
}
{ \AssignTemplateKeys }
\DeclareInstance { line-breaking } { std } { std } { }
\UseInstance { line-breaking } { std }
\DeclareObjectType { paragraph-breaking } { 0 }
\DeclareTemplateInterface { paragraph-breaking } { std } { 0 }
{
badness : integer = 1000 ,
broken-penalty : integer = 100 ,
club-penalty : integer = 150 ,
display-club-penalty : integer = 150 ,
display-widow-penalty : integer = 150 ,
fuzz : length = 0.1 pt ,
interline-penalty : integer = 0 ,
post-display-penalty : integer = 0 ,
pre-display-penalty : integer = 10 000 ,
widow-penalty : integer = 150
}
\DeclareTemplateCode { paragraph-breaking } { std } { 0 }
{
badness = \l_galley_parbreak_badness_int ,
broken-penalty = \l__galley_broken_penalty_int ,
club-penalty = \l__galley_club_penalty_int ,
display-club-penalty = \l__galley_display_club_penalty_int ,
display-widow-penalty = \l__galley_display_widow_penalty_int ,
fuzz = \l_galley_parbreak_fuzz_dim ,
interline-penalty = \l__galley_interline_penalty_int ,
post-display-penalty = \l__galley_post_display_penalty_int ,
pre-display-penalty = \l__galley_pre_display_penalty_int ,
widow-penalty = \l__galley_widow_penalty_int
}
{
\AssignTemplateKeys
\galley_club_penalties_set:V \l__galley_club_penalty_int
\galley_display_club_penalties_set:V \l__galley_display_club_penalty_int
\galley_display_widow_penalties_set:V \l__galley_display_widow_penalty_int
\galley_interline_penalty_set:n \l__galley_interline_penalty_int
\galley_widow_penalties_set:V \l__galley_widow_penalty_int
}
\DeclareInstance { paragraph-breaking } { std } { std } { }
\UseInstance { paragraph-breaking } { std }
\DeclareInstance { paragraph-breaking } { nobreak } { std }
{
interline-penalty = 10 000 ,
post-display-penalty = 10 000
}
\DeclareInstance { paragraph-breaking } { nolone } { std }
{
club-penalty = 10 000 ,
display-club-penalty = 10 000 ,
display-widow-penalty = 10 000 ,
widow-penalty = 10 000
}
\DeclareTemplateInterface { paragraph-breaking } { single } { 0 }
{
badness : tokenlist ,
broken-penalty : tokenlist ,
club-penalty : tokenlist ,
display-club-penalty : tokenlist ,
display-widow-penalty : tokenlist ,
fuzz : tokenlist ,
interline-penalty : tokenlist ,
post-display-penalty : tokenlist ,
pre-display-penalty : tokenlist ,
widow-penalty : tokenlist
}
\DeclareTemplateCode { paragraph-breaking } { single } { 0 }
{
badness = \l__galley_parbreak_badness_tl ,
broken-penalty = \l__galley_broken_penalty_tl ,
club-penalty = \l__galley_club_penalties_tl ,
display-club-penalty = \l__galley_display_club_penalties_tl ,
display-widow-penalty = \l__galley_display_widow_penalties_tl ,
fuzz = \l__galley_parbreak_fuzz_tl ,
interline-penalty = \l__galley_interline_penalty_tl ,
post-display-penalty = \l__galley_post_display_penalty_tl ,
pre-display-penalty = \l__galley_pre_display_penalty_tl ,
widow-penalty = \l__galley_widow_penalties_tl
}
{
\AssignTemplateKeys
\tl_if_empty:NF \l__galley_interline_penalty_tl
{
\tl_gput_right:Nx \g_galley_par_reset_hook_tl
{
\int_set:Nn \exp_not:N \l__galley_interline_penalty_int
{ \galley_interline_penalty: }
}
\int_set:Nn \l__galley_interline_penalty_int
{ \l__galley_interline_penalty_tl }
}
\tl_if_empty:NF \l__galley_parbreak_fuzz_tl
{
\tl_gput_right:Nx \g_galley_par_reset_hook_tl
{
\dim_set:Nn \exp_not:N \l_galley_parbreak_fuzz_dim
{ \dim_use:N \l_galley_parbreak_fuzz_dim }
}
\dim_set:Nn \l_galley_parbreak_fuzz_dim { \l__galley_parbreak_fuzz_tl }
}
\seq_map_inline:Nn \c__galley_parbreak_single_seq
{
\tl_if_empty:cF { l_galley_ ##1 _tl }
{
\tl_gput_right:Nx \g_galley_par_reset_hook_tl
{
\int_set:Nn \exp_not:c { l_galley_ ##1 _int }
{ \int_use:c { l_galley_ ##1 _int } }
}
\int_set:cn { l_galley_ ##1 _int }
{ \tl_use:c { l_galley_ ##1 _tl } }
}
}
\seq_map_inline:Nn \c__galley_parbreak_multi_seq
{
\tl_if_empty:cF { l_galley_ ##1 _tl }
{
\use:c { galley_save_ ##1 :N } \l__galley_tmpa_clist
\tl_gput_right:Nx \g_galley_par_reset_hook_tl
{
\exp_not:c { galley_set_ ##1 :n }
{ \exp_not:o \l__galley_tmpa_clist }
}
\use:c { galley_set_ ##1 :v } { l_galley_ ##1 _tl }
}
}
}
\seq_new:N \c__galley_parbreak_multi_seq
\seq_gput_right:Nn \c__galley_parbreak_multi_seq { club_penalties }
\seq_gput_right:Nn \c__galley_parbreak_multi_seq { display_club_penalties }
\seq_gput_right:Nn \c__galley_parbreak_multi_seq { display_widow_penalties }
\seq_gput_right:Nn \c__galley_parbreak_multi_seq { widow_penalties }
\seq_new:N \c__galley_parbreak_single_seq
\seq_gput_right:Nn \c__galley_parbreak_single_seq { parbreak_badness }
\seq_gput_right:Nn \c__galley_parbreak_single_seq { broken_penalty }
\seq_gput_right:Nn \c__galley_parbreak_single_seq { post_display_penalty }
\seq_gput_right:Nn \c__galley_parbreak_single_seq { pre_display_penalty }
\DeclareInstance { paragraph-breaking } { single-std } { single } { }
\DeclareInstance { paragraph-breaking } { single-nobreak } { single }
{
interline-penalty = 10 000 ,
post-display-penalty = 10 000
}
\DeclareInstance { paragraph-breaking } { single-noclub } { single }
{
club-penalty = 10 000 ,
display-club-penalty = 10 000
}
\DeclareInstance { paragraph-breaking } { single-nolone } { single }
{
club-penalty = 10 000 ,
display-club-penalty = 10 000 ,
display-widow-penalty = 10 000 ,
widow-penalty = 10 000
}
\DeclareInstance { paragraph-breaking } { single-nowidow } { single }
{
display-widow-penalty = 10 000 ,
widow-penalty = 10 000
}
\DeclareObjectType { display-begin } { 0 }
\DeclareObjectType { display-end } { 0 }
\DeclareTemplateInterface { display-begin } { std } { 0 }
{
par-penalty : tokenlist ,
par-space : tokenlist ,
penalty : tokenlist ,
space : tokenlist
}
\DeclareTemplateInterface { display-end } { std } { 0 }
{
par-penalty : tokenlist ,
par-space : tokenlist ,
penalty : tokenlist ,
space : tokenlist
}
\DeclareTemplateCode { display-begin } { std } { 0 }
{
par-penalty = \l_galley_display_begin_par_vpenalty_tl ,
par-space = \l_galley_display_begin_par_vspace_tl ,
penalty = \l_galley_display_begin_vpenalty_tl ,
space = \l_galley_display_begin_vspace_tl
}
{
\AssignTemplateKeys
\tl_if_empty:NF \l_galley_display_begin_par_vpenalty_tl
{
\tl_set:Nx \l_galley_display_begin_par_vpenalty_tl
{ \int_eval:n { \l_galley_display_begin_par_vpenalty_tl } }
}
\tl_if_empty:NF \l_galley_display_begin_par_vspace_tl
{
\tl_set:Nx \l_galley_display_begin_par_vspace_tl
{ \skip_eval:n { \l_galley_display_begin_par_vspace_tl } }
}
\tl_if_empty:NF \l_galley_display_begin_vpenalty_tl
{
\tl_set:Nx \l_galley_display_begin_vpenalty_tl
{ \int_eval:n { \l_galley_display_begin_vpenalty_tl } }
}
\tl_if_empty:NF \l_galley_display_begin_vspace_tl
{
\tl_set:Nx \l_galley_display_begin_vspace_tl
{ \skip_eval:n { \l_galley_display_begin_vspace_tl } }
}
}
\DeclareTemplateCode { display-end } { std } { 0 }
{
par-penalty = \l_galley_display_end_par_vpenalty_tl ,
par-space = \l_galley_display_end_par_vspace_tl ,
penalty = \l_galley_display_end_vpenalty_tl ,
space = \l_galley_display_end_vspace_tl
}
{
\AssignTemplateKeys
\tl_if_empty:NF \l_galley_display_end_par_vpenalty_tl
{
\tl_set:Nx \l_galley_display_end_par_vpenalty_tl
{ \int_eval:n { \l_galley_display_end_par_vpenalty_tl } }
}
\tl_if_empty:NF \l_galley_display_end_par_vspace_tl
{
\tl_set:Nx \l_galley_display_end_par_vspace_tl
{ \skip_eval:n { \l_galley_display_end_par_vspace_tl } }
}
\tl_if_empty:NF \l_galley_display_end_vpenalty_tl
{
\tl_set:Nx \l_galley_display_end_vpenalty_tl
{ \int_eval:n { \l_galley_display_end_vpenalty_tl } }
}
\tl_if_empty:NF \l_galley_display_end_vspace_tl
{
\tl_set:Nx \l_galley_display_end_vspace_tl
{ \skip_eval:n { \l_galley_display_end_vspace_tl } }
}
}
%%
%%
%% End of file `xgalley.sty'.