34 KiB
34 KiB
;;; -- lexical-binding: t -- #+TITLE:Emacs Configuration
Preamble
Inspiration
I started my own emacs config after becoming fed up with how slow Spacemacs, which is my go-to config of emacs, was for me, and how rigid the experience was to me. I never felt like I could really change Spacemacs to fit my own needs beyond what the config offered itself.
After looking online for guides on how to do a "literate configuration" and stumbled upon Sophie Bosio's emacs blogs and git repo.
Cool Packages to remember
These are some packages which I might want to use in the future, or maybe not, but I definitely want to remember that they exist.
- https://github.com/rnkn/olivetti This might be really nice for creative writing. Usually, I would probably have two buffers open to emulate this same behaviour and also have the benefit of having another section of the same file open for referencing/reading back.
- https://github.com/minad/vertico Completion engine alternative to helm, super lightweight
- https://github.com/rougier/svg-tag-mode create svg images to replace tokens based on regexes
- https://github.com/minad/org-modern maybe for em dashes? does loads more too.
look at org-bullets to make a package which turns -- and --- into $\textemdash$ and $\textemdash$.
-> https://github.com/jorgenschaefer/typoel perchance?
Start
Lexical Scoping
;;; -*- lexical-binding: t -*-Tangling init.org
From Sophie's emacs.d:
(defun tangle-init ()
"If the current buffer is init.org the code-blocks are
tangled, and the tangled file is compiled."
(when (equal (buffer-file-name)
(expand-file-name (concat user-emacs-directory "init.org")))
;; Avoid running hooks when tangling.
(let ((prog-mode-hook nil))
(org-babel-tangle)
(byte-compile-file (concat user-emacs-directory "init.el")))))
(add-hook 'after-save-hook 'tangle-init)Startup performance
Usually, I like to run emacs as a daemon and only ever open new emacs clients, but that often doesn't work properly and definitely doesn't work when actively working on an emacs config, so this snippet might be useful.
(setq gc-cons-percentage 0.6)
(setq read-process-output-max (* 1024 1024)) ;; 1mbUse GC magic hack.
(use-package gcmh
:config
(setq gcmh-idle-delay 5
gcmh-high-cons-threshold (* 100 1024 1024)) ; 100mb
(gcmh-mode 1))I have no idea what this does, but apparently it's an optimisation.
(setq idle-update-delay 1.0)Cleaning up elements
Remove visual elements:
(dolist (mode
'(tool-bar-mode
scroll-bar-mode
menu-bar-mode
blink-cursor-mode))
(funcall mode 0)) (setq ring-bell-function 'ignore
initial-scratch-message nil
inhibit-startup-message t
use-dialog-box nil)Warnings crop up every so often and they are usually unimportant. I disable this buffer when actively working on my config.
(setq native-comp-async-report-warnings-errors 'silent) ;; native-comp warning
(setq byte-compile-warnings '(not free-vars unresolved noruntime lexical make-local))Backups / Auto-saves
(defvar emacs-autosave-directory
(concat user-emacs-directory "autosaves/")
"This variable dictates where to put auto saves. It is set to a
directory called autosaves located wherever your .emacs.d/ is
located.")
;; Sets all files to be backed up and auto saved in a single directory.
(setq backup-directory-alist
`((".*" . ,emacs-autosave-directory))
auto-save-file-name-transforms
`((".*" ,emacs-autosave-directory t)))
(use-package auto-save-buffers-enhanced
:ensure t
:config
(auto-save-buffers-enhanced t)
(setq auto-save-buffers-enhanced-exclude-regexps '("init.org")))Package repositories
(require 'package)
(require 'use-package)
(require 'use-package-ensure)
(setq use-package-always-ensure t)Add package repositories and rank them by priority
(setq package-archives
'(("GNU ELPA" . "https://elpa.gnu.org/packages/")
("MELPA" . "https://melpa.org/packages/")
("ORG" . "https://orgmode.org/elpa/")
("MELPA Stable" . "https://stable.melpa.org/packages/")
("nongnu" . "https://elpa.nongnu.org/nongnu/"))
package-archive-priorities
'(("GNU ELPA" . 20)
("MELPA" . 15)
("ORG" . 10)
("MELPA Stable" . 5)
("nongnu" . 0)))
(package-initialize)
; (package-refresh-contents) (defvar local-lisp (concat user-emacs-directory "local-lisp/"))
(add-to-list 'load-path local-lisp)
(let ((default-directory local-lisp))
(normal-top-level-add-subdirs-to-load-path))Global Variables
(set-language-environment "UTF-8")
(column-number-mode t) ;; Show current column number in mode line
(delete-selection-mode t) ;; Replace selected text when yanking
(dirtrack-mode t) ;; Directory tracking in shell
(global-so-long-mode t) ;; Mitigate performance for long lines
(global-visual-line-mode t) ;; Break lines instead of truncating them
(global-auto-revert-mode t) ;; Revert buffers automatically when they change
(recentf-mode t) ;; Remember recently opened files
(savehist-mode t) ;; Remember minibuffer prompt history
(save-place-mode t) ;; Remember last cursor location in file
(show-paren-mode t) ;; Highlight matching parentheses (setq-default tab-width 4
fill-column 80
indent-tabs-mode nil) (use-package exec-path-from-shell
:ensure t
:config
(when (daemonp)
(exec-path-from-shell-initialize)))Keymap:
(defvar custom-bindings-map (make-keymap)
"A keymap for custom keybindings.")
(define-minor-mode custom-bindings-mode
"A mode that activates custom keybindings."
:init-value t
:keymap custom-bindings-map)Visuals
Themes
Light theme for writing
(use-package gruvbox-theme
:ensure t)Doom Themes as default theme
;; doom needs this somehow
(use-package all-the-icons
:ensure t)
(use-package doom-themes
:ensure t
:config
(setq doom-themes-enable-bold t
doom-themes-enable-italic t)
(doom-themes-org-config))Manage themes, use dark-theme by default:
(defvar nemo/dark-theme 'doom-one)
(defvar nemo/light-theme 'gruvbox-light-medium)
(load-theme nemo/dark-theme t)Disable themes before loading a new one, from here.
(defadvice load-theme
(before disable-before-load (theme &optional no-confirm no-enable) activate)
(mapc 'disable-theme custom-enabled-themes))Helper function for switching themes.
(defun nemo/set-light-theme ()
(interactive)
(load-theme nemo/light-theme t))
(defun nemo/set-dark-theme ()
(interactive)
(load-theme nemo/dark-theme t))Fonts
Font size (height) in emacs works in $\frac{1}{10}$ths of points, so 110 is the same as 11 points.
(defvar nemo/font-height-mono 110)
(defvar nemo/font-height-sans 120) (set-face-attribute 'default nil :font "monospace" :height nemo/font-height-mono)
(set-face-attribute 'fixed-pitch nil :font "monospace" :height nemo/font-height-mono)
(set-face-attribute 'variable-pitch nil :font "sans-serif" :height nemo/font-height-sans)
(when (member "SF Mono" (font-family-list))
(set-face-attribute 'default nil :font "SF Mono" :height nemo/font-height-mono)
(set-face-attribute 'fixed-pitch nil :family "SF Mono" :height nemo/font-height-mono))
(when (member "SF Pro Text" (font-family-list))
(set-face-attribute 'variable-pitch nil :family "SF Pro Text" :height nemo/font-height-sans))Use nerd-icons and apple emojis
(use-package nerd-icons)
(use-package emojify
:config
(when (member "Apple Color Emoji" (font-family-list))
(set-fontset-font t 'symbol (font-spec :family "Apple Color Emoji") nil 'prepend)))Use both fixed and variable pitched fonts and faces.
(use-package mixed-pitch
:defer t
:hook ((org-mode . mixed-pitch-mode)
(LaTeX-mode . mixed-pitch-mode)))Mode Line
Honestly not very happy with this at the moment, but it's kind of hacked together based on Sophie's and Amit's modelines.
;; Mode line setup
(setq-default
mode-line-format
'(" "
(:propertize "λ" face font-lock-comment-face)
" "
mode-line-buffer-identification
" "
; read-only or modified status
(:eval
(cond (buffer-read-only
(propertize " RO " 'face 'mode-line-read-only-face))
((buffer-modified-p)
(propertize " ** " 'face 'mode-line-modified-face))
(t " ")))
; directory and buffer/file name
(:propertize (:eval (shorten-directory default-directory 30))
face mode-line-folder-face)
(:propertize "%b"
face mode-line-filename-face)
;; Version control info
(:eval (when-let (vc vc-mode)
;; Use a pretty branch symbol in front of the branch name
(list (propertize " " 'face 'font-lock-comment-face)
(propertize (substring vc 5)
'face 'font-lock-comment-face))))
" "
(:propertize mode-name)
; (global-mode-string global-mode-string)
(:eval (propertize
" " 'display
`((space :align-to
(- (+ right right-fringe right-margin)
,(+ 2 (string-width "%4l:%c")))))))
;; Line and column numbers
(:propertize "%4l:" face mode-line-position-face)
(:eval (propertize "%c" 'face
(if (>= (current-column) 80)
'mode-line-80col-face
'mode-line-position-face)))
))
;; Helper function
(defun shorten-directory (dir max-length)
"Show up to `max-length' characters of a directory name `dir'."
(let ((path (reverse (split-string (abbreviate-file-name dir) "/")))
(output ""))
(when (and path (equal "" (car path)))
(setq path (cdr path)))
(while (and path (< (length output) (- max-length 4)))
(setq output (concat (car path) "/" output))
(setq path (cdr path)))
(when path
(setq output (concat ".../" output)))
output))
;; Extra mode line faces
(make-face 'mode-line-read-only-face)
(make-face 'mode-line-modified-face)
(make-face 'mode-line-folder-face)
(make-face 'mode-line-filename-face)
(make-face 'mode-line-position-face)
(make-face 'mode-line-mode-face)
(make-face 'mode-line-80col-face)
(set-face-attribute 'mode-line-read-only-face nil
:inherit 'mode-line-face
:foreground "#4271ae"
:box '(:line-width 2 :color "#4271ae"))
(set-face-attribute 'mode-line-modified-face nil
:inherit 'mode-line-face
:foreground "#c82829"
:background "#ffffff"
:box '(:line-width 2 :color "#c82829"))
(set-face-attribute 'mode-line-folder-face nil
:inherit 'mode-line-face
:foreground "gray60")
(set-face-attribute 'mode-line-filename-face nil
:inherit 'mode-line-face
:foreground "#eab700"
:weight 'bold)
(set-face-attribute 'mode-line-position-face nil
:inherit 'mode-line-face)
(set-face-attribute 'mode-line-mode-face nil
:inherit 'mode-line-face
:foreground "gray80")
(set-face-attribute 'mode-line-80col-face nil
:inherit 'mode-line-position-face
:foreground "black" :background "#eab700")Packages
Web Search
(use-package engine-mode
:defer t
:config
(defengine duckduckgo
"https://duckduckgo.com/?q=%s"
:keybinding "g")
(defengine twitter
"https://twitter.com/search?q=%s"
:keybinding "x")
(defengine wikipedia
"https://www.wikipedia.org/search-redirect.php?language=en&go=Go&search=%s"
:keybinding "w"
:docstring "Searchin' the wikis.")
(defengine wiktionary
"https://www.wikipedia.org/search-redirect.php?family=wiktionary&language=en&go=Go&search=%s"
:keybinding "d")
(defengine wolfram-alpha
"https://www.wolframalpha.com/input/?i=%s")
(defengine youtube
"https://www.youtube.com/results?aq=f&oq=&search_query=%s"
:keybinding "y")
(engine-mode t)
)
magit
try out diff-hl for highlighting diffs in magit:
(use-package diff-hl
:config
(diff-hl-margin-mode)
(global-diff-hl-mode))
magit is awesome and the number one reason why I use Emacs!
(use-package magit
:defer t
:config
(setq magit-mode-quit-window 'magit-restore-window-configuration
;;magit-auto-revert-mode t
))
magit-todos sounds cool.
(use-package magit-todos
:after magit
:config
(magit-todos-mode t))And forge sounds cool as well.
(use-package forge
:after magit)which-key
This is one of those features of Spacemacs that is super useful.
(use-package which-key
:config
(which-key-mode))rainbow-delimiters
raimbow delimiters colours matching delimiters with different colours. Used by Spacemacs as well.
(use-package rainbow-delimiters
:hook (prog-mode . rainbow-delimiters-mode))evil
(use-package evil
:ensure t
:init
(setq evil-want-C-u-scroll t)
(setq evil-want-keybinding nil)
(setq evil-want-integration t)
:config
(evil-mode 1)Evil keybinds:
(evil-global-set-key 'normal (kbd "<SPC>TAB") 'mode-line-other-buffer)
(evil-define-key 'normal 'global (kbd "<SPC>bb") 'consult-buffer)
(evil-define-key 'normal 'global (kbd "<SPC>bd") 'kill-current-buffer)
(evil-define-key 'normal 'global (kbd "<SPC>ff") 'find-file)
(evil-define-key 'normal 'global (kbd "<SPC>wj") 'evil-window-down)
(evil-define-key 'normal 'global (kbd "<SPC>wk") 'evil-window-up)
(evil-define-key 'normal 'global (kbd "<SPC>wh") 'evil-window-left)
(evil-define-key 'normal 'global (kbd "<SPC>wl") 'evil-window-right)
;; magit
(evil-define-key 'normal 'global (kbd "<SPC>gs") 'magit-status)
; (evil-define-key 'normal 'global (kbd "<SPC>gd") 'magit-diff)
(evil-define-key 'normal org-mode-map (kbd "TAB") 'org-cycle)
;; org-mode
(evil-define-key 'normal 'org-mode-map (kbd "<SPC>ih") 'org-insert-heading)
(evil-define-key 'normal 'org-mode-map (kbd "<SPC>is") 'org-insert-subheading)
(evil-define-key 'normal 'org-mode-map (kbd "<SPC>ii") 'org-insert-item)
(evil-define-key 'normal 'org-mode-map (kbd "<SPC>ib") 'org-insert-structure-template)
(evil-define-key 'normal 'org-mode-map (kbd "<SPC>il") 'org-insert-link)
Close :config.
) (use-package evil-surround
:defer t
:config
(global-evil-surround-mode 1)) (use-package evil-collection
:after evil
:ensure t
:config
(evil-collection-init))
undo-fu
Also use undo-fu, which evil can use.
(use-package undo-fu
:defer t)Projectile
(use-package projectile
:defer t
:config
(setq projectile-project-search-path '("~/code/"))
(projectile-mode))
ripgrep & Co.
(use-package ripgrep
:defer t)
(use-package rg
:defer t)VTerm
(use-package vterm
:ensure t)Stuff
Minibuffer escape
(setq minibuffer-prompt-properties
'(read-only t
intangible t
cursor-intangible t
face minibuffer-prompt))
(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode) (defun nemo/abort-minibuffer-if-active ()
"Abort the minibuffer if it is active."
(interactive)
(when (active-minibuffer-window)
(abort-recursive-edit)))
(global-set-key (kbd "<escape>") 'nemo/abort-minibuffer-if-active)Writing
Olivetti
(use-package olivetti
:defer t
; :bind (:map custom-bindings-map ("C-c o" . olivetti-mode))
:config
(setq olivetti-style t))
(add-hook 'olivetti-mode-on-hook (lambda () (olivetti-set-width 88)))Spelling
(use-package jinx
:hook (emacs-startup . global-jinx-mode)
:bind (("M-$" . jinx-correct)
("C-M-$" . jinx-languages))
:config
(evil-define-key 'normal 'global (kbd "<SPC>Ss") 'jinx-correct)
(setq jinx-languages "en_GB dk_DK de_DE"))LaTeX
(use-package auctex
:hook
(LaTeX-mode . turn-on-prettify-symbols-mode)
(LaTeX-mode . reftex-mode)
; (LaTeX-mode . (lambda () (corfu-mode -1)))
; (LaTeX-mode . outline-minor-mode)
(LaTeX-mode . olivetti-mode)
)PDF tools for latex previewing
(use-package pdf-tools
:defer t
:init (pdf-loader-install))Org
Taken from here.
(use-package org
:defer t
:hook (org-mode . olivetti-mode)
:hook (org-mode . variable-pitch-mode)
; I basically always want to be running =visual-line-mode= anyway, but certainly in org-mode.
:hook (org-mode . visual-line-mode)
:hook (org-mode . nemo/prettify-symbols-setup)
:configChange heading font sizes:
(custom-set-faces
'(org-document-title ((t (:height 1.8))))
'(outline-1 ((t (:height 1.35))))
'(outline-2 ((t (:height 1.3))))
'(outline-3 ((t (:height 1.2))))
'(outline-4 ((t (:height 1.1))))
'(outline-5 ((t (:height 1.1))))
'(outline-6 ((t (:height 1.1))))
'(outline-8 ((t (:height 1.1))))
'(outline-9 ((t (:height 1.1)))))Open Org files with the content folded away:
(setq org-startup-folded 'content)Enable LaTeX previews.
(setq org-startup-with-latex-preview t)Inline images as well.
(setq org-startup-with-inline-images t)In case LaTeX previews are too small, use this to increase them.
(plist-put org-format-latex-options :scale 1.35)
=pretty-entities allows for latex symbols to be embedded into org-mode.
org-hide-leading-stars hides all but one star on org headings.
(setq org-adapt-indentation t
org-hide-leading-stars t
org-pretty-entities-include-sub-superscripts t
org-pretty-entities t)Let emacs act according to the language's rules inside of a source block.
(setq org-src-fontify-natively t
org-src-tab-acts-natively t
org-edit-src-content-indentation 0)
End :config
)Use org-bullets for fancy headline markers
(use-package org-bullets
:hook (org-mode . (lambda () (org-bullets-mode 1)))
:config)Use typo-mode in org-mode for en and em dashes:
(require 'typo)
(typo-global-mode 1)
(add-hook 'org-mode-hook 'typo-mode)
Use org-fragtog to show embedded LaTeX fragments when in insert mode.
(use-package org-fragtog
:hook (org-mode . org-fragtog-mode))
Using org-appear we can hide emphasis markers for italic, bold, etc. and show when editing the surrounded word.
(use-package org-appear
:commands (org-appear-mode)
:hook (org-mode . org-appear-mode)
:config
(setq org-hide-emphasis-markers t)
(setq org-appear-autoemphasis t ;; show /../ *..* =..= ~..~ tokens
org-appear-autolinks t ;; show link hyperlinks when editing
org-appear-autosubmarkers t)) ;; show _.._ and superscript markers (use-package org-modern
:defer t
:after org
:hook (org-mode . org-modern-mode))Change org face fonts and font sizes for headers.
(require 'org-faces)
;; size org levels differently
(dolist (face '((org-document-title . 1.8)
(org-level-1 . 1.35)
(org-level-2 . 1.3)
(org-level-3 . 1.2)
(org-level-4 . 1.1)
(org-level-5 . 1.1)
(org-level-6 . 1.1)
(org-level-7 . 1.1)
(org-level-8 . 1.1)))
;; set the font for each of them to sans-serif
(set-face-attribute
(car face)
nil
:font "SF Pro Text"
:weight 'bold
:height (cdr face)))Fix org-indent to be fixed-pitch.
(require 'org-indent)
(set-face-attribute 'org-indent nil :inherit '(org-hide fixed-pitch))Make sure that faces like code blocks or verbatim text are still using a monospaced font:
(set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch :height 0.85)
(set-face-attribute 'org-code nil :foreground nil :inherit '(shadow fixed-pitch) :height 0.85)
(set-face-attribute 'org-indent nil :foreground nil :inherit '(org-hide fixed-pitch) :height 0.85)
(set-face-attribute 'org-verbatim nil :foreground nil :inherit '(shadow fixed-pitch) :height 0.85)
(set-face-attribute 'org-special-keyword nil :foreground nil :inherit '(font-lock-comment-face fixed-pitch))
(set-face-attribute 'org-meta-line nil :foreground nil :inherit '(font-lock-comment-face fixed-pitch))
(set-face-attribute 'org-checkbox nil :foreground nil :inherit 'fixed-pitch)prettify symbols for quotes and source blocks in org-mode.
(defun nemo/prettify-symbols-setup ()
;; org-babel
(push '("#+BEGIN_SRC" . ?≫) prettify-symbols-alist)
(push '("#+END_SRC" . ?≫) prettify-symbols-alist)
(push '("#+begin_src" . ?≫) prettify-symbols-alist)
(push '("#+end_src" . ?≫) prettify-symbols-alist)
(push '("#+BEGIN_QUOTE" . ?❝) prettify-symbols-alist)
(push '("#+END_QUOTE" . ?❞) prettify-symbols-alist)
(prettify-symbols-mode))
svg-tags-mode for fancy SVG images
(use-package svg-tag-mode
:config
(setq svg-tag-tags
'((":TODO:" . ((lambda (tag) (svg-tag-make "TODO"))))))
)Agenda
(require 'org)
(setq org-agenda-start-on-weekday nil
org-agenda-block-separator nil
org-agenda-remove-tags t)
(use-package org-super-agenda
:after org
:config
(org-super-agenda-mode))
(setq org-agenda-files (list "~/Shared/agenda.org"
"~/notes.org"
"~/projects.org"))
(add-hook 'emacs-startup-hook
(lambda () (progn (org-agenda nil "a")
(delete-other-windows)
(olivetti-mode))))Navigation / Minibuffer
Realistically, I will probably never use 90% of Helm's functionality, so vertico should be sufficient.
Treemacs
(use-package treemacs
:defer t)
(use-package treemacs-evil
:after (treemacs evil)
:ensure t)
(use-package treemacs-projectile
:after (treemacs projectile)
:ensure t)
(use-package treemacs-icons-dired
:hook (dired-mode . treemacs-icons-dired-enable-once)
:ensure t)
(use-package treemacs-magit
:after (treemacs magit)
:ensure t)Vertico
(use-package vertico
:bind (:map minibuffer-local-map
("C-h" . backward-kill-word))
:config
(vertico-mode 1)
(setq vertico-count 25
completion-ignore-case t
read-buffer-completion-ignore-case t
read-file-name-completion-ignore-case t))
(use-package vertico-posframe
:config
(vertico-posframe-mode 1)
(setq vertico-posframe-width 90
vertico-posframe-height vertico-count))
(use-package savehist :init (savehist-mode))Use consult-xref for lsp-xref and xref-find-references.
(use-package consult
:bind (:map custom-bindings-map
("C-x b" . consult-buffer)
("M-g g" . consult-goto-line))
:init
(setq xref-show-xrefs-function 'consult-xref
xref-show-definitions-function 'consult-xref)
:config
()) (use-package marginalia
:init
(marginalia-mode 1))(use-package corfu
:custom
;; Enable auto completion
(corfu-auto t)
;; Enable cycling for `corfu-next/previous'
(corfu-cycle t)
;; No delay
(corfu-auto-delay 0)
;; Start when this many characters have been typed
(corfu-auto-prefix 2)
;; Short delay
(corfu-popupinfo-delay 0.5)
;; Preselect the prompt
(corfu-preselect 'prompt)
:init
(global-corfu-mode))
(use-package emacs
:init
;; TAB cycle if there are only few candidates
(setq completion-cycle-threshold 3)
;; Hide commands in M-x which do not apply to the current mode. Corfu
;; commands are hidden, since they are not supposed to be used via M-x.
(setq read-extended-command-predicate
#'command-completion-default-include-p)
;; Enable indentation+completion using the TAB key.
;; `completion-at-point' is often bound to M-TAB.
(setq tab-always-indent 'complete))This package seems to slow down search quite a bit in common buffers like find-file and exectue-extended-comand:
(use-package cape
;; Bind dedicated completion commands
;; Alternative prefix keys: C-c p, M-p, M-+, ...
:bind (("C-c p p" . completion-at-point) ;; capf
("C-c p t" . complete-tag) ;; etags
("C-c p d" . cape-dabbrev) ;; or dabbrev-completion
("C-c p h" . cape-history)
("C-c p f" . cape-file)
("C-c p k" . cape-keyword)
("C-c p s" . cape-symbol)
("C-c p a" . cape-abbrev)
("C-c p l" . cape-line)
("C-c p w" . cape-dict)
("C-c p \\" . cape-tex)
("C-c p _" . cape-tex)
("C-c p ^" . cape-tex)
("C-c p &" . cape-sgml)
("C-c p r" . cape-rfc1345))
:init
;; Add `completion-at-point-functions', used by `completion-at-point'.
;; NOTE: The order matters!
(add-to-list 'completion-at-point-functions #'cape-dabbrev)
(add-to-list 'completion-at-point-functions #'cape-file)
(add-to-list 'completion-at-point-functions #'cape-elisp-block)
(add-to-list 'completion-at-point-functions #'cape-history)
(add-to-list 'completion-at-point-functions #'cape-keyword)
(add-to-list 'completion-at-point-functions #'cape-tex)
(add-to-list 'completion-at-point-functions #'cape-dict)
;;(add-to-list 'completion-at-point-functions #'cape-sgml)
;;(add-to-list 'completion-at-point-functions #'cape-rfc1345)
;;(add-to-list 'completion-at-point-functions #'cape-abbrev)
;;(add-to-list 'completion-at-point-functions #'cape-symbol)
;;(add-to-list 'completion-at-point-functions #'cape-line)
) (use-package orderless
:ensure t
:config
(setq completion-styles '(orderless basic partial-completion)
orderless-matching-styles '(orderless-flex)
completion-category-overrides '((file (styles basic partial-completion)))
orderless-component-separator "[ |]")) (defun my-consult-line-wrapper ()
(interactive)
(vertico-posframe-mode -1)
(consult-line)
(vertico-posframe-mode 1))
(defun my-consult-ripgrep-wrapper ()
(interactive)
(vertico-posframe-mode -1)
(consult-ripgrep)
(vertico-posframe-mode 1))
(bind-key "C-s" #'my-consult-line-wrapper custom-bindings-map)
(bind-key "C-M-s" #'my-consult-ripgrep-wrapper custom-bindings-map)
; Ensure posframe is always restored when exiting a minibuffer
(add-hook 'minibuffer-exit-hook
(lambda ()
(vertico-posframe-mode 1)))Programming
smart-parens
(use-package smartparens
:defer t
:hook ((prog-mode text-mode markdown-mode) . smartparens-mode)
:config
(require 'smartparens-config))Company
(use-package company
:defer t
:hook (after-init . global-company-mode)
:config
(setq
company-minimum-prefix-length 1
company-idle-delay 0.0))Flycheck
(use-package flycheck
:defer t
:hook (after-init. global-flycheck-mode)
:config)Yasnippet
Auto-completion requires yasnippet for some competions, such as function arguments and parens.
(use-package yasnippet
:defer t
:hook ((prog-mode text-mode) . yas-minor-mode))
(use-package yasnippet-snippets
:ensure t)LSP
Use lsp-mode and lsp-ui for LSP functionality.
Emacs has its own internal LSP client called eglot, but I've never used it and I'm relatively happy with lsp-mode.
LSP sets it's prefix key to s-l by default, which uses the Super key which I use as my Mod key in sway, so I can't use it in emacs.
(use-package lsp-mode
:defer t
:hook (prog-mode . lsp)
:hook (lsp-mode . lsp-enable-which-key-integration)
:hook (lsp-mode . lsp-inlay-hints-mode)
:init
(setq lsp-keymap-prefix "C-l")
:commands lsp
:config
(setq
lsp-idle-delay 0.6
lsp-inlay-hint-enable t
lsp-modeline-code-actions-enable t
lsp-modeline-code-actions-segments '(name count)
lsp-modeline-diagnostics-enable t
lsp-rust-server 'rust-analyzer
lsp-rust-analyzer-server-display-inlay-hints t
lsp-rust-analyzer-proc-macro-enable t
lsp-rust-analyzer-binding-mode-hints t
lsp-rust-analyzer-display-closure-return-type-hints t
lsp-rust-analyzer-server-format-inlay-hints t))
(use-package lsp-treemacs
:commands lsp-treemacs-errors-list)
(use-package lsp-ui
:config
(setq
;;lsp-modeline-code-actions-enable nil
;;lsp-rust-analyzer-cargo-all-targets nil
;; lsp-rust-analyzer-server-command "xwin-env rust-analyzer"
lsp-ui-sideline-show-code-actions t
lsp-ui-doc-enable t
lsp-ui-doc-delay 0.5
lsp-ui-doc-show-with-cursor t
; lsp-ui-doc-use-childframe t
; lsp-ui-doc-use-webkit t
)
:commands lsp-ui-mode)Rust
(use-package rust-mode
:defer t
:hook (rust-mode . lsp)
:init
(setq rust-mode-treesitter-derive t)
:config
(setq rust-format-on-save t)) (use-package rust-playground
:defer t) (use-package cargo-mode
:defer t
:hook (rust-mode . cargo-minor-mode))Web
(use-package web-mode
:defer t
:mode
(("\\.phtml\\'" . web-mode)
("\\.tpl\\.php\\'" . web-mode)
("\\.twig\\'" . web-mode)
("\\.xml\\'" . web-mode)
("\\.html\\'" . web-mode)
("\\.htm\\'" . web-mode)
("\\.[gj]sp\\'" . web-mode)
("\\.as[cp]x?\\'" . web-mode)
("\\.eex\\'" . web-mode)
("\\.erb\\'" . web-mode)
("\\.mustache\\'" . web-mode)
("\\.handlebars\\'" . web-mode)
("\\.hbs\\'" . web-mode)
("\\.eco\\'" . web-mode)
("\\.ejs\\'" . web-mode)
("\\.svelte\\'" . web-mode)
("\\.ctp\\'" . web-mode)
("\\.djhtml\\'" . web-mode))
:config
(setq
web-mode-css-indent-offset 2
web-mode-code-indent-offset 2
web-mode-attr-indent-offset 2
web-mode-markup-indent-offset 2))C/C++
clang-format
(use-package clang-format
:defer t)Keybinds
(define-key custom-bindings-map (kbd "C-c l") 'org-store-link)
(define-key custom-bindings-map (kbd "C-c a") 'org-agenda)
(define-key custom-bindings-map (kbd "C-c c") 'org-capture)
(define-key custom-bindings-map (kbd "C-c t") 'org-todo)