diff options
Diffstat (limited to 'support/TeX4ht/source/tex4ht-4ht.tex')
-rw-r--r-- | support/TeX4ht/source/tex4ht-4ht.tex | 138 |
1 files changed, 132 insertions, 6 deletions
diff --git a/support/TeX4ht/source/tex4ht-4ht.tex b/support/TeX4ht/source/tex4ht-4ht.tex index 051b6026df..f42a92ed00 100644 --- a/support/TeX4ht/source/tex4ht-4ht.tex +++ b/support/TeX4ht/source/tex4ht-4ht.tex @@ -1,4 +1,4 @@ -% $Id: tex4ht-4ht.tex 1323 2023-04-12 14:01:16Z michal_h21 $ +% $Id: tex4ht-4ht.tex 1325 2023-04-21 13:23:46Z michal_h21 $ % tex tex4ht-4ht or ht tex tex4ht-4ht % % Copyright 2009-2023 TeX Users Group @@ -16464,7 +16464,7 @@ Hfootnote counter, which isn't declared. \<memhfixc.4ht\><<< % memhfixc.4ht (|version), generated from |jobname.tex -|<TeX4ht copyright|> +|<TeX4ht copywrite|> |<memhfixc nameref|> \Hinput{memhfixc} \endinput @@ -19335,10 +19335,9 @@ We need to fix support for titles and authors. \Link[http://jhep.sissa.it/]{}{}http://jhep.sissa.it/\EndLink \<JHEP.4ht\><<< -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% JHEP.4ht |version % -% Copyright (C) |CopyYear.2001. Eitan M. Gurari % -|<TeX4ht copyright|> +% JHEP.4ht (|version), generated from |jobname.tex +% Copyright |CopyYear.2001. Eitan M. Gurari +|<TeX4ht copywrite|> |<config JHEP|> \Hinput{JHEP} \endinput @@ -25905,6 +25904,133 @@ Minted, it turns the breaklines option to false when it is used. \:minted@def@opt@switch{breaklines} >>> +%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\Section{piton} +%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + +\<piton.4ht\><<< +% piton.4ht (|version), generated from |jobname.tex +% Copyright 2023 TeX Users Group +|<TeX4ht license text|> + +\ExplSyntaxOn +|<piton env|> +|<piton inlines|> +\ExplSyntaxOff +\Hinput{piton} +\endinput +>>> \AddFile{9}{piton} + +\<piton env\><<< + +\NewConfigure{pitonline}{3} +\NewConfigure{pitonnumber}{2} +\protected\def\:tempa #1\__piton_end_line:{ + \:pitonendignorelines\glet\:pitonendignorelines\relax + \group_begin: + % we set line in a box, because otherwise lines are collapsed sometimes + \hbox_set:Nn \l_tmpa_box{ + \a:pitonline + \a:pitonnumber + \bool_if:NT \l__piton_line_numbers_bool + { + \bool_if:NF \l__piton_all_line_numbers_bool + { \tl_if_eq:nnF { #1 } { \PitonStyle {Prompt}{} } } % corrected 2023/04/10 + \__piton_print_number: + } + \b:pitonnumber + \language = -1 + \raggedright + \strut + % \HCode{<code>} + \b:pitonline + \NoFonts + \__piton_replace_spaces:n { #1 } + \EndNoFonts + % + \c:pitonline + } + \box_use_drop:N \l_tmpa_box + \group_end: +} +\HLet\__piton_begin_line:\:tempa + + +\NewConfigure{piton}{2} + +% Piton environments and file input produces extra blank line at the start +% we use TeX4ht specials to remove them +\gdef\:pitonendignorelines{} +\pend:def\__piton_pre_env:{\a:piton + \ht:special{t4ht@[}% ignore next linebreak, to preven spurious blank line at the beginning of listings + \gdef\:pitonendignorelines{\ht:special{t4ht@]}} +} +\append:def\__piton_width_to_aux:{\b:piton} + +>>> + +\<piton inlines\><<< +\NewDocumentCommand { \:__piton_piton_standard } { m } + { + \group_begin: + \ttfamily + \a:pitonline\b:pitonline + \automatichyphenmode = 1 + \cs_set_eq:NN \\ \c_backslash_str + \cs_set_eq:NN \% \c_percent_str + \cs_set_eq:NN \{ \c_left_brace_str + \cs_set_eq:NN \} \c_right_brace_str + \cs_set_eq:NN \$ \c_dollar_str + \cs_set_eq:cN { ~ } \space + \cs_set_protected:Npn \__piton_begin_line: { } + \cs_set_protected:Npn \__piton_end_line: { } + \tl_set:Nx \l_tmpa_tl + { + \lua_now:e + { piton.ParseBis('\l__piton_language_str',token.scan_string()) } + { #1 } + } + \bool_if:NTF \l__piton_show_spaces_bool + { \regex_replace_all:nnN { \x20 } { ^^^^2423 } \l_tmpa_tl } % U+2423 + { + \bool_if:NT \l__piton_break_lines_in_piton_bool + { \regex_replace_all:nnN { \x20 } { \x20 } \l_tmpa_tl } + } + % our extra code to remove the space glyph + \regex_replace_all:nnN { \x20 } { \c { __piton_breakable_space: } } \l_tmpa_tl + \l_tmpa_tl + \c:pitonline + \group_end: + } + +\HLet\__piton_piton_standard\:__piton_piton_standard + +\NewDocumentCommand { \:__piton_piton_verbatim } { v } + { + \group_begin: + \ttfamily + \a:pitonline\b:pitonline + \automatichyphenmode = 1 + \cs_set_protected:Npn \__piton_begin_line: { } + \cs_set_protected:Npn \__piton_end_line: { } + \tl_set:Nx \l_tmpa_tl + { + \lua_now:e + { piton.Parse('\l__piton_language_str',token.scan_string()) } + { #1 } + } + \bool_if:NT \l__piton_show_spaces_bool + { \regex_replace_all:nnN { \x20 } { ^^^^2423 } \l_tmpa_tl } % U+2423 + % our extra code to remove the space glyph + \regex_replace_all:nnN { \x20 } { \c { __piton_breakable_space: } } \l_tmpa_tl + \l_tmpa_tl + \c:pitonline + \group_end: + } + +\HLet\__piton_piton_verbatim\:__piton_piton_verbatim +>>> %%%%%%%%%%%%%%%%%%%%%%%%%%%% \Section{pythontex} |