14 KiB
14 KiB
Emacs Configuration
- Basic Setup
- Server
- Auto-Save
- No Scratch On Open
- Dirvish
- Doom Modeline
- VTerm
- Nix
- Org Mode Templates
- Fix Indents + Enable Autopairs
- Ligatures
- LSP
- Rainbow Delimiters
- Disable Bars
- Line Numbers
- Vim-Style Scrolling
- System-Specific Settings
- Use Short Answers
- Enable ctrl+c/ctrl+v
- Undo Tree
- Dashboard
- Git Integration
- Direnv
- Better M-x
- Org Mode Improvements
Basic Setup
Server
(require 'bind-key)
(load "server")
(unless (server-running-p) (server-start))Auto-Save
Disable Built-In Auto-Save and Backup
(setq auto-save-default nil
make-backup-files nil)Enable Real Auto-Save
(use-package real-auto-save
:ensure t
:hook
(prog-mode . real-auto-save-mode)
:config
(setq real-auto-save-interval 1))No Scratch On Open
(setq initial-scratch-message nil)
(setq initial-buffer-choice nil)
(add-hook 'emacs-startup-hook
(lambda ()
(when (and (get-buffer "*scratch*")
(not (eq (current-buffer) (get-buffer "*scratch*"))))
(kill-buffer "*scratch*"))))Dirvish
(add-hook 'dired-mode-hook 'dired-omit-mode)
(use-package ethan-wspace
:ensure t
:config
(setq mode-require-final-newline nil)
(global-ethan-wspace-mode 1))
(defun my/dirvish-create-file ()
"Create a new file in the current directory."
(interactive)
(let ((new-file (read-file-name "New file name: " (dired-current-directory))))
(if (file-exists-p new-file)
(message "File already exists!")
(write-region "" nil new-file)
(revert-buffer) ;; Refresh the directory listing
(message "File created: %s" new-file))))
(use-package dirvish
:ensure t
:init
(dirvish-override-dired-mode)
:config
(dirvish-peek-mode)
(dirvish-side-follow-mode)
(setq dired-listing-switches "-al --human-readable --group-directories-first"
dired-mouse-drag-files t
dired-omit-files (rx (or (seq bol (? ".") "#")
(seq bol "." eol)
(seq bol ".git" eol)))
dirvish-emerge-groups '(("Recent files" (predicate . recent-files-2h))
("Documents" (extensions "pdf" "tex" "bib" "epub"))
("Video" (extensions "mp4" "mkv" "webm"))
("Pictures" (extensions "jpg" "png" "svg" "gif"))
("Audio" (extensions "mp3" "flac" "wav" "ape" "aac"))
("Archives" (extensions "gz" "rar" "zip")))
dirvish-attributes '(vc-state subtree-state nerd-icons collapse git-msg file-time file-size)
dirvish-mode-line-format '(:left (sort symlink) :right (omit yank index))
dirvish-mode-line-height 25
dirvish-subtree-state-style 'nerd
mouse-drag-and-drop-region-cross-program t))
;; Addtional syntax highlighting for dired
(use-package diredfl
:ensure t
:hook
((dired-mode . diredfl-mode)
(dirvish-directory-view-mode . diredfl-mode))
:config
(set-face-attribute 'diredfl-dir-name nil :bold t))
(use-package nerd-icons
:ensure t
:custom
(nerd-icons-font-family "Maple Mono NF"))
(use-package ns-auto-titlebar
:ensure t
:config
(when (eq system-type 'darwin) (ns-auto-titlebar-mode)))Doom Modeline
(use-package doom-modeline
:ensure t
:config
(doom-modeline-mode))VTerm
(use-package vterm
:ensure t
:config
(setq vterm-timer-delay 0.01))
(use-package shackle
:ensure t
:config
(setq shackle-rules
'(("\\*vterm\\*" :regexp t :popup t :align 'below :size 0.4 :select t)))
(shackle-mode 1))
(use-package vterm-toggle
:ensure t)Nix
(use-package nix-mode
:mode "\\.nix\\'")Org Mode Templates
;; Inhibits autopairs from running for <> in org mode
(add-hook 'org-mode-hook
(lambda ()
(setq-local electric-pair-inhibit-predicate
`(lambda (c) (if (char-equal c ?<) t (,electric-pair-inhibit-predicate c))))))
(require 'org-tempo)
(add-to-list 'org-modules 'org-tempo t)
(defun org-babel-edit-prep:emacs-lisp (babel-info)
(setq-local buffer-file-name (->> babel-info caddr (alist-get :tangle)))
(lsp))Fix Indents + Enable Autopairs
(electric-indent-mode -1)
(electric-pair-mode 1)
(setq-default tab-width 2)
(setq-default indent-tabs-mode nil)
(use-package evil
:ensure t
:init
(setq evil-split-window-below t
evil-undo-system 'undo-tree
evil-vsplit-window-right t
evil-want-C-i-jump nil
evil-want-C-u-scroll t
evil-want-integration t
evil-want-integration t
evil-want-keybinding nil)
:config
(evil-mode 1)
(setq-default evil-shift-width 2)
(evil-define-key 'insert 'global (kbd "TAB") 'tab-to-tab-stop)
(evil-define-key 'normal 'global (kbd "gm") 'magit-status)
(evil-define-key 'normal 'global (kbd "gp") 'diff-hl-show-hunk)
(evil-define-key 'normal 'global (kbd "gr") 'diff-hl-revert-hunk)
(evil-define-key 'normal 'global (kbd "gs") 'diff-hl-stage-current-hunk))
(defun my-set-indent-width ()
(setq-local tab-width 2)
(setq-local evil-shift-width 2)
(setq-local indent-tabs-mode nil))
(add-hook 'prog-mode-hook 'my-set-indent-width)
(defun my-org-src-edit-hook ()
"Set indent width for Org source blocks."
(setq indent-tabs-mode nil) ;; Use spaces instead of tabs
(setq tab-width 2)) ;; Set tab width to your desired value
(add-hook 'prog-mode-hook 'my-set-indent-width)
(defun my-org-src-edit-hook ()
"Set indent width for Org source blocks."
(setq indent-tabs-mode nil) ;; Use spaces instead of tabs
(setq tab-width 2)) ;; Set tab width to your desired value
(add-hook 'org-src-mode-hook 'my-org-src-edit-hook)
(setq-default whitespace-style '(face spaces empty tabs trailing space-mark tab-mark))
(add-hook 'prog-mode-hook 'whitespace-mode)
;; Set whitespace actions.
(setq-default whitespace-action
'(cleanup auto-cleanup))
(use-package general
:ensure t
:config
(general-define-key
:states '(normal visual emacs)
:keymaps 'override
"C-t" '(vterm-toggle :wk "Toggle VTerm")))
(use-package evil-collection
:ensure t
:config
(evil-collection-init))
(use-package evil-leader
:ensure t
:config
(global-evil-leader-mode)
(setq evil-leader/leader "<SPC>")
(evil-leader/set-key "bb" #'switch-to-buffer)
(evil-leader/set-key "bd" #'kill-this-buffer)
(evil-leader/set-key "e" #'dirvish-side)
(evil-leader/set-key "N" #'lsp-bridge-diagnostic-jump-prev)
(evil-leader/set-key "n" #'lsp-bridge-diagnostic-jump-next))
(use-package catppuccin-theme
:ensure t
:demand t
:config
(load-theme 'catppuccin t))
(setq auto-save-default nil
make-backup-files nil)Ligatures
(use-package ligature
:config
(ligature-set-ligatures 'prog-mode '("<---" "<--" "<<-" "<-" "->" "-->" "--->" "<->" "<-->" "<--->" "<---->" "<!--"
"<==" "<===" "<=" "=>" "=>>" "==>" "===>" ">=" "<=>" "<==>" "<===>" "<====>" "<!---"
"<~~" "<~" "~>" "~~>" "::" ":::" "==" "!=" "===" "!=="
":=" ":-" ":+" "<*" "<*>" "*>" "<|" "<|>" "|>" "+:" "-:" "=:" "<******>" "++" "+++"))
(global-ligature-mode t))LSP
LSP-Bridge
(use-package yasnippet
:ensure t
:init
(yas-global-mode 1))
(use-package lsp-bridge
:ensure '(lsp-bridge :type git :host github :repo "manateelazycat/lsp-bridge" :files (:defaults "*"))
:init
(defun lsp-bridge-mode-hook-func ()
(local-set-key (kbd "M-[") #'lsp-bridge-return-from-def)
(local-set-key (kbd "M-]") #'lsp-bridge-find-def)
(local-set-key [remap xref-find-definitions] #'lsp-bridge-find-def)
(local-set-key [remap xref-find-definitions-other-window] #'lsp-bridge-find-def-other-window)
(local-set-key [remap xref-find-references] #'lsp-bridge-find-references)
(evil-define-key 'normal 'local (kbd "gd") #'lsp-bridge-find-def)
(evil-define-key 'normal 'local (kbd "gD") #'lsp-bridge-find-def-other-window)
(evil-define-key 'normal 'local (kbd "gi") #'lsp-bridge-find-impl)
(evil-define-key 'normal 'local (kbd "gI") #'lsp-bridge-find-impl-other-window)
(evil-define-key 'normal 'local (kbd "gr") #'lsp-bridge-find-references)
(evil-define-key 'normal 'local (kbd "K") #'lsp-bridge-popup-documentation))
(setq lsp-bridge-enable-log t
lsp-bridge-enable-inlay-hint t
lsp-bridge-nix-lsp-server "nil"
acm-enable-icon t
acm-enable-doc t
acm-enable-copilot t
acm-enable-quick-access t
acm-completion-backend-merge-order '("codeium-candidates"
"mode-first-part-candidates"
"template-first-part-candidates"
"template-second-part-candidates"
"mode-second-part-candidates"))
(require 'lsp-bridge)
(evil-set-initial-state 'lsp-bridge-ref-mode 'insert)
(add-hook 'lsp-bridge-mode-hook #'lsp-bridge-mode-hook-func)
(add-hook 'prog-mode-hook #'lsp-bridge-mode))Apheleia
(use-package apheleia
:ensure t
:config
(add-to-list 'apheleia-formatters
'(alejandra "alejandra" "--quiet" "-"))
(add-to-list 'apheleia-formatters
'(clang-format "clang-format"))
(add-to-list 'apheleia-mode-alist
'(nix-mode . alejandra))
(add-to-list 'apheleia-mode-alist
'(c-mode . clang-format))
(add-to-list 'apheleia-mode-alist
'(c++-mode . clang-format))
(apheleia-global-mode +1))TreeSitter
(use-package tree-sitter
:ensure t
:hook
(prog-mode . tree-sitter-hl-mode)
:config
(global-tree-sitter-mode))
(use-package tree-sitter-langs
:ensure t)Rainbow Delimiters
(use-package rainbow-delimiters
:ensure t
:config
(add-hook 'prog-mode-hook 'rainbow-delimiters-mode))Disable Bars
(menu-bar-mode -1)
(scroll-bar-mode -1)
(tool-bar-mode -1)Line Numbers
(global-display-line-numbers-mode t)
(setq display-line-numbers-type 'relative)
(dolist (mode
'(term-mode-hook
vterm-mode-hook
shell-mode-hook
org-mode-hook
dirvish-setup-hook
eshell-mode-hook))
(add-hook mode (lambda () (display-line-numbers-mode 0))))Vim-Style Scrolling
(setq scroll-step 3
scroll-conservatively 9999)System-Specific Settings
(cond
((eq system-type 'darwin)
(set-face-attribute 'default nil :font "Iosevka Comfy-14")
(set-face-attribute 'fixed-pitch nil :font "Iosevka Comfy-14")
(set-face-attribute 'variable-pitch nil :font "Iosevka Comfy Motion Duo-16")
(setq default-frame-alist '((font . "Iosevka Comfy-14"))))
((eq system-type 'gnu/linux)
(set-face-attribute 'default nil :font "Iosevka Comfy Medium-12")
(set-face-attribute 'fixed-pitch nil :font "Iosevka Comfy Medium-12")
(set-face-attribute 'variable-pitch nil :font "Iosevka Comfy Motion Duo Md-14")
(setq default-frame-alist
'((font . "Iosevka Comfy Medium-12")
(undecorated . t)
(vertical-scroll-bars . nil)))))Use Short Answers
(setq use-short-answers t)Enable ctrl+c/ctrl+v
(cua-mode 1)Undo Tree
(use-package undo-tree
:ensure t
:demand t
:config
(global-undo-tree-mode)
(setq undo-tree-history-directory-alist '(("." . "~/.emacs.d/undo"))))Dashboard
(use-package dashboard
:ensure t
:config
(dashboard-setup-startup-hook)
(setq dashboard-startup-banner 'logo
dashboard-center-content t
dashboard-vertically-center-content t
dashboard-startup-banner 'logo
initial-buffer-choice (lambda () (get-buffer-create "*dashboard*"))))Git Integration
(use-package transient :ensure t)
(use-package magit
:ensure t
:commands magit-status magit-blame magit-version
:init
(defadvice magit-status (around magit-fullscreen activate)
(window-configuration-to-register :magit-fullscreen) ad-do-it
(delete-other-windows))
:config
(setq magit-branch-arguments nil
magit-default-tracking-name-function 'magit-default-tracking-name-branch-only
magit-push-always-verify nil
magit-restore-window-configuration t))
(use-package diff-hl
:ensure t
:hook ((magit-post-refresh . diff-hl-magit-post-refresh))
:config
(global-diff-hl-mode))
(use-package git-gutter
:ensure t
:config
(global-git-gutter-mode +1))Direnv
(use-package envrc
:ensure t
:config
(envrc-global-mode))Better M-x
Ivy Mode (Completions)
(setq ivy-ignore-buffers '("\\` " "\\`\\*"))
(use-package ivy
:ensure t
:config
(ivy-mode)
(setq ivy-use-virtual-buffers t
enable-recursive-minibuffers t))Amx Mode (Better Interface)
(use-package amx
:ensure t
:config
(amx-mode))Org Mode Improvements
(add-hook 'org-mode-hook 'visual-line-mode)
(use-package mixed-pitch
:hook
(org-mode . mixed-pitch-mode))
(use-package org-modern
:ensure t
:hook (org-mode . org-modern-mode)
:config
(setq org-ellipsis "…")
(setq org-modern-star 'replace))
(use-package org-modern-indent
:ensure (org-modern-indent :type git :host github :repo "jdtsmith/org-modern-indent")
:config
(add-hook 'org-mode-hook #'org-modern-indent-mode 90))