474 lines
14 KiB
EmacsLisp
474 lines
14 KiB
EmacsLisp
(use-package emacs
|
|
:init
|
|
;; package management
|
|
(require 'package)
|
|
(add-to-list 'package-archives
|
|
'("melpa" . "https://melpa.org/packages/") t)
|
|
(unless (package-installed-p 'quelpa)
|
|
(with-temp-buffer
|
|
(url-insert-file-contents
|
|
"https://raw.githubusercontent.com/quelpa/quelpa/master/quelpa.el")
|
|
(eval-buffer)
|
|
(quelpa-self-upgrade)))
|
|
(quelpa
|
|
'(quelpa-use-package
|
|
:fetcher git
|
|
:url "https://github.com/quelpa/quelpa-use-package.git"))
|
|
(require 'quelpa-use-package)
|
|
|
|
;; basic cfg
|
|
(tool-bar-mode -1)
|
|
(require 'server)
|
|
(unless (server-running-p) (server-start))
|
|
(setq gc-cons-threshold 100000000
|
|
read-process-output-max (* 1024 1024)
|
|
custom-file (concat user-emacs-directory "custom.el")
|
|
create-lockfiles nil
|
|
tab-always-indent 'complete
|
|
mac-command-modifier 'super
|
|
backup-directory-alist `((".*" .
|
|
,(concat user-emacs-directory "backup")))
|
|
delete-old-versions t
|
|
kept-new-versions 20
|
|
kept-old-versions 2
|
|
version-control t
|
|
delete-old-versions t
|
|
backup-by-copying t
|
|
focus-follows-mouse t
|
|
mouse-autoselect-window t
|
|
enable-recursive-minibuffers t
|
|
warning-minimum-level :emergency
|
|
inhibit-startup-screen t
|
|
completion-cycle-threshold 3
|
|
text-mode-ispell-word-completion nil
|
|
lsp-file-watch-threshold 3000
|
|
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)
|
|
(when (file-exists-p custom-file)
|
|
(load custom-file))
|
|
(load-theme 'acme)
|
|
(add-hook 'eshell-mode-hook
|
|
(lambda ()
|
|
(setq-local corfu-auto nil)
|
|
(corfu-mode)))
|
|
(with-eval-after-load 'lsp-mode
|
|
(add-hook 'lsp-mode-hook #'lsp-enable-which-key-integration)
|
|
(add-to-list 'lsp-file-watch-ignored-directories "[/\\\\]plz-out\\'"))
|
|
(add-to-list 'auto-mode-alist
|
|
'("BUILD\\'" . python-mode))
|
|
(global-set-key (kbd "C-c C-r") 'replace-regexp)
|
|
(global-set-key (kbd "C-c C-R") 'replace-string)
|
|
(global-set-key (kbd "C-`") 'vterm-toggle)
|
|
(global-set-key (kbd "C-<f12>") 'speedbar))
|
|
|
|
(use-package async :ensure t)
|
|
(use-package async-status :ensure t)
|
|
(use-package dash :ensure t)
|
|
(use-package nlinum :ensure t :defer t
|
|
:init (global-nlinum-mode 1))
|
|
(use-package multiple-cursors :ensure t :defer t
|
|
:init (multiple-cursors-mode 1)
|
|
:bind (("C-S-c C-S-c" . 'mc/edit-lines)
|
|
("C->" . 'mc/mark-next-like-this)
|
|
("C-<" . 'mc/mark-previous-like-this)
|
|
("C-c C->" . 'mc/mark-all-like-this)))
|
|
|
|
;; minibuffer
|
|
;; ===
|
|
(use-package embark :ensure t :defer t)
|
|
(use-package vertico :ensure t :defer t
|
|
:init (vertico-mode))
|
|
(use-package which-key :ensure t :defer t
|
|
:init (which-key-mode)
|
|
:config (which-key-enable-god-mode-support))
|
|
|
|
|
|
;; mass editing
|
|
;; ===
|
|
(use-package multifiles :ensure t)
|
|
(use-package wgrep :ensure t)
|
|
|
|
;; devil
|
|
;; ===
|
|
(use-package devil :ensure t
|
|
:init (global-devil-mode 1))
|
|
|
|
;; eye candy
|
|
;; ===
|
|
|
|
(use-package acme-theme :ensure t :defer t)
|
|
(use-package zenburn-theme :ensure t :defer t)
|
|
(use-package doom-modeline :ensure t
|
|
:init (doom-modeline-mode 1))
|
|
(use-package doom-themes :ensure t
|
|
:config
|
|
(progn
|
|
(setq doom-themes-enable-bold t
|
|
doom-themes-enable-italic t)
|
|
(doom-themes-visual-bell-config)
|
|
(setq doom-themes-treemacs-theme "doom-atom")
|
|
(doom-themes-treemacs-config)
|
|
(doom-themes-org-config)))
|
|
(use-package plan9-theme :ensure t :defer t)
|
|
(use-package nerd-icons :ensure t :defer t)
|
|
(use-package nerd-icons-corfu :ensure t :defer t)
|
|
(use-package nerd-icons-dired :ensure t :defer t
|
|
:hook (dired-mode . nerd-icons-dired-mode))
|
|
(use-package nerd-icons-completion :ensure t :defer t)
|
|
(use-package nerd-icons-ibuffer :ensure t :defer t)
|
|
(use-package ligature :ensure t :defer t
|
|
:init (global-ligature-mode 1))
|
|
(use-package emojify :ensure t :defer t)
|
|
(use-package unicode-fonts :ensure t)
|
|
|
|
;; scratch buffers
|
|
;; ===
|
|
(use-package persistent-scratch :ensure t :defer t
|
|
:init
|
|
(progn
|
|
(persistent-scratch-setup-default)
|
|
(persistent-scratch-autosave-mode 1)))
|
|
(use-package scratch :ensure t :defer t
|
|
:bind ("C-x ~" . 'scratch))
|
|
(use-package go-scratch :ensure t :defer t)
|
|
|
|
|
|
;; multimedia
|
|
;; ===
|
|
(use-package mingus :ensure t :defer t)
|
|
|
|
|
|
;; terminal / shell
|
|
;; ===
|
|
(use-package multishell :ensure t :defer t)
|
|
(use-package vterm-toggle :ensure t
|
|
:bind (("C-x ! t v" . #'vterm-toggle)))
|
|
(use-package eshell-toggle :ensure t
|
|
:bind (("C-x ! t e" . #'eshell-toggle)))
|
|
(use-package eshell-vterm :ensure t :defer t
|
|
:init (eshell-vterm-mode 1))
|
|
|
|
|
|
;; org-mode
|
|
;; ===
|
|
|
|
(use-package org :ensure t
|
|
:mode (("\\.org$" . org-mode))
|
|
:bind (("C-c o a" . org-agenda)
|
|
("C-c o c" . org-capture))
|
|
:config
|
|
(defun my/notes-refile-targets ()
|
|
(directory-files "~/notes" t ".*\\.org$"))
|
|
(setq org-startup-indented t)
|
|
(setq org-archive-location "%s_archive::datetree/")
|
|
(setq org-src-tab-acts-natively t)
|
|
(setq org-stuck-projects
|
|
'("+proj-done-hold-maybe/-DONE"
|
|
("STRT" "TODO") nil
|
|
"SCHEDULED:\\|DEADLINE:"))
|
|
(setq org-capture-templates
|
|
'(("t" "TODO" entry
|
|
(file+headline "~/notes/inbox.org" "Tasks")
|
|
"* TODO %?\n%i\n%a")
|
|
("n" "Note"
|
|
entry (file+headline "~/notes/inbox.org" "Notes")
|
|
"* %?\n%i\n%a")
|
|
("j" "Journal"
|
|
entry (file+datetree "~/notes/journal.org")
|
|
"* %?\nEntered on %U\n")
|
|
("w" "Waiting For"
|
|
entry (file "~/org/waitingfor.org")
|
|
"* %? :@wait:\nEntered on %U\n")
|
|
("c" "Calendar"
|
|
entry (file+headline "~/org/calendar.org" "Calendar")
|
|
"* %?\n")))
|
|
(setq org-agenda-files
|
|
'("~/org/TODO.org"
|
|
"~/org/projects.org"
|
|
"~/org/calendar.org"
|
|
"~/org/waitingfor.org"))
|
|
(add-to-list 'org-refile-targets
|
|
'(my/notes-refile-targets :maxlevel . 3))
|
|
(add-to-list 'org-refile-targets
|
|
'(org-agenda-files :maxlevel . 2))
|
|
(setq org-refile-use-outline-path 'file)
|
|
(setq org-tags-exclude-from-inheritance '("proj"))
|
|
(setq org-outline-path-complete-in-steps nil)
|
|
(setq org-agenda-custom-commands
|
|
'(("w" "@work" tags "@work")
|
|
("h" "@home" tags "@home")
|
|
("W" "Waiting For" tags "@wait")))
|
|
(setq org-todo-keywords
|
|
'((sequence "TODO(t)" "|" "DONE(d)")))
|
|
(setq org-agenda-todo-keywords
|
|
'((sequence "TODO(t)" "|" "DONE(d)")))
|
|
(setq org-hide-leading-stars nil
|
|
org-startup-indented t)
|
|
(setq org-mouse-1-follows-link nil))
|
|
|
|
(use-package ob-go :ensure t :defer t)
|
|
|
|
(use-package org-dashboard :ensure t :defer t
|
|
:after (:all org))
|
|
|
|
(use-package org-context :ensure t :defer t
|
|
:after (:all org))
|
|
|
|
;; knowledge management
|
|
;; ===
|
|
|
|
(use-package deft :ensure t
|
|
:bind (("C-c n d" . #'deft)
|
|
("C-c n f" . #'deft-find-file))
|
|
:config
|
|
(setq deft-directory "~/notes")
|
|
(setq deft-recursive t)
|
|
(setq deft-extensions '("org" "txt" "tex" "md"))
|
|
(setq deft-text-mode 'org-mode))
|
|
(use-package zetteldeft :ensure t)
|
|
|
|
|
|
|
|
;; email
|
|
;; ===
|
|
|
|
(use-package notmuch :ensure t :defer t)
|
|
|
|
;; projects
|
|
;; ===
|
|
|
|
(use-package projectile :ensure t :defer t
|
|
:bind (:map projectile-mode-map
|
|
("C-c p" . projectile-command-map)
|
|
("C-c p f" . #'projectile-find-file)
|
|
("C-c p p" . #'projectile-switch-project)
|
|
("C-c p /" . #'projectile-ripgrep)
|
|
("C-c p b" . #'projectile-switch-to-buffer)
|
|
("C-c p 4 b" . #'projectile-switch-to-buffer-other-window)
|
|
("C-c p 5 b" . #'projectile-switch-to-buffer-other-frame)
|
|
("C-c p d" . #'projectile-dired)
|
|
("C-c p 4 d" . #'projectile-dired-other-window)
|
|
("C-c p 4 d" . #'projectile-dired-other-frame))
|
|
:diminish projectile-mode
|
|
:init (projectile-mode))
|
|
|
|
|
|
|
|
(use-package go-projectile :ensure t :defer t)
|
|
(use-package projectile-ripgrep :ensure t :defer t
|
|
:after (projectile))
|
|
(use-package project-explorer :ensure t :defer t)
|
|
|
|
;; version control
|
|
;; ===
|
|
(use-package magit :ensure t :defer t
|
|
:bind ("C-c g" . magit-status)
|
|
:commands (magit-status-here magit-get-current-branch)
|
|
:custom (magit-display-buffer-function
|
|
#'magit-display-buffer-same-window-except-diff-v1))
|
|
(use-package dired-git :ensure t :defer t)
|
|
(use-package dired-git-info :ensure t :defer t)
|
|
(use-package git-link :ensure t :defer t)
|
|
(use-package git-lens :ensure t :defer t)
|
|
|
|
;; auto completion
|
|
;; ===
|
|
|
|
|
|
(use-package corfu :ensure t :defer t
|
|
:bind (:map corfu-map
|
|
("C-n" . corfu-next)
|
|
("C-p" . corfu-previous)
|
|
("SPC" . corfu-insert-separator))
|
|
:custom
|
|
(corfu-cycle t)
|
|
(corfu-auto nil)
|
|
(corfu-separator ?\s)
|
|
(corfu-preselect 'prompt)
|
|
(corfu-quit-at-boundary t)
|
|
(corfu-quit-no-match 'separator)
|
|
(corfu-scroll-margin 5)
|
|
:hook ((prog-mode . corfu-mode)
|
|
(shell-mode . corfu-mode)
|
|
(eshell-mode . corfu-mode))
|
|
:init (global-corfu-mode)
|
|
:config
|
|
(defun corfu-send-shell (&rest _)
|
|
"Send completion candidate when inside comint/eshell."
|
|
(cond
|
|
((and (derived-mode-p 'eshell-mode)
|
|
(fboundp 'eshell-send-input))
|
|
(eshell-send-input))
|
|
((and (derived-mode-p 'comint-mode)
|
|
(fboundp 'comint-send-input))
|
|
(comint-send-input))))
|
|
(advice-add #'corfu-insert
|
|
:after #'corfu-send-shell)
|
|
(global-set-key [remap dabbrev-expand]
|
|
'hippie-expand)
|
|
(add-to-list 'corfu-margin-formatters
|
|
#'nerd-icons-corfu-formatter))
|
|
|
|
(use-package dabbrev :ensure t :defer t
|
|
:bind (("M-/" . dabbrev-completion)
|
|
("C-M-/" . dabbrev-expand))
|
|
:config
|
|
(add-to-list 'dabbrev-ignored-buffer-regexps "\\` ")
|
|
(add-to-list 'dabbrev-ignored-buffer-modes 'doc-view-mode)
|
|
(add-to-list 'dabbrev-ignored-buffer-modes 'pdf-view-mode)
|
|
(add-to-list 'dabbrev-ignored-buffer-modes 'tags-table-mode))
|
|
|
|
(use-package orderless :ensure t :defer t
|
|
:init
|
|
(setq completion-styles '(orderless partial-completion basic)
|
|
completion-category-defaults nil
|
|
completion-category-overrides nil))
|
|
|
|
(setq text-mode-ispell-word-completion nil)
|
|
(setq read-extended-command-predicate
|
|
#'command-completion-default-include-p)
|
|
(defun crm-indicator (args)
|
|
(cons (format "[CRM%s] %s"
|
|
(replace-regexp-in-string
|
|
"\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
|
|
crm-separator)
|
|
(car args))
|
|
(cdr args)))
|
|
|
|
(advice-add #'completing-read-multiple
|
|
:filter-args #'crm-indicator)
|
|
(setq read-extended-command-predicate
|
|
#'command-completion-default-include-p)
|
|
|
|
|
|
;; Add extensions
|
|
(use-package cape :ensure t :defer t
|
|
;; Bind dedicated completion commands
|
|
;; Alternative prefix keys: C-c p, M-p, M-+, ...
|
|
:bind (("C-c / p" . completion-at-point) ;; capf
|
|
("C-c / t" . complete-tag) ;; etags
|
|
("C-c / d" . cape-dabbrev) ;; or dabbrev-completion
|
|
("C-c / h" . cape-history)
|
|
("C-c / f" . cape-file)
|
|
("C-c / k" . cape-keyword)
|
|
("C-c / s" . cape-elisp-symbol)
|
|
("C-c / e" . cape-elisp-block)
|
|
("C-c / a" . cape-abbrev)
|
|
("C-c / l" . cape-line)
|
|
("C-c / w" . cape-dict)
|
|
("C-c / :" . cape-emoji)
|
|
("C-c / \\" . cape-tex)
|
|
("C-c / _" . cape-tex)
|
|
("C-c / ^" . cape-tex)
|
|
("C-c / &" . cape-sgml)
|
|
("C-c / r" . cape-rfc1345))
|
|
:init
|
|
;; Add to the global default value of `completion-at-point-functions' which is
|
|
;; used by `completion-at-point'. The order of the functions matters, the
|
|
;; first function returning a result wins. Note that the list of buffer-local
|
|
;; completion functions takes precedence over the global list.
|
|
(add-hook 'completion-at-point-functions #'cape-dabbrev)
|
|
(add-hook 'completion-at-point-functions #'cape-file)
|
|
(add-hook 'completion-at-point-functions #'cape-elisp-block)
|
|
(add-hook 'completion-at-point-functions #'cape-history)
|
|
(add-hook 'completion-at-point-functions #'cape-keyword))
|
|
;;(add-hook 'completion-at-point-functions #'cape-tex)
|
|
;;(add-hook 'completion-at-point-functions #'cape-sgml)
|
|
;;(add-hook 'completion-at-point-functions #'cape-rfc1345)
|
|
;;(add-hook 'completion-at-point-functions #'cape-abbrev)
|
|
;;(add-hook 'completion-at-point-functions #'cape-dict)
|
|
;;(add-hook 'completion-at-point-functions #'cape-elisp-symbol)
|
|
;;(add-hook 'completion-at-point-functions #'cape-line))
|
|
|
|
;; coding
|
|
;; ===
|
|
(use-package fic-mode :ensure t :defer t)
|
|
(use-package lsp-mode :ensure t
|
|
:commands lsp
|
|
:custom
|
|
(lsp-completion-provider :none) ;; we use Corfu!
|
|
:init
|
|
(defun my/lsp-mode-setup-completion ()
|
|
(lsp-enable-which-key-integration)
|
|
(setf
|
|
(alist-get 'styles
|
|
(alist-get 'lsp-capf completion-category-defaults))
|
|
'(orderless)))
|
|
:config
|
|
(setq lsp-prefer-flymake nil)
|
|
:hook
|
|
(lsp-completion-mode . my/lsp-mode-setup-completion))
|
|
|
|
(use-package flycheck :ensure t :defer t)
|
|
(use-package go-mode :ensure t :defer t
|
|
:mode (("\\.go$" . go-mode))
|
|
:hook ((go-mode . lsp-deferred)
|
|
(before-save . lsp-format-buffer)
|
|
(before-save . lsp-organize-imports)))
|
|
(use-package yaml-mode :ensure t :defer t
|
|
:mode (("\\.yml$" . yaml-mode)))
|
|
(use-package json-mode :ensure t :defer t
|
|
:mode (("\\.json$" . json-mode)))
|
|
(use-package php-mode :ensure t :defer t
|
|
:mode (("\\.php$" . php-mode)))
|
|
(use-package mmm-mode :ensure t :defer t)
|
|
(use-package multi-web-mode :ensure t :defer t)
|
|
(use-package graphviz-dot-mode :ensure t :defer t)
|
|
(use-package protobuf-mode :ensure t :defer t)
|
|
(use-package rego-mode :ensure t :defer t)
|
|
(use-package plantuml-mode :ensure t
|
|
:config
|
|
(setq plantuml-default-exec-mode 'jar
|
|
plantuml-jar-path "/usr/share/plantuml/plantuml.jar"
|
|
org-plantuml-jar-path (expand-file-name "/usr/share/plantuml/plantuml.jar"))
|
|
(org-babel-do-load-languages '((plantuml . t))))
|
|
(use-package kotlin-mode :ensure t :defer t)
|
|
|
|
|
|
|
|
;; search & narrow
|
|
;; ===
|
|
(use-package prescient :ensure t :defer t)
|
|
(use-package fzf :ensure t :defer t
|
|
:bind
|
|
;; TODO
|
|
:config
|
|
(setq fzf/args "-x --color bw --print-query --margin=1,0 --no-hscroll"
|
|
fzf/executable "fzf"
|
|
fzf/git-grep-args "-i --line-number %s"
|
|
fzf/grep-command "rg --no-heading -nH"
|
|
fzf/position-bottom t
|
|
fzf/window-height 15))
|
|
|
|
|
|
;; frame & window management
|
|
;; ===
|
|
(use-package switch-window :ensure t :defer t)
|
|
(require 'switch-window)
|
|
(global-set-key (kbd "C-x C-o") 'switch-window)
|
|
(global-set-key (kbd "C-x C-1") 'switch-window-then-maximize)
|
|
(global-set-key (kbd "C-x C-2") 'switch-window-then-split-below)
|
|
(global-set-key (kbd "C-x C-3") 'switch-window-then-split-right)
|
|
(global-set-key (kbd "C-x C-0") 'switch-window-then-delete)
|
|
|
|
;; navigation
|
|
;; ===
|
|
(use-package ace-jump-mode :ensure t :defer t
|
|
:bind (("C-c SPC" . 'ace-jump-mode)
|
|
("C-x SPC" . 'ace-jump-mode-pop-mark)))
|
|
|
|
;; antisocial
|
|
;; ===
|
|
|
|
;; (use-package mastodon :ensure t :defer t)
|
|
;; (setq mastodon-instance-url "https://mastodon.sdf.org"
|
|
;; mastodon-active-user "me@lkn.uber.space")
|
|
|
|
(with-eval-after-load 'org
|
|
(org-babel-do-load-languages 'org-babel-load-languages
|
|
'((go . t)
|
|
(dot . t)
|
|
(plantuml . t)
|
|
)))
|