Restore some bash/readline-isms in ZSH

.zshrc

autoload -Uz compinit && compinit
setopt nonomatch
setopt interactivecomments

function unfuck-zsh-kb {
  local WORDCHARS="${WORDCHARS//[\~\!\@\#\$\%\^\&\*\(\)\-\_\=\+\{\}\[\]\|\\\:\;\"\'\<\,\>\.\?\/]/}"
  fn="$1"
  shift
  zle $fn "$@"
}

# Make M-BS work again
function backward-kill-partial-word { unfuck-zsh-kb backward-kill-word; }
zle -N backward-kill-partial-word
for x in '^Xw' '^[^?' '^[^H'; do
  bindkey "$x" backward-kill-partial-word
done; unset x

# Make M-b work again
function backward-partial-word { unfuck-zsh-kb backward-word; }
zle -N backward-partial-word
bindkey '^[b' backward-partial-word

# Make M-f work again
function forward-partial-word { unfuck-zsh-kb forward-word; }
zle -N forward-partial-word
bindkey '^[f' forward-partial-word

# Make M-d work again
function forward-partial-kill-word { unfuck-zsh-kb kill-word; }
zle -N forward-partial-kill-word
bindkey '^[d' forward-partial-kill-word

# Make M-# work again
bindkey '\e#' pound-insert

# This is a damned lie, it doesn't fucking work.
#autoload -U select-word-style
#select-word-style bash