eriedaberrie/.emacs.d
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Improve hooks, allow C-h in vterm

Browse source
This commit is contained in:
eriedaberrie 2022-12-24 15:52:45 -08:00
parent a87b228bac
commit f58fa0174b
1 changed files with 19 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
init.el
View file

@ -198,7 +198,8 @@
(dtrt-indent-global-mode)) (dtrt-indent-global-mode))
(use-package aggressive-indent (use-package aggressive-indent
:hook prog-mode) :hook (prog-mode
org-mode))
(use-package rainbow-delimiters (use-package rainbow-delimiters
:hook prog-mode) :hook prog-mode)
@ -352,7 +353,11 @@
vc-ignore-dir-regexp vc-ignore-dir-regexp
tramp-file-name-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 (use-package elfeed
:commands (elfeed elfeed-update) :commands (elfeed elfeed-update)
@ -424,7 +429,6 @@
(setq pixel-scroll-precision-large-scroll-height 40) (setq pixel-scroll-precision-large-scroll-height 40)
(pixel-scroll-precision-mode) (pixel-scroll-precision-mode)
(global-hl-line-mode)
(add-to-list 'default-frame-alist '(font . "JetbrainsMono Nerd Font-10.5")) (add-to-list 'default-frame-alist '(font . "JetbrainsMono Nerd Font-10.5"))
(setcar mouse-wheel-scroll-amount 3) (setcar mouse-wheel-scroll-amount 3)
@ -442,21 +446,25 @@
tab-width 4 tab-width 4
fill-column 80) 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)) (setq display-line-numbers 'relative))
(dolist (hook '(prog-mode-hook (dolist (hook '(prog-mode-hook
text-mode-hook text-mode-hook
conf-mode-hook conf-mode-hook
org-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)) (setq indent-tabs-mode nil))
(dolist (hook '(emacs-lisp-mode-hook
(add-hook 'emacs-lisp-mode-hook #'use-spaces-for-indent) lisp-mode-hook
(add-hook 'lisp-mode-hook #'use-spaces-for-indent) scheme-mode-hook
(add-hook 'scheme-mode-hook #'use-spaces-for-indent) clojure-mode-hook))
(add-hook 'clojure-mode-hook #'use-spaces-for-indent) (add-hook hook #'my-use-spaces-for-indent))
(defun scroll-down-3 () (defun scroll-down-3 ()
"Scrolls down by 3" "Scrolls down by 3"