[emacs] eshell и разноцветный prompt

# tcsh
set prompt = '%{\e[1;31m%}:%{\e[22;39m%}%{\e[1;34m%}%m%{\e[22;39m%} %{\e[1;31m%}(%{\e[22;39m%}%{\e[1;33m%}%~%{\e[22;39m%}%{\e[1;31m%})%{\e[22;39m%}%{\e[1;32m\ek\e\\%}%#%{\e[22;39m%} '

(setq
 eshell-prompt-function
 (lambda nil (ansi-color-apply
	      (concat
	       ;; looks like `:phoenix (~). '
	       "\e[1;31m" ":" "\e[22;39m"	   ; red colon
	       "\e[1;34m" system-name "\e[22;39m"  ; blue hostname
	       " "				   ; space
	       "\e[1;31m" "(" "\e[22;39m"          ; red left parenthesis
	       "\e[1;33m" (eshell/pwd) "\e[22;39m" ; yellow current directory
	       "\e[1;31m" ")" "\e[22;39m"          ; red right parenthesis
	       "\e[1;32m" (if (= (user-uid) 0) "!" ".") "\e[22;39m" ; green promptchar
	       " "				   ; space
	       ))))