diff options
author | Karl Berry <karl@freefriends.org> | 2018-09-14 20:56:16 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-09-14 20:56:16 +0000 |
commit | 50b0453246d1f9763026b4a59dfab62eecb4901f (patch) | |
tree | 3ca01a1353c1ff7d8f0a36487f578f4fd012e1e2 /Master/texmf-dist/tex/latex | |
parent | ccd1b1b3d130d56c728e4f9e8a411a7d5c6c202c (diff) |
witharrows (14sep18)
git-svn-id: svn://tug.org/texlive/trunk@48667 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex')
-rw-r--r-- | Master/texmf-dist/tex/latex/witharrows/witharrows.sty | 1114 |
1 files changed, 572 insertions, 542 deletions
diff --git a/Master/texmf-dist/tex/latex/witharrows/witharrows.sty b/Master/texmf-dist/tex/latex/witharrows/witharrows.sty index f9bb8aa968a..5b9bb5d4710 100644 --- a/Master/texmf-dist/tex/latex/witharrows/witharrows.sty +++ b/Master/texmf-dist/tex/latex/witharrows/witharrows.sty @@ -18,8 +18,8 @@ %% and version 1.3 or later is part of all distributions of %% LaTeX version 2005/12/01 or later. %% -\def\myfileversion{1.9} -\def\myfiledate{2018/08/17} +\def\myfileversion{1.10} +\def\myfiledate{2018/09/13} \RequirePackage{tikz} \usetikzlibrary{arrows.meta,bending} \RequirePackage{l3keys2e} @@ -29,12 +29,18 @@ {\myfileversion} {Draws arrows for explanations on the right} \RequirePackage{xparse} -\bool_new:N \g__wa_footnotehyper_bool -\bool_new:N \g__wa_footnote_bool -\int_new:N \l__wa_level_int +\bool_new:N \g__ww_footnotehyper_bool +\bool_new:N \g__ww_footnote_bool +\int_new:N \l__ww_level_int \keys_define:nn {WithArrows/package} - {footnote .bool_gset:N = \g__wa_footnote_bool, - footnotehyper .bool_gset:N = \g__wa_footnotehyper_bool} + {footnote .bool_gset:N = \g__ww_footnote_bool, + footnotehyper .bool_gset:N = \g__ww_footnotehyper_bool, + unknown .code:n = \msg_fatal:nn {witharrows} + {Option~unknown~for~package}} +\msg_new:nnn {witharrows} + {Option~unknown~for~package} + {You~can't~use~the~option~"\tl_use:N\l_keys_key_tl"~when~loading~the~ + package~witharrows.} \ProcessKeysOptions {WithArrows/package} \msg_new:nnn {witharrows} {Option~incompatible~with~Beamer} @@ -54,7 +60,7 @@ If~you~want,~you~can~use~the~option~"footnote"~and~the~footnotes~ within~the~environments~{WithArrows}~will~be~extracted~with~the~tools~ of~the~package~footnote.} -\bool_if:NT \g__wa_footnote_bool +\bool_if:NT \g__ww_footnote_bool {\@ifclassloaded {beamer} {\msg_fatal:nn {witharrows} {Option~incompatible~with~Beamer}} @@ -64,7 +70,7 @@ {footnote~with~footnotehyper~package}} {} \usepackage{footnote}} -\bool_if:NT \g__wa_footnotehyper_bool +\bool_if:NT \g__ww_footnotehyper_bool {\@ifclassloaded {beamer} {\msg_fatal:nn {witharrows} {Option~incompatible~with~Beamer}} @@ -74,91 +80,97 @@ {footnotehyper~with~footnote~package}} {} \usepackage{footnotehyper} - \bool_gset_true:N \g__wa_footnote_bool} + \bool_gset_true:N \g__ww_footnote_bool} +\bool_new:N \c__ww_leqno_bool +\DeclareOption {leqno} {\bool_set_true:N \c__ww_leqno_bool} +\DeclareOption* {} +\ProcessOptions \relax +\cs_new_protected:Nn \__ww_msg_error:n + {\msg_error:nn {witharrows} {#1}} \AtBeginDocument{\clist_map_inline:nn {amsmath,mathtools,autonum,cleveref,hyperref,typedref} - {\bool_new:c {c__wa_#1_loaded_bool} + {\bool_new:c {c__ww_#1_loaded_bool} \@ifpackageloaded {#1} - {\bool_set_true:c {c__wa_#1_loaded_bool}} + {\bool_set_true:c {c__ww_#1_loaded_bool}} {}}} -\tikzset{__wa_node_style/.style= { - above = \l__wa_ystart_dim, +\tikzset{__ww_node_style/.style= { + above = \l__ww_ystart_dim, inner~sep = 0 pt, minimum~width = 0pt, - minimum~height = \l__wa_ygap_dim, + minimum~height = \l__ww_ygap_dim, red, - \bool_if:NT \l__wa_shownodes_bool {draw} }} -\tikzset{__wa_standard/.style= { remember~picture, + \bool_if:NT \l__ww_shownodes_bool {draw} }} +\tikzset{__ww_standard/.style= { remember~picture, overlay, - name~prefix = wa-\l__wa_prefix_str- }} + name~prefix = wa-\l__ww_prefix_str- }} \tikzset{WithArrows/arrow/tips/.style = { > = {Straight~Barb[scale=1.2,bend]} }} \tikzset{WithArrows/arrow/.style = { align = left, auto = left, - font = {\small\itshape}, + font = \small\itshape, WithArrows/arrow/tips, bend~left = 45, -> }} \AtBeginDocument - {\bool_if:NF \c__wa_amsmath_loaded_bool + {\bool_if:NF \c__ww_amsmath_loaded_bool {\cs_set_protected:Npn \spread@equation {\openup\jot \cs_set_protected:Npn \spread@equation {}}}} -\bool_new:N \l__wa_in_witharrows_bool -\seq_new:N \g__wa_position_in_the_tree_seq -\seq_gput_right:Nn \g__wa_position_in_the_tree_seq 1 -\int_new:N \g__wa_last_env_int -\skip_new:N \l__wa_interline_skip -\int_new:N \l__wa_pos_env_int -\dim_new:N \l__wa_xoffset_dim -\dim_set:Nn \l__wa_xoffset_dim {3mm} -\int_new:N \l__wa_pos_arrows_int -\int_new:N \l__wa_previous_pos_arrows_int -\dim_new:N \g__wa_x_dim -\seq_new:N \g__wa_arrow_int_seq -\int_new:N \g__wa_arrow_int -\seq_new:N \g__wa_line_int_seq -\int_new:N \g__wa_line_int -\seq_new:N \g__wa_line_bis_int_seq -\int_new:N \g__wa_line_bis_int -\tl_new:N \l__wa_name_tl -\bool_new:N \l__wa_notag_bool -\tl_new:N \l__wa_tag_tl -\bool_new:N \l__wa_tag_star_bool -\seq_new:N \l__wa_labels_seq -\cs_set:Nn \__wa_label:n {\seq_if_empty:NF \l__wa_labels_seq - {\msg_error:nn {witharrows} {Multiple~labels}} - \seq_put_right:Nn \l__wa_labels_seq {#1} - \bool_if:nT \c__wa_mathtools_loaded_bool +\bool_new:N \l__ww_in_witharrows_bool +\seq_new:N \g__ww_position_in_the_tree_seq +\seq_gput_right:Nn \g__ww_position_in_the_tree_seq 1 +\int_new:N \g__ww_last_env_int +\skip_new:N \l__ww_interline_skip +\int_new:N \l__ww_pos_env_int +\dim_new:N \l__ww_xoffset_dim +\dim_set:Nn \l__ww_xoffset_dim {3mm} +\int_new:N \l__ww_pos_arrows_int +\int_new:N \l__ww_previous_pos_arrows_int +\dim_new:N \g__ww_x_dim +\seq_new:N \g__ww_arrow_int_seq +\int_new:N \g__ww_arrow_int +\seq_new:N \g__ww_line_int_seq +\int_new:N \g__ww_line_int +\seq_new:N \g__ww_line_bis_int_seq +\int_new:N \g__ww_line_bis_int +\tl_new:N \l__ww_name_tl +\bool_new:N \l__ww_notag_bool +\tl_new:N \l__ww_tag_tl +\bool_new:N \l__ww_tag_star_bool +\seq_new:N \l__ww_labels_seq +\cs_set:Nn \__ww_label:n {\seq_if_empty:NF \l__ww_labels_seq + {\__ww_msg_error:n {Multiple~labels}} + \seq_put_right:Nn \l__ww_labels_seq {#1} + \bool_if:nT \c__ww_mathtools_loaded_bool {\MH_if_boolean:nT {show_only_refs} {\cs_if_exist:cTF {MT_r_#1} - {\bool_set_false:N \l__wa_notag_bool} - {\bool_set_true:N \l__wa_notag_bool}}} - \bool_if:nT \c__wa_autonum_loaded_bool + {\bool_set_false:N \l__ww_notag_bool} + {\bool_set_true:N \l__ww_notag_bool}}} + \bool_if:nT \c__ww_autonum_loaded_bool {\cs_if_exist:cTF {autonum@#1Referenced} - {\bool_set_false:N \l__wa_notag_bool} - {\bool_set_true:N \l__wa_notag_bool}}} -\bool_new:N \l__wa_fleqn_bool -\dim_new:N \l__wa_mathindent_dim -\dim_set:Nn \l__wa_mathindent_dim {25pt} -\bool_new:N \l__wa_wrap_lines_bool -\int_set:Nn \l__wa_level_int 1 + {\bool_set_false:N \l__ww_notag_bool} + {\bool_set_true:N \l__ww_notag_bool}}} +\bool_new:N \l__ww_fleqn_bool +\dim_new:N \l__ww_mathindent_dim +\dim_set:Nn \l__ww_mathindent_dim {25pt} +\bool_new:N \l__ww_wrap_lines_bool +\int_set:Nn \l__ww_level_int 1 \keys_define:nn {WithArrows/GlobalOrEnv} - { t .code:n = {\bool_if:NTF \l__wa_in_witharrows_bool - {\int_set:Nn \l__wa_pos_env_int 0} - {\msg_error:nn {witharrows} {Option~will~be~ignored}}}, + { t .code:n = {\bool_if:NTF \l__ww_in_witharrows_bool + {\int_set:Nn \l__ww_pos_env_int 0} + {\__ww_msg_error:n {Option~will~be~ignored}}}, t .value_forbidden:n = true, - c .code:n = {\bool_if:NTF \l__wa_in_witharrows_bool - {\int_set:Nn \l__wa_pos_env_int 1} - {\msg_error:nn {witharrows} {Option~will~be~ignored}}}, + c .code:n = {\bool_if:NTF \l__ww_in_witharrows_bool + {\int_set:Nn \l__ww_pos_env_int 1} + {\__ww_msg_error:n {Option~will~be~ignored}}}, c .value_forbidden:n = true, - b .code:n = {\bool_if:NTF \l__wa_in_witharrows_bool - {\int_set:Nn \l__wa_pos_env_int 2} - {\msg_error:nn {witharrows} {Option~will~be~ignored}}}, + b .code:n = {\bool_if:NTF \l__ww_in_witharrows_bool + {\int_set:Nn \l__ww_pos_env_int 2} + {\__ww_msg_error:n {Option~will~be~ignored}}}, b .value_forbidden:n = true, - ygap .dim_set:N = \l__wa_ygap_dim, + ygap .dim_set:N = \l__ww_ygap_dim, ygap .value_required:n = true, ygap .initial:n = 0.4 ex, - ystart .dim_set:N = \l__wa_ystart_dim, + ystart .dim_set:N = \l__ww_ystart_dim, ystart .value_required:n = true, ystart .initial:n = 0.4 ex, MoreColumns .code:n = { \msg_redirect_name:nnn @@ -171,179 +183,170 @@ {All~lines~must~have~an~ampersand} {none} }, AllowLineWithoutAmpersand .value_forbidden:n = true, - CommandName .tl_set:N = \l__wa_CommandName_tl, + CommandName .tl_set:N = \l__ww_CommandName_tl, CommandName .initial:n = Arrow , CommandName .value_required:n = true, - TikzCode .tl_set:N = \l__wa_tikz_code_tl, + TikzCode .tl_set:N = \l__ww_tikz_code_tl, TikzCode .initial:n = \draw~(#1)~to~node{#3}~(#2)~; , TikzCode .value_required:n = true, - displaystyle .bool_set:N = \l__wa_displaystyle_bool, + displaystyle .bool_set:N = \l__ww_displaystyle_bool, displaystyle .initial:n = false, - shownodes .bool_set:N = \l__wa_shownodes_bool, + shownodes .bool_set:N = \l__ww_shownodes_bool, shownodes .initial:n = false, - shownodenames .bool_set:N = \l__wa_shownodenames_bool, + shownodenames .bool_set:N = \l__ww_shownodenames_bool, shownodenames .initial:n = false, - group .code:n = {\int_compare:nNnT \l__wa_previous_pos_arrows_int > {-1} - {\msg_error:nn {witharrows} - {Two~options~are~incompatible}} - \int_set:Nn \l__wa_previous_pos_arrows_int 6 - \int_set:Nn \l__wa_pos_arrows_int 6} , + group .code:n = {\int_compare:nNnT \l__ww_previous_pos_arrows_int > {-1} + {\__ww_msg_error:n {Two~options~are~incompatible}} + \int_set:Nn \l__ww_previous_pos_arrows_int 6 + \int_set:Nn \l__ww_pos_arrows_int 6} , group .value_forbidden:n = true, - groups .code:n = {\int_compare:nNnT \l__wa_previous_pos_arrows_int > {-1} - {\msg_error:nn {witharrows} - {Two~options~are~incompatible}} - \int_set:Nn \l__wa_previous_pos_arrows_int 7 - \int_set:Nn \l__wa_pos_arrows_int 7} , + groups .code:n = {\int_compare:nNnT \l__ww_previous_pos_arrows_int > {-1} + {\__ww_msg_error:n {Two~options~are~incompatible}} + \int_set:Nn \l__ww_previous_pos_arrows_int 7 + \int_set:Nn \l__ww_pos_arrows_int 7} , groups .value_forbidden:n = true, - CodeBefore .code:n = {\int_compare:nNnTF \l__wa_level_int = 1 - {\msg_error:nn {witharrows} {Option~will~be~ignored}} - {\tl_put_right:Nn \l__wa_code_before_tl {#1}}} , + CodeBefore .code:n = {\int_compare:nNnTF \l__ww_level_int = 1 + {\__ww_msg_error:n {Option~will~be~ignored}} + {\tl_put_right:Nn \l__ww_code_before_tl {#1}}} , CodeBefore .value_required:n = true, - CodeAfter .code:n = {\int_compare:nNnTF \l__wa_level_int = 1 - {\msg_error:nn {witharrows} {Option~will~be~ignored}} - {\tl_put_right:Nn \l__wa_code_after_tl {#1}}} , + CodeAfter .code:n = {\int_compare:nNnTF \l__ww_level_int = 1 + {\__ww_msg_error:n {Option~will~be~ignored}} + {\tl_put_right:Nn \l__ww_code_after_tl {#1}}} , CodeAfter .value_required:n = true, - name .code:n = {\int_compare:nNnTF \l__wa_level_int = 1 - {\msg_error:nn {witharrows} {Option~will~be~ignored}} - {\tl_set:Nn \l__wa_name_tl {#1}}} , + name .code:n = {\int_compare:nNnTF \l__ww_level_int = 1 + {\__ww_msg_error:n {Option~will~be~ignored}} + {\tl_set:Nn \l__ww_name_tl {#1}}} , name .value_required:n = true, - fleqn .code:n = {\bool_if:NTF \l__wa_in_witharrows_bool - {\msg_error:nn {witharrows} {Option~will~be~ignored}} + fleqn .code:n = {\bool_if:NTF \l__ww_in_witharrows_bool + {\__ww_msg_error:n {Option~will~be~ignored}} {\tl_if_eq:nnTF {#1} {true} - {\bool_set_true:N \l__wa_fleqn_bool} - {\bool_set_false:N \l__wa_fleqn_bool}}}, + {\bool_set_true:N \l__ww_fleqn_bool} + {\bool_set_false:N \l__ww_fleqn_bool}}}, fleqn .default:n = true, - mathindent .code:n = {\bool_if:NTF \l__wa_in_witharrows_bool - {\msg_error:nn {witharrows} {Option~will~be~ignored}} - {\dim_set:Nn \l__wa_mathindent_dim {#1}}}, + mathindent .code:n = {\bool_if:NTF \l__ww_in_witharrows_bool + {\__ww_msg_error:n {Option~will~be~ignored}} + {\dim_set:Nn \l__ww_mathindent_dim {#1}}}, mathindent .value_required:n = true, - notag .code:n = {\bool_if:NTF \l__wa_in_witharrows_bool - {\msg_error:nn {witharrows} {Option~will~be~ignored}} + notag .code:n = {\bool_if:NTF \l__ww_in_witharrows_bool + {\__ww_msg_error:n {Option~will~be~ignored}} {\tl_if_eq:nnTF {#1} {true} - {\bool_set_true:N \l__wa_notag_bool} - {\bool_set_false:N \l__wa_notag_bool}}}, + {\bool_set_true:N \l__ww_notag_bool} + {\bool_set_false:N \l__ww_notag_bool}}}, notag .default:n = true, nonumber .meta:n = notag, - AllowMultipleLabels .code:n = {\bool_if:NTF \l__wa_in_witharrows_bool - {\msg_error:nn {witharrows} {Option~will~be~ignored}} + AllowMultipleLabels .code:n = {\bool_if:NTF \l__ww_in_witharrows_bool + {\__ww_msg_error:n {Option~will~be~ignored}} {\msg_redirect_name:nnn {witharrows} {Multiple~labels} {none}}}, AllowMultipleLabels .value_forbidden:n = true, - wrap-lines .code:n = {\bool_if:NTF \l__wa_in_witharrows_bool - {\msg_error:nn {witharrows} {Option~will~be~ignored}} + wrap-lines .code:n = {\bool_if:NTF \l__ww_in_witharrows_bool + {\__ww_msg_error:n {Option~will~be~ignored}} {\tl_if_eq:nnTF {#1} {true} - {\bool_set_true:N \l__wa_wrap_lines_bool} - {\bool_set_false:N \l__wa_wrap_lines_bool}}}, + {\bool_set_true:N \l__ww_wrap_lines_bool} + {\bool_set_false:N \l__ww_wrap_lines_bool}}}, wrap-lines .default:n = true, - unknown .code:n = \msg_error:nn {witharrows} {Option~unknown} + unknown .code:n = \__ww_msg_error:n {Option~unknown} } \keys_define:nn {WithArrows/General} {tikz .code:n = \tikzset {WithArrows/arrow/.append~style = {#1}}, tikz .initial:n = {}, tikz .value_required:n = true, rr .value_forbidden:n = true, - rr .code:n = \__wa_analyze_option_position:n 0 , + rr .code:n = \__ww_analyze_option_position:n 0 , ll .value_forbidden:n = true, - ll .code:n = \__wa_analyze_option_position:n 1 , + ll .code:n = \__ww_analyze_option_position:n 1 , rl .value_forbidden:n = true, - rl .code:n = \__wa_analyze_option_position:n 2 , + rl .code:n = \__ww_analyze_option_position:n 2 , lr .value_forbidden:n = true, - lr .code:n = \__wa_analyze_option_position:n 3 , + lr .code:n = \__ww_analyze_option_position:n 3 , i .value_forbidden:n = true, - i .code:n = \__wa_analyze_option_position:n 5 , - xoffset .code:n = {\bool_if:nTF {\int_compare_p:nNn \l__wa_level_int = 3 && - \int_compare_p:nNn \l__wa_pos_arrows_int > 5} - {\msg_error:nn {witharrows} - {Option~incompatible~with~"group(s)"}} - {\dim_set:Nn \l__wa_xoffset_dim {#1}}} , + i .code:n = \__ww_analyze_option_position:n 5 , + xoffset .code:n = {\bool_if:nTF {\int_compare_p:nNn \l__ww_level_int = 3 && + \int_compare_p:nNn \l__ww_pos_arrows_int > 5} + {\__ww_msg_error:n {Option~incompatible~with~"group(s)"}} + {\dim_set:Nn \l__ww_xoffset_dim {#1}}} , xoffset .value_required:n = true, - jot .code:n = {\int_compare:nNnTF \l__wa_level_int = 2 + jot .code:n = {\int_compare:nNnTF \l__ww_level_int = 2 {\dim_set:Nn \jot {#1}} - {\msg_error:nn {witharrows} - {Option~will~be~ignored}}} , + {\__ww_msg_error:n {Option~will~be~ignored}}} , jot .value_required:n = true, - interline .code:n = {\int_compare:nNnTF \l__wa_level_int = 2 - {\skip_set:Nn \l__wa_interline_skip {#1}} - {\msg_error:nn {witharrows} - {Option~will~be~ignored}}} , + interline .code:n = {\int_compare:nNnTF \l__ww_level_int = 2 + {\skip_set:Nn \l__ww_interline_skip {#1}} + {\__ww_msg_error:n {Option~will~be~ignored}}} , interline .value_required:n = true, - jump .code:n = \msg_error:nn {witharrows} {Option~will~be~ignored} , - unknown .code:n = \msg_error:nn {witharrows} {Option~unknown} + jump .code:n = \__ww_msg_error:n {Option~will~be~ignored} , + unknown .code:n = \__ww_msg_error:n {Option~unknown} } \keys_define:nn {WithArrows/jump} - {jump .code:n = {\int_set:Nn \l__wa_jump_int {#1} - \int_compare:nNnF \l__wa_jump_int > 0 - {\msg_error:nn {witharrows} - {The~option~"jump"~must~be~non~negative}}} , + {jump .code:n = {\int_set:Nn \l__ww_jump_int {#1} + \int_compare:nNnF \l__ww_jump_int > 0 + {\__ww_msg_error:n {The~option~"jump"~must~be~non~negative}}} , jump .value_required:n = true} -\cs_new_protected:Nn \__wa_analyze_option_position:n - {\int_compare:nNnT \l__wa_previous_pos_arrows_int > {-1} - {\msg_error:nn {witharrows} - {Two~options~are~incompatible}} - \int_set:Nn \l__wa_previous_pos_arrows_int {#1} - \bool_if:nTF { \int_compare_p:nNn \l__wa_level_int = 3 && - \int_compare_p:nNn \l__wa_pos_arrows_int > 5} - {\msg_error:nn {witharrows} - {Option~incompatible~with~"group(s)"}} - {\int_set:Nn \l__wa_pos_arrows_int {#1}}} +\cs_new_protected:Nn \__ww_analyze_option_position:n + {\int_compare:nNnT \l__ww_previous_pos_arrows_int > {-1} + {\__ww_msg_error:n {Two~options~are~incompatible}} + \int_set:Nn \l__ww_previous_pos_arrows_int {#1} + \bool_if:nTF { \int_compare_p:nNn \l__ww_level_int = 3 && + \int_compare_p:nNn \l__ww_pos_arrows_int > 5} + {\__ww_msg_error:n {Option~incompatible~with~"group(s)"}} + {\int_set:Nn \l__ww_pos_arrows_int {#1}}} \NewDocumentCommand \WithArrowsOptions {m} - {\int_set:Nn \l__wa_previous_pos_arrows_int {-1} + {\int_set:Nn \l__ww_previous_pos_arrows_int {-1} \keys_set_known:nnN {WithArrows/General} {#1} \l_tmpa_tl \keys_set:nV {WithArrows/GlobalOrEnv} \l_tmpa_tl} -\NewDocumentCommand \__wa_Arrow {O{} m O{}} +\NewDocumentCommand \__ww_Arrow {O{} m O{}} { - \int_gincr:N \g__wa_arrow_int - \int_zero_new:N \l__wa_jump_int - \int_set:Nn \l__wa_jump_int 1 + \int_gincr:N \g__ww_arrow_int + \int_zero_new:N \l__ww_jump_int + \int_set:Nn \l__ww_jump_int 1 \keys_set_known:nnN {WithArrows/jump} {#1,#3} \l_tmpa_tl - \prop_put:NnV \l_tmpa_prop {initial} \g__wa_line_int - \int_set:Nn \l_tmpa_int {\g__wa_line_int + \l__wa_jump_int} + \prop_put:NnV \l_tmpa_prop {initial} \g__ww_line_int + \int_set:Nn \l_tmpa_int {\g__ww_line_int + \l__ww_jump_int} \prop_put:NnV \l_tmpa_prop {final} \l_tmpa_int \prop_put:NnV \l_tmpa_prop {options} \l_tmpa_tl \prop_put:Nnn \l_tmpa_prop {label} {#2} \prop_gclear_new:c - {g__wa_arrow_\l__wa_prefix_str _\int_use:N\g__wa_arrow_int _prop} + {g__ww_arrow_\l__ww_prefix_str _\int_use:N\g__ww_arrow_int _prop} \prop_gset_eq:cN - {g__wa_arrow_\l__wa_prefix_str _\int_use:N\g__wa_arrow_int _prop} + {g__ww_arrow_\l__ww_prefix_str _\int_use:N\g__ww_arrow_int _prop} \l_tmpa_prop } -\cs_new_protected:Nn \__wa_Arrow_first_column: +\cs_new_protected:Nn \__ww_Arrow_first_column: {\tl_set:Nn \l_tmpa_tl {Arrow} - \msg_error:nn {witharrows} {Arrow~in~first~column} - \__wa_Arrow} -\cs_new_protected:Nn \__wa_pre_environment:n - { \seq_gput_right:NV \g__wa_arrow_int_seq \g__wa_arrow_int - \int_gzero:N \g__wa_arrow_int - \seq_gput_right:NV \g__wa_line_int_seq \g__wa_line_int - \int_gzero:N \g__wa_line_int - \seq_gput_right:NV \g__wa_line_bis_int_seq \g__wa_line_bis_int - \int_gzero:N \g__wa_line_bis_int - \seq_gput_right:Nn \g__wa_position_in_the_tree_seq 1 - \seq_set_eq:NN \l_tmpa_seq \g__wa_position_in_the_tree_seq + \__ww_msg_error:n {Arrow~in~first~column} + \__ww_Arrow} +\cs_new_protected:Nn \__ww_pre_environment:n + { \seq_gput_right:NV \g__ww_arrow_int_seq \g__ww_arrow_int + \int_gzero:N \g__ww_arrow_int + \seq_gput_right:NV \g__ww_line_int_seq \g__ww_line_int + \int_gzero:N \g__ww_line_int + \seq_gput_right:NV \g__ww_line_bis_int_seq \g__ww_line_bis_int + \int_gzero:N \g__ww_line_bis_int + \seq_gput_right:Nn \g__ww_position_in_the_tree_seq 1 + \seq_set_eq:NN \l_tmpa_seq \g__ww_position_in_the_tree_seq \seq_pop_right:NN \l_tmpa_seq \l_tmpa_tl - \str_clear_new:N \l__wa_prefix_str - \str_set:Nx \l__wa_prefix_str {\seq_use:Nnnn \l_tmpa_seq {-} {-} {-}} - \cs_set_eq:NN \\ \__wa_cr: + \str_clear_new:N \l__ww_prefix_str + \str_set:Nx \l__ww_prefix_str {\seq_use:Nnnn \l_tmpa_seq {-} {-} {-}} + \cs_set_eq:NN \\ \__ww_cr: \dim_zero:N \mathsurround - \int_zero_new:N \l__wa_initial_int - \int_zero_new:N \l__wa_final_int - \int_zero_new:N \l__wa_arrow_int - \skip_zero:N \l__wa_interline_skip - \tl_clear_new:N \l__wa_code_before_tl - \tl_clear_new:N \l__wa_code_after_tl - \int_set:Nn \l__wa_previous_pos_arrows_int {-1} - \int_set:Nn \l__wa_level_int 2 + \int_zero_new:N \l__ww_initial_int + \int_zero_new:N \l__ww_final_int + \int_zero_new:N \l__ww_arrow_int + \skip_zero:N \l__ww_interline_skip + \tl_clear_new:N \l__ww_code_before_tl + \tl_clear_new:N \l__ww_code_after_tl + \int_set:Nn \l__ww_previous_pos_arrows_int {-1} + \int_set:Nn \l__ww_level_int 2 \keys_set_known:nnN {WithArrows/General} {#1} \l_tmpa_tl \keys_set:nV {WithArrows/GlobalOrEnv} \l_tmpa_tl - \bool_if:NT \g__wa_footnote_bool {\begin{savenotes}} - \l__wa_code_before_tl - \cs_set_eq:cN \l__wa_CommandName_tl \__wa_Arrow} + \bool_if:NT \g__ww_footnote_bool {\begin{savenotes}} + \l__ww_code_before_tl + \cs_set_eq:cN \l__ww_CommandName_tl \__ww_Arrow} \NewDocumentEnvironment {WithArrows} {O{}} - { \bool_set_true:N \l__wa_in_witharrows_bool + { \bool_set_true:N \l__ww_in_witharrows_bool \reverse_if:N \if_mode_math: - \msg_error:nn {witharrows} - {{WithArrows}~used~outside~math~mode} + \__ww_msg_error:n {{WithArrows}~used~outside~math~mode} \fi: \cs_set:Npn \notag {\msg_error:nnn {witharrows} {Command~not~allowed~in~{WithArrows}} @@ -357,430 +360,454 @@ \cs_set:Npn \label ##1 {\msg_error:nnn {witharrows} {Command~not~allowed~in~{WithArrows}} {\label}} - \__wa_pre_environment:n {#1} - \int_case:nn \l__wa_pos_env_int + \__ww_pre_environment:n {#1} + \int_case:nn \l__ww_pos_env_int {0 {\vtop} 1 {\vcenter} 2 {\vbox}} \bgroup \spread@equation \ialign\bgroup - \int_gincr:N \g__wa_line_int - \cs_set_eq:cN \l__wa_CommandName_tl \__wa_Arrow_first_column: + \int_gincr:N \g__ww_line_int + \cs_set_eq:cN \l__ww_CommandName_tl \__ww_Arrow_first_column: \strut\hfil - $\bool_if:NT \l__wa_displaystyle_bool \displaystyle {##}$ + $\bool_if:NT \l__ww_displaystyle_bool \displaystyle {##}$ & - \int_gincr:N \g__wa_line_bis_int - $\bool_if:NT \l__wa_displaystyle_bool \displaystyle {{}##}$ + \int_gincr:N \g__ww_line_bis_int + $\bool_if:NT \l__ww_displaystyle_bool \displaystyle {{}##}$ \tikz [remember~picture,overlay] - \node [__wa_node_style, - name = wa-\l__wa_prefix_str-\int_use:N\g__wa_line_int-l, - alias = {\tl_if_empty:NF \l__wa_name_tl - {\l__wa_name_tl-\int_use:N\g__wa_line_int-l}} ] {} ; + \node [__ww_node_style, + name = wa-\l__ww_prefix_str-\int_use:N\g__ww_line_int-l, + alias = {\tl_if_empty:NF \l__ww_name_tl + {\l__ww_name_tl-\int_use:N\g__ww_line_int-l}} ] {} ; \hfil \tikz [remember~picture,overlay] - \node [__wa_node_style, - name = wa-\l__wa_prefix_str-\int_use:N\g__wa_line_int-r, - alias = {\tl_if_empty:NF \l__wa_name_tl - {\l__wa_name_tl-\int_use:N\g__wa_line_int-r}} ] {} ; - \bool_if:NT \l__wa_shownodenames_bool - {\hbox_overlap_right:n {\small wa-\l__wa_prefix_str - -\int_use:N\g__wa_line_int}} - && \msg_error:nn {witharrows} {Third~column~in~an~environment~{WithArrows}} - $\bool_if:NT \l__wa_displaystyle_bool \displaystyle {##}$ + \node [__ww_node_style, + name = wa-\l__ww_prefix_str-\int_use:N\g__ww_line_int-r, + alias = {\tl_if_empty:NF \l__ww_name_tl + {\l__ww_name_tl-\int_use:N\g__ww_line_int-r}} ] {} ; + \bool_if:NT \l__ww_shownodenames_bool + {\hbox_overlap_right:n {\small wa-\l__ww_prefix_str + -\int_use:N\g__ww_line_int}} + && \__ww_msg_error:n {Third~column~in~an~environment~{WithArrows}} + $\bool_if:NT \l__ww_displaystyle_bool \displaystyle {##}$ \cr } {\crcr \egroup \egroup - \__wa_post_environment:} -\cs_new_protected:Nn \__wa_post_environment: - {\int_compare:nNnT \g__wa_line_bis_int < \g__wa_line_int - {\msg_error:nn {witharrows} {All~lines~must~have~an~ampersand}} - \int_compare:nNnT \g__wa_arrow_int > 0 - {\int_compare:nNnTF \l__wa_pos_arrows_int > 5 - \__wa_draw_arrows: - {\__wa_draw_arrows:nn 1 \g__wa_arrow_int}} + \__ww_post_environment: + \bool_if:NT \g__ww_footnote_bool {\end{savenotes}} +} +\cs_new_protected:Nn \__ww_post_environment: + {\int_compare:nNnT \g__ww_line_bis_int < \g__ww_line_int + {\__ww_msg_error:n {All~lines~must~have~an~ampersand}} + \int_compare:nNnT \g__ww_arrow_int > 0 + {\int_compare:nNnTF \l__ww_pos_arrows_int > 5 + \__ww_draw_arrows: + {\__ww_draw_arrows:nn 1 \g__ww_arrow_int}} \group_begin: - \tikzset{every~picture/.style = __wa_standard} - \cs_set:Npn \NbLines {\int_use:N \g__wa_line_int} - \cs_set_eq:NN \MultiArrow \__wa_MultiArrow:nn - \cs_set_eq:cN \l__wa_CommandName_tl \__wa_Arrow_code_after - \l__wa_code_after_tl + \tikzset{every~picture/.style = __ww_standard} + \cs_set:Npn \NbLines {\int_use:N \g__ww_line_int} + \cs_set_eq:NN \MultiArrow \__ww_MultiArrow:nn + \cs_set_eq:cN \l__ww_CommandName_tl \__ww_Arrow_code_after + \l__ww_code_after_tl \group_end: - \bool_if:NT \g__wa_footnote_bool {\end{savenotes}} - \seq_gpop_right:NN \g__wa_position_in_the_tree_seq \l_tmpa_tl - \seq_gpop_right:NN \g__wa_position_in_the_tree_seq \l_tmpa_tl - \seq_gput_right:Nx \g__wa_position_in_the_tree_seq {\int_eval:n {\l_tmpa_tl+1}} - \int_compare:nNnT {\seq_count:N \g__wa_position_in_the_tree_seq} = 1 - {\int_gincr:N \g__wa_last_env_int} - \seq_gpop_right:NN \g__wa_arrow_int_seq {\l_tmpa_tl} - \int_gset:Nn \g__wa_arrow_int {\l_tmpa_tl} - \seq_gpop_right:NN \g__wa_line_int_seq \l_tmpa_tl - \int_gset:Nn \g__wa_line_int {\l_tmpa_tl} - \seq_gpop_right:NN \g__wa_line_bis_int_seq \l_tmpa_tl - \int_gset:Nn \g__wa_line_bis_int {\l_tmpa_tl} + \seq_gpop_right:NN \g__ww_position_in_the_tree_seq \l_tmpa_tl + \seq_gpop_right:NN \g__ww_position_in_the_tree_seq \l_tmpa_tl + \seq_gput_right:Nx \g__ww_position_in_the_tree_seq {\int_eval:n {\l_tmpa_tl+1}} + \int_compare:nNnT {\seq_count:N \g__ww_position_in_the_tree_seq} = 1 + {\int_gincr:N \g__ww_last_env_int} + \seq_gpop_right:NN \g__ww_arrow_int_seq {\l_tmpa_tl} + \int_gset:Nn \g__ww_arrow_int {\l_tmpa_tl} + \seq_gpop_right:NN \g__ww_line_int_seq \l_tmpa_tl + \int_gset:Nn \g__ww_line_int {\l_tmpa_tl} + \seq_gpop_right:NN \g__ww_line_bis_int_seq \l_tmpa_tl + \int_gset:Nn \g__ww_line_bis_int {\l_tmpa_tl} } -\cs_new_protected:Nn \__wa_cr: +\cs_new_protected:Nn \__ww_cr: {\scan_stop: \group_align_safe_begin: - \peek_meaning_remove:NTF * \__wa_cr_i: \__wa_cr_i:} -\cs_new_protected:Nn \__wa_cr_i: - {\peek_meaning:NTF [ {\__wa_cr_ii:} {\__wa_cr_ii:[\c_zero_dim]} } -\cs_new_protected:Npn \__wa_cr_ii:[#1] + \peek_meaning_remove:NTF * \__ww_cr_i: \__ww_cr_i:} +\cs_new_protected:Nn \__ww_cr_i: + {\peek_meaning:NTF [ {\__ww_cr_ii:} {\__ww_cr_ii:[\c_zero_dim]} } +\cs_new_protected:Npn \__ww_cr_ii:[#1] {\group_align_safe_end: - \bool_if:NF \l__wa_in_witharrows_bool - {\bool_if:NTF \l__wa_notag_bool - {& \tikz [remember~picture,overlay] - \coordinate [name = wa-\l__wa_prefix_str-\int_use:N\g__wa_line_int-v ] ; } + \bool_if:NF \l__ww_in_witharrows_bool + {\bool_if:NTF \l__ww_notag_bool + {& \tikz [__ww_standard] \coordinate (\int_use:N\g__ww_line_int-v) ; } { - \tl_if_empty:NT \l__wa_tag_tl + \tl_if_empty:NT \l__ww_tag_tl {\int_gincr:N \c@equation} \cs_gset:Npx \g_tmpa_tl - {\tl_if_empty:NTF \l__wa_tag_tl + {\tl_if_empty:NTF \l__ww_tag_tl \theequation - \l__wa_tag_tl} - \seq_if_empty:NF \l__wa_labels_seq + \l__ww_tag_tl} + \seq_if_empty:NF \l__ww_labels_seq { \cs_set:Npx \@currentlabel {\p@equation \g_tmpa_tl} - \bool_if:NT \c__wa_hyperref_loaded_bool + \bool_if:NT \c__ww_hyperref_loaded_bool {\cs_set:Npn \This@name {equation} \hyper@refstepcounter{equation}} - \bool_if:NT \c__wa_cleveref_loaded_bool + \bool_if:NT \c__ww_cleveref_loaded_bool {\cref@constructprefix{equation}{\cref@result} \@ifundefined{cref@equation@alias} {\def\@tempa{equation}} {\def\@tempa{\csname cref@equation@alias\endcsname}} - \protected@edef\cref@currentlabel{[\@tempa][\arabic{equation}][\cref@result] - \p@equation \g_tmpa_tl}} - \bool_if:NT \c__wa_typedref_loaded_bool + \protected@edef\cref@currentlabel + {[\@tempa][\arabic{equation}][\cref@result] + \p@equation \g_tmpa_tl}} + \bool_if:NT \c__ww_typedref_loaded_bool {\cs_set:Npn \sr@name {equation}} - \seq_map_function:NN \l__wa_labels_seq \__wa_old_label} - \bool_gset_eq:NN \g_tmpa_bool \l__wa_tag_star_bool + \seq_map_function:NN \l__ww_labels_seq \__ww_old_label} + \bool_gset_eq:NN \g_tmpa_bool \l__ww_tag_star_bool & \cs_set_eq:NN \theequation \g_tmpa_tl \bool_if:NT \g_tmpa_bool {\cs_set:Npn \tagform@ {}} \hbox_overlap_left:n - { \tikz [__wa_standard] - \coordinate [name = \int_use:N \g__wa_line_int-v ] ; - \quad - \@eqnnum} + {\bool_if:NF \c__ww_leqno_bool + {\tikz [__ww_standard] \coordinate (\int_use:N\g__ww_line_int-v) ;} + \quad + \@eqnnum } + \bool_if:NT \c__ww_leqno_bool + {\tikz [__ww_standard] \coordinate (\int_use:N \g__ww_line_int-v) ;} }} - \cr\noalign{\skip_vertical:n {#1 + \l__wa_interline_skip} + \cr\noalign{\skip_vertical:n {#1 + \l__ww_interline_skip} \scan_stop:}} \NewDocumentEnvironment {DispWithArrows} {O{}} { - \bool_if:nT \c__wa_mathtools_loaded_bool + \bool_if:nT \c__ww_mathtools_loaded_bool {\MH_if_boolean:nT {show_only_refs} {\MT_showonlyrefs_false: \MH_set_boolean_T:n {show_only_refs} - \bool_set_true:N \l__wa_notag_bool}} - \bool_if:NT \c__wa_amsmath_loaded_bool \intertext@ + \bool_set_true:N \l__ww_notag_bool}} + \bool_if:NT \c__ww_amsmath_loaded_bool \intertext@ \if_mode_math: - \msg_error:nn {witharrows} - {{DispWithArrows}~used~in~math~mode} + \__ww_msg_error:n {{DispWithArrows}~used~in~math~mode} + \fi: + \bool_set_false:N \l__ww_in_witharrows_bool + \__ww_pre_environment:n {#1} + \if_mode_vertical: + \nointerlineskip + \makebox[.6\linewidth]{} \fi: - \bool_set_false:N \l__wa_in_witharrows_bool - \__wa_pre_environment:n {#1} - \nointerlineskip - \makebox[.6\linewidth]{} $$ \vcenter \bgroup \spread@equation - \bool_if:NTF \l__wa_fleqn_bool + \bool_if:NTF \l__ww_fleqn_bool {\tabskip = \c_zero_skip} {\tabskip = 0 pt plus 1000 pt minus 1000 pt} - \bool_if:NTF \c__wa_amsmath_loaded_bool - {\cs_set_eq:NN \__wa_old_label \ltx@label} - {\cs_set_eq:NN \__wa_old_label \label} + \bool_if:NTF \c__ww_amsmath_loaded_bool + {\cs_set_eq:NN \__ww_old_label \ltx@label} + {\cs_set_eq:NN \__ww_old_label \label} \cs_set:Npn \notag {\msg_error:nnn {witharrows} {Command~not~allowed~in~{DispWithArrows}} {\notag}} \cs_set:Npn \nonumber {\msg_error:nnn {witharrows} - {Command~not~allowed~in~{DispWithArrows}} - {\nonumber}} + {Command~not~allowed~in~{DispWithArrows}} + {\nonumber}} \cs_set:Npn \tag ##1 {\msg_error:nnn {witharrows} - {Command~not~allowed~in~{DispWithArrows}} - {\tag}} + {Command~not~allowed~in~{DispWithArrows}} + {\tag}} \cs_set:Npn \label ##1 {\msg_error:nnn {witharrows} - {Command~not~allowed~in~{DispWithArrows}} - {\label}} + {Command~not~allowed~in~{DispWithArrows}} + {\label}} \halign to \displaywidth \bgroup - \int_gincr:N \g__wa_line_int - \cs_set_eq:cN \l__wa_CommandName_tl \__wa_Arrow_first_column: + \int_gincr:N \g__ww_line_int + \cs_set_eq:cN \l__ww_CommandName_tl \__ww_Arrow_first_column: \strut - \bool_if:NT \l__wa_fleqn_bool - {\skip_horizontal:n \l__wa_mathindent_dim} + \bool_if:NT \l__ww_fleqn_bool + {\skip_horizontal:n \l__ww_mathindent_dim} \hfil - $\bool_if:NT \l__wa_displaystyle_bool \displaystyle {##}$ + $\bool_if:NT \l__ww_displaystyle_bool \displaystyle {##}$ \tabskip = \c_zero_skip & - \cs_set:Npn \notag {\bool_set_true:N \l__wa_notag_bool} + \cs_set:Npn \notag {\bool_set_true:N \l__ww_notag_bool} \cs_set_eq:NN \nonumber \notag - \cs_set_eq:NN \tag \__wa_tag - \cs_set_eq:NN \label \__wa_label:n - $\bool_if:NT \l__wa_displaystyle_bool \displaystyle {{}##}$ + \cs_set_eq:NN \tag \__ww_tag + \cs_set_eq:NN \label \__ww_label:n + $\bool_if:NT \l__ww_displaystyle_bool \displaystyle {{}##}$ \tabskip = 0 pt plus 1000 pt minus 1000 pt - \int_gincr:N \g__wa_line_bis_int + \int_gincr:N \g__ww_line_bis_int \tikz [remember~picture,overlay] - \node [__wa_node_style, - name = wa-\l__wa_prefix_str-\int_use:N\g__wa_line_int-l, - alias = {\tl_if_empty:NF \l__wa_name_tl - {\l__wa_name_tl-\int_use:N\g__wa_line_int-l}} ] {} ; + \node [__ww_node_style, + name = wa-\l__ww_prefix_str-\int_use:N\g__ww_line_int-l, + alias = {\tl_if_empty:NF \l__ww_name_tl + {\l__ww_name_tl-\int_use:N\g__ww_line_int-l}} ] {} ; \hfil \tikz [remember~picture,overlay] - \node [__wa_node_style, - name = wa-\l__wa_prefix_str-\int_use:N\g__wa_line_int-r, - alias = {\tl_if_empty:NF \l__wa_name_tl - {\l__wa_name_tl-\int_use:N\g__wa_line_int-r}} ] {} ; - \bool_if:NT \l__wa_shownodenames_bool - {\hbox_overlap_right:n {\small wa-\l__wa_prefix_str - -\int_use:N\g__wa_line_int}} + \node [__ww_node_style, + name = wa-\l__ww_prefix_str-\int_use:N\g__ww_line_int-r, + alias = {\tl_if_empty:NF \l__ww_name_tl + {\l__ww_name_tl-\int_use:N\g__ww_line_int-r}} ] {} ; + \bool_if:NT \l__ww_shownodenames_bool + {\hbox_overlap_right:n {\small wa-\l__ww_prefix_str + -\int_use:N\g__ww_line_int}} & ## \tabskip = \c_zero_skip - && \msg_error:nn {witharrows} {Third~column~in~an~environment~{DispWithArrows}} + && \__ww_msg_error:n {Third~column~in~an~environment~{DispWithArrows}} \iffalse ## \fi \cr} {\\ \egroup \egroup - $$ - \bool_if:NT \l__wa_wrap_lines_bool - {\dim_gzero_new:N \g__wa_x_right_dim - \dim_gset:Nn \g__wa_x_right_dim \c_max_dim - \begin{tikzpicture} [__wa_standard] - \int_step_variable:nnnNn 1 1 \g__wa_line_int \l_tmpa_int + \bool_if:NT \l__ww_wrap_lines_bool + {\dim_gzero_new:N \g__ww_x_right_dim + \dim_gset:Nn \g__ww_x_right_dim \c_max_dim + \begin{tikzpicture} [__ww_standard] + \int_step_variable:nnnNn 1 1 \g__ww_line_int \l_tmpa_int {\tikz@parse@node\pgfutil@firstofone (\l_tmpa_int-v) \dim_set:Nn \l_tmpa_dim \pgf@x - \dim_compare:nNnT \l_tmpa_dim < \g__wa_x_right_dim - {\dim_gset:Nn \g__wa_x_right_dim \l_tmpa_dim} } + \dim_compare:nNnT \l_tmpa_dim < \g__ww_x_right_dim + {\dim_gset:Nn \g__ww_x_right_dim \l_tmpa_dim} } \end{tikzpicture}} - \__wa_post_environment: - \bool_if:nT \c__wa_mathtools_loaded_bool + {\begin{tikzpicture} [__ww_standard] + \int_step_variable:nnnNn 1 1 \g__ww_line_int \l_tmpa_int + {\tikz@parse@node\pgfutil@firstofone (\l_tmpa_int-v) + \dim_set:Nn \l_tmpa_dim \pgf@x + \tikz@parse@node\pgfutil@firstofone (\l_tmpa_int-l) + \dim_set:Nn \l_tmpb_dim \pgf@x + \dim_compare:nNnT \l_tmpb_dim > \l_tmpa_dim + {\__ww_msg_error:n {Collision}}} + \end{tikzpicture}} + \__ww_post_environment: + \bool_if:nT \c__ww_mathtools_loaded_bool {\MH_if_boolean:nT {show_only_refs} \MT_showonlyrefs_true:} + $$ + \bool_if:NT \g__ww_footnote_bool {\end{savenotes}} \ignorespacesafterend } -\NewDocumentCommand \__wa_tag {sm} - {\tl_if_empty:NF \l__wa_tag_tl +\NewDocumentCommand \__ww_tag {sm} + {\tl_if_empty:NF \l__ww_tag_tl {\msg_error:nnn {witharrows} {Multiple~tags} {#2}} - \bool_set_false:N \l__wa_notag_bool - \bool_if:nT \c__wa_mathtools_loaded_bool + \bool_set_false:N \l__ww_notag_bool + \bool_if:nT \c__ww_mathtools_loaded_bool {\MH_if_boolean:nT {show_only_refs} {\MH_if_boolean:nF {show_manual_tags} - {\bool_set_true:N \l__wa_notag_bool}}} - \tl_set:Nn \l__wa_tag_tl {#2} - \bool_set:Nn \l__wa_tag_star_bool {#1} - \bool_if:nT {#1 && ! \bool_if_p:N \c__wa_amsmath_loaded_bool} - { \msg_error:nn {witharrows} {tag*~without~amsmath} } + {\bool_set_true:N \l__ww_notag_bool}}} + \tl_set:Nn \l__ww_tag_tl {#2} + \bool_set:Nn \l__ww_tag_star_bool {#1} + \bool_if:nT {#1 && ! \bool_if_p:N \c__ww_amsmath_loaded_bool} + { \__ww_msg_error:n {tag*~without~amsmath} } } \NewDocumentEnvironment {DispWithArrows*} {} {\WithArrowsOptions{notag} \DispWithArrows} {\endDispWithArrows} -\cs_new_protected:Nn \__wa_draw_arrows: +\cs_new_protected:Nn \__ww_draw_arrows: { \group_begin: - \int_zero_new:N \l__wa_first_arrow_of_group_int - \int_zero_new:N \l__wa_first_line_of_group_int - \int_zero_new:N \l__wa_last_line_of_group_int - \bool_set_true:N \l__wa_new_group_bool - \int_set:Nn \l__wa_arrow_int 1 - \int_until_do:nNnn \l__wa_arrow_int > \g__wa_arrow_int + \int_zero_new:N \l__ww_first_arrow_of_group_int + \int_zero_new:N \l__ww_first_line_of_group_int + \int_zero_new:N \l__ww_last_line_of_group_int + \bool_set_true:N \l__ww_new_group_bool + \int_set:Nn \l__ww_arrow_int 1 + \int_until_do:nNnn \l__ww_arrow_int > \g__ww_arrow_int { - \prop_get:cnN {g__wa_arrow_\l__wa_prefix_str _\int_use:N\l__wa_arrow_int _prop} + \prop_get:cnN {g__ww_arrow_\l__ww_prefix_str _\int_use:N\l__ww_arrow_int _prop} {initial} \l_tmpa_tl - \int_set:Nn \l__wa_initial_int {\l_tmpa_tl} - \prop_get:cnN {g__wa_arrow_\l__wa_prefix_str _\int_use:N\l__wa_arrow_int _prop} + \int_set:Nn \l__ww_initial_int {\l_tmpa_tl} + \prop_get:cnN {g__ww_arrow_\l__ww_prefix_str _\int_use:N\l__ww_arrow_int _prop} {final} \l_tmpa_tl - \int_set:Nn \l__wa_final_int {\l_tmpa_tl} - \bool_if:nT { \int_compare_p:nNn \l__wa_pos_arrows_int = 7 - && \int_compare_p:nNn \l__wa_arrow_int > 1 + \int_set:Nn \l__ww_final_int {\l_tmpa_tl} + \bool_if:nT { \int_compare_p:nNn \l__ww_pos_arrows_int = 7 + && \int_compare_p:nNn \l__ww_arrow_int > 1 && \int_compare_p:nNn - \l__wa_initial_int > \l__wa_last_line_of_group_int} - {\__wa_draw_arrows:nn \l__wa_first_arrow_of_group_int {\l__wa_arrow_int - 1} - \bool_set_true:N \l__wa_new_group_bool} - \bool_if:nTF \l__wa_new_group_bool - {\bool_set_false:N \l__wa_new_group_bool - \int_set:Nn \l__wa_first_arrow_of_group_int \l__wa_arrow_int - \int_set:Nn \l__wa_first_line_of_group_int \l__wa_initial_int - \int_set:Nn \l__wa_last_line_of_group_int \l__wa_final_int - \begin{tikzpicture} [__wa_standard] - \tikz@parse@node\pgfutil@firstofone (\int_use:N\l__wa_initial_int-l) - \dim_gset:Nn \g__wa_x_dim \pgf@x + \l__ww_initial_int > \l__ww_last_line_of_group_int} + {\__ww_draw_arrows:nn \l__ww_first_arrow_of_group_int {\l__ww_arrow_int - 1} + \bool_set_true:N \l__ww_new_group_bool} + \bool_if:nTF \l__ww_new_group_bool + {\bool_set_false:N \l__ww_new_group_bool + \int_set:Nn \l__ww_first_arrow_of_group_int \l__ww_arrow_int + \int_set:Nn \l__ww_first_line_of_group_int \l__ww_initial_int + \int_set:Nn \l__ww_last_line_of_group_int \l__ww_final_int + \begin{tikzpicture} [__ww_standard] + \tikz@parse@node\pgfutil@firstofone (\int_use:N\l__ww_initial_int-l) + \dim_gset:Nn \g__ww_x_dim \pgf@x \end{tikzpicture} } - {\int_set:Nn \l__wa_last_line_of_group_int - {\int_max:nn \l__wa_last_line_of_group_int \l__wa_final_int}} - \__wa_update_x_value:nn \l__wa_initial_int \l__wa_final_int - \int_incr:N \l__wa_arrow_int + {\int_set:Nn \l__ww_last_line_of_group_int + {\int_max:nn \l__ww_last_line_of_group_int \l__ww_final_int}} + \__ww_update_x_value:nn \l__ww_initial_int \l__ww_final_int + \int_incr:N \l__ww_arrow_int } - \__wa_draw_arrows:nn \l__wa_first_arrow_of_group_int \g__wa_arrow_int + \__ww_draw_arrows:nn \l__ww_first_arrow_of_group_int \g__ww_arrow_int \group_end: } \cs_generate_variant:Nn \keys_set:nn {no} -\cs_new_protected:Nn \__wa_keys_set: {\keys_set:no {WithArrows/General}} -\cs_new_protected:Nn \__wa_draw_arrows:nn +\cs_new_protected:Nn \__ww_keys_set: {\keys_set:no {WithArrows/General}} +\cs_new_protected:Nn \__ww_draw_arrows:nn {\group_begin: - \int_zero_new:N \l__wa_first_arrow_int - \int_set:Nn \l__wa_first_arrow_int {#1} - \int_zero_new:N \l__wa_last_arrow_int - \int_set:Nn \l__wa_last_arrow_int {#2} - \int_set:Nn \l__wa_arrow_int \l__wa_first_arrow_int - \int_until_do:nNnn \l__wa_arrow_int > \l__wa_last_arrow_int + \int_zero_new:N \l__ww_first_arrow_int + \int_set:Nn \l__ww_first_arrow_int {#1} + \int_zero_new:N \l__ww_last_arrow_int + \int_set:Nn \l__ww_last_arrow_int {#2} + \int_set:Nn \l__ww_arrow_int \l__ww_first_arrow_int + \int_until_do:nNnn \l__ww_arrow_int > \l__ww_last_arrow_int { - \prop_get:cnN {g__wa_arrow_\l__wa_prefix_str _\int_use:N\l__wa_arrow_int _prop} + \prop_get:cnN {g__ww_arrow_\l__ww_prefix_str _\int_use:N\l__ww_arrow_int _prop} {initial} \l_tmpa_tl - \int_set:Nn \l__wa_initial_int {\l_tmpa_tl} - \prop_get:cnN {g__wa_arrow_\l__wa_prefix_str _\int_use:N\l__wa_arrow_int _prop} + \int_set:Nn \l__ww_initial_int {\l_tmpa_tl} + \prop_get:cnN {g__ww_arrow_\l__ww_prefix_str _\int_use:N\l__ww_arrow_int _prop} {final} \l_tmpa_tl - \int_set:Nn \l__wa_final_int {\l_tmpa_tl} - \int_compare:nNnTF \l__wa_final_int > \g__wa_line_int - {\msg_error:nn {witharrows} {Too~few~lines~for~an~arrow}} - {\cs_if_free:cTF {pgf@sh@ns@wa-\l__wa_prefix_str-\int_use:N\l__wa_initial_int-l} - { \msg_error:nn {witharrows} {A~PGF~node~doesn't~exist} } - {\cs_if_free:cTF {pgf@sh@ns@wa-\l__wa_prefix_str-\int_use:N\l__wa_final_int-l} - { \msg_error:nn {witharrows} {A~PGF~node~doesn't~exist} } - {\__wa_draw_arrows_i:}}} - \int_incr:N \l__wa_arrow_int + \int_set:Nn \l__ww_final_int {\l_tmpa_tl} + \int_compare:nNnTF \l__ww_final_int > \g__ww_line_int + {\__ww_msg_error:n {Too~few~lines~for~an~arrow}} + {\cs_if_free:cTF{pgf@sh@ns@wa-\l__ww_prefix_str-\int_use:N\l__ww_initial_int-l} + { \__ww_msg_error:n {A~PGF~node~doesn't~exist} } + {\cs_if_free:cTF{pgf@sh@ns@wa-\l__ww_prefix_str-\int_use:N\l__ww_final_int-l} + { \__ww_msg_error:n {A~PGF~node~doesn't~exist} } + {\__ww_draw_arrows_i:}}} + \int_incr:N \l__ww_arrow_int } \group_end: } -\cs_new:Nn \__wa_draw_arrows_i: +\cs_new:Nn \__ww_draw_arrows_i: {\group_begin: - \int_set:Nn \l__wa_previous_pos_arrows_int {-1} - \int_set:Nn \l__wa_level_int 3 - \prop_get:cnN {g__wa_arrow_\l__wa_prefix_str - _\int_use:N\l__wa_arrow_int _prop} {options} \l_tmpa_tl + \int_set:Nn \l__ww_previous_pos_arrows_int {-1} + \int_set:Nn \l__ww_level_int 3 + \prop_get:cnN {g__ww_arrow_\l__ww_prefix_str + _\int_use:N\l__ww_arrow_int _prop} {options} \l_tmpa_tl \exp_args:NNo \exp_args:No - \__wa_keys_set: {\l_tmpa_tl,tikz={xshift = \l__wa_xoffset_dim}} - \bool_set_false:N \l__wa_initial_r_bool - \bool_set_false:N \l__wa_final_r_bool - \int_case:nn \l__wa_pos_arrows_int - {0 {\bool_set_true:N \l__wa_initial_r_bool - \bool_set_true:N \l__wa_final_r_bool} - 2 {\bool_set_true:N \l__wa_initial_r_bool} - 3 {\bool_set_true:N \l__wa_final_r_bool}} - \int_compare:nNnT \l__wa_pos_arrows_int = 5 + \__ww_keys_set: {\l_tmpa_tl,tikz={xshift = \l__ww_xoffset_dim}} + \bool_set_false:N \l__ww_initial_r_bool + \bool_set_false:N \l__ww_final_r_bool + \int_case:nn \l__ww_pos_arrows_int + {0 {\bool_set_true:N \l__ww_initial_r_bool + \bool_set_true:N \l__ww_final_r_bool} + 2 {\bool_set_true:N \l__ww_initial_r_bool} + 3 {\bool_set_true:N \l__ww_final_r_bool}} + \int_compare:nNnT \l__ww_pos_arrows_int = 5 { - \begin{tikzpicture} [__wa_standard] - \tikz@parse@node\pgfutil@firstofone (\int_use:N\l__wa_initial_int-l) - \dim_gset:Nn \g__wa_x_dim \pgf@x + \begin{tikzpicture} [__ww_standard] + \tikz@parse@node\pgfutil@firstofone (\int_use:N\l__ww_initial_int-l) + \dim_gset:Nn \g__ww_x_dim \pgf@x \end{tikzpicture} - \__wa_update_x_value:nn \l__wa_initial_int \l__wa_final_int + \__ww_update_x_value:nn \l__ww_initial_int \l__ww_final_int } - \tl_set:Nx \l__wa_initial_tl - {\int_use:N\l__wa_initial_int-\bool_if:NTF\l__wa_initial_r_bool rl .south} - \tl_set:Nx \l__wa_final_tl - {\int_use:N\l__wa_final_int-\bool_if:NTF\l__wa_final_r_bool rl .north} - \prop_get:cnN {g__wa_arrow_\l__wa_prefix_str _\int_use:N\l__wa_arrow_int _prop} + \tl_set:Nx \l__ww_initial_tl + {\int_use:N\l__ww_initial_int-\bool_if:NTF\l__ww_initial_r_bool rl .south} + \tl_set:Nx \l__ww_final_tl + {\int_use:N\l__ww_final_int-\bool_if:NTF\l__ww_final_r_bool rl .north} + \prop_get:cnN {g__ww_arrow_\l__ww_prefix_str _\int_use:N\l__ww_arrow_int _prop} {label} \l_tmpa_tl - \int_compare:nNnTF \l__wa_pos_arrows_int < 5 - {\begin{tikzpicture} [__wa_standard] - \tikz@scan@one@point\pgfutil@firstofone(\l__wa_initial_tl) + \int_compare:nNnTF \l__ww_pos_arrows_int < 5 + {\begin{tikzpicture} [__ww_standard] + \tikz@scan@one@point\pgfutil@firstofone(\l__ww_initial_tl) \tl_gset:Nx \g_tmpa_tl {\dim_use:N\pgf@x,\dim_use:N\pgf@y} - \tikz@scan@one@point\pgfutil@firstofone(\l__wa_final_tl) + \tikz@scan@one@point\pgfutil@firstofone(\l__ww_final_tl) \tl_gset:Nx \g_tmpb_tl {\dim_use:N\pgf@x,\dim_use:N\pgf@y} \end{tikzpicture} } - {\begin{tikzpicture} [__wa_standard] - \tikz@scan@one@point\pgfutil@firstofone (\l__wa_initial_tl) - \tl_gset:Nx \g_tmpa_tl {\dim_use:N \g__wa_x_dim , \dim_use:N \pgf@y} - \tikz@scan@one@point\pgfutil@firstofone (\l__wa_final_tl) - \tl_gset:Nx \g_tmpb_tl {\dim_use:N \g__wa_x_dim , \dim_use:N \pgf@y} + {\begin{tikzpicture} [__ww_standard] + \tikz@scan@one@point\pgfutil@firstofone (\l__ww_initial_tl) + \tl_gset:Nx \g_tmpa_tl {\dim_use:N \g__ww_x_dim , \dim_use:N \pgf@y} + \tikz@scan@one@point\pgfutil@firstofone (\l__ww_final_tl) + \tl_gset:Nx \g_tmpb_tl {\dim_use:N \g__ww_x_dim , \dim_use:N \pgf@y} \end{tikzpicture}} - \__wa_draw_arrow:nno {\g_tmpa_tl} {\g_tmpb_tl} {\l_tmpa_tl} + \__ww_draw_arrow:nno {\g_tmpa_tl} {\g_tmpb_tl} {\l_tmpa_tl} \group_end: } -\cs_new_protected:Nn \__wa_def_function_tmpa:n - {\cs_set:Nn \__wa_tmpa:nnn - {\begin{tikzpicture}[__wa_standard,every~path/.style = {WithArrows/arrow}] +\cs_new_protected:Nn \__ww_def_function_tmpa:n + {\cs_set:Nn \__ww_tmpa:nnn + {\begin{tikzpicture}[__ww_standard,every~path/.style = {WithArrows/arrow}] #1 \end{tikzpicture}}} -\cs_new_protected:Nn \__wa_draw_arrow:nnn +\cs_new_protected:Nn \__ww_draw_arrow:nnn { - \bool_if:nT {\l__wa_wrap_lines_bool && ! \l__wa_in_witharrows_bool} - {\tl_set:Nn \l__wa_tikz_code_tl - {\draw (##1) to node (__wa_label) {} (##2) ; - \tikz@parse@node \pgfutil@firstofone (__wa_label.west) - \path (__wa_label.west) - node [anchor = west, - text~width = \dim_eval:n {\g__wa_x_right_dim - \pgf@x - 0.3333 em}] - {##3} ; }} - \exp_args:No \__wa_def_function_tmpa:n \l__wa_tikz_code_tl - \__wa_tmpa:nnn {#1} {#2} {#3} } -\cs_generate_variant:Nn \__wa_draw_arrow:nnn {nno} -\cs_new_protected:Nn \__wa_update_x_value:nn - {\int_step_inline:nnnn {#1} \c_one {#2} - {\cs_if_exist:cT {pgf@sh@ns@wa-\l__wa_prefix_str-##1-l} - {\begin{tikzpicture} [__wa_standard] + \bool_if:nT {\l__ww_wrap_lines_bool && ! \l__ww_in_witharrows_bool} + { \tl_set_eq:NN \l__ww_tikz_code_tl \c__ww_tikz_code_wrap_lines_tl } + \exp_args:No \__ww_def_function_tmpa:n \l__ww_tikz_code_tl + \__ww_tmpa:nnn {#1} {#2} {#3} } +\cs_generate_variant:Nn \__ww_draw_arrow:nnn {nno} +\tl_set:Nn \c__ww_tikz_code_wrap_lines_tl + { + \draw (#1) to node (__ww_label) {} (#2) ; + \tikz@parse@node \pgfutil@firstofone (__ww_label.west) + \dim_set:Nn \l_tmpa_dim {\g__ww_x_right_dim - \pgf@x - 0.3333 em} + \path \pgfextra {\tl_gset:Nx \g_tmpa_tl \tikz@text@width} ; + \tl_if_empty:NF \g_tmpa_tl + {\dim_set:Nn \l_tmpb_dim \g_tmpa_tl + \dim_compare:nNnT \l_tmpb_dim < \l_tmpa_dim + {\dim_set_eq:NN \l_tmpa_dim \l_tmpb_dim}} + \dim_compare:nNnT \l_tmpa_dim > \c_zero_dim + {\path (__ww_label.west) + node [anchor = west, text~width = \dim_use:N \l_tmpa_dim] + {#3} ; } } +\cs_new_protected:Nn \__ww_update_x_value:nn + {\int_step_inline:nnnn {#1} 1 {#2} + {\cs_if_exist:cT {pgf@sh@ns@wa-\l__ww_prefix_str-##1-l} + {\begin{tikzpicture} [__ww_standard] \tikz@scan@one@point\pgfutil@firstofone (##1-l) - \dim_gset:Nn \g__wa_x_dim {\dim_max:nn \g__wa_x_dim \pgf@x} + \dim_gset:Nn \g__ww_x_dim {\dim_max:nn \g__ww_x_dim \pgf@x} \end{tikzpicture} } } } -\cs_new:Npn \WithArrowsLastEnv {\int_use:N \g__wa_last_env_int} +\cs_new:Npn \WithArrowsLastEnv {\int_use:N \g__ww_last_env_int} \keys_define:nn {WithArrows/CodeAfter} {tikz .code:n = \tikzset {WithArrows/arrow/.append~style = {#1}} , tikz .value_required:n = true, rr .value_forbidden:n = true, - rr .code:n = \__wa_analyze_option_position:n 0 , + rr .code:n = \__ww_analyze_option_position:n 0 , ll .value_forbidden:n = true, - ll .code:n = \__wa_analyze_option_position:n 1 , + ll .code:n = \__ww_analyze_option_position:n 1 , rl .value_forbidden:n = true, - rl .code:n = \__wa_analyze_option_position:n 2 , + rl .code:n = \__ww_analyze_option_position:n 2 , lr .value_forbidden:n = true, - lr .code:n = \__wa_analyze_option_position:n 3 , + lr .code:n = \__ww_analyze_option_position:n 3 , v .value_forbidden:n = true, - v .code:n = \__wa_analyze_option_position:n 4 , - TikzCode .tl_set:N = \l__wa_tikz_code_tl, + v .code:n = \__ww_analyze_option_position:n 4 , + TikzCode .tl_set:N = \l__ww_tikz_code_tl, TikzCode .value_required:n = true, - xoffset .dim_set:N = \l__wa_xoffset_dim, + xoffset .dim_set:N = \l__ww_xoffset_dim, xoffset .value_required:n = true} -\NewDocumentCommand \__wa_Arrow_code_after {O{} mmm O{}} - {\int_set:Nn \l__wa_pos_arrows_int 1 - \int_set:Nn \l__wa_previous_pos_arrows_int {-1} +\NewDocumentCommand \__ww_Arrow_code_after {O{} mmm O{}} + {\int_set:Nn \l__ww_pos_arrows_int 1 + \int_set:Nn \l__ww_previous_pos_arrows_int {-1} \group_begin: - \int_set:Nn \l__wa_level_int 3 + \int_set:Nn \l__ww_level_int 3 \keys_set:nn {WithArrows/CodeAfter} - {#1,#5,tikz={xshift = \l__wa_xoffset_dim}} - \bool_set_false:N \l__wa_initial_r_bool - \bool_set_false:N \l__wa_final_r_bool - \int_case:nn \l__wa_pos_arrows_int - {0 {\bool_set_true:N \l__wa_initial_r_bool - \bool_set_true:N \l__wa_final_r_bool} - 2 {\bool_set_true:N \l__wa_initial_r_bool} - 3 {\bool_set_true:N \l__wa_final_r_bool}} - \cs_if_free:cTF {pgf@sh@ns@wa-\l__wa_prefix_str-#2-l} + {#1,#5,tikz={xshift = \l__ww_xoffset_dim}} + \bool_set_false:N \l__ww_initial_r_bool + \bool_set_false:N \l__ww_final_r_bool + \int_case:nn \l__ww_pos_arrows_int + {0 {\bool_set_true:N \l__ww_initial_r_bool + \bool_set_true:N \l__ww_final_r_bool} + 2 {\bool_set_true:N \l__ww_initial_r_bool} + 3 {\bool_set_true:N \l__ww_final_r_bool}} + \cs_if_free:cTF {pgf@sh@ns@wa-\l__ww_prefix_str-#2-l} {\msg_error:nnx {witharrows} {Wrong~line~specification~in~Arrow} {#2}} - {\cs_if_free:cTF {pgf@sh@ns@wa-\l__wa_prefix_str-#3-l} + {\cs_if_free:cTF {pgf@sh@ns@wa-\l__ww_prefix_str-#3-l} {\msg_error:nnx {witharrows} {Wrong~line~specification~in~Arrow} {#3}} - {\int_compare:nNnTF \l__wa_pos_arrows_int = 4 - {\begin{tikzpicture} [__wa_standard] + {\int_compare:nNnTF \l__ww_pos_arrows_int = 4 + {\begin{tikzpicture} [__ww_standard] \tikz@scan@one@point\pgfutil@firstofone(#2-l.south) \dim_set_eq:NN \l_tmpa_dim \pgf@x \dim_set_eq:NN \l_tmpb_dim \pgf@y \tikz@scan@one@point\pgfutil@firstofone(#3-l.north) \dim_set:Nn \l_tmpa_dim {\dim_max:nn \l_tmpa_dim \pgf@x} - \tl_gset:Nx \g_tmpa_tl {\dim_use:N \l_tmpa_dim , \dim_use:N \l_tmpb_dim} - \tl_gset:Nx \g_tmpb_tl {\dim_use:N \l_tmpa_dim , \dim_use:N \pgf@y} + \tl_gset:Nx \g_tmpa_tl + {\dim_use:N \l_tmpa_dim , \dim_use:N \l_tmpb_dim} + \tl_gset:Nx \g_tmpb_tl + {\dim_use:N \l_tmpa_dim , \dim_use:N \pgf@y} \end{tikzpicture} } - {\begin{tikzpicture} [__wa_standard] + {\begin{tikzpicture} [__ww_standard] \tikz@scan@one@point\pgfutil@firstofone - (#2-\bool_if:NTF\l__wa_initial_r_bool rl .south) + (#2-\bool_if:NTF\l__ww_initial_r_bool rl .south) \tl_gset:Nx \g_tmpa_tl {\dim_use:N \pgf@x , \dim_use:N \pgf@y} \tikz@scan@one@point\pgfutil@firstofone - (#3-\bool_if:NTF\l__wa_final_r_bool rl .north) + (#3-\bool_if:NTF\l__ww_final_r_bool rl .north) \tl_gset:Nx \g_tmpb_tl {\dim_use:N \pgf@x , \dim_use:N \pgf@y} \end{tikzpicture}} - \__wa_draw_arrow:nnn {\g_tmpa_tl} {\g_tmpb_tl} {#4} }} + \__ww_draw_arrow:nnn {\g_tmpa_tl} {\g_tmpb_tl} {#4} }} \group_end: } -\cs_new_protected:Nn \__wa_MultiArrow:nn +\cs_new_protected:Nn \__ww_MultiArrow:nn { - \foreach \x in {#1} {\cs_if_free:cTF {pgf@sh@ns@wa-\l__wa_prefix_str-\x-l} + \foreach \x in {#1} {\cs_if_free:cTF {pgf@sh@ns@wa-\l__ww_prefix_str-\x-l} {\msg_error:nnx {witharrows} {Wrong~line~specification~in~MultiArrow} {\x}} {\clist_gput_right:Nx \g_tmpa_clist {\x}}} \int_compare:nNnTF {\clist_count:N \g_tmpa_clist} < 2 - {\msg_error:nn {witharrows} {Too~small~specification~for~MultiArrow}} + {\__ww_msg_error:n {Too~small~specification~for~MultiArrow}} {\clist_sort:Nn \g_tmpa_clist {\int_compare:nNnTF {##1} > {##2} {\sort_return_swapped:} @@ -788,29 +815,40 @@ \clist_pop:NN \g_tmpa_clist \l_tmpa_tl \clist_reverse:N \g_tmpa_clist \clist_pop:NN \g_tmpa_clist \l_tmpb_tl - \exp_args:Nx \__wa_MultiArrow_i:n {\g_tmpa_clist} - \begin{tikzpicture}[__wa_standard,every~path/.style={WithArrows/arrow}] - \draw [<->] ([xshift = \l__wa_xoffset_dim]\l_tmpa_tl-r.south) + \exp_args:Nx \__ww_MultiArrow_i:n {\g_tmpa_clist} + \begin{tikzpicture}[__ww_standard,every~path/.style={WithArrows/arrow}] + \draw [<->] ([xshift = \l__ww_xoffset_dim]\l_tmpa_tl-r.south) -- ++(5mm,0) - -- node (__wa_label) {} - ([xshift = \l__wa_xoffset_dim+5mm]\l_tmpb_tl-r.south) - -- ([xshift = \l__wa_xoffset_dim]\l_tmpb_tl-r.south) ; - \tikz@parse@node \pgfutil@firstofone (__wa_label.west) - \path (__wa_label.west) - node [anchor = west, - text~width = - {\bool_if:nTF {\l__wa_wrap_lines_bool && ! \l__wa_in_witharrows_bool} - {\dim_eval:n {\g__wa_x_right_dim - \pgf@x - 0.3333 em}} - {20 cm}} - ] {#2} ; + -- node (__ww_label) {} + ([xshift = \l__ww_xoffset_dim+5mm]\l_tmpb_tl-r.south) + -- ([xshift = \l__ww_xoffset_dim]\l_tmpb_tl-r.south) ; + \tikz@parse@node \pgfutil@firstofone (__ww_label.west) + \dim_set:Nn \l_tmpa_dim {20 cm} + \path \pgfextra {\tl_gset:Nx \g_tmpa_tl \tikz@text@width} ; + \tl_if_empty:NF \g_tmpa_tl {\dim_set:Nn \l_tmpa_dim \g_tmpa_tl} + \bool_if:nT {\l__ww_wrap_lines_bool && ! \l__ww_in_witharrows_bool} + {\dim_set:Nn \l_tmpb_dim {\g__ww_x_right_dim - \pgf@x - 0.3333 em} + \dim_compare:nNnT \l_tmpb_dim < \l_tmpa_dim + {\dim_set_eq:NN \l_tmpa_dim \l_tmpb_dim}} + \path (__ww_label.west) + node [anchor = west, text~width = \dim_use:N \l_tmpa_dim] {#2} ; \end{tikzpicture} } } -\cs_new_protected:Nn \__wa_MultiArrow_i:n - {\begin{tikzpicture}[__wa_standard,every~path/.style={WithArrows/arrow}] +\cs_new_protected:Nn \__ww_MultiArrow_i:n + {\begin{tikzpicture}[__ww_standard,every~path/.style={WithArrows/arrow}] \foreach \k in {#1} - {\draw[<-] ([xshift = \l__wa_xoffset_dim]\k-r.south) -- ++(5mm,0) ;} ; + {\draw[<-] ([xshift = \l__ww_xoffset_dim]\k-r.south) -- ++(5mm,0) ;} ; \end{tikzpicture}} \msg_new:nnn {witharrows} + {Option~unknown} + {The~option~"\tl_use:N\l_keys_key_tl"~is~unknown~or~ + meaningless~in~the~context.~If~you~go~on,~it~will~be~ignored.} +\msg_new:nnn {witharrows} + {Collision} + {You~have~a~collision~(or~almost~a~collision)~at~the~end~of~row~ + \int_use:N\g__ww_line_int.~ + You~can~go~on~but~maybe~you~will~have~overlapping~texts.} +\msg_new:nnn {witharrows} {Third~column~in~an~environment~{WithArrows}} {By~default,~an~environment~\{WithArrows\}~can~only~have~two~columns.~ Maybe~you~have~forgotten~a~\str_use:N \c_backslash_str @@ -828,7 +866,7 @@ the~option~"<-"~of~Tikz.} \msg_new:nnn {witharrows} {Too~few~lines~for~an~arrow} - {An~arrow~specified~in~line~\int_use:N \l__wa_initial_int\ can't~be~drawn~ + {An~arrow~specified~in~line~\int_use:N \l__ww_initial_int\ can't~be~drawn~ because~it~arrives~after~the~last~line~of~the~environment~(remind~that~ the~command~\token_to_str:N\Arrow\ must~be~in~the~*start*~line~ of~the~arrow).~If~you~go~on,~this~arrow~will~be~ignored.} @@ -844,7 +882,7 @@ {Two~options~are~incompatible} {You~try~to~use~the~option~"\tl_use:N\l_keys_key_tl"~but~ this~option~is~incompatible~or~redundant~with~the~option~" - \int_case:nn\l__wa_previous_pos_arrows_int + \int_case:nn\l__ww_previous_pos_arrows_int {0 {rr} 1 {ll} 2 {rl} @@ -854,7 +892,7 @@ 6 {group} 7 {groups}}"~ set~in~the~same~ - \int_case:nn\l__wa_level_int + \int_case:nn\l__ww_level_int {1 {command~\token_to_str:N\WithArrowsOptions} 2 {declaration~of~options~of~the~environment~ \{\@currenvir\}} @@ -864,7 +902,7 @@ {All~lines~must~have~an~ampersand} {All~lines~of~an~environment~\{WithArrows\}~should~ have~an~second~column~(because~the~nodes~are~created~ - in~the~second~column).~However,~you~can~go~but~you~will~ + in~the~second~column).~However,~you~can~go~on~but~you~will~ have~an~error~if~one~of~your~arrows~needs~an~PGF~ node~absent~by~lack~of~ampersand.~If~you~don't~want~to~ see~this~message~again,~you~can~use~the~option~ @@ -875,7 +913,7 @@ {Option~incompatible~with~"group(s)"} {You~try~to~use~the~option~"\tl_use:N\l_keys_key_tl"~while~ you~are~using~the~option~" - \int_compare:nNnTF \l__wa_pos_arrows_int = 5 + \int_compare:nNnTF \l__ww_pos_arrows_int = 5 {group} {groups}".~ It's~incompatible.~You~can~go~on~ignoring~this~option~ @@ -885,20 +923,12 @@ {The~option~"\tl_use:N\l_keys_key_tl"~can't~be~used~here.~ If~you~go~on,~it~will~be~ignored.} \msg_new:nnn {witharrows} - {Option~unknown} - {The~option~"\tl_use:N\l_keys_key_tl"~is~unknown~or~ - meaningless~in~the~context.~If~you~go~on,~it~will~be~ignored.} -\msg_new:nnn {witharrows} {Arrow~in~first~column} {You~should~not~use~the~command~\token_to_str:N\Arrow\ - \tl_if_eq:NNF \l__wa_CommandName_tl \l_tmpa_tl + \tl_if_eq:NNF \l__ww_CommandName_tl \l_tmpa_tl {(renamed~in~\str_use:N \c_backslash_str - \tl_use:N \l__wa_CommandName_tl)~} - ~in~the~first~column~but~only~in~the~second~column.~ - This~is~a~restriction~of~the~version~1.3~of~the~ - package~witharrows~(in~the~aim~of~developping~further~ - ~a~new~functionality~with~\token_to_str:N\Arrow\ in~the~ - first~column).\\ + \tl_use:N \l__ww_CommandName_tl)~} + ~in~the~first~column~but~only~in~the~second~column.\\ However~you~can~go~on~for~this~time.} \msg_new:nnn {witharrows} {Wrong~line~specification~in~Arrow} @@ -949,85 +979,84 @@ If~you~don't~want~to~see~this~message~again,~you~can~use~the~option~ "AllowMultipleLabels"~at~the~global~or~ environment~level~(this~doesn't~work~if~you~use~cleveref).} -\coffin_new:N \l__wa_halign_coffin +\coffin_new:N \l__ww_halign_coffin \NewDocumentEnvironment {CasesWithArrows} {m O{}} {\hbox_set:Nn \l_tmpa_box {$\left\{\vcenter to 1cm {} \right.$} - \dim_zero_new:N \l__wa_delim_wd_dim - \dim_set:Nn \l__wa_delim_wd_dim {\box_wd:N \l_tmpa_box} - \box_clear_new:N \l__wa_left_part_box - \hbox_set:Nn \l__wa_left_part_box - {$\bool_if:NT \l__wa_displaystyle_bool \displaystyle #1 {}$} - \bool_if:nT \c__wa_mathtools_loaded_bool + \dim_zero_new:N \l__ww_delim_wd_dim + \dim_set:Nn \l__ww_delim_wd_dim {\box_wd:N \l_tmpa_box} + \box_clear_new:N \l__ww_left_part_box + \hbox_set:Nn \l__ww_left_part_box + {$\bool_if:NT \l__ww_displaystyle_bool \displaystyle #1 {}$} + \bool_if:nT \c__ww_mathtools_loaded_bool {\MH_if_boolean:nT {show_only_refs} {\MT_showonlyrefs_false: \MH_set_boolean_T:n {show_only_refs} - \bool_set_true:N \l__wa_notag_bool}} - \bool_if:NT \c__wa_amsmath_loaded_bool \intertext@ + \bool_set_true:N \l__ww_notag_bool}} + \bool_if:NT \c__ww_amsmath_loaded_bool \intertext@ \if_mode_math: - \msg_error:nn {witharrows} - {{DispWithArrows}~used~in~math~mode} + \__ww_msg_error:n {{DispWithArrows}~used~in~math~mode} \fi: - \bool_set_false:N \l__wa_in_witharrows_bool + \bool_set_false:N \l__ww_in_witharrows_bool % - \__wa_pre_environment:n {#2} + \__ww_pre_environment:n {#2} \nointerlineskip \hbox_to_wd:nn {0.6\linewidth} {} $$ \spread@equation - \vcoffin_set:Nnw \l__wa_halign_coffin \displaywidth - \bool_if:NTF \l__wa_fleqn_bool + \vcoffin_set:Nnw \l__ww_halign_coffin \displaywidth + \bool_if:NTF \l__ww_fleqn_bool {\tabskip = \c_zero_skip} {\tabskip = 0 pt plus 1000 pt minus 1000 pt} - \bool_if:NTF \c__wa_amsmath_loaded_bool - {\cs_set_eq:NN \__wa_old_label \ltx@label} - {\cs_set_eq:NN \__wa_old_label \label} + \bool_if:NTF \c__ww_amsmath_loaded_bool + {\cs_set_eq:NN \__ww_old_label \ltx@label} + {\cs_set_eq:NN \__ww_old_label \label} \cs_set:Npn \notag {\msg_error:nnn {witharrows} - {Command~not~allowed~in~{DispWithArrows}} - {\notag}} + {Command~not~allowed~in~{DispWithArrows}} + {\notag}} \cs_set:Npn \nonumber {\msg_error:nnn {witharrows} - {Command~not~allowed~in~{DispWithArrows}} - {\nonumber}} + {Command~not~allowed~in~{DispWithArrows}} + {\nonumber}} \cs_set:Npn \tag ##1 {\msg_error:nnn {witharrows} - {Command~not~allowed~in~{DispWithArrows}} - {\tag}} + {Command~not~allowed~in~{DispWithArrows}} + {\tag}} \cs_set:Npn \label ##1 {\msg_error:nnn {witharrows} - {Command~not~allowed~in~{DispWithArrows}} - {\label}} + {Command~not~allowed~in~{DispWithArrows}} + {\label}} \halign to \displaywidth \bgroup - \int_gincr:N \g__wa_line_int - \cs_set_eq:cN \l__wa_CommandName_tl \__wa_Arrow_first_column: + \int_gincr:N \g__ww_line_int + \cs_set_eq:cN \l__ww_CommandName_tl \__ww_Arrow_first_column: \strut - \bool_if:NT \l__wa_fleqn_bool - {\skip_horizontal:n \l__wa_mathindent_dim} + \bool_if:NT \l__ww_fleqn_bool + {\skip_horizontal:n \l__ww_mathindent_dim} \hfil - \skip_horizontal:n {\box_wd:N \l__wa_left_part_box + \l__wa_delim_wd_dim} - $\bool_if:NT \l__wa_displaystyle_bool \displaystyle {##}$ + \skip_horizontal:n {\box_wd:N \l__ww_left_part_box + \l__ww_delim_wd_dim} + $\bool_if:NT \l__ww_displaystyle_bool \displaystyle {##}$ \tabskip = \c_zero_skip & - \cs_set:Npn \notag {\bool_set_true:N \l__wa_notag_bool} + \cs_set:Npn \notag {\bool_set_true:N \l__ww_notag_bool} \cs_set_eq:NN \nonumber \notag - \cs_set_eq:NN \tag \__wa_tag - \cs_set_eq:NN \label \__wa_label:n - $\bool_if:NT \l__wa_displaystyle_bool \displaystyle {{}##}$ + \cs_set_eq:NN \tag \__ww_tag + \cs_set_eq:NN \label \__ww_label:n + $\bool_if:NT \l__ww_displaystyle_bool \displaystyle {{}##}$ \tabskip = 0 pt plus 1000 pt minus 1000 pt - \int_gincr:N \g__wa_line_bis_int + \int_gincr:N \g__ww_line_bis_int \tikz [remember~picture,overlay] - \node [__wa_node_style, - name = wa-\l__wa_prefix_str-\int_use:N\g__wa_line_int-l, - alias = {\tl_if_empty:NF \l__wa_name_tl - {\l__wa_name_tl-\int_use:N\g__wa_line_int-l}} ] {} ; + \node [__ww_node_style, + name = wa-\l__ww_prefix_str-\int_use:N\g__ww_line_int-l, + alias = {\tl_if_empty:NF \l__ww_name_tl + {\l__ww_name_tl-\int_use:N\g__ww_line_int-l}} ] {} ; \hfil \tikz [remember~picture,overlay] - \node [__wa_node_style, - name = wa-\l__wa_prefix_str-\int_use:N\g__wa_line_int-r, - alias = {\tl_if_empty:NF \l__wa_name_tl - {\l__wa_name_tl-\int_use:N\g__wa_line_int-r}} ] {} ; - \bool_if:NT \l__wa_shownodenames_bool - {\hbox_overlap_right:n {\small wa-\l__wa_prefix_str - -\int_use:N\g__wa_line_int}} + \node [__ww_node_style, + name = wa-\l__ww_prefix_str-\int_use:N\g__ww_line_int-r, + alias = {\tl_if_empty:NF \l__ww_name_tl + {\l__ww_name_tl-\int_use:N\g__ww_line_int-r}} ] {} ; + \bool_if:NT \l__ww_shownodenames_bool + {\hbox_overlap_right:n {\small wa-\l__ww_prefix_str + -\int_use:N\g__ww_line_int}} & ## \tabskip = \c_zero_skip - && \msg_error:nn {witharrows} {Third~column~in~an~environment~{DispWithArrows}} + && \__ww_msg_error:n {Third~column~in~an~environment~{DispWithArrows}} \if_false: ## \fi: \cr} { \\ @@ -1036,28 +1065,29 @@ \box_set_to_last:N \l_tmpa_box \nointerlineskip \box_use:N \l_tmpa_box - \dim_gzero_new:N \g__wa_alignment_dim - \dim_gset:Nn \g__wa_alignment_dim {\box_wd:N \l_tmpa_box} - \box_clear_new:N \l__wa_new_box - \hbox_set:Nn \l__wa_new_box {\hbox_unpack_clear:N \l_tmpa_box} - \dim_compare:nNnT {\box_wd:N \l__wa_new_box} < \g__wa_alignment_dim - {\dim_gset:Nn \g__wa_alignment_dim {\box_wd:N \l__wa_new_box}} + \dim_gzero_new:N \g__ww_alignment_dim + \dim_gset:Nn \g__ww_alignment_dim {\box_wd:N \l_tmpa_box} + \box_clear_new:N \l__ww_new_box + \hbox_set:Nn \l__ww_new_box {\hbox_unpack_clear:N \l_tmpa_box} + \dim_compare:nNnT {\box_wd:N \l__ww_new_box} < \g__ww_alignment_dim + {\dim_gset:Nn \g__ww_alignment_dim {\box_wd:N \l__ww_new_box}} \vcoffin_set_end: \hbox_to_wd:nn \displaywidth { - \bool_if:NTF \l__wa_fleqn_bool - {\skip_horizontal:n \l__wa_mathindent_dim} + \bool_if:NTF \l__ww_fleqn_bool + {\skip_horizontal:n \l__ww_mathindent_dim} {\hfil} - \hbox_to_wd:nn \g__wa_alignment_dim - { \box_use_drop:N \l__wa_left_part_box - \dim_set:Nn \l_tmpa_dim { \box_ht:N \l__wa_halign_coffin - + \box_dp:N \l__wa_halign_coffin} + \hbox_to_wd:nn \g__ww_alignment_dim + { \box_use_drop:N \l__ww_left_part_box + \dim_set:Nn \l_tmpa_dim { \box_ht:N \l__ww_halign_coffin + + \box_dp:N \l__ww_halign_coffin} $\left\{ \vcenter to \l_tmpa_dim {\vfil} \right.$} \hfil} - \coffin_typeset:Nnnnn \l__wa_halign_coffin {l} {vc} {-\displaywidth} \c_zero_dim + \coffin_typeset:Nnnnn + \l__ww_halign_coffin {l} {vc} {-\displaywidth} \c_zero_dim $$ - \__wa_post_environment: - \bool_if:nT \c__wa_mathtools_loaded_bool + \__ww_post_environment: + \bool_if:nT \c__ww_mathtools_loaded_bool {\MH_if_boolean:nT {show_only_refs} \MT_showonlyrefs_true:} \ignorespacesafterend |