Skip to content

Commit 287516c

Browse files
committed
ADDED: html_text/2: pass hyperlinks through.
1 parent 23a1b00 commit 287516c

1 file changed

Lines changed: 4 additions & 1 deletion

File tree

library/lynx/html_style.pl

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -54,6 +54,8 @@
5454
append(CssList, CSS0),
5555
list_to_set(CSS0, CSS).
5656

57+
applicable_style(a, Attrs, [href(HREF)]) :- % href(HREF) is a pseudo style.
58+
memberchk(href=HREF, Attrs).
5759
applicable_style(_, Attrs, CSS) :-
5860
memberchk(style=Style, Attrs),
5961
style_css_attrs(Style, CSS0),
@@ -126,4 +128,5 @@
126128
inline_style(CSS, Style) :-
127129
font_style(CSS, Style),
128130
!.
129-
inline_style(float(right), float(right)).
131+
inline_style(float(right), float(right)).
132+
inline_style(href(HREF), href(HREF)).

0 commit comments

Comments
 (0)