「〜/」から「ホームへ」および「//」からルートへの動作をido-find-fileでカスタムディレクトリを複製する方法

呼び出すido-find-fileと、入力~/して現在の作業ディレクトリをホームディレクトリに自動的に置き換えることができます。

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

どうすればこれを複製できuser-emacs-directoryますが、テキストをミニバッファーに挿入する代わりにキーを押したときなどのカスタムディレクトリの場合はどうですか。例えば：

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

私はこれについてブログに投稿しようとしていました（とにかく後で行います）：

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