From e1e20d4bbd9854287bc0b14adbbe7ee7a8cc7563 Mon Sep 17 00:00:00 2001 From: 10sr <8slashes+git@gmail.com> Date: Mon, 27 Jan 2014 16:52:17 +0900 Subject: [PATCH] update eshell prompt function --- emacs.el | 68 ++++++++++++++++++++++++++++++-------------------------- 1 file changed, 36 insertions(+), 32 deletions(-) diff --git a/emacs.el b/emacs.el index 138b70d..7d4712d 100644 --- a/emacs.el +++ b/emacs.el @@ -1819,39 +1819,43 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer." (setq eshell-ls-initial-args '("-hCFG" "--color=auto" "--time-style=long-iso")) ; "-hF") + (setq eshell-prompt-function - (lambda () - (with-temp-buffer - (let (p1 p2 p3 p4) - (insert ":: [") - (setq p1 (point)) - (insert user-login-name - "@" - system-name - ) - (setq p2 (point)) - (insert ":") - (setq p3 (point)) - (insert (abbreviate-file-name default-directory)) - (setq p4 (point)) - (insert "]") - (insert "\n:: ") - (unless (eq 0 - eshell-last-command-status) - (insert (format "[STATUS:%d] " - eshell-last-command-status))) - (insert (if (= (user-uid) - 0) - "# " - "$ ")) - (add-text-properties p1 - p2 - '(face underline)) - (add-text-properties p3 - p4 - '(face underline)) - (buffer-substring (point-min) - (point-max)))))) + 'my-eshell-prompt-function) + + (defun my-eshell-prompt-function () + (with-temp-buffer + (let (p1 p2 p3 p4) + (insert ":: [") + (setq p1 (point)) + (insert user-login-name + "@" + (car (split-string system-name + "\\.")) + ) + (setq p2 (point)) + (insert ":") + (setq p3 (point)) + (insert (abbreviate-file-name default-directory)) + (setq p4 (point)) + (insert "]") + (insert "\n:: ") + (unless (eq 0 + eshell-last-command-status) + (insert (format "[STATUS:%d] " + eshell-last-command-status))) + (insert (if (= (user-uid) + 0) + "# " + "$ ")) + (add-text-properties p1 + p2 + '(face underline)) + (add-text-properties p3 + p4 + '(face underline)) + (buffer-substring (point-min) + (point-max))))) (add-hook 'eshell-mode-hook (lambda ()