on *:input:*: {
  if (/* !iswm $1-) && (!$inpaste) && (status win !isin $active) && (@* !iswm $active) {
    msg $active $+($regsubex($1-,/(?<=^|\s)(.)/g,$+(12,$upper(\1))),)
    halt
  }
}