;; colors in eshell

(add-hook 'eshell-mode-hook
          (lambda ()
            (setenv "TERM" "xterm-256color")))
(add-hook 'eshell-before-prompt-hook (lambda ()
				       (setq xterm-color-preserve-properties t)))

(require 'esh-mode)
(add-to-list 'eshell-preoutput-filter-functions 'xterm-color-filter)
(setq eshell-output-filter-functions
      (remove 'eshell-handle-ansi-color eshell-output-filter-functions))

;; Don't cycle through history with <up> and <down>
;; Those keys were previously bound to:
;; eshell-previous-matching-input-from-input and
;; eshell-next-matching-input-from-input, respectively
(defun my-eshell-setup ()
  (progn
    (define-key eshell-hist-mode-map (kbd "<up>") nil)
    (define-key eshell-hist-mode-map (kbd "<down>") nil)))

(add-hook 'eshell-mode-hook #'my-eshell-setup)