Làm cách nào để sao chép hành vi của ~ ~ / - - đến nhà

Khi gọi ido-find-file, có thể tự động gõ ~/để thay thế thư mục làm việc hiện tại bằng thư mục chính của bạn:

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

Làm cách nào tôi có thể sao chép này nhưng đối với một thư mục tùy chỉnh như user-emacs-directoryvà khi nhấn phím thay vì chèn văn bản trong bộ thu nhỏ? Ví dụ:

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

Tôi vừa mới viết một bài blog về điều này (dù sao tôi cũng sẽ làm nó sau):

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