some emacs config
This commit is contained in:
parent
eeb3d215d8
commit
a5a189107a
39
users/tacocat/emacs/default.el
Normal file
39
users/tacocat/emacs/default.el
Normal file
|
|
@ -0,0 +1,39 @@
|
|||
(("apheleia" . "8f512dba3ee2eabae0dbfd8289b89d54c132cb87")
|
||||
("auctex" . "53b82804c9dd9dbea306876f3be84ebacbeb7e74")
|
||||
("blackout" . "7707211370f03f03a2f74df15f42ac24a1e99300")
|
||||
("company-mode" . "f1877a370ca76d5cd6614c527635b2d6983188af")
|
||||
("compat" . "2748abd7c7135fe5d873020061b2d58a66b8d505")
|
||||
("ctrlf" . "9b4cf6c79a961f2bfbb949805aa300fcf1eb40a6")
|
||||
("dash.el" . "b6eef1a24dfbe57ba72d5eb1613fc05ff92e8e92")
|
||||
("diff-hl" . "09a0f8fcc7e6ce3f49dca64cdfab898d6762f2a4")
|
||||
("el-get" . "a5ba5852648a90ee0cde9fb5d72e69497d260eec")
|
||||
("emacs-dashboard" . "263f9f1760b8303955c03ccc3c509692075af019")
|
||||
("emacs-which-key" . "1ab1d0cc88843c9a614ed3226c5a1070e32e4823")
|
||||
("emacsmirror-mirror" . "95617befb9ac26869e2ab2101e4a76fa5d40fdb7")
|
||||
("f.el" . "d2019d4f9625bcc44349c69fe46d6645fd9ff4ff")
|
||||
("gnu-elpa-mirror" . "a4f2d4b0e1d3dd8bde2d768458a402d63ad06722")
|
||||
("ht.el" . "c4c1be487d6ecb353d07881526db05d7fc90ea87")
|
||||
("hydra" . "9e9e00cb240ea1903ffd36a54956b3902c379d29")
|
||||
("lsp-mode" . "c9db552dcef80c481ecca6bf53c86a12f2a9cd55")
|
||||
("lsp-pyright" . "c745228f39fdb35372b29b909f25fa6c98dc7c88")
|
||||
("magit" . "49ba535f526266b69fcaf7442acfa59ad8473caf")
|
||||
("markdown-mode" . "193b61605f44c85d261b8bd82e0a213fd8f1ff32")
|
||||
("melpa" . "382cb915901971ff5e9b32156cbeb5639c3bf20f")
|
||||
("monokai-emacs" . "df6c23d14e52f9d7f5bc2265facfbedfb07a444e")
|
||||
("nerd-icons-dired" . "c1c73488630cc1d19ce1677359f614122ae4c1b9")
|
||||
("nerd-icons.el" . "fb395120e9de33b276d16caaccaefd98d4340b92")
|
||||
("nix-mode" . "719feb7868fb567ecfe5578f6119892c771ac5e5")
|
||||
("nongnu-elpa" . "e5adab3409abfa69ecbaeb07bb88d48f78e03d3f")
|
||||
("org" . "3303a54d74805cdd2b6eda37285f259949f7ba2e")
|
||||
("org-contrib" . "c6aef31ccfc7c4418c3b51e98f7c3bd8e255f5e6")
|
||||
("prescient.el" . "c0eca3328313f1e93d24e686307516f43a484ba2")
|
||||
("projectile" . "271007c6611fcb08ddd326d7de9727c2ad5ef265")
|
||||
("s.el" . "08661efb075d1c6b4fa812184c1e5e90c08795a9")
|
||||
("seq" . "4355cde01767911660f761cf874edb412d06bd7a")
|
||||
("spinner" . "34905eae12a236753fa88abc831eff1e41e8576e")
|
||||
("straight.el" . "b3760f5829dba37e855add7323304561eb57a3d4")
|
||||
("transient" . "2dd0102ec3df901d421fc338e5c768467cc54ecf")
|
||||
("use-package" . "0ad5d9d5d8a61517a207ab04bf69e71c081149eb")
|
||||
("vertico" . "e077e957672ae8be35fbd95a7724fbdaa288236c")
|
||||
("with-editor" . "cfcbc2731e402b9169c0dc03e89b5b57aa988502"))
|
||||
:gamma
|
||||
1
users/tacocat/emacs/early-init.el
Normal file
1
users/tacocat/emacs/early-init.el
Normal file
|
|
@ -0,0 +1 @@
|
|||
(setq package-enable-at-startup nil)
|
||||
437
users/tacocat/emacs/init.el
Normal file
437
users/tacocat/emacs/init.el
Normal file
|
|
@ -0,0 +1,437 @@
|
|||
;; Initialize straight package manager
|
||||
(defvar bootstrap-version)
|
||||
(let ((bootstrap-file
|
||||
(expand-file-name
|
||||
"straight/repos/straight.el/bootstrap.el"
|
||||
(or (bound-and-true-p straight-base-dir)
|
||||
user-emacs-directory)))
|
||||
(bootstrap-version 7))
|
||||
(unless (file-exists-p bootstrap-file)
|
||||
(with-current-buffer
|
||||
(url-retrieve-synchronously
|
||||
"https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
|
||||
'silent 'inhibit-cookies)
|
||||
(goto-char (point-max))
|
||||
(eval-print-last-sexp)))
|
||||
(load bootstrap-file nil 'nomessage))
|
||||
|
||||
(straight-use-package 'use-package)
|
||||
(setq straight-use-package-by-default t)
|
||||
|
||||
;; Disable frequency of GC. This helps performance both during init
|
||||
;; and after init. Value is in bytes so this is 100MB, as suggested in
|
||||
;; <https://github.com/emacs-lsp/lsp-mode#performance>.
|
||||
(setq gc-cons-threshold (* 100 1024 1024))
|
||||
|
||||
;; If you have something on the system clipboard, and then kill
|
||||
;; something in Emacs, then by default whatever you had on the system
|
||||
;; clipboard is gone and there is no way to get it back. Setting the
|
||||
;; following option makes it so that when you kill something in Emacs,
|
||||
;; whatever was previously on the system clipboard is pushed into the
|
||||
;; kill ring. This way, you can paste it with `yank-pop'.
|
||||
(setq save-interprogram-paste-before-kill t)
|
||||
|
||||
(straight-register-package 'org)
|
||||
(straight-register-package 'org-contrib)
|
||||
|
||||
(use-package monokai-theme
|
||||
:config
|
||||
(load-theme 'monokai t))
|
||||
|
||||
(use-package blackout
|
||||
:demand t)
|
||||
|
||||
(use-package nerd-icons)
|
||||
|
||||
(use-package projectile
|
||||
:defer 1
|
||||
:bind-keymap* (("C-c p" . projectile-command-map))
|
||||
:config
|
||||
;; Use Vertico (via `completing-read') for Projectile instead of
|
||||
;; IDO.
|
||||
(setq projectile-completion-system 'default)
|
||||
|
||||
;; When switching projects, give the option to choose what to do.
|
||||
;; This is a way better interface than having to remember ahead of
|
||||
;; time to use a prefix argument on `projectile-switch-project'
|
||||
;; (because, and please be honest here, when was the last time you
|
||||
;; actually remembered to do that?).
|
||||
(setq projectile-switch-project-action 'projectile-commander)
|
||||
|
||||
(def-projectile-commander-method ?\C-m
|
||||
"Find file in project."
|
||||
(call-interactively #'find-file))
|
||||
|
||||
(projectile-mode +1)
|
||||
:blackout t)
|
||||
|
||||
(use-package dashboard
|
||||
:config
|
||||
(setq dashboard-center-content t
|
||||
dashboard-display-icons-p t
|
||||
dashboard-icon-type 'nerd-icons
|
||||
dashboard-set-file-icons t
|
||||
dashboard-projects-backend 'projectile)
|
||||
(setq dashboard-items '((recents . 5)
|
||||
(bookmarks . 5)
|
||||
(projects . 5)
|
||||
(agenda . 5)
|
||||
(registers . 5)))
|
||||
(dashboard-setup-startup-hook))
|
||||
|
||||
(use-package ctrlf
|
||||
:init
|
||||
(ctrlf-mode +1))
|
||||
|
||||
(use-package which-key
|
||||
:demand t
|
||||
:config
|
||||
(which-key-mode +1)
|
||||
:blackout t)
|
||||
|
||||
(use-package nerd-icons-dired
|
||||
:hook
|
||||
(dired-mode . nerd-icons-dired-mode))
|
||||
|
||||
(use-package nix-mode
|
||||
:mode "\\.nix\\'")
|
||||
|
||||
(use-package magit
|
||||
:commands (magit-status magit-get-current-branch))
|
||||
|
||||
(use-package diff-hl)
|
||||
(global-diff-hl-mode)
|
||||
(diff-hl-flydiff-mode)
|
||||
|
||||
(use-package markdown-mode
|
||||
:mode ("README\\.md\\'" . gfm-mode)
|
||||
:init (setq markdown-command "multimarkdown"))
|
||||
|
||||
|
||||
;; using an older version of auctex since newer versions changed how config
|
||||
;; works and I can't figure it out
|
||||
(use-package tex-site
|
||||
:straight auctex)
|
||||
|
||||
(use-package tex
|
||||
:straight nil
|
||||
:config
|
||||
(setq TeX-auto-save t)
|
||||
(setq TeX-parse-self t)
|
||||
(setq TeX-save-query nil)
|
||||
(setq TeX-PDF-mode t)
|
||||
(setq TeX-source-correlate-mode t)
|
||||
(setq TeX-source-correlate-start-server t)
|
||||
(add-to-list 'TeX-expand-list'("%sn" (lambda () server-name)))
|
||||
(add-to-list 'TeX-view-program-list
|
||||
'("Zathura"
|
||||
("zathura %o"
|
||||
(mode-io-correlate " --synctex-forward %n:0:\"%b\" -x \"emacsclient --socket-name=%sn +%{line} %{input}\""))
|
||||
"zathura"))
|
||||
(setcar (cdr (assoc 'output-pdf TeX-view-program-selection)) "Zathura"))
|
||||
|
||||
(use-package latex
|
||||
:straight nil
|
||||
:mode
|
||||
("\\.tex\\'" . latex-mode)
|
||||
:hook
|
||||
(LaTeX-mode . LaTeX-math-mode)
|
||||
(LaTeX-mode . TeX-source-correlate-mode))
|
||||
|
||||
(use-package font-latex
|
||||
:straight nil
|
||||
:init
|
||||
(setq font-latex-fontify-script nil)
|
||||
(setq font-latex-fontify-sectioning 'color))
|
||||
|
||||
(use-package org
|
||||
:bind*
|
||||
("C-c l" . #'org-store-link)
|
||||
("C-c a" . #'org-agenda)
|
||||
("C-c c" . #'org-capture))
|
||||
|
||||
(use-package vertico
|
||||
:demand t
|
||||
:config
|
||||
(vertico-mode +1)
|
||||
;; Ignore case... otherwise the behavior is really weird and
|
||||
;; confusing.
|
||||
(setq read-file-name-completion-ignore-case t
|
||||
read-buffer-completion-ignore-case t
|
||||
completion-ignore-case t)
|
||||
;; Don't re-sort buffer candidates. The recency order is correct.
|
||||
(vertico-multiform-mode +1)
|
||||
(setq vertico-multiform-categories
|
||||
'((buffer (vertico-sort-function . copy-sequence)))))
|
||||
|
||||
(use-package prescient
|
||||
:config
|
||||
;; Remember usage statistics across Emacs sessions.
|
||||
(prescient-persist-mode +1)
|
||||
|
||||
;; The default settings seem a little forgetful to me. Let's try
|
||||
;; this out.
|
||||
(setq prescient-history-length 1000)
|
||||
|
||||
;; Common sense.
|
||||
(setq prescient-sort-full-matches-first t))
|
||||
|
||||
(use-package vertico-prescient
|
||||
:demand t
|
||||
:after vertico
|
||||
:config
|
||||
(vertico-prescient-mode +1))
|
||||
|
||||
(use-package apheleia
|
||||
:init
|
||||
(apheleia-global-mode +1))
|
||||
|
||||
(use-package company
|
||||
:defer 0.5
|
||||
:bind (:filter company-mode
|
||||
|
||||
;; Remap the standard Emacs keybindings for invoking
|
||||
;; completion to instead use Company. You might think this
|
||||
;; could be put in the `:bind*' declaration below, but it
|
||||
;; seems that `bind-key*' does not work with remappings.
|
||||
([remap completion-at-point] . #'company-manual-begin)
|
||||
([remap complete-symbol] . #'company-manual-begin)
|
||||
|
||||
;; The following are keybindings that take effect whenever
|
||||
;; the completions menu is visible, even if the user has not
|
||||
;; explicitly interacted with Company.
|
||||
|
||||
:map company-active-map
|
||||
|
||||
;; Make TAB always complete the current selection, instead of
|
||||
;; only completing a common prefix.
|
||||
("<tab>" . #'company-complete-selection)
|
||||
("TAB" . #'company-complete-selection)
|
||||
|
||||
;; When was the last time you used the C-s binding for
|
||||
;; searching candidates? It conflicts with buffer search,
|
||||
;; anyway. Same for the scroll commands.
|
||||
("C-s" . nil)
|
||||
([remap scroll-down-command] . nil)
|
||||
([remap scroll-up-command] . nil)
|
||||
|
||||
;; The following are keybindings that only take effect if the
|
||||
;; user has explicitly interacted with Company. Note that
|
||||
;; `:map' from above is "sticky", and applies also below: see
|
||||
;; https://github.com/jwiegley/use-package/issues/334#issuecomment-349473819.
|
||||
|
||||
:filter (company-explicit-action-p)
|
||||
|
||||
;; Make RET trigger a completion if and only if the user has
|
||||
;; explicitly interacted with Company, instead of always
|
||||
;; doing so.
|
||||
("<return>" . #'company-complete-selection)
|
||||
("RET" . #'company-complete-selection)
|
||||
|
||||
;; We then make <up> and <down> abort the completions menu
|
||||
;; unless the user has interacted explicitly. Note that we
|
||||
;; use `company-select-previous' instead of
|
||||
;; `company-select-previous-or-abort'. I think the former
|
||||
;; makes more sense since the general idea of this `company'
|
||||
;; configuration is to decide whether or not to steal
|
||||
;; keypresses based on whether the user has explicitly
|
||||
;; interacted with `company', not based on the number of
|
||||
;; candidates.
|
||||
;;
|
||||
;; Note that M-p and M-n work regardless of whether explicit
|
||||
;; interaction has happened yet, and note also that M-TAB
|
||||
;; when the completions menu is open counts as an
|
||||
;; interaction.
|
||||
("<up>" . #'company-select-previous)
|
||||
("<down>" . #'company-select-next))
|
||||
|
||||
:bind* (:filter company-mode
|
||||
|
||||
;; The default keybinding for `completion-at-point' and
|
||||
;; `complete-symbol' is M-TAB or equivalently C-M-i. We
|
||||
;; already remapped those bindings to `company-manual-begin'
|
||||
;; above. Here we make sure that they definitely invoke
|
||||
;; `company-manual-begin' even if a minor mode binds M-TAB
|
||||
;; directly.
|
||||
("M-TAB" . #'company-manual-begin))
|
||||
|
||||
:config
|
||||
|
||||
;; Make completions display twice as soon.
|
||||
(setq company-idle-delay 0.15)
|
||||
|
||||
;; Make completions display when you have only typed one character,
|
||||
;; instead of three.
|
||||
(setq company-minimum-prefix-length 1)
|
||||
|
||||
;; Always display the entire suggestion list onscreen, placing it
|
||||
;; above the cursor if necessary.
|
||||
(setq company-tooltip-minimum company-tooltip-limit)
|
||||
|
||||
;; Always display suggestions in the tooltip, even if there is only
|
||||
;; one. Also, don't display metadata in the echo area. (This
|
||||
;; conflicts with ElDoc.)
|
||||
(setq company-frontends '(company-pseudo-tooltip-frontend))
|
||||
|
||||
;; Show quick-reference numbers in the tooltip. (Select a completion
|
||||
;; with M-1 through M-0.)
|
||||
(setq company-show-quick-access t)
|
||||
|
||||
;; Prevent non-matching input (which will dismiss the completions
|
||||
;; menu), but only if the user interacts explicitly with Company.
|
||||
(setq company-require-match #'company-explicit-action-p)
|
||||
|
||||
;; Only search the current buffer to get suggestions for
|
||||
;; `company-dabbrev' (a backend that creates suggestions from text
|
||||
;; found in your buffers). This prevents Company from causing lag
|
||||
;; once you have a lot of buffers open.
|
||||
(setq company-dabbrev-other-buffers nil)
|
||||
|
||||
;; Make the `company-dabbrev' backend fully case-sensitive, to
|
||||
;; improve the UX when working with domain-specific words that have
|
||||
;; particular casing.
|
||||
(setq company-dabbrev-ignore-case nil)
|
||||
(setq company-dabbrev-downcase nil)
|
||||
|
||||
;; When candidates in the autocompletion tooltip have additional
|
||||
;; metadata, like a type signature, align that information to the
|
||||
;; right-hand side. This usually makes it look neater.
|
||||
(setq company-tooltip-align-annotations t)
|
||||
|
||||
(global-company-mode +1)
|
||||
|
||||
:blackout t)
|
||||
|
||||
(use-package company-prescient
|
||||
:demand t
|
||||
:after company
|
||||
:config
|
||||
(company-prescient-mode +1))
|
||||
|
||||
|
||||
(use-package lsp-mode
|
||||
:init
|
||||
;; set prefix for lsp-command-keymap (few alternatives - "C-l", "C-c l")
|
||||
(setq lsp-keymap-prefix "C-m")
|
||||
:hook
|
||||
(lsp-mode . lsp-enable-which-key-integration)
|
||||
:commands lsp
|
||||
:config
|
||||
;; As per <https://github.com/emacs-lsp/lsp-mode#performance>.
|
||||
(setq read-process-output-max (* 1024 1024))
|
||||
|
||||
;; Disable LSP reformatting your code as you type. We use Apheleia
|
||||
;; for that instead.
|
||||
(setq lsp-enable-on-type-formatting nil))
|
||||
|
||||
(use-package lsp-pyright
|
||||
:hook (python-mode . (lambda ()
|
||||
(require 'lsp-pyright)
|
||||
(lsp)))) ; or lsp-deferred
|
||||
|
||||
(use-package emacs
|
||||
:straight nil
|
||||
:init
|
||||
;; Add prompt indicator to `completing-read-multiple'.
|
||||
;; We display [CRM<separator>], e.g., [CRM,] if the separator is a comma.
|
||||
(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)
|
||||
|
||||
;; Do not allow the cursor in the minibuffer prompt
|
||||
(setq minibuffer-prompt-properties
|
||||
'(read-only t cursor-intangible t face minibuffer-prompt))
|
||||
(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
|
||||
|
||||
;; Support opening new minibuffers from inside existing minibuffers.
|
||||
(setq enable-recursive-minibuffers t)
|
||||
|
||||
;; Emacs 28 and newer: Hide commands in M-x which do not work in the current
|
||||
;; mode. Vertico commands are hidden in normal buffers. This setting is
|
||||
;; useful beyond Vertico.
|
||||
(setq read-extended-command-predicate #'command-completion-default-include-p))
|
||||
|
||||
|
||||
(setq-default fill-column 80)
|
||||
(setq ring-bell-function 'ignore)
|
||||
|
||||
(setq mode-line-position (list "(%l,%c)"))
|
||||
|
||||
;; https://dougie.io/emacs/indentation/#tldr-the-full-configuration
|
||||
; START TABS CONFIG
|
||||
;; Create a variable for our preferred tab width
|
||||
(setq custom-tab-width 2)
|
||||
|
||||
;; Two callable functions for enabling/disabling tabs in Emacs
|
||||
(defun disable-tabs () (setq indent-tabs-mode nil))
|
||||
(defun enable-tabs ()
|
||||
(local-set-key (kbd "TAB") 'tab-to-tab-stop)
|
||||
(setq indent-tabs-mode t)
|
||||
(setq-default tab-width custom-tab-width))
|
||||
|
||||
;; Hooks to Enable Tabs
|
||||
(add-hook 'prog-mode-hook 'enable-tabs)
|
||||
;; Hooks to Disable Tabs
|
||||
(add-hook 'lisp-mode-hook 'disable-tabs)
|
||||
(add-hook 'emacs-lisp-mode-hook 'disable-tabs)
|
||||
|
||||
;; Language-Specific Tweaks
|
||||
(setq-default python-indent-offset custom-tab-width) ;; Python
|
||||
(setq-default js-indent-level custom-tab-width) ;; Javascript
|
||||
|
||||
;; Making electric-indent behave sanely
|
||||
(setq-default electric-indent-inhibit t)
|
||||
|
||||
;; Make the backspace properly erase the tab instead of
|
||||
;; removing 1 space at a time.
|
||||
(setq backward-delete-char-untabify-method 'hungry)
|
||||
|
||||
;; WARNING: This will change your life
|
||||
;; (OPTIONAL) Visualize tabs as a pipe character - "|"
|
||||
;; This will also show trailing characters as they are useful to spot.
|
||||
(setq whitespace-style '(face tabs tab-mark trailing))
|
||||
(custom-set-faces
|
||||
'(whitespace-tab ((t (:foreground "#636363")))))
|
||||
(setq whitespace-display-mappings
|
||||
'((tab-mark 9 [124 9] [92 9]))) ; 124 is the ascii ID for '\|'
|
||||
(global-whitespace-mode) ; Enable whitespace mode everywhere
|
||||
; END TABS CONFIG
|
||||
|
||||
(setq display-line-numbers-type 'relative)
|
||||
(blink-cursor-mode 0)
|
||||
(global-hl-line-mode 1)
|
||||
|
||||
(setq scroll-preserve-screen-position t)
|
||||
(setq scroll-conservatively 1)
|
||||
(setq scroll-margin 5)
|
||||
|
||||
(defun gcm-scroll-down ()
|
||||
(interactive)
|
||||
(scroll-up 1))
|
||||
|
||||
(defun gcm-scroll-up ()
|
||||
(interactive)
|
||||
(scroll-down 1))
|
||||
|
||||
(global-set-key [(control down)] 'gcm-scroll-down)
|
||||
(global-set-key [(control up)] 'gcm-scroll-up)
|
||||
|
||||
;; Turn off some unneeded UI elements
|
||||
(menu-bar-mode -1)
|
||||
(tool-bar-mode -1)
|
||||
(scroll-bar-mode -1)
|
||||
|
||||
(add-hook 'text-mode-hook 'auto-fill-mode)
|
||||
(add-hook 'text-mode-hook 'visual-line-mode)
|
||||
(add-hook 'text-mode-hook 'flyspell-mode)
|
||||
(add-hook 'text-mode-hook 'display-line-numbers-mode)
|
||||
(add-hook 'prog-mode-hook 'display-line-numbers-mode)
|
||||
|
||||
(add-to-list 'default-frame-alist
|
||||
'(font . "Mononoki-14"))
|
||||
|
||||
|
|
@ -130,9 +130,13 @@
|
|||
};
|
||||
};
|
||||
|
||||
xdg.configFile."./" = {
|
||||
source = ./.config;
|
||||
recursive = true;
|
||||
};
|
||||
# xdg.configFile."./" = {
|
||||
# source = ./.config;
|
||||
# recursive = true;
|
||||
# };
|
||||
|
||||
xdg.configFile."emacs/init.el".source = ./emacs/init.el;
|
||||
xdg.configFile."emacs/early-init.el".source = ./emacs/early-init.el;
|
||||
xdg.configFile."emacs/straight/versions/default.el".source = ./emacs/default.el;
|
||||
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in a new issue