¿Cómo replicar el comportamiento "~ /" - to-home & "//" - to-root en ido-find-file pero para un directorio personalizado?

Al llamar ido-find-file, es posible escribir ~/para reemplazar el directorio de trabajo actual con su directorio de inicio automáticamente:

Find file: /etc/{...} # after typing ~/ becomes:
Find file: ~/{...}

¿Cómo puedo replicar esto pero para un directorio personalizado como user-emacs-directoryy al presionar una tecla en lugar de insertar texto en el minibúfer? Por ejemplo:

Find file: /var/log/{...} # after pressing F6 becomes:
Find file: ~/.emacs.d/{...}

Estaba a punto de hacer una publicación de blog sobre esto (lo haré más tarde de todos modos):

(defun oleh-ido-setup-hook ()
  (define-key ido-file-dir-completion-map "~"
    (lambda ()
      (interactive)
      (ido-set-current-directory "~/")
      (setq ido-exit 'refresh)
      (exit-minibuffer))))

(add-hook 'ido-setup-hook 'oleh-ido-setup-hook)