alias coloron { set -n %color $1 }
alias coloroff { unset %color }
on *:input:*:{
  if (%color) && ($left($1,1) !isin /!) && (c !isincs $chan(#).mode) {
    haltdef
    say $chr(3) $+ %color $+ $chr(2) $+ $chr(2) $+ $1-
  }
}