From f58fa0174b6bd6e554ce806ae2e1146b40328545 Mon Sep 17 00:00:00 2001
From: eriedaberrie <eriedaberrie@gmail.com>
Date: Sat, 24 Dec 2022 15:52:45 -0800
Subject: [PATCH] Improve hooks, allow C-h in vterm

---
 init.el | 30 +++++++++++++++++++-----------
 1 file changed, 19 insertions(+), 11 deletions(-)

diff --git a/init.el b/init.el
index ccdb37b..bbc5f78 100644
--- a/init.el
+++ b/init.el
@@ -198,7 +198,8 @@
   (dtrt-indent-global-mode))
 
 (use-package aggressive-indent
-  :hook prog-mode)
+  :hook (prog-mode
+         org-mode))
 
 (use-package rainbow-delimiters
   :hook prog-mode)
@@ -352,7 +353,11 @@
                                      vc-ignore-dir-regexp
                                      tramp-file-name-regexp)))
 
-(use-package vterm)
+(use-package vterm
+  :hook (vterm-mode . my-inhibit-hl-line-mode)
+  :config
+  (evil-define-key 'insert vterm-mode-map (kbd "C-h") #'vterm--self-insert)
+  (evil-define-key 'insert vterm-mode-map (kbd "C-S-h") #'help-command))
 
 (use-package elfeed
   :commands (elfeed elfeed-update)
@@ -424,7 +429,6 @@
 
 (setq pixel-scroll-precision-large-scroll-height 40)
 (pixel-scroll-precision-mode)
-(global-hl-line-mode)
 (add-to-list 'default-frame-alist '(font . "JetbrainsMono Nerd Font-10.5"))
 
 (setcar mouse-wheel-scroll-amount 3)
@@ -442,21 +446,25 @@
               tab-width 4
               fill-column 80)
 
-(defun relative-linenum ()
+(global-hl-line-mode)
+(defun my-inhibit-hl-line-mode ()
+  (setq-local global-hl-line-mode nil))
+
+(defun my-relative-linenum ()
   (setq display-line-numbers 'relative))
 (dolist (hook '(prog-mode-hook
                 text-mode-hook
                 conf-mode-hook
                 org-mode-hook))
-  (add-hook hook #'relative-linenum))
+  (add-hook hook #'my-relative-linenum))
 
-(defun use-spaces-for-indent ()
+(defun my-use-spaces-for-indent ()
   (setq indent-tabs-mode nil))
-
-(add-hook 'emacs-lisp-mode-hook #'use-spaces-for-indent)
-(add-hook 'lisp-mode-hook #'use-spaces-for-indent)
-(add-hook 'scheme-mode-hook #'use-spaces-for-indent)
-(add-hook 'clojure-mode-hook #'use-spaces-for-indent)
+(dolist (hook '(emacs-lisp-mode-hook
+                lisp-mode-hook
+                scheme-mode-hook
+                clojure-mode-hook))
+  (add-hook hook #'my-use-spaces-for-indent))
 
 (defun scroll-down-3 ()
   "Scrolls down by 3"