FIXED: html to text translation float right

This patch fixes handling of inline style ``float:right`` and dealing with multiple flush-right elements in a block.
SWI-Prolog · Oct 24, 2023 · d5c6e90 · d5c6e90
1 parent 7f0b8ab
commit d5c6e90
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/library/lynx/format.pl b/library/lynx/format.pl
@@ -246,7 +246,8 @@
     S = b(_,_),
     !,
     float_right_space(T0, T, R).
-float_right_space(Line, Line, []).
+float_right_space(Line0, Line, Right) :-
+    do_float_right(Line0, Line, Right).
 
 
 %!  space_dim(+Line, -SpaceVars, -Width)

diff --git a/library/lynx/html_style.pl b/library/lynx/html_style.pl
@@ -56,8 +56,8 @@
 
 applicable_style(_, Attrs, CSS) :-
     memberchk(style=Style, Attrs),
-    style_css_attrs(Style, CSS),
-    text_style(CSS).
+    style_css_attrs(Style, CSS0),
+    include(text_style, CSS0, CSS).
 applicable_style(El, Attrs, CSS) :-
     html_text:style(El, Cond, CSS),
     (   eval(Cond, Attrs)