                          (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))

  (defalias 'eshell/s #'magit-status))


(add-hook 'eshell-mode-hook
          (lambda ()
            ;; get rid of annoying 'terminal is not fully functional' warning
            (when (executable-find "cat")
              (setenv "PAGER" "cat"))

            (setenv "NODE_NO_READLINE" "1")))

(provide 'init-eshell)

           (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")))
