hooks for eshell

elisp/eshell-setup.el

@@ -1,18 +1,20 @@
 ;; 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)))
-;; (add-to-list 'eshell-preoutput-filter-functions 'xterm-color-filter)
-;; (setq eshell-output-filter-functions
-;;       (remove 'eshell-handle-ansi-color eshell-output-filter-functions))
+
+(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)

elisp/extras.el

@@ -10,10 +10,12 @@
 
 ;;;; Load my packages
 ;; Default theme
-(use-package zenburn-theme
-  :demand t
-  :config
-  (load-theme 'zenburn t))
+;; (use-package zenburn-theme
+;;   :demand t
+;;   :config
+;;   (load-theme 'zenburn t))
+
+(load-theme 'modus-operandi-tinted t)
 
 ;; Eshell
 ;; (use-package eshell

elisp/keypad.el

@@ -2,6 +2,7 @@
 (global-set-key (kbd "C-x g") 'magit-status)
 ;; eshell
 (global-set-key (kbd "<f4>") 'eshell)
+(global-set-key (kbd "H-e") 'eshell)
 
 ;; number pad keys
 (global-set-key (kbd "<kp-decimal>") 'other-window)

init.el

@@ -43,11 +43,11 @@
       '(("http://lambda-the-ultimate.org/node/feed" lambda)
         ("https://acoup.blog/feed" acoup history)
         ("https://talesoftimesforgotten.com/feed" history)
+        ("https://pastsimperfect.substack.com/feed" history)
 	("https://guix.gnu.org/feeds/blog.atom" guix)
 	("https://mmhaskell.com/blog?format=rss" haskell)
 	("https://www.inspiredpython.com/feed" python)
         ("https://sachachua.com/blog/category/emacs-news/feed" emacs)
         ("https://dthompson.us/feed.xml" guile)
-        ("https://wingolog.org/feed/atom" guile scheme)
-        ("https://jazzfuel.com/feed/" jazz music)))
+        ("https://wingolog.org/feed/atom" guile scheme)))
 (put 'upcase-region 'disabled nil)