sS hInlineSearchForm(S queryField default "q", S query, S action) {
  ret hform(hinputfield(queryField, query, style := "width: 75px")
    + " " + hsubmit("Search"), style := "display: inline", +action);
}