828 lines
24 KiB
EmacsLisp
828 lines
24 KiB
EmacsLisp
;;; mitch-packages --- Declare and configure use-package statements
|
|
|
|
;;; Commentary:
|
|
;; -----------------------------------------------------------------------------
|
|
;; This is a file in which I put declarations for packages and things.
|
|
;; -----------------------------------------------------------------------------
|
|
;;; Code:
|
|
|
|
;; diminish
|
|
(use-package diminish)
|
|
(use-package eldoc
|
|
:straight (:type built-in)
|
|
:diminish
|
|
:defer 1
|
|
:custom (eldoc-echo-area-use-multiline-p nil)
|
|
:config
|
|
;; eldoc for 日本語 -- taken from https://cce.whatthefuck.computer/japanese-study
|
|
(defun eldoc-jhk (&rest args)
|
|
(when (looking-at "[あ-ヿ]")
|
|
(get-char-code-property (string-to-char (thing-at-point 'char)) 'name)))
|
|
(add-hook 'eldoc-documentation-functions
|
|
#'eldoc-jhk))
|
|
(use-package savehist
|
|
:straight (:type built-in)
|
|
:init (savehist-mode)
|
|
:custom (savehist-file
|
|
(expand-file-name "minibuffer-history" backup-directory)))
|
|
;; save place in all files
|
|
(use-package saveplace
|
|
:straight (:type built-in)
|
|
:init (save-place-mode t)
|
|
:custom
|
|
(save-place-file
|
|
(expand-file-name "file-position-save" backup-directory)))
|
|
;; Visualize whitespace. In a very chill and invisible way.
|
|
(use-package whitespace
|
|
:straight (:type built-in)
|
|
:defer 1
|
|
:diminish whitespace-mode
|
|
:custom
|
|
(whitespace-style '(face lines-tail))
|
|
(whitespace-line-column 80)
|
|
:hook (prog-mode . whitespace-mode)
|
|
;; :config (global-whitespace-mode t)
|
|
)
|
|
(use-package ibuffer
|
|
:straight (:type built-in)
|
|
:commands ibuffer
|
|
:custom (ibuffer-use-other-window t))
|
|
(use-package image-mode
|
|
:straight (:type built-in)
|
|
:config
|
|
(turn-off-line-numbers)
|
|
(blink-cursor-mode -1))
|
|
|
|
;; ...and finally, sync files with disk changes
|
|
(use-package autorevert
|
|
:straight (:type built-in)
|
|
:diminish auto-revert-mode
|
|
:config (global-auto-revert-mode))
|
|
|
|
;; Keybinding manager
|
|
(use-package general
|
|
:straight t
|
|
:config (mitch/general-config))
|
|
|
|
;; load evil
|
|
(use-package evil
|
|
:straight t
|
|
:general
|
|
(general-define-key
|
|
:states 'normal
|
|
"<escape>" 'evil-beginning-of-line
|
|
"C-p" 'scroll-down-line
|
|
"C-n" 'scroll-up-line)
|
|
(general-define-key
|
|
:states 'insert
|
|
"C-w" 'evil-window-map
|
|
"C-V" (general-key-dispatch
|
|
'evil-quoted-insert
|
|
"u" 'insert-char))
|
|
:diminish visual-line-mode
|
|
:custom
|
|
(evil-want-integration t)
|
|
(evil-want-keybinding nil)
|
|
(evil-want-C-u-scroll nil)
|
|
(evil-want-C-i-jump nil)
|
|
(evil-vsplit-window-right t)
|
|
(evil-split-window-below t)
|
|
(evil-undo-system
|
|
(if (>= (string-to-number emacs-version) 28)
|
|
(quote undo-redo)
|
|
(quote undo-fu)))
|
|
:init
|
|
(evil-mode t))
|
|
(use-package evil-collection
|
|
:straight t
|
|
:after evil
|
|
:diminish evil-collection-unimpaired-mode
|
|
:config (evil-collection-init))
|
|
(use-package evil-commentary
|
|
:straight t
|
|
:diminish 'evil-commentary-mode
|
|
:config (evil-commentary-mode)
|
|
:hook (prog-mode . evil-commentary-mode))
|
|
(use-package evil-surround
|
|
:straight t
|
|
:diminish 'global-evil-surround-mode
|
|
:hook (prog-mode . evil-surround-mode)
|
|
:config (global-evil-surround-mode 1))
|
|
(use-package evil-terminal-cursor-changer
|
|
:straight t
|
|
:after evil
|
|
:diminish
|
|
:if (not (display-graphic-p))
|
|
:config
|
|
(evil-terminal-cursor-changer-activate)
|
|
(xterm-mouse-mode))
|
|
(use-package undo-fu
|
|
:after evil
|
|
:if (< (string-to-number emacs-version) 28)
|
|
:diminish)
|
|
|
|
;; eshell. Pretty good actually.
|
|
(use-package eshell
|
|
:straight (:type built-in)
|
|
:commands (eshell/emacs eshell/man)
|
|
:custom (eshell-scroll-to-bottom-on-input t)
|
|
:config
|
|
(add-to-list 'eshell-modules-list 'eshell-rebind)
|
|
(defun eshell-evil-insert-line (count &optional vcount)
|
|
(interactive "p")
|
|
(eshell-bol)
|
|
(evil-insert count vcount))
|
|
(defun eshell/emacs (&rest args)
|
|
"Basically you can edit ARGS and it will open in a new buffer.
|
|
When your shell is Emacs, your Emacs is but an oyster...
|
|
This is taken from a website that I can't remember at the moment."
|
|
(if (null args) (bury-buffer)
|
|
(mapc #'find-file-other-window
|
|
(mapcar #'expand-file-name (flatten-tree (reverse args))))))
|
|
:general
|
|
(general-define-key
|
|
:states 'normal
|
|
:keymaps 'eshell-mode-map
|
|
"I" 'eshell-evil-insert-line))
|
|
(use-package eshell-vterm
|
|
:after eshell
|
|
:custom (eshell-destroy-buffer-when-process-dies t)
|
|
:hook (eshell-mode . eshell-vterm-mode))
|
|
(use-package eshell-syntax-highlighting
|
|
:hook (eshell-mode . eshell-syntax-highlighting-mode))
|
|
(use-package eshell-prompt-extras
|
|
:after eshell
|
|
:custom
|
|
(eshell-highlight-prompt nil)
|
|
(eshell-prompt-function 'epe-theme-multiline-with-status)
|
|
(epe-path-style 'full))
|
|
|
|
(use-package all-the-icons)
|
|
(use-package dirvish
|
|
:straight (:files (:defaults "extensions/*.el"))
|
|
:defer 0.5
|
|
:commands dirvish
|
|
:custom
|
|
(dirvish-attributes '(all-the-icons collapse))
|
|
(dirvish-cache-dir (expand-file-name ".dirvish/" user-emacs-directory))
|
|
(dired-listing-switches "-l --almost-all")
|
|
(dirvish-side-display-alist '((window-width . 0.15)
|
|
(slot . -1)
|
|
(side . left)))
|
|
:init (dirvish-override-dired-mode t)
|
|
:config
|
|
(general-define-key
|
|
:states 'normal
|
|
:keymaps 'dirvish-mode-map
|
|
"h" 'dired-up-directory
|
|
"l" 'dired-find-file
|
|
"/" 'dirvish-narrow)
|
|
(general-define-key
|
|
:states 'normal
|
|
:prefix-command 'file-tree-map-prefix
|
|
:prefix-map 'file-tree-map
|
|
:prefix "SPC t"
|
|
"t" 'dirvish-side))
|
|
|
|
;; Completion framework...
|
|
(use-package vertico
|
|
:straight (:files (:defaults "extensions/vertico-mouse.el"))
|
|
:custom (vertico-resize t)
|
|
:init (vertico-mode t)
|
|
:config
|
|
(add-hook 'minibuffer-setup-hook 'turn-off-line-numbers)
|
|
(defun backspace-in-minibuffer ()
|
|
"If previous character is `/', kill to the previous `/'.
|
|
Otherwise, kill back 1 letter."
|
|
(interactive)
|
|
(if (= (string-to-char "/") (preceding-char))
|
|
(progn
|
|
(delete-region (- (point) 1)
|
|
(search-backward "/" nil nil 2))
|
|
(goto-char (1+ (point))))
|
|
(backward-delete-char 1)))
|
|
:general
|
|
(general-define-key
|
|
:prefix-map 'minibuffer-mode-map
|
|
"DEL" 'backspace-in-minibuffer))
|
|
(use-package vertico-mouse
|
|
:straight vertico
|
|
:after vertico
|
|
:config
|
|
(vertico-mouse-mode))
|
|
(use-package consult
|
|
:after vertico)
|
|
;; Minibuffer generic stuff
|
|
(use-package marginalia
|
|
;; :custom (marginalia-separator " ")
|
|
:init (marginalia-mode))
|
|
(use-package orderless
|
|
:custom
|
|
(completion-styles '(orderless partial-completion basic))
|
|
(completion-category-defaults nil)
|
|
;; (completion-category-overrides '((file (styles basic partial-completion))))
|
|
(completion-category-overrides nil))
|
|
|
|
;; weird multi-path thing
|
|
(use-package embark
|
|
:general
|
|
(general-define-key
|
|
:keymap minibuffer-mode-map
|
|
"C-." 'embark-act
|
|
"C-;" 'embark-dwim)
|
|
:init
|
|
(defun embark-which-key-indicator ()
|
|
"An embark indicator that displays keymaps using which-key.
|
|
The which-key help message will show the type and value of the
|
|
current target followed by an ellipsis if there are further
|
|
targets."
|
|
(lambda (&optional keymap targets prefix)
|
|
(if (null keymap) (which-key--hide-popup-ignore-command)
|
|
(which-key--show-keymap
|
|
(if (eq (plist-get (car targets) :type) 'embark-become)
|
|
"Become"
|
|
(format "Act on %s '%s'%s" (plist-get (car targets) :type)
|
|
(embark--truncate-target (plist-get (car targets) :target))
|
|
(if (cdr targets) "…" "")))
|
|
(if prefix (pcase (lookup-key keymap prefix 'accept-default)
|
|
((and (pred keymapp) km) km)
|
|
(_ (key-binding prefix 'accept-default))) keymap)
|
|
nil nil t (lambda (binding)
|
|
(not (string-suffix-p "-argument" (cdr binding))))))))
|
|
(setq embark-indicators
|
|
'(embark-which-key-indicator
|
|
embark-highlight-indicator
|
|
embark-isearch-highlight-indicator))
|
|
(defun embark-hide-which-key-indicator (fn &rest args)
|
|
"Hide the which-key indicator immediately when using the completing-read prompter."
|
|
(which-key--hide-popup-ignore-command)
|
|
(let ((embark-indicators
|
|
(remq #'embark-which-key-indicator embark-indicators)))
|
|
(apply fn args)))
|
|
(advice-add #'embark-completing-read-prompter
|
|
:around #'embark-hide-which-key-indicator)
|
|
:config
|
|
(setq enable-recursive-minibuffers t))
|
|
;; Consult users will also want the embark-consult package.
|
|
(use-package embark-consult
|
|
:after (embark consult))
|
|
|
|
;; SORTA WORKING: Relative line numbers with stuff
|
|
(use-package linum-relative
|
|
:diminish
|
|
:init
|
|
(require 'cl-lib)
|
|
(require 'linum-relative)
|
|
(setq linum-relative-current-symbol "")
|
|
(defun display-line-numbers-equalize ()
|
|
"Equalize The width. Taken from https://emacs.stackexchange.com/questions/55165/uneven-line-numbers-with-display-line-numbers/55166#55166"
|
|
(setq display-line-numbers-width
|
|
(1+ (length (number-to-string (line-number-at-pos (point-max)))))))
|
|
(add-hook 'prog-mode-hook #'display-line-numbers-equalize)
|
|
(defun mitch/symbol-width (symbol)
|
|
(+ 1 (floor (log symbol 10))))
|
|
(defun mitch/linum-get-left-pad (symbol)
|
|
"Get the number of spaces to add before the current relative line number."
|
|
(let* ((symbol-width (mitch/symbol-width symbol)))
|
|
(- display-line-numbers-width symbol-width)))
|
|
(defun mitch/right-pad (line-number)
|
|
"Pad the line number to the right."
|
|
(let* ((spacing (- (display-line-numbers-equalize)
|
|
(mitch/symbol-width line-number)))
|
|
(spacer (make-string spacing (string-to-char " "))))
|
|
(format (concat "%s" spacer) line-number)))
|
|
(defun mitch/left-pad (line-number)
|
|
"Pad the line number to the left."
|
|
(let ((spacing
|
|
(make-string (mitch/linum-get-left-pad line-number)
|
|
(string-to-char " "))))
|
|
(format (concat spacing "%s") line-number)))
|
|
(defun linum-relative (line-number)
|
|
(let* ((diff1 (abs (- line-number linum-relative-last-pos)))
|
|
(diff (if (cl-minusp diff1)
|
|
diff1
|
|
(+ diff1 linum-relative-plusp-offset)))
|
|
(current-p (= diff linum-relative-plusp-offset))
|
|
(current-symbol (if (and linum-relative-current-symbol current-p)
|
|
(if (string= "" linum-relative-current-symbol)
|
|
(mitch/right-pad line-number)
|
|
linum-relative-current-symbol)
|
|
(mitch/left-pad diff)))
|
|
(face (if current-p 'linum-relative-current-face 'linum)))
|
|
(propertize (format linum-relative-format current-symbol) 'face face)))
|
|
;; (linum-relative-global-mode 1)
|
|
;; (mitch/linum-rel-setup)
|
|
;; (linum-relative 282)
|
|
(add-hook 'prog-mode-hook #'linum-relative-mode)
|
|
(add-hook 'minibuffer-exit-hook #'linum-relative-on)
|
|
:custom
|
|
(linum-relative-current-symbol "")
|
|
)
|
|
;; (setq display-line-numbers-mode 'relative)
|
|
|
|
;; broken terminal that doesn't compile but at least it's fast when it does
|
|
(use-package vterm
|
|
:custom
|
|
(vterm-always-compile-module t)
|
|
(vterm-module-cmake-args "-DUSE_SYSTEM_LIBVTERM=no")
|
|
(vterm-clear-scrollback-when-clearing t)
|
|
:config
|
|
(evil-collection-define-key 'insert 'vterm-mode-map
|
|
(kbd "C-w") 'evil-window-map)
|
|
(evil-collection-define-key 'normal 'vterm-mode-map
|
|
(kbd "RET") 'hkey-either)
|
|
(evil-collection-define-key 'normal 'vterm-mode-map
|
|
(kbd "k") 'vterm-send-up)
|
|
(evil-collection-define-key 'normal 'vterm-mode-map
|
|
(kbd "j") 'vterm-send-down)
|
|
(add-to-list 'vterm-keymap-exceptions
|
|
"C-w")
|
|
(add-to-list 'vterm-keymap-exceptions
|
|
"RET")
|
|
(setq mitch/vterm-eval-cmds-strings
|
|
'("update-pwd"
|
|
"restart-emacs"
|
|
"find-file-other-window"
|
|
"find-file-other-frame"
|
|
"eshell/emacs"
|
|
"eshell/man"
|
|
"dirvish"
|
|
"magit"
|
|
"info-other-window"
|
|
"add-vterm-eval-cmd"))
|
|
(defun add-vterm-eval-cmd (function)
|
|
"Add FUNCTION to `vterm-eval-cmds' so it can be ran through sh in vterm."
|
|
(add-to-list 'vterm-eval-cmds
|
|
(list function (intern function))))
|
|
(dolist (emacs-function mitch/vterm-eval-cmds-strings)
|
|
(add-vterm-eval-cmd emacs-function))
|
|
:hook
|
|
(vterm-mode . mitch/terminal-setup)
|
|
(vterm-exit-functions . save-buffers-kill-terminal))
|
|
(use-package multi-vterm
|
|
:commands (multi-vterm multi-vterm-other-window)
|
|
:config
|
|
(defun multi-vterm-other-window ()
|
|
"Run a new-ish vterm in the other window"
|
|
(interactive)
|
|
(other-window 1) (multi-vterm))
|
|
:general
|
|
(general-define-key
|
|
:states '(normal visual)
|
|
:prefix "SPC"
|
|
:non-normal-prefix "SPC"
|
|
"v" 'multi-vterm)
|
|
(general-define-key
|
|
:states 'normal
|
|
:prefix-map 'ctl-x-4-map
|
|
:prefix "SPC 4"
|
|
"v" 'multi-vterm-other-window))
|
|
|
|
;; Better modeline? Better modeline.
|
|
(use-package nyan-mode
|
|
:after airline
|
|
:custom
|
|
(nyan-cat-face [[""]])
|
|
(nyan-cat-face-number 0)
|
|
:init (nyan-mode))
|
|
;; (add-to-list 'mode-line-format (nyan-create) t)
|
|
;; (string-to-char "")
|
|
(use-package powerline
|
|
:custom
|
|
(powerline-display-buffer-size nil)
|
|
(powerline-default-separator 'utf-8)
|
|
(powerline-utf-8-separator-left (string-to-char ""))
|
|
(powerline-utf-8-separator-right (string-to-char "")))
|
|
(use-package airline-themes
|
|
:custom
|
|
(airline-cursor-colors nil)
|
|
(airline-display-directory t)
|
|
(airline-eshell-colors nil)
|
|
(airline-shortened-directory-length 20)
|
|
;; (airline-utf-glyph-separator-left (string-to-char ""))
|
|
;; (airline-utf-glyph-separator-right (string-to-char ""))
|
|
:custom-face
|
|
(mode-line
|
|
((t
|
|
(:box (:line-width 2 :style released-button)
|
|
(:height (:inherit 'fixed-pitch))
|
|
:height 80))))
|
|
:config
|
|
;; (load-theme 'airline-ravenpower t)
|
|
(load-theme 'airline-kolor t))
|
|
;; (use-package doom-modeline
|
|
;; :custom
|
|
;; (doom-modeline-unicode-fallback t)
|
|
;; :init (doom-modeline-mode))
|
|
;; (use-package telephone-line
|
|
;; :custom-face
|
|
;; (mode-line
|
|
;; ((t
|
|
;; (:box (:line-width 2 :style released-button)
|
|
;; (:height (:inherit 'fixed-pitch))
|
|
;; :height 80))))
|
|
;; ;; :config
|
|
;; :custom
|
|
;; (telephone-line-primary-left-separator 'telephone-line-identity-left)
|
|
;; (telephone-line-primary-right-separator 'telephone-line-identity-right)
|
|
;; (telephone-line-lhs '((evil . (telephone-line-evil-tag-segment))
|
|
;; (accent . (telephone-line-vc-segment
|
|
;; telephone-line-process-segment))
|
|
;; (nil . (telephone-line-minor-mode-segment
|
|
;; telephone-line-buffer-segment))))
|
|
;; (telephone-line-rhs '((nil . (telephone-line-misc-info-segment
|
|
;; telephone-line-nyan-segment))
|
|
;; (accent . (telephone-line-major-mode-segment))
|
|
;; (evil . (telephone-line-airline-position-segment))))
|
|
;; :init (telephone-line-mode t))
|
|
|
|
|
|
;; Custom Theme.
|
|
;; Not to be confused with a color theme, or a color scheme, or a custom scheme.
|
|
(use-package autothemer
|
|
:custom
|
|
(window-divider-default-places t)
|
|
(right-divider-width 5)
|
|
(ring-bell-function 'ignore)
|
|
:config
|
|
(tooltip-mode -1)
|
|
(menu-bar-mode -1)
|
|
(load-theme 'mitch t))
|
|
|
|
;; (use-package yascroll
|
|
;; :diminish
|
|
;; :defer 1
|
|
;; ;; :if (not (display-graphic-p))
|
|
;; :custom (yascroll:delay-to-hide nil)
|
|
;; :custom-face
|
|
;; (yascroll:thumb-text-area ((t (:background "ForestGreen"))))
|
|
;; (yascroll:thumb-fringe
|
|
;; ((t (:background "ForestGreen" :foreground "ForestGreen"))))
|
|
;; :config (global-yascroll-bar-mode 1))
|
|
|
|
;; parentheses settingses
|
|
(use-package paredit
|
|
:defer 0.1
|
|
:general (general-define-key
|
|
:states 'normal
|
|
"M-j" 'paredit-forward-slurp-sexp
|
|
"M-k" 'paredit-forward-barf-sexp
|
|
"M-h" 'paredit-backward-barf-sexp
|
|
"M-l" 'paredit-backward-slurp-sexp)
|
|
:config
|
|
(show-paren-mode 1)
|
|
(electric-pair-mode 1)
|
|
:custom
|
|
(show-paren-delay 0)
|
|
(show-paren-style 'parenthesis))
|
|
|
|
;; org mode and messy things
|
|
(use-package org
|
|
:straight (:type built-in)
|
|
:mode (("\\.org$" . org-mode))
|
|
:diminish org-indent-mode
|
|
:custom
|
|
(org-hide-leading-stars t)
|
|
(org-startup-indented t)
|
|
(org-hide-emphasis-markers t)
|
|
:config
|
|
(add-hook 'after-save-hook
|
|
#'(lambda () (if (equal major-mode 'org-mode)
|
|
(org-babel-tangle))))
|
|
:hook (org-mode . turn-off-line-numbers))
|
|
(use-package org-tempo
|
|
:straight (:type built-in)
|
|
:after org
|
|
:config
|
|
(add-to-list 'org-structure-template-alist '("sh" . "src shell"))
|
|
(add-to-list 'org-structure-template-alist '("el" . "src elisp"))
|
|
(add-to-list 'org-structure-template-alist '("ps1" . "src powershell"))
|
|
(add-to-list 'org-structure-template-alist '("html" . "src html")))
|
|
(use-package org-variable-pitch
|
|
:if (display-graphic-p)
|
|
:diminish (buffer-face-mode org-variable-pitch-minor-mode)
|
|
:config
|
|
(set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-delimiter-face fixed-pitch))
|
|
:hook (org-mode . org-variable-pitch-minor-mode))
|
|
(use-package org-appear
|
|
:hook (org-mode . org-appear-mode)
|
|
:after org
|
|
:custom
|
|
(org-appear-autolinks t)
|
|
(org-appear-autoemphasis t)
|
|
(org-appear-autoentities t)
|
|
(org-appear-autokeywords t)
|
|
(org-appear-autosubmarkers t))
|
|
(use-package ob-powershell
|
|
:after org
|
|
:custom
|
|
(ob-powershell-powershell-command "pwsh"))
|
|
(use-package ox-hugo
|
|
:after ox)
|
|
|
|
;; cheaty key popups
|
|
(use-package which-key
|
|
:diminish
|
|
:defer 5
|
|
:init (which-key-mode t))
|
|
|
|
;; parentheses are boring
|
|
(use-package rainbow-delimiters
|
|
:diminish
|
|
:defer 1
|
|
:hook (prog-mode . rainbow-delimiters-mode))
|
|
|
|
;; Hex colors
|
|
(use-package rainbow-mode
|
|
:diminish
|
|
:defer 10
|
|
:hook (prog-mode . rainbow-mode))
|
|
|
|
;; Nobody loves a good language
|
|
(use-package powershell
|
|
:mode ("\\.ps1\\'" . powershell-mode))
|
|
(use-package cider
|
|
:defer 1)
|
|
|
|
;; or a bad language
|
|
(use-package haskell-mode
|
|
:mode "\\.hs\\'"
|
|
;; :init
|
|
;; (add-hook 'haskell-mode-hook 'haskell-decl-scan-mode)
|
|
;; (add-hook 'haskell-mode-hook #'lsp)
|
|
:bind (
|
|
:map haskell-mode-map
|
|
("C-c h" . hoogle)
|
|
("C-c s" . haskell-mode-stylish-buffer))
|
|
:config (message "Loaded haskell-mode")
|
|
(setq haskell-mode-stylish-haskell-path "brittany")
|
|
(setq haskell-hoogle-url "https://www.stackage.org/lts/hoogle?q=%s"))
|
|
|
|
;; c sharp; taken from https://www.reddit.com/r/emacs/comments/k8tnzg/help_setting_up_c_lsp_omnisharproslyn/
|
|
;; '(there is nothing here because I'm not using c sharp...)
|
|
|
|
(use-package lsp-mode
|
|
:hook ((powershell-mode . lsp)
|
|
(lsp-mode . lsp-enable-which-key-integration)
|
|
(lsp-mode . lsp-ui-mode))
|
|
:commands lsp
|
|
:custom
|
|
(lsp-completion-provider :none))
|
|
|
|
;; optionally
|
|
(use-package lsp-ui
|
|
:after lsp
|
|
:commands lsp-ui-mode)
|
|
|
|
;; broken snippets I don't care about...
|
|
(use-package yasnippet
|
|
:diminish yas-minor-mode
|
|
:hook (prog-mode . yas-minor-mode))
|
|
|
|
;; Better help-pages. Genuinely pretty great.
|
|
(use-package helpful
|
|
:general (general-define-key
|
|
[remap describe-key] 'helpful-key
|
|
[remap describe-variable] 'helpful-variable
|
|
[remap describe-function] 'helpful-callable)
|
|
(general-define-key
|
|
:keymaps 'help-map
|
|
"F" 'describe-face
|
|
"k" 'helpful-key)
|
|
(general-define-key
|
|
:keymaps 'emacs-lisp-mode-map
|
|
:states 'normal
|
|
"K" 'helpful-at-point)
|
|
:custom (elisp-refs-verbose nil))
|
|
|
|
;; Better lisp highlighting?
|
|
(use-package highlight-defined
|
|
:hook (emacs-lisp-mode . highlight-defined-mode))
|
|
|
|
;; Shell linting?
|
|
(use-package flycheck
|
|
:diminish
|
|
:hook (prog-mode . flycheck-mode)
|
|
;; :config (global-flycheck-mode t)
|
|
)
|
|
|
|
;; Emacs startup profiling
|
|
(use-package esup
|
|
:commands esup)
|
|
|
|
;; Blingy file tree view
|
|
;; '(I'm using dirvish instead, so no treemacs config here anymore.)
|
|
|
|
;; Blingy laggy minimap on the right
|
|
(use-package minimap
|
|
:general (general-define-key
|
|
:states 'normal
|
|
:prefix-command 'mini-map-prefix
|
|
:prefix-map 'mini-map
|
|
:prefix "SPC m"
|
|
"m" 'minimap-mode
|
|
"k" 'minimap-kill)
|
|
:custom
|
|
(minimap-window-location 'right)
|
|
(minimap-update-delay 0)
|
|
:custom-face
|
|
(minimap-active-region-background
|
|
((t (:background "#303030" :extend t))))
|
|
(minimap-current-line-face
|
|
((nil (:background "#afafaf" :extend t)))))
|
|
|
|
;; epic drop-down completion
|
|
;; (use-package company
|
|
;; :diminish
|
|
;; :custom ;(company-require-match nil)
|
|
;; (company-tooltip-align-annotations t)
|
|
;; :hook (prog-mode . company-mode))
|
|
;; (use-package company-lsp
|
|
;; :after (lsp company)
|
|
;; :config
|
|
;; (push 'company-lsp company-backends))
|
|
;; (use-package company-fuzzy
|
|
;; :diminish
|
|
;; :hook (company-mode . company-fuzzy-mode)
|
|
;; ;; :init
|
|
;; :custom
|
|
;; ;; (company-fuzzy-sorting-backend 'flx)
|
|
;; (company-fuzzy-prefix-on-top nil)
|
|
;; (company-fuzzy-history-backends '(company-yasnippet))
|
|
;; (company-fuzzy-trigger-symbols '("." "->" "<" "\"" "'" "@"))
|
|
;; (company-fuzzy-passthrough-backends '(company-capf)))
|
|
(use-package corfu
|
|
:custom
|
|
(completion-cycle-threshold 3)
|
|
(tab-always-indent 'complete)
|
|
(corfu-auto t)
|
|
(corfu-quit-no-match t)
|
|
(corfu-count (- (window-total-height) 10))
|
|
;; (corfu-separator ";")
|
|
:init (global-corfu-mode)
|
|
;; (defun corfu-enable-always-in-minibuffer ()
|
|
;; "Enable Corfu in the minibuffer if Vertico/Mct are not active."
|
|
;; (unless (or (bound-and-true-p mct--active)
|
|
;; (bound-and-true-p vertico--input))
|
|
;; (setq-local corfu-auto nil) ;; Enable/disable auto completion
|
|
;; (corfu-mode 1)
|
|
;; (minibuffer-complete)))
|
|
;; (add-hook 'minibuffer-setup-hook #'corfu-enable-always-in-minibuffer 1)
|
|
;; (defun corfu-kill-in-minibuffer ()
|
|
;; "Kill corfu and minibuffer. To be bound to Esc."
|
|
;; (interactive)
|
|
;; (setq-local inhibit-debugger t)
|
|
;; (corfu-quit)
|
|
;; (exit-minibuffer)
|
|
;; )
|
|
(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))))
|
|
:general
|
|
(general-define-key
|
|
:prefix-map 'corfu-map
|
|
"C-n" 'corfu-next
|
|
"C-p" 'corfu-previous
|
|
"RET" 'corfu-insert
|
|
"ESC" 'corfu-kill-in-minibuffer
|
|
)
|
|
)
|
|
|
|
(use-package popon
|
|
:straight
|
|
(:type git
|
|
:repo "https://codeberg.org/akib/emacs-popon")
|
|
:if (not (display-graphic-p)))
|
|
(use-package corfu-terminal
|
|
:straight
|
|
(:type git
|
|
:repo "https://codeberg.org/akib/emacs-corfu-terminal")
|
|
:after popon
|
|
:init (unless
|
|
(display-graphic-p)
|
|
(corfu-terminal-mode +1)))
|
|
|
|
|
|
;; (use-package lsp-dart
|
|
;; ;; :custom (lsp-dart-dap-flutter-hot-reload t)
|
|
;; :init
|
|
;; (add-hook 'dart-mode-hook 'lsp)
|
|
;; (add-hook 'dart-mode-hook
|
|
;; #'(lambda ()
|
|
;; (add-hook 'after-save-hook
|
|
;; #'(lambda ()
|
|
;; (lsp-dart-dap-flutter-hot-reload))))))
|
|
|
|
|
|
;; (use-package popper
|
|
;; :custom
|
|
;; (display-buffer-base-action '(display-buffer-pop-up-window))
|
|
;; (popper-reference-buffers
|
|
;; '(
|
|
;; helpful-mode
|
|
;; compilation-mode
|
|
;; ibuffer-mode
|
|
;; "*Warnings"))
|
|
;; (popper-mode-line nil)
|
|
;; :init
|
|
;; (popper-mode +1)
|
|
;; (popper-echo-mode +1))
|
|
;; (setq display-buffer-base-action '(display-buffer-pop-up-window . nil))
|
|
|
|
|
|
|
|
(use-package xwidget ;-webkit
|
|
:straight (:type built-in)
|
|
:if (featurep 'xwidget-internal)
|
|
:commands xwidget-webkit-browse-url
|
|
:config
|
|
(add-hook 'xwidget-webkit-mode-hook
|
|
#'(lambda ()
|
|
(turn-off-line-numbers)
|
|
(scroll-bar-mode -1)
|
|
)))
|
|
|
|
(use-package magit
|
|
:commands magit
|
|
:hook (magit-mode . turn-off-line-numbers))
|
|
|
|
(use-package hyperbole
|
|
:diminish
|
|
;; :init (hyperbole-mode)
|
|
:general (general-define-key
|
|
:states 'normal
|
|
"RET" 'hkey-either))
|
|
|
|
(use-package dconf-mode
|
|
:straight
|
|
(:type git
|
|
:repo "https://git.mitchmarq42.xyz/mitch/dconf-mode.el"))
|
|
|
|
|
|
(use-package info-variable-pitch
|
|
:straight
|
|
(:type git :host github
|
|
:repo "kisaragi-hiu/info-variable-pitch")
|
|
:config
|
|
(add-hook 'Info-mode-hook #'info-variable-pitch-mode))
|
|
|
|
;; (use-package empv
|
|
;; :straight
|
|
;; ;; (:type git :host github
|
|
;; :repo "isamert/empv.el"))
|
|
|
|
;; (use-package exwm
|
|
;; ;; :init
|
|
;; ;; (require 'exwm-config)
|
|
;; ;; (exwm-config-example)
|
|
;; )
|
|
(use-package ani-el
|
|
:straight (:type git :repo "https://git.mitchmarq42.xyz/mitch/ani-el"
|
|
:files ("ani-el.el" "lib")))
|
|
|
|
(use-package slime
|
|
:if (file-exists-p (expand-file-name "~/quicklisp/slime-helper.el"))
|
|
:custom (inferior-lisp-program "sbcl")
|
|
:init (load (expand-file-name "~/quicklisp/slime-helper.el")))
|
|
|
|
;; (use-package pdf-tools
|
|
;; :config (add-hook 'pdf-view-mode-hook 'turn-off-line-numbers))
|
|
|
|
;; built in spell checker, for losers
|
|
(use-package flyspell
|
|
:straight (:type built-in)
|
|
:custom
|
|
(flyspell-auto-correct-word t)
|
|
:hook
|
|
(org-mode . flyspell-mode))
|
|
|
|
;; Java never looked so useful...
|
|
(use-package clojure-mode)
|
|
(use-package inf-clojure)
|
|
|
|
;; Let's pretend we're nevoim for a moment
|
|
(if (string-match-p "86_64" system-configuration)
|
|
(progn
|
|
(use-package tree-sitter
|
|
:config
|
|
(global-tree-sitter-mode)
|
|
(add-hook 'tree-sitter-after-on-hook #'tree-sitter-hl-mode))
|
|
(use-package tree-sitter-langs)))
|
|
|
|
;; unique buffer names
|
|
(use-package uniquify
|
|
:straight (:type built-in)
|
|
:custom (uniquify-buffer-name-style 'forward)
|
|
:init (require 'uniquify))
|
|
|
|
(use-package kkc
|
|
:straight (:type built-in)
|
|
:custom (kkc-init-file-name (expand-file-name "kkcrc" backup-directory)))
|
|
|
|
(provide 'mitch-packages)
|
|
;;; mitch-packages.el ends here
|