emacs/lisp/mitch-packages.el

1072 lines
34 KiB
EmacsLisp
Raw Normal View History

2022-06-19 14:13:36 -08:00
;;; mitch-packages --- Declare and configure use-package statements
;;; Commentary:
;; -----------------------------------------------------------------------------
;; This is a file in which I put declarations for packages and things.
;; -----------------------------------------------------------------------------
;;; Code:
(elpaca nil
(use-package emacs
:custom
(scroll-margin 2)
(scroll-conservatively 100)
(scroll-up-aggressively 0.01)
(scroll-down-aggressively 0.01)
(auto-window-vscroll nil)
:init
(global-visual-line-mode t)
(set-language-environment "UTF-8")
(global-prettify-symbols-mode 1)))
2023-01-04 13:19:44 -09:00
2022-06-19 14:13:36 -08:00
;; diminish
(elpaca-use-package diminish)
2022-12-09 13:54:16 -09:00
(elpaca-use-package compat)
(elpaca-use-package eldoc
:ensure nil
:diminish
2022-06-19 14:13:36 -08:00
:defer 1
:custom (eldoc-echo-area-use-multiline-p nil))
2022-11-15 10:47:59 -09:00
;; save minibuffer history, see Vertico below
(elpaca-use-package savehist
:ensure nil
2022-09-24 18:59:24 -08:00
:init (savehist-mode)
:custom (savehist-file
(expand-file-name "minibuffer-history" backup-directory)))
2022-11-15 10:49:15 -09:00
2022-10-07 19:37:49 -08:00
;; save place in all files
(elpaca-use-package saveplace
:ensure nil
:init (save-place-mode t)
:custom
(save-place-file
2022-10-07 19:37:49 -08:00
(expand-file-name "file-position-save" backup-directory)))
(elpaca-use-package tramp
:ensure nil
2022-12-18 20:38:34 -09:00
;; :after eshell
2022-09-24 19:02:11 -08:00
:custom (tramp-persistency-file-name
(expand-file-name "tramp-history" backup-directory)))
;; Visualize whitespace. In a very chill and invisible way.
(elpaca-use-package whitespace
:ensure nil
:diminish (whitespace-mode org-indent-mode org-vw-mode auto-fill-mode)
:custom
(whitespace-style '(face lines-tail))
(whitespace-line-column 80)
2022-11-30 12:24:58 -09:00
(fill-column 80)
2022-10-26 09:45:24 -08:00
:hook
(prog-mode . whitespace-mode)
(org-mode . auto-fill-mode))
(elpaca-use-package image-mode
:ensure nil
:config
(turn-off-line-numbers)
(blink-cursor-mode -1))
2022-06-19 14:13:36 -08:00
2022-08-24 19:27:47 -08:00
;; ...and finally, sync files with disk changes
(elpaca-use-package autorevert
:ensure nil
2022-08-24 19:27:47 -08:00
:diminish auto-revert-mode
:config (global-auto-revert-mode))
2022-06-19 14:13:36 -08:00
;; Keybinding manager
(elpaca-use-package general
:custom (default-input-method "japanese")
2022-06-19 14:13:36 -08:00
:config (mitch/general-config))
;; (elpaca-use-package use-package-ensure-system-package)
2022-06-19 14:13:36 -08:00
;; load evil
(elpaca-use-package evil
2022-06-19 14:13:36 -08:00
:general
2022-10-09 11:52:06 -08:00
;; Visual lines. Redefined for auto-scrolling madness.
2022-06-19 14:13:36 -08:00
(general-define-key
:states 'normal
"<escape>" 'evil-beginning-of-line
2022-10-12 15:26:40 -08:00
"j" 'evil-next-visual-line
"k" 'evil-previous-visual-line
"C-n" 'move-screen-up-line
"C-p" 'move-screen-down-line)
2022-06-19 14:13:36 -08:00
(general-define-key
:states 'insert
"C-w" 'evil-window-map
"C-V" (general-key-dispatch
2022-07-05 20:56:48 -08:00
'evil-quoted-insert
"u" 'insert-char))
2022-06-19 14:13:36 -08:00
: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)))
2022-10-14 11:43:01 -08:00
:init (evil-mode t)
:config (mitch/evil-config))
(elpaca-use-package evil-collection
2022-06-19 14:13:36 -08:00
:after evil
:diminish evil-collection-unimpaired-mode
:config (evil-collection-init))
(elpaca-use-package evil-commentary
2022-06-19 14:13:36 -08:00
:diminish 'evil-commentary-mode
:config (evil-commentary-mode)
:hook (prog-mode . evil-commentary-mode))
(elpaca-use-package evil-surround
2022-06-19 14:13:36 -08:00
:diminish 'global-evil-surround-mode
:hook (prog-mode . evil-surround-mode)
2022-06-19 14:13:36 -08:00
:config (global-evil-surround-mode 1))
(elpaca-use-package evil-matchit
2022-09-25 12:42:35 -08:00
:diminish 'evil-matchit-mode
:config (global-evil-matchit-mode 1))
(elpaca-use-package evil-terminal-cursor-changer
2022-06-19 14:13:36 -08:00
:after evil
:diminish
:if (not (display-graphic-p))
:custom
(evil-motion-state-cursor 'box) ; █
(evil-visual-state-cursor 'box) ; █
(evil-normal-state-cursor 'box) ; █
(evil-insert-state-cursor 'bar) ; ⎸
(evil-emacs-state-cursor 'hbar) ; _
2022-06-19 14:13:36 -08:00
:config
(evil-terminal-cursor-changer-activate)
(xterm-mouse-mode))
(elpaca-use-package undo-fu
2022-06-19 14:13:36 -08:00
:after evil
2022-07-05 20:56:48 -08:00
:if (< (string-to-number emacs-version) 28)
2022-06-19 14:13:36 -08:00
:diminish)
2022-12-14 22:33:02 -09:00
(elpaca-use-package (altcaps
:host github
:repo "protesilaos/altcaps")
2022-11-27 14:43:47 -09:00
:general (general-define-key
:states 'visual
"`" 'altcaps-region))
2022-06-19 14:13:36 -08:00
;; eshell. Pretty good actually.
(elpaca-use-package eshell
:ensure nil
:commands (eshell/emacs eshell/man)
:custom
(eshell-scroll-to-bottom-on-input t)
(eshell-hist-ignoredups 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 mitch/edit-file-or-lib (name)
"Edit library called NAME if it exists, otherwise edit FILE.
If the current window occupies the whole frame, split it."
(let* ((old-buffer (current-buffer))
(old-default-dir default-directory) ; needed to preserve environment
find-fun lib-fun ; scope these so we can bind them later
(openfun (lambda (arg)
"Implicit function for opening a file or library."
(let ((arg-file-name (expand-file-name arg))
(arg-lib-name (locate-library arg)))
(if (file-exists-p arg-file-name)
(funcall find-fun arg-file-name)
(if arg-lib-name
(funcall lib-fun arg)
(funcall find-fun arg-file-name)))))))
(if (one-window-p)
(setq find-fun #'find-file-other-window
lib-fun #'find-library-other-window)
(setq find-fun #'find-file
lib-fun #'find-library))
(let ((result (funcall openfun name)))
(with-current-buffer old-buffer
(setq default-directory old-default-dir))
result)))
(defun eshell/emacs (&rest args)
"run external Emacs."
(eshell-eval-using-options ; this is somewhat broken but works okay
"emacs" args
'(
(nil "batch" nil batch "Non-interactive")
(nil "chdir" t change-dir "change to directory DIR")
("nw" nil nil no-window "open in terminal mode, no window")
("fs" "fullscreen" nil full-screen "Open in full screen")
:external "emacs"
:usage "[FILE] etc placeholder text...")
(mapcar #'mitch/edit-file-or-lib
(eshell-stringify-list (flatten-tree (reverse args))))))
(defun mitch/eshell-setup-keys ()
(evil-collection-define-key
'normal
'eshell-mode-map
(kbd "I") 'eshell-evil-insert-line
(kbd "RET") 'hkey-either))
(advice-add 'evil-collection-eshell-setup-keys
:after 'mitch/eshell-setup-keys))
(elpaca-use-package (eat
:repo "https://codeberg.org/akib/emacs-eat"
:files ("*.el" ("term" "term/*.el") "*.texi"
"*.ti" ("terminfo/e" "terminfo/e/*")
("terminfo/65" "terminfo/65/*")
("integration" "integration/*")
(:exclude ".dir-locals.el" "*-tests.el")))
2023-01-03 21:11:57 -09:00
:custom
(eat-kill-buffer-on-exit t)
2022-11-27 14:39:32 -09:00
:hook (eshell-mode . eat-eshell-visual-command-mode))
2023-01-03 21:11:18 -09:00
(elpaca-use-package hide-mode-line
:commands (hide-mode-line-mode))
;; (elpaca-use-package eshell-vterm
;; :after eshell
;; :custom (eshell-destroy-buffer-when-process-dies t)
;; :hook (eshell-mode . eshell-vterm-mode))
(elpaca-use-package eshell-syntax-highlighting
2022-10-04 17:57:54 -08:00
:after eshell
:hook (eshell-mode . eshell-syntax-highlighting-mode))
2022-12-14 22:33:02 -09:00
(elpaca-use-package (eshell-dat
:repo "https://git.mitchmarq42.xyz/mitch/eshell-dat")
:after eshell)
(elpaca-use-package eshell-prompt-extras
:after eshell
:custom
(eshell-highlight-prompt nil)
(eshell-prompt-function 'epe-theme-multiline-with-status)
(epe-path-style 'full))
2022-12-04 13:24:54 -09:00
;; File manager. Only breaks when you brag about how it doesn't.
(elpaca-use-package
(all-the-icons :post-build
("emacsclient" "--eval '(all-the-icons-install-fonts t)'")))
(elpaca-use-package (dirvish
:files (:defaults "extensions/*.el"))
:defer 0.5
:commands dirvish
2022-07-28 07:06:19 -08:00
: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
2022-11-17 14:43:06 -09:00
"/" 'dirvish-narrow
"q" 'dirvish-quit)
(general-define-key
:states 'normal
:prefix-command 'file-tree-map-prefix
:prefix-map 'file-tree-map
:prefix "SPC t"
"t" 'dirvish-side))
2022-06-19 14:13:36 -08:00
;; Completion framework...
(elpaca-use-package (vertico
:files (:defaults "extensions/vertico-mouse.el"))
:custom (vertico-resize t)
2022-08-29 05:47:01 -08:00
: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.
see https://www.reddit.com/r/emacs/comments/xq6rpa/comment/iqynyu9/?utm_source=share&utm_medium=web2x&context=3"
(interactive)
(if (string-match-p "/." (minibuffer-contents))
(let ((end (point)))
(re-search-backward "/.")
(forward-char)
(delete-region (point) end))
(backward-delete-char 1)))
:general
(general-define-key
:prefix-map 'minibuffer-mode-map
"DEL" 'backspace-in-minibuffer))
(elpaca nil
(use-package vertico-mouse
:ensure nil
;; :straight vertico
:after vertico
:config
(vertico-mouse-mode)))
2022-12-13 16:35:15 -09:00
(elpaca-use-package (app-launcher
:host github :repo "SebastienWae/app-launcher")
:after vertico
:config
;; modified from https://www.reddit.com/r/unixporn/comments/s7p7pr/so_which_run_launcher_do_you_use_rofi_or_dmenu/
(defun emacs-run-launcher ()
"Create and select a frame called emacs-run-launcher which
consists only of a minibuffer and has specific dimensions. Run
counsel-linux-app on that frame, which is an Emacs command that
prompts you to select an app and open it in a dmenu like
behaviour. Delete the frame after that command has exited"
(interactive)
(with-selected-frame
(make-frame '(;; see ~/.config/sway/config
(name . "dentarthurdent")
(minibuffer . only)
(width . 120)
(height . 11)))
(unwind-protect
(app-launcher-run-app)
(delete-frame)))))
(elpaca-use-package consult
:after vertico
:general
(general-define-key
[remap switch-to-buffer] 'consult-buffer))
2022-06-19 14:13:36 -08:00
;; Minibuffer generic stuff
(elpaca-use-package marginalia
2022-06-19 14:13:36 -08:00
:init (marginalia-mode))
(elpaca-use-package orderless
:custom
(completion-styles '(orderless partial-completion basic))
(completion-category-defaults nil)
;; (completion-category-overrides '((file (styles basic partial-completion))))
2022-07-22 06:59:25 -08:00
(completion-category-overrides nil))
;; weird multi-path thing
(elpaca-use-package embark
:general
(general-define-key
:keymap minibuffer-mode-map
"C-." 'embark-act ; broken by default on gnome. Run `ibus-setup' -> emoji
"C-;" 'embark-dwim)
2022-07-22 06:59:25 -08:00
:init
2022-10-04 17:57:54 -08:00
;; :TODO: Should we put this in the which-key section?
2022-07-22 06:59:25 -08:00
(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)
2022-07-22 06:59:25 -08:00
(which-key--show-keymap
(if (eq (plist-get (car targets) :type) 'embark-become)
"Become"
2022-07-22 06:59:25 -08:00
(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)
2022-07-22 06:59:25 -08:00
(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)
2022-11-29 16:12:14 -09:00
:custom (enable-recursive-minibuffers t))
2022-07-22 06:59:25 -08:00
;; Consult users will also want the embark-consult package.
(elpaca-use-package embark-consult)
2022-06-19 14:13:36 -08:00
2022-07-27 07:09:43 -08:00
;; SORTA WORKING: Relative line numbers with stuff
(elpaca-use-package nlinum-relative
:custom
(nlinum-relative-redisplay-delay 0)
:hook (prog-mode . nlinum-relative-mode)
2022-08-11 06:26:14 -08:00
:init
(defun mitch/nlinum-buffer-setup ()
(nlinum-relative-mode -1)
(nlinum-relative-mode 99)
(setq nlinum-format-function
(lambda (line width)
(let* ((line-display (abs (- line nlinum-relative--current-line)))
(is-current-line? (eq line-display 0))
(line-display (if is-current-line?
nlinum-relative--current-line
(+ nlinum-relative-offset line-display)))
(numwidth (length (number-to-string line-display)))
(spaces (make-string (- width numwidth) ?\ ))
(nlinum-format (if is-current-line?
(format "%%d%s" spaces)
(format "%s%%d" spaces)))
(str (if (and (not (string-equal
nlinum-relative-current-symbol ""))
is-current-line?)
nlinum-relative-current-symbol
(format nlinum-format line-display))))
(if is-current-line?
(put-text-property
0 width 'face 'nlinum-relative-current-face str)
(put-text-property 0 width 'face 'linum str))
str)))
(setq-local nlinum--width (length (number-to-string
2022-12-13 16:37:50 -09:00
(line-number-at-pos (point-max))))))
(add-hook 'minibuffer-exit-hook #'mitch/nlinum-buffer-setup))
2022-06-19 14:13:36 -08:00
;; broken terminal that doesn't compile but at least it's fast when it does
(elpaca-use-package vterm
2022-06-19 14:13:36 -08:00
: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
2022-10-04 17:04:07 -08:00
(kbd "RET") 'hkey-either
(kbd "k") 'vterm-send-up
(kbd "j") 'vterm-send-down)
2022-06-19 14:13:36 -08:00
(add-to-list 'vterm-keymap-exceptions
"C-w")
(add-to-list 'vterm-keymap-exceptions
"RET")
2022-06-19 14:13:36 -08:00
(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."
2022-06-19 14:13:36 -08:00
(add-to-list 'vterm-eval-cmds
(list function (intern function))))
(dolist (emacs-function mitch/vterm-eval-cmds-strings)
(add-vterm-eval-cmd emacs-function))
2022-06-19 14:13:36 -08:00
:hook
(vterm-mode . mitch/terminal-setup)
(vterm-exit-functions . save-buffers-kill-terminal))
(elpaca-use-package multi-vterm
2022-06-19 14:13:36 -08:00
: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.
(elpaca-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 "")))
(elpaca-use-package airline-themes
:custom
(airline-cursor-colors nil)
(airline-display-directory t)
(airline-eshell-colors nil)
(airline-shortened-directory-length 20)
2023-01-03 21:11:18 -09:00
:custom-face
(mode-line
((t (:box (:style released-button :line-width (0.5 . 0.5))))))
;; :config (load-theme 'airline-kolor t)
)
2022-11-06 19:40:30 -09:00
;; see https://github.com/dbordak/telephone-line/issues/126
;; (no telephone-line because why)
2022-11-06 19:40:30 -09:00
2022-10-09 12:00:36 -08:00
;; Custom Theme.
;; Not to be confused with a color theme, or a color scheme, or a custom scheme.
2023-01-03 11:51:40 -09:00
(elpaca-use-package (sv-theme
:repo
"https://git.mitchmarq42.xyz/mitch/vimcolors")
2023-01-03 21:11:18 -09:00
:config
(mitch/visual-setup)
(load-theme 'airline-ravenpower t)
2023-01-03 11:51:40 -09:00
:init (load-theme 'sv t))
2023-01-03 21:11:18 -09:00
;; (elpaca-use-package doom-themes
;; :config (mitch/visual-setup)
;; (load-theme 'airline-ravenpower t)
;; :init (load-theme 'doom-acario-dark t))
2022-06-19 14:13:36 -08:00
(elpaca-use-package yascroll
2022-10-04 17:51:31 -08:00
:diminish
:defer 1
2022-10-07 19:37:49 -08:00
;; :if (not (display-graphic-p))
2022-10-04 17:51:31 -08:00
:custom (yascroll:delay-to-hide nil)
;; :custom-face
;; (yascroll:thumb-fringe
;; ((t (:background "green3"))))
:config
(defun yascroll:make-thumb-overlay-fringe (left-or-right)
"Make thumb overlay on the LEFT-OR-RIGHT fringe."
(let* ((pos (point))
;; If `pos' is at the beginning of line, overlay of the
;; fringe will be on the previous visual line.
(pos (if (= (line-end-position) pos) pos (1+ pos)))
;; below originally said `filled-rectangle' instead of `empty-line'.
;; Changed to fix transparency.
(display-string `(,left-or-right empty-line yascroll:thumb-fringe))
(after-string (propertize "." 'display display-string))
(overlay (make-overlay pos pos)))
(overlay-put overlay 'after-string after-string)
(overlay-put overlay 'fringe-helper t)
(overlay-put overlay 'window (selected-window))
(overlay-put overlay 'priority yascroll:priority)
overlay))
(add-to-list 'yascroll:disabled-modes 'org-mode)
;; (global-yascroll-bar-mode 1)
)
2022-06-19 14:13:36 -08:00
;; parentheses settingses
2022-12-09 13:54:16 -09:00
(elpaca-use-package (paredit :depth nil)
;; elpaca declaration is broken, I just cloned it manually to .config/emacs/elpaca/repos
;; see my issue https://github.com/progfolio/elpaca/issues/40
2022-10-09 11:52:54 -08:00
:diminish
2022-06-19 14:13:36 -08:00
:general (general-define-key
"M-j" 'paredit-forward-slurp-sexp
"M-k" 'paredit-forward-barf-sexp
"M-h" 'paredit-backward-barf-sexp
"M-l" 'paredit-backward-slurp-sexp)
2022-10-09 11:52:54 -08:00
:hook (prog-mode . paredit-mode)
:init
2022-06-19 14:13:36 -08:00
(show-paren-mode 1)
2022-10-07 19:38:02 -08:00
(paredit-mode 1)
2022-10-09 11:52:54 -08:00
(electric-pair-mode 1)
2022-06-19 14:13:36 -08:00
:custom
(show-paren-delay 0)
(show-paren-style 'parenthesis))
(elpaca-use-package evil-paredit
2022-10-07 19:38:02 -08:00
:after paredit
:hook (evil-mode . evil-paredit-mode))
2022-06-19 14:13:36 -08:00
;; org mode and messy things
(elpaca-use-package org
:ensure nil
2022-11-01 14:19:14 -08:00
:diminish (org-indent-mode org-vw-mode)
2022-06-19 14:13:36 -08:00
:custom
2023-01-03 21:11:18 -09:00
;; (org-hide-leading-stars t)
;; (org-startup-indented t)
;; (org-hide-emphasis-markers t)
2023-01-03 21:11:18 -09:00
(inhibit-compacting-font-caches t)
2022-06-19 14:13:36 -08:00
:config
2022-06-21 07:26:38 -08:00
(add-hook 'after-save-hook
2023-01-03 21:11:18 -09:00
(lambda () (if (equal major-mode 'org-mode)
2023-01-12 16:26:28 -09:00
(org-babel-tangle))))
2022-11-15 10:49:15 -09:00
(defvar org-electric-pairs '((?_ . ?_)
2022-11-02 17:31:15 -08:00
(?/ . ?/)
(?* . ?*)
(?+ . ?+)
2022-11-22 06:45:01 -09:00
(?~ . ?~)
2022-11-02 17:31:15 -08:00
(?= . ?=))
"Electric pairs for org-mode.
See https://emacs.stackexchange.com/questions/2538/how-to-define-additional-mode-specific-pairs-for-electric-pair-mode")
;; (defun org-add-electric-pairs ()
;; (setq-local electric-pair-pairs (append electric-pair-pairs org-electric-pairs))
;; (setq-local electric-pair-text-pairs electric-pair-pairs))
;; (add-hook 'org-mode-hook 'org-add-electric-pairs)
(require 'mitch-orgstuff)
(defun insert-zws ()
(interactive)
(insert 8203)) ; this is a Zero Width Space. It makes things confusing.
(defun insert-ï ()
2023-01-12 16:26:28 -09:00
(interactive)
(insert 239)) ; this is a lowercase I with an umlaut. Used for the word `naiive'.
:hook
(org-mode . turn-off-line-numbers)
(org-mode . org-vw-mode)
(org-mode . yas-minor-mode)
:general (general-define-key
:states 'insert
:keymaps 'org-mode-map
2022-12-03 09:28:13 -09:00
"`" (general-key-dispatch 'self-insert-command
:timeout 0.1
"SPC" 'insert-zws
"i" 'insert-ï))
(general-define-key
:states '(normal visual insert)
:keymaps 'org-mode-map
"_" 'mitch/org-dwim-char
"/" 'mitch/org-dwim-char
"*" 'mitch/org-dwim-char
"+" 'mitch/org-dwim-char
"~" 'mitch/org-dwim-char
"=" 'mitch/org-dwim-char))
(elpaca-use-package org-tempo
:ensure nil
2022-08-08 06:36:43 -08:00
: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 '("html" . "src html")))
;; (elpaca-use-package org-variable-pitch
;; :after org
;; :if (display-graphic-p)
;; :diminish (buffer-face-mode org-variable-pitch-minor-mode)
;; :custom-face (org-meta-line
;; ((nil (:inherit
;; (font-lock-comment-delimiter-face fixed-pitch)))))
;; :hook (org-mode . org-variable-pitch-minor-mode))
;; (elpaca-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))
2022-12-14 22:33:02 -09:00
(elpaca-use-package (org-pretty-table
:host github
:repo "Fuco1/org-pretty-table")
2022-10-26 09:45:00 -08:00
:diminish
:hook (org-mode . org-pretty-table-mode))
(elpaca-use-package ox-hugo
2022-11-23 11:07:27 -09:00
:after org
2022-11-22 06:42:19 -09:00
:config
(defun hugo-dir-above (dir)
"Return path of Hugo project root above or at DIR.
Return nil if DIR is not in a hugo project at all."
(named-let hda-internal ((dir dir))
(if (eq dir nil) nil
(if (file-exists-p (expand-file-name "config.toml" dir)) dir
(hda-internal (file-name-directory (string-trim-right dir "/")))))))
2022-11-23 11:08:29 -09:00
(defun hugo-compile (dir)
(let ((hugo-dir (hugo-dir-above dir)))
(if hugo-dir
2022-12-02 16:02:07 -09:00
(if (string-match-p default-directory "/content-org$")
(org-hugo-export-wim-to-md-after-save)
(let* ((default-directory hugo-dir)
(buffer (get-buffer-create "*hugo*")))
(with-current-buffer buffer
(compilation-mode)
(if (zerop (let ((inhibit-read-only t))
(shell-command "hugo" buffer)))
2022-12-02 16:02:07 -09:00
(message "Hugo re-generated!")
(error "Hugo Failed, better change something!"))))))))
2022-11-22 06:42:19 -09:00
(add-hook 'after-save-hook
2022-11-23 11:08:29 -09:00
(lambda () (hugo-compile default-directory))))
2022-06-19 14:13:36 -08:00
;; fake indentation, other than the other fake indentation
;; (elpaca-use-package adaptive-wrap
;; :custom (adaptive-wrap-extra-indent 2)
;; :hook (org-mode . adaptive-wrap-prefix-mode))
2022-06-19 14:13:36 -08:00
;; cheaty key popups
(elpaca-use-package which-key
2022-06-19 14:13:36 -08:00
:diminish
:defer 5
2022-11-27 14:47:53 -09:00
:custom (which-key-idle-delay 2.5)
2022-06-19 14:13:36 -08:00
:init (which-key-mode t))
;; parentheses are boring
(elpaca-use-package rainbow-delimiters
2022-06-19 14:13:36 -08:00
:diminish
:defer 1
:hook (prog-mode . rainbow-delimiters-mode))
;; Hex colors
(elpaca-use-package rainbow-mode
2022-06-19 14:13:36 -08:00
:diminish
:hook (prog-mode . rainbow-mode))
;; Nobody loves a good language
(elpaca-use-package powershell
2022-06-19 14:13:36 -08:00
:mode ("\\.ps1\\'" . powershell-mode))
;; or an okay language
(elpaca-use-package cider
2022-06-19 14:13:36 -08:00
:defer 1)
;; c sharp; taken from https://www.reddit.com/r/emacs/comments/k8tnzg/help_setting_up_c_lsp_omnisharproslyn/
2022-11-27 14:50:21 -09:00
;; (there is nothing here because I'm not using c sharp...)
2022-06-19 14:13:36 -08:00
(elpaca-use-package lsp-mode
:hook ((powershell-mode . lsp-mode)
(lsp-mode . lsp-enable-which-key-integration)
(lsp-completion-mode . corfu/lsp-mode-setup-completion))
2022-06-19 14:13:36 -08:00
:commands lsp
2022-11-15 10:49:15 -09:00
:diminish lsp-lens-mode
:custom (lsp-completion-provider :none)
:init (defun corfu/lsp-mode-setup-completion ()
(setf (alist-get 'styles (alist-get 'lsp-capf completion-category-defaults))
'(flex))))
2022-06-19 14:13:36 -08:00
;; broken snippets I don't care about...
(elpaca-use-package yasnippet
2022-08-11 06:27:27 -08:00
:diminish yas-minor-mode
:hook (prog-mode . yas-minor-mode))
2022-06-19 14:13:36 -08:00
;; Better help-pages. Genuinely pretty great.
(elpaca-use-package helpful
2022-06-19 14:13:36 -08:00
:general (general-define-key
[remap describe-key] 'helpful-key
[remap describe-variable] 'helpful-variable
[remap describe-function] 'helpful-callable)
2022-06-19 14:13:36 -08:00
(general-define-key
:keymaps 'help-map
"F" 'describe-face
"k" 'helpful-key)
(general-define-key
:keymaps 'emacs-lisp-mode-map
:states 'normal
2022-08-11 06:27:27 -08:00
"K" 'helpful-at-point)
:custom (elisp-refs-verbose nil))
2022-06-19 14:13:36 -08:00
;; Better lisp highlighting?
(elpaca-use-package highlight-defined
2022-06-19 14:13:36 -08:00
:hook (emacs-lisp-mode . highlight-defined-mode))
(elpaca-use-package relint)
2022-06-19 14:13:36 -08:00
;; Shell linting?
(elpaca-use-package flymake
2022-06-19 14:13:36 -08:00
:diminish
2022-12-09 10:34:51 -09:00
:custom
(flymake-note-bitmap '(right-arrow compilation-info))
(flymake-error-bitmap '(right-arrow compilation-info))
(flymake-warning-bitmap '(right-arrow compilation-info))
2022-11-15 10:49:41 -09:00
:hook (prog-mode . flymake-mode))
2022-06-19 14:13:36 -08:00
2022-11-27 14:50:21 -09:00
;; Emacs startup profiling -- may not work with chemacs2
(elpaca-use-package esup
2022-06-19 14:13:36 -08:00
:commands esup)
;; Blingy laggy minimap on the right
(elpaca-use-package minimap
2022-06-19 14:13:36 -08:00
:general (general-define-key
:states 'normal
:prefix-command 'mini-map-prefix
:prefix-map 'mini-map
:prefix "SPC m"
"m" 'minimap-mode
"k" 'minimap-kill)
2022-06-19 14:13:36 -08:00
:custom
(minimap-window-location 'right)
(minimap-update-delay 0)
:custom-face
(minimap-active-region-background
((t (:background "#303030" :extend t))))
(minimap-current-line-face
2022-07-21 08:15:38 -08:00
((nil (:background "#afafaf" :extend t)))))
2022-06-19 14:13:36 -08:00
;; epic drop-down completion
;; (elpaca-use-package company
;; :diminish
;; :custom ;(company-require-match nil)
;; (company-tooltip-align-annotations t)
;; :hook (prog-mode . company-mode))
(elpaca-use-package (corfu
:files (:defaults "extensions/*.el"))
2022-12-13 16:36:48 -09:00
;; :if (display-graphic-p) ; breaks in emacsclient
:custom
(corfu-cycle t) ;; Enable cycling for `corfu-next/previous'
(corfu-auto t) ;; Enable auto completion
(corfu-auto-delay 1.5)
(corfu-auto-prefix 2)
(corfu-separator ?-) ;; Orderless field separator
(corfu-quit-at-boundary 'separator) ;; Never quit at completion boundary
(corfu-quit-no-match 'separator) ;; Never quit, even if there is no match
(corfu-preview-current nil) ;; Disable current candidate preview
(corfu-preselect-first nil) ;; Disable candidate preselection
(corfu-on-exact-match nil) ;; Configure handling of exact matches
(corfu-scroll-margin 5) ;; Use scroll margin
(completion-cycle-threshold 0)
(tab-always-indent 'complete)
:init (global-corfu-mode)
:config
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent)
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify)
:general
(general-define-key
:states 'insert
:keymaps 'corfu-map
[tab] 'corfu-next
[backtab] 'corfu-previous
"RET" 'corfu-insert
"ESC" 'corfu-quit
"C-h" 'corfu-info-documentation
"C-f" 'corfu-info-location))
(elpaca nil
(use-package corfu-echo
:ensure nil
:custom (corfu-echo-delay t)
:after corfu
:config (corfu-echo-mode)))
(elpaca nil
(use-package corfu-history
:ensure nil
:after corfu
:config (corfu-history-mode)))
(elpaca-use-package cape
:after corfu
:init
(add-to-list 'completion-at-point-functions #'cape-dabbrev)
(add-to-list 'completion-at-point-functions #'cape-file)
(add-to-list 'completion-at-point-functions #'cape-ispell))
(elpaca-use-package pcmpl-args
:after eshell)
2022-12-14 22:33:02 -09:00
(elpaca-use-package (popon
:type git
:repo "https://codeberg.org/akib/emacs-popon")
:if (not (display-graphic-p)))
2022-12-14 22:33:02 -09:00
(elpaca-use-package (corfu-terminal
:type git
:repo "https://codeberg.org/akib/emacs-corfu-terminal")
:after popon
2022-06-19 14:13:36 -08:00
:init (unless
(display-graphic-p)
(corfu-terminal-mode +1)))
2022-06-19 14:13:36 -08:00
(elpaca-use-package magit
:commands (madots magit-status magit)
:hook (magit-mode . turn-off-line-numbers)
:custom (vc-follow-symlinks t)
(transient-history-file
(expand-file-name "transient/history.el" backup-directory))
:config
(defun madots--magit-buffers-p ()
(not (not ; converts all non-nil values to t
(remove nil ; clean useless elements
(mapcar (lambda (buffer)
(if (string-match-p "magit: " (buffer-name buffer))
buffer))
(buffer-list))))))
2023-01-12 19:34:48 -09:00
(defun madots--kill-all-magit-buffers ()
(mapcar (lambda (buffer)
(if (string-match-p "^magit" (buffer-name buffer))
(kill-buffer buffer)))
(buffer-list)))
(defun madots--cleanup ()
"Remove modifications made for `madots' once all magit buffers are killed."
(if (not (madots--magit-buffers-p))
(progn
(setq magit-git-executable madots--old-magit-exe)
(setq magit-bury-buffer-function madots--old-magit-bury-buf-func)
(cancel-function-timers #'madots--cleanup))))
(defun madots (&optional exe)
"Magit but with custom EXE, default \"dots\"."
(interactive)
(require 'magit)
(setq madots--old-magit-exe magit-git-executable)
(setq magit-git-executable (or exe "dots"))
(setq madots--old-magit-bury-buf-func magit-bury-buffer-function)
(setq magit-bury-buffer-function #'kill-buffer-and-window)
(magit-status)
(run-with-timer 5 3 #'madots--cleanup)))
2022-12-13 16:36:09 -09:00
(elpaca-use-package (hyperbole
:files ("*.el"
("kotl" "kotl/*.el")
"man/*.info" "man/*.texi")
:host github :repo "rswgnu/hyperbole")
:diminish
:general (general-define-key
:states 'normal
"RET" 'hkey-either))
2022-12-14 22:33:02 -09:00
(elpaca-use-package (dconf-mode
:type git
:repo "https://git.mitchmarq42.xyz/mitch/dconf-mode.el"))
(elpaca-use-package (info-variable-pitch
:host github
:repo "kisaragi-hiu/info-variable-pitch")
:config
(add-hook 'Info-mode-hook #'info-variable-pitch-mode))
2023-01-15 20:00:48 -09:00
;; (elpaca nil
;; (use-package exwm
;; :ensure nil
;; :if (package-installed-p 'exwm)
;; :init
;; (require 'exwm-config)
;; (exwm-config-example)))
2022-11-15 10:49:15 -09:00
2023-01-12 16:30:47 -09:00
(elpaca nil
(use-package xwidget
:ensure nil
:commands xwidget-webkit-browse-url
:config
(defun mitch/webkit-isearch ()
(interactive)
(xwidget-webkit-search
(setq isearch-string
(read-from-minibuffer "Find in page: "))
(car xwidget-list)
'insensitive nil t))
(defun mitch/webkit-isearch-next ()
(interactive)
(xwidget-webkit-search isearch-string
(car xwidget-list) 'insensitive nil t))
(defun mitch/webkit-isearch-prev ()
(interactive)
(xwidget-webkit-search isearch-string
(car xwidget-list) 'insensitive t t))
;; (posframe-show ) ;; need posframe package
:general (general-define-key
:states 'normal
:keymaps 'xwidget-webkit-mode-map
"/" 'mitch/webkit-isearch
"n" 'mitch/webkit-isearch-next
"N" 'mitch/webkit-isearch-prev)))
(elpaca-use-package (ani-el
:repo "https://git.mitchmarq42.xyz/mitch/ani-el"
:files ("ani-el.el" "lib")))
2022-07-05 20:56:48 -08:00
(elpaca-use-package slime
:if (file-exists-p (expand-file-name "~/quicklisp/slime-helper.el"))
2022-12-13 16:38:17 -09:00
:commands (slime slime-connect)
:custom (inferior-lisp-program "sbcl")
2022-12-13 16:38:17 -09:00
:config (load (expand-file-name "~/quicklisp/slime-helper.el")))
;; built in spell checker, for losers
(elpaca-use-package flyspell
:ensure nil
2022-11-01 14:19:14 -08:00
:diminish
:custom
(flyspell-auto-correct-word t)
:hook
(org-mode . flyspell-mode))
;; Java never looked so useful...
(elpaca-use-package clojure-mode
:mode "\\.cljs\\'")
(elpaca-use-package inf-clojure
:after clojure-mode)
;; unique buffer names
(elpaca-use-package uniquify
:ensure nil
:custom (uniquify-buffer-name-style 'forward))
2022-09-29 06:18:54 -08:00
;; cache file cleanup
(elpaca-use-package kkc
:ensure nil
:custom (kkc-init-file-name (expand-file-name "kkcrc" backup-directory)))
;; see https://www.reddit.com/r/emacs/comments/xyo2fo/orgmode_vterm_tmux/
(elpaca-use-package ob-tmux
2022-11-15 10:47:09 -09:00
:after (org dash)
:config
(setq org-src-lang-modes (-replace
'("tmux" . sh)
'("tmux" . powershell)
org-src-lang-modes))
:custom
(org-babel-default-header-args:tmux
'((:results . "display")
(:session . "default")
(:socket . nil)))
(org-babel-tmux-session-prefix "ob-")
(org-babel-tmux-terminal "/home/mitch/.local/bin/emacs-term-shim.sh")
2022-11-15 10:47:09 -09:00
(org-babel-tmux-terminal-opts))
(elpaca-use-package (dwim-shell-command
:files (:defaults "dwim-shell-commands.el"))
2022-11-15 10:50:22 -09:00
:config (require 'dwim-shell-commands)
:commands dwim-shell-commands-kill-process)
2022-11-15 10:50:40 -09:00
2022-12-14 22:33:02 -09:00
(elpaca-use-package (youtube-sub-extractor
:host github
:repo "agzam/youtube-sub-extractor.el")
:custom (youtube-sub-extractor-timestamps 'left-margin)
:commands youtube-sub-extractor-extract-subs)
2022-11-27 14:50:21 -09:00
;; Cheat sheet
(elpaca-use-package (cheat-sh :host github :repo "davep/cheat-sh.el")
:commands cheat-sh)
2022-11-15 10:50:40 -09:00
2023-01-03 11:52:16 -09:00
(elpaca-use-package (pcre2el
:host github
:repo "joddie/pcre2el")
:config
(defmacro prx (&rest expressions)
"Convert the rx-compatible regular EXPRESSIONS to PCRE.
2023-01-04 11:56:13 -09:00
Most shell applications accept Perl Compatible Regular Expressions.
Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
`(rx-let ((integer (1+ digit))
(float (seq integer "." integer))
(b256 (seq (optional (or "1" "2"))
2023-01-04 11:58:13 -09:00
(regexp "[0-9]\\{1,2\\}")))
2023-01-04 11:56:13 -09:00
(ipaddr (seq b256 "." b256 "." b256 "." b256))
(time (seq
digit (optional digit)
":" (= 2 digit) (optional ":" (= 2 digit))))
(email (seq (1+ (regexp "[^,< ]")) "@"
(1+ (seq (1+ (any alnum "-"))) ".") (1+ alnum)))
(date (seq (= 2 digit) (or "/" "-")
(= 2 digit) (or "/" "-") (= 4 digit)))
(ymd (seq (= 4 digit) (or "/" "-")
(= 2 digit) (or "/" "-") (= 2 digit)))
(uuid (seq (= 8 hex) "-" (= 3 (seq (= 4 hex) "-")) (= 12 hex)))
(guid (seq uuid)))
(rxt-elisp-to-pcre (rx ,@expressions)))))
2023-01-03 11:52:16 -09:00
(elpaca-use-package org-modern
:after org
:custom
(org-modern-tag nil)
(org-modern-todo nil)
(org-modern-block-name nil)
(org-modern-table nil)
(org-modern-hide-stars nil)
(org-modern-star nil)
;; (org-modern-block-fringe 16)
:hook (org-mode . org-modern-mode)
:config
(defun mitch/org-grayify-stars ()
"Make the `*' characters in Org headlines look like the `#'s in markdown."
(interactive)
(font-lock-add-keywords
nil
`((,(rx bol (+ "*")) . ;; shadow
font-lock-doc-markup-face))))
;; (add-hook 'org-mode-hook
;; #'mitch/org-grayify-stars 90)
(advice-add 'org-modern--make-font-lock-keywords
:after #'mitch/org-grayify-stars)
)
(elpaca-use-package (svg-tag-mode
:host github
:repo "rougier/svg-tag-mode")
;; :after org-modern
:hook (org-modern-mode . svg-tag-mode)
:custom (svg-tag-tags
`((,(rx blank (group (= 4 upper)) blank) .
((lambda (tag)
(svg-tag-make tag
:inverse t
:face (intern
(format "org-%s" (downcase tag)))))))
(,(rx (group "#+" (or "begin" "end") "_src")) .
((lambda (tag)
(let* ((begend (string-trim tag "#\\+" "_src"))
(upcased (upcase begend)))
(svg-tag-make upcased
:face 'org-block-begin-line)))))))
)
2022-06-19 14:13:36 -08:00
(provide 'mitch-packages)
;;; mitch-packages.el ends here