Emacs: More QoL

This commit is contained in:
caem 2025-05-27 20:40:36 +02:00
parent d6590c2ece
commit fd01fc2724
Signed by: caem
GPG key ID: 69A830D03203405F

View file

@ -34,6 +34,8 @@
;; === Appearance === ;; === Appearance ===
(global-hl-line-mode t) (global-hl-line-mode t)
(column-number-mode 1) (column-number-mode 1)
(diminish 'eldoc-mode)
(diminish 'abbrev-mode)
(use-package rainbow-delimiters (use-package rainbow-delimiters
:ensure t :ensure t
@ -60,7 +62,6 @@
(use-package doom-themes (use-package doom-themes
:ensure t :ensure t
:config :config
;; (set-face-background 'hl-line "#262626")
(load-theme 'doom-gruvbox t) (load-theme 'doom-gruvbox t)
(setq doom-themes-enable-bold t (setq doom-themes-enable-bold t
doom-themes-enable-italic t doom-themes-enable-italic t
@ -74,6 +75,9 @@
(format "#%x" (+ 1118481 (string-to-number (format "#%x" (+ 1118481 (string-to-number
(substring bg 1) 16)))))))) (substring bg 1) 16))))))))
(setq enable-recursive-minibuffers t)
(minibuffer-depth-indicate-mode 1)
;; === Scrolling === ;; === Scrolling ===
(setq display-line-numbers-type 'relative (setq display-line-numbers-type 'relative
compilation-scroll-output t compilation-scroll-output t
@ -94,7 +98,8 @@
(helm-ff-ignore-following-on-directory t) (helm-ff-ignore-following-on-directory t)
:bind (("M-x" . helm-M-x) :bind (("M-x" . helm-M-x)
("C-x C-f" . helm-find-files) ("C-x C-f" . helm-find-files)
("C-s" . helm-occur)) ("C-s" . helm-occur)
("C-x b" . helm-buffers-list))
:config :config
(helm-mode 1)) (helm-mode 1))
@ -170,14 +175,28 @@
:custom (lsp-scheme-implementation "guile") :custom (lsp-scheme-implementation "guile")
:hook (scheme-mode . lsp-scheme)) :hook (scheme-mode . lsp-scheme))
;; === Magit ===
(use-package magit
:ensure t)
;; === Misc ===
(global-auto-revert-mode 1)
;; === Major Modes === ;; === Major Modes ===
(setq-default indent-tabs-mode nil) (setq-default indent-tabs-mode nil)
;; --- Dired Mode ---
(setf dired-kill-when-opening-new-dired-buffer t)
;; --- Term Mode --- ;; --- Term Mode ---
(defun reset-scroll-config () (defun reset-scroll-config ()
(setq-local scroll-margin 0)) (setq-local scroll-margin 0))
(add-hook 'term-mode-hook #'reset-scroll-config) (add-hook 'term-mode-hook #'reset-scroll-config)
(use-package ansi-color
:ensure t
:hook (compilation-filter . ansi-color-compilation-filter))
;; --- Lisp Modes --- ;; --- Lisp Modes ---
(use-package paredit (use-package paredit
:ensure t :ensure t