1:- module(
    2  html_ext,
    3  [
    4    html_download/2, % +Uri, -Dom
    5    html_download/3  % +Uri, -Dom, +Options
    6  ]
    7).

HTML support

Support for downloading HTML.

*/

   15:- use_module(library(sgml)).   16
   17:- use_module(library(http_client2)).
 html_download(+Uri:atom, -Dom:compound) is semidet
 html_download(+Uri:atom, -Dom:compound, +Options:options) is semidet
   26html_download(Uri, Dom) :-
   27  html_download(Uri, Dom, options{}).
   28
   29
   30html_download(Uri, Dom, Options) :-
   31  http_open2(Uri, In, options{accept: html}),
   32  call_cleanup(
   33    load_html(In, Dom, Options),
   34    close(In)
   35  )