let add () =
  let hb = { html_key = Configwin_types.string_to_key "C-a" ;
             html_begin = "" ;
             html_end = "" ;
           }
  in
  match simple_get Configwin_messages.mAdd (params_hb hb) with
    Return_ok -> [hb]
  | _ -> []