252 lines
6.4 KiB
EmacsLisp
252 lines
6.4 KiB
EmacsLisp
;;; init.el --- Configuration entry point -*- lexical-binding: t -*-
|
|
;;; Commentary:
|
|
;;; Code:
|
|
|
|
;; Set package dir to follow no-littering conventions
|
|
(setq package-user-dir "~/.emacs.d/var/elpa")
|
|
|
|
;; Use melpa
|
|
(require 'package)
|
|
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
|
|
(package-initialize)
|
|
|
|
;; Ensure use-package is installed
|
|
(unless (package-installed-p 'use-package)
|
|
(package-refresh-contents)
|
|
(package-install 'use-package))
|
|
|
|
;; use-package
|
|
(eval-when-compile
|
|
(setq use-package-always-ensure t)
|
|
(require 'use-package))
|
|
|
|
;; no-littering
|
|
(use-package no-littering
|
|
:config
|
|
(no-littering-theme-backups)
|
|
(setq custom-file (no-littering-expand-etc-file-name "custom.el")))
|
|
|
|
;; diminish
|
|
(use-package diminish
|
|
:config
|
|
(diminish 'abbrev-mode))
|
|
|
|
;; basic stuff
|
|
(use-package emacs
|
|
:hook (emacs-lisp-mode . (lambda ()
|
|
(setq-local evil-lookup-func
|
|
#'my/describe-symbol-at-point)))
|
|
:init
|
|
(defun my/describe-symbol-at-point ()
|
|
"Calls `describe-symbol' on the return value of `form-at-point'."
|
|
(interactive)
|
|
(describe-symbol (form-at-point)))
|
|
|
|
;; Make show paren instant
|
|
(setq show-paren-delay 0)
|
|
(show-paren-mode 1)
|
|
|
|
;; Display line numbers
|
|
(global-display-line-numbers-mode 1)
|
|
|
|
;; Show some more context arround the point
|
|
(setq scroll-margin 2)
|
|
|
|
;; Allow the frame to be any size
|
|
(setq frame-resize-pixelwise t)
|
|
|
|
;; Disable startup screen
|
|
(setq inhibit-startup-screen t)
|
|
|
|
;; rainbow-delimiters
|
|
(use-package rainbow-delimiters
|
|
:hook (prog-mode . rainbow-delimiters-mode))
|
|
|
|
;; Disable the menu and tool bars
|
|
(menu-bar-mode -1)
|
|
(tool-bar-mode -1)
|
|
|
|
;; No scroll bars
|
|
(scroll-bar-mode -1)
|
|
|
|
;; Set fonts
|
|
(add-to-list 'default-frame-alist '(font . "FiraCode Nerd Font Mono-12"))
|
|
|
|
;; Tree sitter download locations
|
|
(setq treesit-language-source-alist
|
|
'((c "https://github.com/tree-sitter/tree-sitter-c")
|
|
(cpp "https://github.com/tree-sitter/tree-sitter-cpp"))))
|
|
|
|
(use-package recentf
|
|
:config
|
|
(recentf-mode 1))
|
|
|
|
;; evil
|
|
(use-package evil
|
|
:init
|
|
(setq evil-want-integration t
|
|
evil-want-keybinding nil
|
|
evil-undo-system 'undo-redo
|
|
evil-search-module 'isearch)
|
|
:config
|
|
(evil-mode 1)
|
|
(evil-define-key '(normal visual motion) proced-mode-map
|
|
"u" #'proced-unmark)
|
|
(evil-define-key '(normal visual motion) dired-mode-map
|
|
"u" #'dired-unmark))
|
|
(use-package evil-collection
|
|
:diminish evil-collection-unimpaired-mode
|
|
:config
|
|
(evil-collection-init))
|
|
(use-package evil-surround
|
|
:config
|
|
(global-evil-surround-mode 1))
|
|
|
|
;; which-key
|
|
(use-package which-key
|
|
:diminish which-key-mode
|
|
:config
|
|
(which-key-mode 1))
|
|
|
|
;; avy
|
|
(use-package avy
|
|
:bind ("C-c C-j" . avy-resume)
|
|
:init
|
|
(define-minor-mode my/evil-avy-mode
|
|
"Minor mode to define avy motions for evil"
|
|
:global t
|
|
:keymap (make-sparse-keymap))
|
|
(evil-define-key '(normal visual operator motion) my/evil-avy-mode-map
|
|
"s" #'evil-avy-goto-char-2
|
|
"S" #'evil-avy-goto-line)
|
|
(my/evil-avy-mode 1)
|
|
:config
|
|
(avy-setup-default))
|
|
|
|
;; ace-window
|
|
(use-package ace-window
|
|
:diminish ace-window-mode
|
|
:bind ("M-o" . ace-window)
|
|
:init
|
|
(setq aw-scope 'frame
|
|
aw-minibuffer-flag t))
|
|
|
|
;; savehist
|
|
(use-package savehist
|
|
:config
|
|
(savehist-mode 1))
|
|
|
|
;; vertico
|
|
(use-package vertico
|
|
:bind (:map vertico-map
|
|
("C-S-k" . kill-line)
|
|
("C-k" . vertico-previous)
|
|
("C-j" . vertico-next))
|
|
:init
|
|
(setq vertico-cycle t
|
|
enable-recursive-minibuffers t
|
|
read-extended-command-predicate #'command-completion-default-include-p
|
|
minibuffer-prompt-properties '(read-only t
|
|
cursor-intangible t
|
|
face minibuffer-prompt))
|
|
(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
|
|
(vertico-mode 1))
|
|
|
|
;; orderless
|
|
(use-package orderless
|
|
:autoload orderless-define-completion-style
|
|
:init
|
|
(orderless-define-completion-style my/orderless-with-initialism
|
|
(orderless-matching-styles '(orderless-initialism
|
|
orderless-literal
|
|
orderless-regexp)))
|
|
(setq completion-styles '(orderless basic)
|
|
completion-category-defaults nil
|
|
completion-category-overrides '((file
|
|
(styles basic partial-completion))
|
|
(command
|
|
(my/orderless-with-initialism basic)))))
|
|
|
|
;; marginalia
|
|
(use-package marginalia
|
|
:bind (:map minibuffer-local-map
|
|
("M-a" . marginalia-cycle))
|
|
:init
|
|
(marginalia-mode 1))
|
|
|
|
;; embark
|
|
(use-package embark
|
|
:bind (("M-e" . embark-act)
|
|
:map minibuffer-local-map
|
|
("M-E" . embark-collect)))
|
|
|
|
;; consult
|
|
(use-package consult
|
|
:bind (("C-s" . consult-line)
|
|
("C-x b" . consult-buffer)
|
|
("C-S-s" . consult-ripgrep)
|
|
("C-x C-S-f" . consult-fd)
|
|
("C-x C-m" . consult-man)
|
|
("C-h TAB" . consult-info)
|
|
("C-h C-m" . my/consult-emacs-info)
|
|
("C-x c k" . consult-keep-lines)
|
|
("C-x c f" . consult-focus-lines)
|
|
("C-x c r" . consult-recent-file)
|
|
("C-x c b" . consult-bookmark)
|
|
:map flymake-mode-map
|
|
("C-c e" . consult-flymake))
|
|
:init
|
|
(defun my/consult-emacs-info ()
|
|
"`consult-info' for emacs specific pages."
|
|
(interactive)
|
|
(consult-info "emacs" "efaq" "cl" "compat" "elisp"))
|
|
(evil-declare-motion #'consult-line))
|
|
|
|
;; integration for embark and consult
|
|
(use-package embark-consult
|
|
:hook (embark-collect-mode . consult-preview-at-point-mode))
|
|
|
|
;; corfu (autocomplete)
|
|
(use-package corfu
|
|
:bind ("M-<tab>" . corfu-complete)
|
|
:init
|
|
(setq corfu-cycle t
|
|
corfu-auto t
|
|
corfu-on-exact-match nil
|
|
completion-cycle-threshold 3)
|
|
(global-corfu-mode 1))
|
|
|
|
;; xref
|
|
(use-package xref
|
|
:init
|
|
(evil-define-key '(normal motion) 'global
|
|
"gr" #'xref-find-references)
|
|
(setq xref-show-xrefs-function #'consult-xref
|
|
xref-show-definitions-function #'consult-xref))
|
|
|
|
;; flymake
|
|
(use-package flymake
|
|
:init
|
|
(flymake-mode 1))
|
|
|
|
;; eldoc
|
|
(use-package eldoc
|
|
:diminish eldoc-mode
|
|
:init
|
|
(set eldoc-echo-area-use-multiline-p nil))
|
|
|
|
(use-package vterm
|
|
:bind (:map evil-normal-state-map
|
|
("M-v" . vterm)))
|
|
|
|
;; Theme (doom-themes)
|
|
(use-package doom-themes
|
|
:config
|
|
(load-theme 'doom-molokai t)
|
|
(doom-themes-org-config))
|
|
|
|
;; solaire-mode
|
|
(use-package solaire-mode
|
|
:config
|
|
(solaire-global-mode 1))
|