let params_hb hb =
let p_key = C.hotkey
~f: (fun k -> hb.html_key <- k) Configwin_messages.mKey
hb.html_key
in
let p_begin = C.string
~f: (fun s -> hb.html_begin <- s)
Configwin_messages.html_begin
hb.html_begin
in
let p_end = C.string
~f: (fun s -> hb.html_end <- s)
Configwin_messages.html_end
hb.html_end
in
[ p_key ; p_begin ; p_end ]