This commit is contained in:
eriedaberrie 2023-11-04 14:00:09 -07:00
parent 741989ce48
commit 5a9ac8a045

24
init.el
View file

@ -71,7 +71,6 @@
(god-exempt-predicates (list #'god-exempt-mode-p)) (god-exempt-predicates (list #'god-exempt-mode-p))
(god-mode-enable-function-key-translations nil) (god-mode-enable-function-key-translations nil)
:config :config
(god-mode)
(defun my--god-c-q () (defun my--god-c-q ()
(interactive) (interactive)
(let ((god-local-mode nil)) (let ((god-local-mode nil))
@ -99,7 +98,8 @@
;; Escape codes for hbar cursor in insert mode ;; Escape codes for hbar cursor in insert mode
(send-string-to-terminal "\e[4 q"))))) (send-string-to-terminal "\e[4 q")))))
(unless (or (daemonp) (display-graphic-p)) (unless (or (daemonp) (display-graphic-p))
(keymap-global-set "C-l" (lambda () (interactive) (god-mode-all 0))))) (keymap-global-set "C-l" (lambda () (interactive) (god-mode-all 0))))
(god-mode))
(use-package avy (use-package avy
:bind :bind
@ -196,8 +196,8 @@
(use-package dtrt-indent (use-package dtrt-indent
:demand t :demand t
:config :config
(dtrt-indent-global-mode) (setcar (cdr (assq 'dtrt-indent-mode minor-mode-alist)) " dtrt")
(setcar (cdr (assq 'dtrt-indent-mode minor-mode-alist)) " dtrt")) (dtrt-indent-global-mode))
(use-package aggressive-indent (use-package aggressive-indent
:custom :custom
@ -225,9 +225,9 @@
:custom :custom
(which-key-idle-delay 0.2) (which-key-idle-delay 0.2)
:config :config
(which-key-mode)
(with-eval-after-load 'god-mode (with-eval-after-load 'god-mode
(which-key-enable-god-mode-support))) (which-key-enable-god-mode-support))
(which-key-mode))
(use-package flymake (use-package flymake
:ensure nil :ensure nil
@ -331,14 +331,14 @@
(corfu-scroll-margin 3) (corfu-scroll-margin 3)
(tab-always-indent 'complete) (tab-always-indent 'complete)
:config :config
(global-corfu-mode)
(add-hook 'minibuffer-setup-hook (add-hook 'minibuffer-setup-hook
(lambda () (lambda ()
(when (where-is-internal #'completion-at-point (when (where-is-internal #'completion-at-point
(list (current-local-map))) (list (current-local-map)))
(setq-local corfu-echo-display nil (setq-local corfu-echo-display nil
corfu-popupinfo-delay nil) corfu-popupinfo-delay nil)
(corfu-mode))))) (corfu-mode))))
(global-corfu-mode))
(use-package cape) (use-package cape)
@ -519,14 +519,6 @@
:custom :custom
(haskell-process-show-debug-tips nil)) (haskell-process-show-debug-tips nil))
;; (use-package web-mode
;; :mode ("\\.\\([jt]sx?\\|css\\)\\'" . web-mode)
;; :custom
;; (web-mode-css-indent-offset 2)
;; (web-mode-code-indent-offset 2)
;; (web-mode-markup-indent-offset 2)
;; :hook (web-mode . (lambda () (setq-local tab-width 2))))
(use-package lua-mode (use-package lua-mode
:custom :custom
(lua-indent-level 4) (lua-indent-level 4)