13 KiB
13 KiB
- Settings
- Packages
- VTerm
- Org
- Mode specific hooks
- Random eye candy stuff
- Custom mode line
- Pop-up terminal
- Custom Functions
- Keybinds
Settings
Setting the default face
; -*- lexical-binding: t; -*-
(set-frame-font "Fira Code 13" nil t)
(add-to-list 'default-frame-alist '(font . "Fira Code-13"))Some mode settings based on personal preferences
(global-hl-line-mode 1)
(scroll-bar-mode 0)
(tool-bar-mode 0)
(menu-bar-mode 0)
(fringe-mode 0)
(global-display-line-numbers-mode 1)
(xterm-mouse-mode 1)
(setq ring-bell-function 'ignore
gc-cons-threshold most-positive-fixnum
initial-major-mode 'fundamental-mode)Setting some variables
(setq initial-major-mode 'emacs-lisp-mode
frame-resize-pixelwise t
auto-window-vscroll nil
scroll-step 1
display-line-numbers-type 'relative
confirm-kill-processes nil
inhibit-startup-screen t)
(setq-default tab-width 2
indent-tabs-mode nil)Emacs startup hook
(add-hook 'emacs-startup-hook
(lambda () (delete-other-windows)) t)Packages
Add Melpa to package archives
(require 'package)
(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))
(package-initialize)
(require 'use-package)
(use-package benchmark-init
:ensure t
:config
;; To disable collection of benchmark data after init is done.
(add-hook 'after-init-hook 'benchmark-init/deactivate))Visual packages
Add solaire mode
(use-package solaire-mode
:config
(solaire-mode))Set theme
(use-package catppuccin-theme
:config
(load-theme 'catppuccin t)
(setq dark-theme t))Configure Selectrum
Enable selectrum
(use-package selectrum
:config
(selectrum-mode +1))Add selectrum-prescient
(use-package selectrum-prescient
:config
(selectrum-prescient-mode +1)
(prescient-persist-mode +1))(use-package orderless
:after selectrum
:config
(setq completion-styles '(orderless basic))
(savehist-mode)
(setq orderless-skip-highlighting (lambda () selectrum-is-active)
selectrum-highlight-candidates-function #'orderless-highlight-matches))Evil
Configure evil mode
(defun my/evil-shift-right ()
(interactive)
(evil-shift-right evil-visual-beginning evil-visual-end)
(evil-normal-state)
(evil-visual-restore))
(defun my/evil-shift-left ()
(interactive)
(evil-shift-left evil-visual-beginning evil-visual-end)
(evil-normal-state)
(evil-visual-restore))
(use-package evil
:init
(setq-default evil-shift-width 2)
:config
(evil-set-initial-state 'vterm-mode 'insert)
(evil-set-undo-system 'undo-tree)
(evil-define-key 'visual global-map (kbd ">") 'my/evil-shift-right)
(evil-define-key 'visual global-map (kbd "<") 'my/evil-shift-left)
(evil-mode 1))Configure undo tree
To undo and redo easily like vi
(use-package undo-tree
:config
(global-undo-tree-mode 1))Miscellaneous evil related packages
(use-package evil-terminal-cursor-changer)
(use-package evil-anzu
:after evil)Treemacs
Configure treemacs
(use-package treemacs)(use-package treemacs-evil :defer t)
(use-package treemacs-magit :defer t)
(use-package treemacs-projectile :defer t)
(use-package treemacs-all-the-icons :defer t)LSP
Configure lsp-mode
(use-package lsp-mode
:commands lsp)Configure lsp-ui
(use-package lsp-ui
:init
(setq lsp-ui-doc-delay 1.0
lsp-ui-doc-show-with-mouse t
pgtk-wait-for-event-timeout nil
lsp-ui-doc-show-with-cursor t)
:config
(lsp-ui-peek-enable 1)
(lsp-ui-doc-enable 1))Language specific LSP packages
(use-package lsp-haskell)Configure flycheck
(use-package flycheck)Configure dap-mode
(use-package dap-mode)Company
Configure company
For autocomplete
(use-package company
:after lsp-mode
:config
(add-to-list 'company-backends 'company-dabbrev)
(setq company-backends (cons 'company-files (remove 'company-files company-backends)))
(add-to-list 'company-backends 'company-emoji)
(company-mode 1))Configure company-quickhelp
(use-package company-quickhelp
:hook (company-mode . company-quickhelp-mode))Extra company packages
(use-package company-emoji)Treesitter
(use-package tree-sitter-langs :defer t)
(use-package tree-sitter
:after tree-sitter-langs
:defer t
:config
(global-tree-sitter-mode)
:init
(add-to-list 'tree-sitter-major-mode-language-alist '(fundamental-mode . bash))
(add-hook 'tree-sitter-after-on-hook #'tree-sitter-hl-mode))Direnv
(use-package direnv
:defer t
:config
(direnv-mode))Lang support
(use-package haskell-mode)
(use-package lsp-latex)
(use-package rustic)
(use-package yuck-mode)
(use-package wgsl-mode)
(use-package nix-mode
:mode "\\.nix\\'")
(use-package hcl-mode
:mode
"\\.hcl\\'"
"\\.nomad\\'")
(use-package go-mode)Magit
(use-package magit :defer t)VTerm
Configure vterm
(use-package vterm
:config
(evil-define-key 'normal vterm-mode-map (kbd "p") 'vterm-yank)
(evil-define-key 'insert vterm-mode-map (kbd "C-y") 'vterm-yank)
(setq vterm-timer-delay 0.005))
(use-package vterm-toggle
:after vterm
:config
(setq vterm-toggle-fullscreen-p nil)
(add-to-list 'display-buffer-alist
'((lambda (buffer-or-name _)
(let ((buffer (get-buffer buffer-or-name)))
(with-current-buffer buffer
(or (equal major-mode 'vterm-mode)
(string-prefix-p vterm-buffer-name (buffer-name buffer))))))
(display-buffer-reuse-window display-buffer-in-side-window)
(side . bottom)
(reusable-frames . visible)
(window-height . 0.4))))Centaur Tabs
(use-package centaur-tabs
:config
(setq centaur-tabs-style "rounded"
centaur-tabs-height 18
centaur-tabs-set-modified-marker t
centaur-tabs-set-icons t)
(centaur-tabs-group-by-projectile-project)
(centaur-tabs-mode nil)
(set-face-attribute 'tab-line nil :inherit 'centaur-tabs-unselected)
(centaur-tabs-headline-match))Misc packages
(use-package all-the-icons
:if (display-graphic-p))
(use-package elcord :defer t)
(use-package projectile
:defer t
:config
(define-key projectile-mode-map (kbd "C-x p") 'projectile-command-map)
(projectile-mode +1))
(use-package rainbow-mode :defer t)
(use-package rainbow-delimiters
:hook (prog-mode . rainbow-delimiters-mode))
(use-package flex-autopair)Org
Add org-mode
(use-package org
:after evil
:defer t
:config
(setq evil-want-C-i-jump nil
org-adapt-indentation t
org-src-fontify-natively t
org-src-strip-leading-and-trailing-blank-lines t
org-src-preserve-indentation t
org-src-tab-acts-natively t)
(define-key org-mode-map (kbd "RET") 'org-return-and-maybe-indent)
(evil-define-key 'normal org-mode-map (kbd "TAB") 'org-cycle))Add org-bullets
(use-package org-bullets
:defer t
:config
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))Babel and exports
(use-package htmlize :defer t)
(add-to-list 'org-latex-packages-alist '("" "minted"))
(setq org-latex-listings 'minted)
(setq org-latex-pdf-process
'("pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f"
"pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f"
"pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f"))
(setq org-src-fontify-natively t)
(setq org-confirm-babel-evaluate nil)
(org-babel-do-load-languages
'org-babel-load-languages
'((awk . t)
(python . t)
(C . t)
(shell . t)
(sql . t)
(latex . t)))Mode specific hooks
(add-hook 'c-mode-hook 'lsp)
(add-hook 'c++-mode-hook 'lsp)
(add-hook 'haskell-mode-hook #'lsp)
(add-hook 'haskell-literate-mode-hook #'lsp)Random eye candy stuff
Custom mode line
switched to doom modeline after using my own modeline for a while
(use-package doom-modeline
:ensure t
:hook (after-init . doom-modeline-mode))Pop-up terminal
Stolen from this reddit post
(defun run-in-vterm-kill (process event)
"A process sentinel. Kills PROCESS's buffer if it is live."
(let ((b (process-buffer process)))
(and (buffer-live-p b)
(kill-buffer b))))
(defun run-in-vterm (command)
(interactive
(list
(let* ((f (cond (buffer-file-name)
((eq major-mode 'dired-mode)
(dired-get-filename nil t))))
(filename (concat " " (shell-quote-argument (and f (file-relative-name f))))))
(read-shell-command "Terminal command: "
(cons filename 0)
(cons 'shell-command-history 1)
(list filename)))))
(with-current-buffer (vterm-toggle)
(set-process-sentinel vterm--process #'run-in-vterm-kill)
(vterm-send-string (concat command))
(vterm-send-return)))Compilation shortcuts for standalone files
(defun candrun ()
(let ((full buffer-file-name)
(file (file-name-sans-extension buffer-file-name)))
(pcase (file-name-extension full)
("c" (concat "gcc " full " -lm -pthread -o " file " && " file " && rm " file))
("java" (concat "java " full))
("py" (concat "python " full))
("cpp" (concat "g++ " full " -o " file " && " file " && rm " file))
("hs" (concat "runhaskell " full))
("sh" (concat "sh " full))
("js" (concat "node " full))
("ts" (concat "tsc " full " && node " file ".js && rm " file ".js" ))
("rs" (concat "rustc " full " -o " file " && " file " && rm " file)))))Custom Functions
(defun detach-process ()
"Run processes but detached from the parent"
(interactive)
(let ((command (read-string "Enter command:")))
(call-process-shell-command (concat command " &") nil 0)))Keybinds
General
Colemak translations
not using this anymore
(use-package evil-colemak-basics
:init
(setq evil-colemak-basics-layout-mod 'mod-dh)
:config
(global-evil-colemak-basics-mode))Misc binds
(use-package general)
(setq evil-states
'(visual normal motion))
(with-eval-after-load 'general
(general-define-key
:states evil-states
"M-c" 'comment-line
"C-c M-c" 'comment-box)
(general-define-key
:states '(normal insert)
"M-C-f" 'lsp-format-buffer
"C-S-v" 'yank)
(general-define-key
:keymaps '(global override vterm-mode-map)
:states evil-states
"M-o" 'treemacs
"M-S-v" 'split-window-vertically
"M-S-h" 'split-window-horizontally
"M-h" 'windmove-left
"M-j" 'windmove-down
"M-k" 'windmove-up
"M-l" 'windmove-right
"M-C-h" 'shrink-window-horizontally
"M-C-j" 'enlarge-window-horizontally
"M-C-k" 'shrink-window
"M-C-l" 'enlarge-window
"M-," 'centaur-tabs-backward
"M-." 'centaur-tabs-forward
"C-q" 'delete-window
"M-C-S-q" 'kill-buffer-and-window
"M-w" 'centaur-tabs--kill-this-buffer-dont-ask
"M-S-w" 'kill-window)Pop-up terminal specific keybinds
(with-eval-after-load 'vterm-toggle
(general-define-key
:keymaps '(global override vterm-mode-map)
:states evil-states
"<f4>" (lambda () (interactive) (vterm t))
"C-<f1>" 'vterm-toggle-cd
"<f1>" 'vterm-toggle
"<f5>" (lambda () (interactive) (run-in-vterm (candrun))))
(general-define-key
:keymaps 'vterm-mode-map
"<f2>" 'vterm-toggle-forward
"<f3>" 'vterm-toggle-backward)))