I don't know why you have to go the extra mile for something that can be done shorter with the same outcome. For the type_back alias, you can do it as such:

alias type_back {
  echo -a $regsubex($1-,/(.)/g,$mid(\A,-\n,1)))
}

The rest of aliases can be be rid of some redundancies here and there, but I'm not gonna get into that because you might think I'm trying to pick on your code. Please understand that this is an innocent comment I'm making here, not trying to be critical of your coding style or anything.