Spell suggestions driven from lexicon

content-suggest.xqy

xquery version "1.0-ml";

let $term := "werld"
let $start-char := substring($term,1,1)
let $limit := 10
let $threshold := 100
return (
  for $candidate in cts:field-words("meta-content",$start-char)
  let $distance :=
    if (starts-with($candidate, $start-char) and string-length($candidate) le 64) then
      spell:levenshtein-distance($term, $candidate)
    else 9999999
  where $distance le $threshold
  order by $distance
  return concat($candidate, ' - ', $distance)
)[1 to $limit]