[tex4ht-commits] [SCM] tex4ht updated: r1389 - trunk/lit

[Michal Hoftich]

Author: michal_h21
Date: 2023-10-13 13:36:04 +0000 (Fri, 13 Oct 2023)
New Revision: 1389

Modified:
   trunk/lit/ChangeLog
   trunk/lit/tex4ht-4ht.tex
Log:
fixed support for the current version of the piton package

Modified: trunk/lit/ChangeLog
===================================================================
--- trunk/lit/ChangeLog	2023-10-13 11:46:56 UTC (rev 1388)
+++ trunk/lit/ChangeLog	2023-10-13 13:36:04 UTC (rev 1389)
@@ -1,5 +1,8 @@
 2023-10-13  Michal Hoftich  <michal.h21 at gmail.com>
 
+	* tex4ht-4ht.tex (piton.4ht): fixed support for the current version
+	of the Piton package.
+
 	* tex4ht-4ht.tex (transparent.4ht),
 	* tex4ht-html4.tex (html4.4ht): added support for the transparent
 	package.

Modified: trunk/lit/tex4ht-4ht.tex
===================================================================
--- trunk/lit/tex4ht-4ht.tex	2023-10-13 11:46:56 UTC (rev 1388)
+++ trunk/lit/tex4ht-4ht.tex	2023-10-13 13:36:04 UTC (rev 1389)
@@ -26022,8 +26022,20 @@
   \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
+  \bool_if:nF
+    {
+      \str_if_eq_p:nn { #1 } { \PitonStyle {Prompt}{} }
+      &&
+      \l__piton_skip_empty_lines_bool
+    }
+    { \int_gincr:N \g__piton_visual_line_int}
+
+  \bool_if:nT
+    {
+      ! \str_if_eq_p:nn { #1 } { \PitonStyle {Prompt}{} }
+      ||||
+      ( ! \l__piton_skip_empty_lines_bool && \l__piton_label_empty_lines_bool )
+    }
     \__piton_print_number:
   }
   \b:pitonnumber
@@ -26053,7 +26065,7 @@
   \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}
+\append:def\__piton_write_aux:{\b:piton}
 
 >>>