on *:input:*: { 
  if ($mouse.key & 2) || !$regex($1,^\/) {
    say $replacecs($regsubex($1-,^(\S), $upper($replace(\1,ç,c,ı,i,ş,s,ğ,g,ö,o,ü,u))),ç,c,ı,i,ş,s,ğ,g,ö,o,ü,u,<,«,>,»)
    halt
  }
}