[ \td(Attr, Content)
].
element(col, Attr, _) --> %
[ \col(Attr)
].
% Preformatted output
element(pre, _, Content) --> %
[ \parskip,
\group([ \setfont(fixed, @on),
\pre(Content)
]),
@br
].
% Document structure
element(html, _, Content) --> %
Content.
element(head, _, Content) --> %
Content.
element(title, _, Title) --> %
{ content_to_atom(Title, Label)
},
[ \title(Label)
].
element(meta, _, _) --> % <META>
[].
element(link, _, _) --> % <LINK>
[].
element(script, _, _) --> % <SCRIPT>
[].
element(body, Attributes, Content) --> % <BODY>
[ \body(Attributes)
| Content
].
element(base, Attrs, [], Mode) --> % <BASE href=BaseURL>
{ ( option(href(BaseURL), Attrs)
-> send(Mode, base_url, BaseURL)
; true % warn?
)
},
[].
/*******************************
* SCRIPTS *
*******************************/
% should allow for `language=prolog' and define something to do
% with it!?
element(script, _, _) -->
{ print_message(informational, html_ignored_script(script))
},
[].
/*******************************
* TITLES *
*******************************/
header_attributes(1,
[ \setfont(font_size, 3), \setfont(weight, bold) ],
@h1_above, @h1_below).
header_attributes(2,
[ \setfont(font_size, 2), \setfont(weight, bold) ],
@h1_above, @h1_below).
header_attributes(3,
[ \setfont(font_size, 1), \setfont(weight, bold) ],
@h1_above, @h1_below).
header_attributes(4,
[ \setfont(weight, bold) ],
@h1_above, @h1_below).
header(Level, Options, Content) -->
{ header_attributes(Level, FontAtt, Above, Below),
append(FontAtt, [\ignorespaces|Content], Title)
},
[ @br, Above, @br
],
( { Options == [] }
-> [ \group(Title)
]
; [ \parbox(Title,
[ width(0),
rubber(@quote_rubber)
| Options
])
]
),
[ @br, Below
],
element(p, [], []). % Some tools omit the <P>
/*******************************
* FORMS *
*******************************/
element(form, Attrs, Content) --> % <FORM>
[ \form(Attrs, Content)
].
element(input, Attrs, _) --> % <INPUT>
{ option(type(Type), Attrs, text)
},
input_element(Type, Attrs).
input_element(submit, Attrs) -->
{ new(B, html_submit_input(Attrs))
},
[ \input(B)
].
input_element(text, Attrs) -->
{ new(TI, html_text_input(Attrs))
},
[ \input(TI)
].
input_element(hidden, Attrs) -->
{ option(name(Name), Attrs),
option(value(Value), Attrs)
},
[ \input(hidden(Name, Value))
].
element(select, Attrs, Content) --> % <SELECT>
{ option(name(Name), Attrs),
( option(size(Size), Attrs),
get(@pce, convert, Size, int, IntSize),
IntSize > 1
-> new(Select, html_select_browser(Name, Attrs, Content))
; new(Select, html_select_menu(Name, Attrs, Content))
)
},
[ \input(Select)
].
/*******************************
* CATCH ALL *
*******************************/
element(E, _, Content) -->
{ print_message(warning, html_ignored_element(E))
},
Content.
/*******************************
* ADDITIONAL ACTIONS *
*******************************/
:- dynamic
current_form/1.
% forms
doc:action(form(Attrs, Content), PB, Mode) :-
new(F, html_form(Attrs, PB)),
asserta(current_form(F), Ref), % global state!
emit(Content, PB, Mode),
erase(Ref).
doc:action(input(hidden(Name, Value)), _PB, _Mode) :-
( current_form(Form)
-> send(Form, hidden_input, Name, Value)
; print_message(warning, doc(expected_context(input, form)))
).
doc:action(input(Obj), PB, _Mode) :-
send(PB, append, grbox(Obj, center)),
( current_form(Form)
-> send(Form, append, Obj)
; print_message(warning, doc(expected_context(input, form)))
).
/*******************************
* UTILITY PREDICATES *
*******************************/
% relative_width(+Spec, -Frac)
%
% Convert <num>% to a float representing the percentage
relative_width(Spec, Frac) :-
sub_atom(Spec, B, _, 0, '%'),
sub_atom(Spec, 0, B, _, NumAtom),
atom_chars(NumAtom, Chars),
catch(number_chars(Num, Chars), _, fail),
Frac is Num/100.
seq([]) --> [].
seq([H|T]) --> [H], seq(T).
/*******************************
* MESSAGES *
*******************************/
:- multifile
prolog:message/3.
prolog:message(html_ignored_attribute(Element, Attribute)) -->
[ 'Failed to handle attribute ~p of element ~w'-[Attribute, Element] ].
prolog:message(html_ignored_element(Element)) -->
[ 'Ignored element "~w", using content'-[Element] ].
prolog:message(html_ignored_script(_Element)) -->
[ 'Ignored script' ].
|