1:- module(html_data, [inline_html_file//1]).
6:- use_module(library(sgml), [load_html_file/2]).
body
tag of
a normal html file
16inline_html_file(Alias) -->
17 {
18 absolute_file_name(Alias, Page, [access(read)]),
19 load_html_file(Page, DOM),
20 contains_term(element(body, _, Body), DOM),
21 Style = element(style, _, _),
22 findall(Style, sub_term(Style, DOM), Styles),
23 append(Styles, Body, Content)
24 },
25 html(Content)
Deal with normal style html
*/