xyzzyで対話的にディレクトリ作成

この記事は筆者が見た夢を一人称視点で叙述した内容です。事実ではなく、実際の人物等とは一切関係ありません。

(defun interactive-create-directory ()
  (interactive)
  (let ((dest-dir (read-string 
                  (format "Create Directory: ~A" (directory-namestring (or (get-buffer-file-name) "~"))))))
    (create-directory dest-dir)))

いちいちエクスプローラ立ち上げるのもめんどくさいし、シェル立ち上げるのもめんどくさいので。
C-xではじまるキーバインドってコアのものなのかな?
よくわからないので、とりあえずC-c dにする。CreateのcとDirectoryのdみたいな。