;;; mode-line-format同様にプロンプトをカスタマイズできる
(setq prompt-text-format
  `(,(concat user-login-name            ;ログイン名
             "@"
             (car (split-string system-name ;ホスト名
                                "\\."))
             ":")
    (:eval (abbreviate-file-name default-directory)) ;カレントディレクトリ
    " "))
(prompt-text-mode 1)