1/* <module> swish_render_html 2% Provides HTML Rendering in SWISH 3% 4% 5% Logicmoo Project PrologMUD: A MUD server written in Prolog 6% Maintainer: Douglas Miles 7% Dec 13, 2035 8% 9*/ 10:- if(exists_source(swish(lib/render))). 11 12:- module(swish_render_html, 13 [ term_rendering//3 % +Term, +Vars, +Options 14 ]). 15:- use_module(swi(library/http/html_write)). 16:- use_module(swish(lib/render)). 17 18:- register_renderer(html, "Render html representations"). 19 20/* <module> SWISH html renderer 21 22*/
33term_rendering(Term, _Vars, _Options) --> {compound(Term),Term=html(_)}, html(Term). 34 35:- endif.