From 7d3d0bb10ddf3cd1d7608ca4dad18b038efc66ec Mon Sep 17 00:00:00 2001
From: MitchMarq42 <dr.m.perseos@gmail.com>
Date: Mon, 27 Jun 2022 18:58:48 -0800
Subject: [PATCH] do a lot of things... doom-modeline etc

---
 init.el                 |  4 ++++
 lisp/eshell-settings.el |  3 ++-
 lisp/mitch-packages.el  | 50 ++++++++++++++++++++++++++++++++---------
 3 files changed, 45 insertions(+), 12 deletions(-)

diff --git a/init.el b/init.el
index 63b0775..edb09a4 100644
--- a/init.el
+++ b/init.el
@@ -117,4 +117,8 @@
 (setq gc-cons-threshold (* 2 1000 1000))
 ;; (add-function :before #'after-focus-change-function #'garbage-collect)
 
+;; Smallen buffer if windows
+(if (equal (window-system) 'w32)
+    (text-scale-decrease 2))
+
 ;;; init.el ends here
diff --git a/lisp/eshell-settings.el b/lisp/eshell-settings.el
index 897cf4e..be38458 100644
--- a/lisp/eshell-settings.el
+++ b/lisp/eshell-settings.el
@@ -3,6 +3,7 @@
 ;; the elisp linter wants me to put some text here so I guess I will
 
 ;;; Code:
+(require 'eshell)
 (defun eshell/emacs (&rest args)
   "Basically you can edit ARGS and it will open in a new buffer.
 When your shell is Emacs, your Emacs is but an oyster...
@@ -10,7 +11,7 @@ This is taken from a website that I can't remember at the moment."
   (if (null args)
       (bury-buffer)
     (mapc
-     #'find-file
+     #'find-file-other-window
      (mapcar
       #'expand-file-name (eshell-flatten-list (reverse args))))))
 (defun eshell/clear ()
diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el
index 855d5e1..fd35552 100644
--- a/lisp/mitch-packages.el
+++ b/lisp/mitch-packages.el
@@ -117,6 +117,10 @@
     (kbd "C-w") 'evil-window-map)
   (evil-collection-define-key 'normal 'vterm-mode-map
     (kbd "RET") 'hkey-either)
+  (evil-collection-define-key 'normal 'vterm-mode-map
+    (kbd "k") 'vterm-send-up)
+  (evil-collection-define-key 'normal 'vterm-mode-map
+    (kbd "j") 'vterm-send-down)
   (add-to-list 'vterm-keymap-exceptions
 	       "C-w")
   (add-to-list 'vterm-keymap-exceptions
@@ -127,6 +131,8 @@
 	  "find-file-other-window"
 	  "find-file-other-frame"
 	  "eshell/emacs"
+	  "eshell/man"
+	  "info-other-window"
 	  "add-vterm-eval-cmd"))
   (defun add-vterm-eval-cmd (function)
     "Add FUNCTION to `vterm-eval-cmds' so it can be ran through sh in vterm."
@@ -157,23 +163,30 @@
    "v" 'multi-vterm-other-window))
 
 ;; Better modeline?
-(use-package powerline
-  :init
-  :custom
-  (powerline-default-separator 'utf-8)
-  (powerline-utf-8-separator-left 57532)
-  (powerline-utf-8-separator-right 57534)
-  (powerline-display-hud nil)
-  (powerline-gui-use-vcs-glyph t))
+;; (use-package powerline
+;;   :init
+;;   :custom
+;;   (powerline-default-separator 'utf-8)
+;;   (powerline-utf-8-separator-left 57532)
+;;   (powerline-utf-8-separator-right 57534)
+;;   (powerline-display-hud nil)
+;;   (powerline-gui-use-vcs-glyph t))
 (use-package airline-themes
   :custom
   (airline-cursor-colors nil)
   (airline-display-directory t)
   (airline-eshell-colors nil)
   (airline-shortened-directory-length 20)
-  :after powerline
+  ;; :after powerline
+  :after doom-modeline
   :config
   (load-theme 'airline-ravenpower t))
+(use-package all-the-icons
+    :init
+    (unless (member "all-the-icons" (font-family-list))
+    (all-the-icons-install-fonts t)))
+(use-package doom-modeline
+  :config (doom-modeline-mode))
 
 ;; Custom Theme.
 ;; Not to be confused with a color theme, or a color scheme, or a custom scheme.
@@ -530,8 +543,11 @@
 (use-package eshell
   :straight (:type built-in)
   :hook (eshell-mode . mitch/terminal-setup)
-  :commands eshell/emacs
-  :config (require 'eshell-settings))
+  :commands (eshell/emacs eshell/man)
+  :config
+  (require 'eshell)
+  (require 'em-unix)
+  (require 'eshell-settings))
 
 (use-package popper
   :custom
@@ -589,5 +605,17 @@
   :hook (dired-mode . dired-hide-details-mode)
   (dired-mode . wdired-mode))
 
+(use-package info-variable-pitch
+  :straight
+  (:type git :host github
+	 :repo "kisaragi-hiu/info-variable-pitch")
+  :config
+  (add-hook 'Info-mode-hook #'info-variable-pitch-mode))
+
+;; (use-package empv
+;;   :straight
+;;   (:type git :host github
+;; 	 :repo "isamert/empv.el"))
+
 (provide 'mitch-packages)
 ;;; mitch-packages.el ends here