Wie repliziere ich das Verhalten "~ /" - to-home & "//" - to-root in der IDO-Find-Datei, jedoch für ein benutzerdefiniertes Verzeichnis?

Wenn Sie anrufen, können ido-find-fileSie Folgendes eingeben ~/, um das aktuelle Arbeitsverzeichnis automatisch durch Ihr Ausgangsverzeichnis zu ersetzen:

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

Wie kann ich dies replizieren, außer für ein benutzerdefiniertes Verzeichnis wie user-emacs-directoryund beim Drücken einer Taste, anstatt Text in den Minipuffer einzufügen? Zum Beispiel:

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

Ich wollte gerade einen Blog-Beitrag darüber schreiben (ich mache es sowieso später):

(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)