                          (put-text-property 0 (length line) 'font-lock-face compilation-error-face line)))))
     (mapconcat 'identity lines "\n")))
 
-(after 'esh-mode
-  (require 'compile)
-  (add-to-list 'eshell-preoutput-filter-functions #'my-eshell-color-filter))
-
 
 (eval-when-compile (require 'cl))
 (lexical-let ((count 0))



(setq eshell-directory-name (concat dotemacs-cache-directory "eshell"))
(setq eshell-scroll-to-bottom-on-input 'this)
(setq eshell-buffer-shorthand t)
(setq eshell-aliases-file (concat user-emacs-directory ".eshell-aliases"))
(setq eshell-glob-case-insensitive t)
(setq eshell-error-if-no-glob t)
(setq eshell-history-size 1024)
(setq eshell-cmpl-ignore-case t)
(setq eshell-last-dir-ring-size 512)
(setq eshell-prompt-function

           (delete-dups (ring-elements eshell-history-ring)))))


(defun eshell/ssh-tramp (&rest args)
  (insert (apply #'format "cd /ssh:%s:\\~" args))
  (eshell-send-input))


(defun my-eshell-color-filter (string)
  (let ((case-fold-search nil)
        (lines (split-string string "\n")))
