1324 lines
42 KiB
EmacsLisp
1324 lines
42 KiB
EmacsLisp
;;; init.el --- basic initial declarations
|
|
;;; Commentary:
|
|
;; _ _ _ _
|
|
;; (_) _ __ (_)| |_ ___ | |
|
|
;; | || ' \ | || __| / _ \| |
|
|
;; | || | | || || | _ | __/| |
|
|
;; |_||_| |_||_| \__| (_)\___| |_|
|
|
;;
|
|
;; '((above text graphic generated with command `figlet -k "init.el"'))
|
|
|
|
;;; Code:
|
|
|
|
(setq load-prefer-newer t) ; why ever use stale code, ever?
|
|
;; Load the files that I put my settings in...
|
|
(defvar mir-directory
|
|
(directory-file-name
|
|
(concat user-emacs-directory
|
|
(convert-standard-filename "lisp/"))))
|
|
(add-to-list 'load-path mir-directory t)
|
|
|
|
(defun mir/visual-setup ()
|
|
"Commands to run when setting up any display. To be called in use-package
|
|
declarations for color schemes."
|
|
(tooltip-mode -1)
|
|
(menu-bar-mode -1)
|
|
(setq window-divider-default-places t)
|
|
;; (setq right-divider-width 5)
|
|
(setq ring-bell-function 'ignore)
|
|
(unless (not (display-graphic-p))
|
|
(set-face-attribute 'fixed-pitch nil
|
|
:family "MesloLGS Nerd Font")
|
|
(set-face-attribute 'default nil
|
|
:family "MesloLGS Nerd Font")
|
|
(set-face-attribute 'variable-pitch nil
|
|
:inherit 'default
|
|
:family "sans serif"
|
|
:height (/ 1.5 1.3))
|
|
(add-to-list 'initial-frame-alist '(alpha-background . 65))
|
|
(add-to-list 'default-frame-alist '(alpha-background . 65))
|
|
(add-to-list 'default-frame-alist '(cursor-color . "white"))
|
|
(add-to-list 'default-frame-alist '(fullscreen . maximized)))
|
|
;; see also https://emacs.stackexchange.com/questions/7228/nice-tty-window-borders-in-24-4
|
|
(unless (display-graphic-p)
|
|
(let ((display-table (or standard-display-table (make-display-table))))
|
|
(set-display-table-slot display-table 'vertical-border (make-glyph-code ?│))
|
|
(setq standard-display-table display-table))))
|
|
(defun mir/graphical-setup ()
|
|
"Commands to run at the beginning of init when on a graphical display.
|
|
This prevents errors in termux and speeds up init when editing from the
|
|
console."
|
|
;; hide gui scrollbars and menubar etc
|
|
;; (scroll-bar-mode -1) ;; use `yascroll' instead
|
|
(setq scroll-bar-adjust-thumb-portion nil)
|
|
(tool-bar-mode 0)
|
|
(menu-bar-mode 0)
|
|
(set-fringe-mode 8)
|
|
;; diable stupid file open box thingy
|
|
(setq use-file-dialog nil)
|
|
(setq use-dialog-box nil)
|
|
;; Pixel scrolling. Only in emacs 29+...
|
|
(if (>= (string-to-number emacs-version) 29)
|
|
(pixel-scroll-precision-mode t)
|
|
(pixel-scroll-mode t))
|
|
;; Size of text. おまえ わ もう しんでいる.
|
|
(let* ((resy (display-pixel-height))
|
|
(font-height (/ resy 8))) ; gonna be different on diff machines 💀
|
|
(set-face-attribute 'fixed-pitch nil :height font-height)
|
|
(set-face-attribute 'default nil :height font-height)
|
|
(set-face-attribute 'variable-pitch nil :height (+ font-height 10))))
|
|
(defun turn-off-line-numbers ()
|
|
"A tiny wrapper around `display-line-numbers-mode' or `linum'.
|
|
For use in hooks."
|
|
(interactive)
|
|
(if (bound-and-true-p display-line-numbers-mode)
|
|
(display-line-numbers-mode -1))
|
|
(if (fboundp #'linum-mode)
|
|
(linum-mode -1))
|
|
(if (fboundp #'linum-relative-mode)
|
|
(linum-relative-mode -1))
|
|
(if (fboundp #'nlinum-mode)
|
|
(nlinum-mode -1))
|
|
(if (fboundp #'nlinum-relative-mode)
|
|
(nlinum-relative-mode -1)))
|
|
(defun mir/terminal-setup ()
|
|
"A batch of commands to run when opening anything that looks like a terminal.
|
|
For instance:
|
|
- Shell
|
|
- (ansi-)term
|
|
- eshell
|
|
- vterm
|
|
- Maybe SLIME too."
|
|
(turn-off-line-numbers))
|
|
|
|
(require 'mir-defuns)
|
|
|
|
;; minify yes/no prompts
|
|
(if (>= (string-to-number emacs-version) 28)
|
|
(defvar use-short-answers t)
|
|
(defalias 'yes-or-no-p 'y-or-n-p))
|
|
|
|
;; Control backups/swapfiles
|
|
(defvar backup-directory
|
|
(expand-file-name "emacs-backups"
|
|
(or (getenv "XDG_CACHE_HOME")
|
|
(expand-file-name
|
|
".cache" "~"))))
|
|
(if (not (file-exists-p backup-directory))
|
|
(make-directory backup-directory t))
|
|
(setq backup-directory-alist `(("." . ,backup-directory)))
|
|
;; auto-save-mode doesn't create the path automatically!
|
|
(defvar auto-save-directory
|
|
(expand-file-name "tmp/auto-saves/" backup-directory))
|
|
(make-directory auto-save-directory t)
|
|
(setq auto-save-list-file-prefix
|
|
(expand-file-name "sessions/" auto-save-directory)
|
|
auto-save-file-name-transforms
|
|
`((".*" ,auto-save-directory t)))
|
|
(setq create-lockfiles nil)
|
|
|
|
;; remove auto-generated bits
|
|
(setq custom-file (expand-file-name "custom.el" backup-directory))
|
|
(if (not (file-exists-p custom-file))
|
|
(make-empty-file custom-file t))
|
|
(load custom-file)
|
|
|
|
;; Suppress advice warnings on startup
|
|
;; https://andrewjamesjohnson.com/suppressing-ad-handle-definition-warnings-in-emacs/
|
|
(setq ad-redefinition-action 'accept)
|
|
|
|
;; we be moving packages here to see what's slow elsewhere
|
|
(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)
|
|
(auto-insert-mode))
|
|
|
|
(use-package epg
|
|
:after tramp
|
|
:custom ;; these are ripped from `custom-file' which was auto-generated
|
|
(auth-sources '("~/.authinfo.gpg"))
|
|
(epg-pinentry-mode 'loopback))
|
|
|
|
;; save minibuffer history, see Vertico below
|
|
(use-package savehist
|
|
:init (savehist-mode)
|
|
:custom (savehist-file
|
|
(expand-file-name "minibuffer-history" backup-directory)))
|
|
;; save place in all files
|
|
(use-package saveplace
|
|
:init (save-place-mode t)
|
|
:custom
|
|
(save-place-file
|
|
(expand-file-name "file-position-save" backup-directory)))
|
|
(use-package image-mode
|
|
:hook
|
|
(image-mode . turn-off-line-numbers)
|
|
(image-mode . (lambda () (blink-cursor-mode -1))))
|
|
;; Visualize whitespace. In a very chill and invisible way.
|
|
(use-package whitespace
|
|
:diminish (whitespace-mode ;; org-indent-mode
|
|
;; org-vw-mode
|
|
auto-fill-mode)
|
|
:custom
|
|
(whitespace-style '(face lines-tail))
|
|
(whitespace-line-column 80)
|
|
(fill-column 80)
|
|
:hook
|
|
(prog-mode . whitespace-mode)
|
|
;; (org-mode . auto-fill-mode)
|
|
)
|
|
|
|
;; ...and finally, sync files with disk changes
|
|
(use-package autorevert
|
|
:diminish auto-revert-mode
|
|
:config (global-auto-revert-mode))
|
|
(use-package xwidget
|
|
:if (featurep 'xwidget)
|
|
:commands xwidget-webkit-browse-url
|
|
:config
|
|
(defun mir/webkit-isearch ()
|
|
(interactive)
|
|
(xwidget-webkit-search
|
|
(setq isearch-string
|
|
(read-from-minibuffer "Find in page: "))
|
|
(car xwidget-list)
|
|
'insensitive nil t))
|
|
(defun mir/webkit-isearch-next ()
|
|
(interactive)
|
|
(xwidget-webkit-search isearch-string
|
|
(car xwidget-list) 'insensitive nil t))
|
|
(defun mir/webkit-isearch-prev ()
|
|
(interactive)
|
|
(xwidget-webkit-search isearch-string
|
|
(car xwidget-list) 'insensitive t t))
|
|
;; (posframe-show ) ;; need posframe package
|
|
:bind (
|
|
("/" . 'mir/webkit-isearch)
|
|
("n" . 'mir/webkit-isearch-next)
|
|
("N" . 'mir/webkit-isearch-prev)
|
|
))
|
|
|
|
;; built in spell checker, for losers
|
|
(use-package flyspell
|
|
:diminish
|
|
:custom
|
|
(flyspell-auto-correct-word t)
|
|
:hook
|
|
(org-mode . flyspell-mode))
|
|
|
|
;; unique buffer names
|
|
(use-package uniquify
|
|
:custom (uniquify-buffer-name-style 'forward))
|
|
|
|
;; cache file cleanup
|
|
(use-package kkc
|
|
:custom (kkc-init-file-name (expand-file-name "kkcrc" backup-directory)))
|
|
|
|
;; https://laurencewarne.github.io/emacs/programming/2022/12/26/exploring-proced.html
|
|
(use-package proced
|
|
:commands proced
|
|
:custom
|
|
(proced-auto-update-flag t)
|
|
(proced-goal-attribute nil)
|
|
(proced-show-remote-processes t)
|
|
(proced-enable-color-flag t)
|
|
(proced-format 'custom)
|
|
:config
|
|
(add-to-list
|
|
'proced-format-alist
|
|
'(custom user pid ppid sess tree pcpu pmem rss start time state
|
|
(args comm))))
|
|
|
|
(use-package gnus
|
|
:hook
|
|
(gnus-summary-mode . hl-line-mode)
|
|
(gnus-summary-prepare . gnus-summary-sort-by-most-recent-date)
|
|
)
|
|
|
|
(use-package tramp
|
|
:defer 2
|
|
:custom (tramp-persistency-file-name
|
|
(expand-file-name "tramp-history" backup-directory))
|
|
:config
|
|
(defun find-current-file-sudo (&rest throwaway)
|
|
;; (interactive)
|
|
(if buffer-file-name
|
|
(unless (or (file-writable-p buffer-file-name)
|
|
(file-directory-p buffer-file-name))
|
|
(find-alternate-file (format "/sudo::%s" buffer-file-name)))))
|
|
(advice-add #'find-file :after #'find-current-file-sudo))
|
|
|
|
;; eshell. Pretty good actually.
|
|
(use-package eshell
|
|
:after tramp
|
|
;; :commands (eshell/emacs eshell/man)
|
|
;; :init
|
|
;; (defun eshell-banner-initialize ()
|
|
;; "Run Neofetch in eshell."
|
|
;; (eshell/ls nil))
|
|
:custom
|
|
(eshell-scroll-to-bottom-on-input t)
|
|
(eshell-hist-ignoredups t)
|
|
(eshell-history-file-name (expand-file-name "zsh/histfile" "~/.local/share/"))
|
|
(eshell-history-size nil)
|
|
(eshell-banner-message "")
|
|
(eshell-expand-input-functions '(eshell-expand-history-references))
|
|
:config
|
|
(add-to-list 'tramp-remote-path "/bedrock/bin" 'append)
|
|
(add-to-list 'eshell-modules-list 'eshell-rebind)
|
|
(add-to-list 'eshell-modules-list 'eshell-hist)
|
|
(add-to-list 'eshell-modules-list 'eshell-tramp)
|
|
(advice-add 'eshell-delete-backward-char :override
|
|
#'paredit-backward-delete)
|
|
(add-hook 'kill-emacs-hook (lambda ()
|
|
(if (fboundp #'eshell-save-some-history)
|
|
(eshell-save-some-history))))
|
|
(defun eshell-evil-insert-line (count &optional vcount)
|
|
(interactive "p")
|
|
(eshell-bol)
|
|
(evil-insert count vcount))
|
|
(defun mir/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 #'mir/edit-file-or-lib
|
|
(eshell-stringify-list (flatten-tree (reverse args))))))
|
|
(defun mir/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 'mir/eshell-setup-keys))
|
|
|
|
;; straight.el: the better package manager?
|
|
;; minified bootstrap (split lines if you want) (or not)
|
|
(defun straight-bootstrap ()
|
|
"bootstrap the `straight' package manager."
|
|
(defvar bootstrap-version)
|
|
(let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) (bootstrap-version 5)) (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)
|
|
(straight-use-package 'dash)
|
|
(require 'dash)
|
|
(setq use-package-git-keyword :straight))
|
|
|
|
;; actually, use elpaca instead
|
|
;; (require 'elpaca-bootstrap)
|
|
|
|
(defun elpaca-bootstrap ()
|
|
"Bootstrap the `elpaca' package manager."
|
|
(setq elpaca-bootstrap-file (expand-file-name "elpaca-bootstrap.el"
|
|
user-emacs-directory))
|
|
(unless (file-exists-p elpaca-bootstrap-file)
|
|
(with-current-buffer
|
|
(pop-to-buffer
|
|
(url-retrieve-synchronously "https://raw.githubusercontent.com/progfolio/elpaca/master/README.md"))
|
|
(re-search-forward (rx "### Installer\n"))
|
|
(let ((start (1+ (re-search-forward "```emacs-lisp")))
|
|
(end (- (re-search-forward "\n```") 3)))
|
|
(write-region start end elpaca-bootstrap-file))))
|
|
(load-file elpaca-bootstrap-file)
|
|
(elpaca 'dash (require 'dash))
|
|
(elpaca elpaca-use-package
|
|
(elpaca-use-package-mode)
|
|
(setq elpaca-use-package-by-default t))
|
|
;; (elpaca-wait)
|
|
)
|
|
|
|
(elpaca-bootstrap)
|
|
|
|
(setq init-hook 'elpaca-after-init-hook)
|
|
;; do the things
|
|
(add-hook 'server-after-make-frame-hook #'mir/graphical-setup)
|
|
(if (display-graphic-p)
|
|
(add-hook 'elpaca-after-init-hook #'mir/graphical-setup)
|
|
;; (add-hook 'after-init-hook #'mir/graphical-setup)
|
|
)
|
|
|
|
(use-package compat)
|
|
(use-package marginalia :init (marginalia-mode))
|
|
;; (elpaca gcmh (gcmh-mode))
|
|
(use-package page-break-lines
|
|
:init
|
|
(add-hook 'emacs-lisp-mode-hook #'page-break-lines-mode))
|
|
(use-package powershell
|
|
:mode ("\\.ps1\\'" . powershell-mode))
|
|
|
|
;; (message "elpaca queues: %s" elpaca--queues)
|
|
;; (if (fboundp #'elpaca) (elpaca-wait))
|
|
|
|
;; diminish
|
|
(use-package diminish
|
|
:config
|
|
(diminish 'page-break-lines-mode)
|
|
(diminish 'visual-line-mode))
|
|
|
|
(use-package rainbow-mode
|
|
:diminish
|
|
:hook (prog-mode . rainbow-mode))
|
|
;; Keybinding manager
|
|
(use-package general
|
|
:demand t
|
|
:custom (default-input-method "japanese")
|
|
:config (require 'mir-keybinds))
|
|
;;(if (fboundp #'elpaca) (elpaca-wait))
|
|
(elpaca-wait)
|
|
|
|
;;(when (featurep 'eldoc)
|
|
;; (unload-feature 'eldoc t))
|
|
;; (elpaca eldoc
|
|
;; )
|
|
;; (elpaca-wait)
|
|
|
|
(use-package eldoc-box
|
|
:after eldoc
|
|
:diminish (eldoc-mode eldoc-box-hover-at-point-mode)
|
|
:hook (prog-mode . eldoc-box-hover-at-point-mode)
|
|
:init
|
|
(defun mir/eldoc-dont (orig &rest args)
|
|
(unless (member 'use-package args)
|
|
(apply orig args)))
|
|
(advice-add #'eldoc :around #'mir/eldoc-dont)
|
|
)
|
|
;; (eldoc 'nothing)
|
|
|
|
;; load evil or meow
|
|
(require 'mir-evil)
|
|
;; (require 'mir-meow)
|
|
|
|
(use-package undo-fu
|
|
:after evil
|
|
:if (< (string-to-number emacs-version) 28)
|
|
:diminish)
|
|
(use-package undo-fu-session
|
|
:custom (undo-fu-session-directory (expand-file-name "undo-cache/"
|
|
user-emacs-directory))
|
|
:init (undo-fu-session-global-mode))
|
|
(use-package vundo
|
|
:custom (vundo-glyph-alist vundo-unicode-symbols)
|
|
:config
|
|
;; taken from https://github.com/casouri/vundo/issues/56
|
|
(defun my/vundo-diff ()
|
|
(interactive)
|
|
(let* ((orig vundo--orig-buffer)
|
|
(source (vundo--current-node vundo--prev-mod-list))
|
|
(dest (vundo-m-parent source)))
|
|
(if (or (not dest) (eq source dest))
|
|
(message "vundo diff not available.")
|
|
(let ((buf (make-temp-name (concat (buffer-name orig) "-vundo-diff"))))
|
|
(vundo--move-to-node source dest orig vundo--prev-mod-list)
|
|
(with-current-buffer (get-buffer-create buf)
|
|
(insert-buffer orig))
|
|
(vundo--refresh-buffer orig (current-buffer) 'incremental)
|
|
(vundo--move-to-node dest source orig vundo--prev-mod-list)
|
|
(vundo--refresh-buffer orig (current-buffer) 'incremental)
|
|
(diff-buffers buf orig)
|
|
(kill-buffer buf)))))
|
|
:general
|
|
(general-define-key
|
|
:states '(normal visual)
|
|
:prefix "SPC"
|
|
"u" 'vundo)
|
|
(general-define-key
|
|
:keymaps 'vundo-mode-map
|
|
"d" 'my/vundo-diff))
|
|
|
|
(use-package altcaps
|
|
:after evil
|
|
:ensure (:host github
|
|
:repo "protesilaos/altcaps")
|
|
:general (general-define-key
|
|
:states 'visual
|
|
"`" 'altcaps-region))
|
|
|
|
;; edwina window manager, like the kool kids
|
|
(use-package edwina
|
|
:after evil
|
|
:custom
|
|
(edwina-mfact 0.59)
|
|
;; (display-buffer-base-action '(display-buffer-below-selected))
|
|
:init
|
|
(advice-add 'balance-windows
|
|
:override 'edwina-arrange)
|
|
(add-hook 'server-after-make-frame-hook #'edwina-arrange)
|
|
(add-hook 'after-init-hook #'edwina-arrange)
|
|
(add-hook 'elpaca-after-init-hook #'edwina-arrange)
|
|
:config
|
|
(edwina-mode)
|
|
(edwina-arrange)
|
|
:general
|
|
(general-define-key
|
|
[remap split-window-right] 'edwina-clone-window
|
|
[remap evil-window-move-far-left] 'edwina-zoom
|
|
[remap evil-window-move-far-right] 'edwina-zoom
|
|
[remap evil-window-increase-height] 'edwina-inc-mfact
|
|
[remap evil-window-decrease-height] 'edwina-dec-mfact
|
|
[remap balance-windows] 'edwina-arrange))
|
|
|
|
;; show command that caused last scrollback in eshell etc
|
|
(use-package sticky-shell
|
|
:ensure (sticky-shell
|
|
:host github
|
|
:repo "andyjda/sticky-shell")
|
|
:after eshell
|
|
:config
|
|
(defun esh--turn-off-sticky-shell ()
|
|
"Disable `sticky-shell-mode'."
|
|
(sticky-shell-mode -1))
|
|
(defun esh--turn-on-sticky-shell ()
|
|
"Enable `sticky-shell-mode'."
|
|
(sticky-shell-mode 1))
|
|
(defun mir/sticky-shell-refresh ()
|
|
"Only turn on sticky-shell if the prompt is at the bottom line of window."
|
|
(if (>= (line-number-at-pos (point)) (window-height))
|
|
(esh--turn-on-sticky-shell)
|
|
(esh--turn-off-sticky-shell)))
|
|
(add-hook 'eshell-post-command-hook #'mir/sticky-shell-refresh)
|
|
;; https://emacs.ch/@bram85/109612654687707030
|
|
(defun mir/esh-outline-setup ()
|
|
(outline-minor-mode)
|
|
(diminish 'outline-minor-mode)
|
|
(setq-local outline-regexp eshell-prompt-regexp))
|
|
(add-hook 'eshell-mode-hook #'mir/esh-outline-setup))
|
|
(use-package exec-path-from-shell
|
|
:hook (eshell-mode . exec-path-from-shell-initialize))
|
|
|
|
(use-package eat
|
|
:ensure (eat :type git
|
|
: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")))
|
|
:custom
|
|
(eat-kill-buffer-on-exit t)
|
|
:general
|
|
(general-define-key
|
|
:states 'insert
|
|
:map 'eat-semi-char-mode-map
|
|
"C-S-v" 'eat-yank)
|
|
:hook
|
|
(eshell-mode . eat-eshell-visual-command-mode)
|
|
(eshell-mode . eat-eshell-mode)
|
|
(eat-mode . evil-insert-state))
|
|
(use-package hide-mode-line
|
|
:commands (hide-mode-line-mode))
|
|
(use-package eshell-syntax-highlighting
|
|
:after eshell
|
|
:hook
|
|
(eshell-mode . eshell-syntax-highlighting-mode)
|
|
(eshell-syntax-highlighting-elisp-buffer-setup
|
|
. rainbow-delimiters-mode)
|
|
(eshell-syntax-highlighting-elisp-buffer-setup
|
|
. highlight-defined-mode)
|
|
:custom
|
|
(eshell-syntax-highlighting-in-remote-dirs t))
|
|
(use-package eshell-dat
|
|
:ensure (eshell-dat
|
|
:repo "https://git.marq42.xyz/mir/eshell-dat")
|
|
:after eshell)
|
|
(use-package ansilove
|
|
:ensure (:host gitlab
|
|
:repo "xgqt/emacs-ansilove")
|
|
:commands ansilove)
|
|
(use-package p11k
|
|
:ensure (:repo "https://git.marq42.xyz/mir/p11k")
|
|
:after eshell
|
|
:hook (eshell-first-time-mode . p11k-mode))
|
|
|
|
;; File manager. Only breaks when you brag about how it doesn't.
|
|
(use-package all-the-icons
|
|
:ensure (all-the-icons
|
|
;; :post-build
|
|
;; ("emacsclient" "--eval '(all-the-icons-install-fonts t)'")
|
|
))
|
|
(use-package nerd-fonts
|
|
:ensure (:host github
|
|
:repo "twlz0ne/nerd-fonts.el"))
|
|
;; (use-package nerd-icons ;has error
|
|
;; :ensure (:host github :repo "rainstormstudio/nerd-icons.el")
|
|
;; :custom (nerd-icons-font-family "MesloLGS NF"))
|
|
(use-package dirvish
|
|
:ensure (: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
|
|
"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))
|
|
|
|
;; Completion framework...
|
|
(use-package vertico
|
|
:ensure (:files (:defaults "extensions/*.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.
|
|
|
|
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))
|
|
(use-package vertico-mouse
|
|
:ensure nil
|
|
:after vertico
|
|
:config
|
|
(vertico-mouse-mode))
|
|
(use-package app-launcher
|
|
:ensure (app-launcher
|
|
:host github :repo "SebastienWae/app-launcher")
|
|
:commands (app-launcher-run-app emacs-run-launcher)
|
|
: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 と ~/.config/hypr/hyprland.conf
|
|
(name . "dentarthurdent")
|
|
(minibuffer . only)
|
|
(width . 120)
|
|
(height . 11)))
|
|
(unwind-protect
|
|
(app-launcher-run-app)
|
|
(delete-frame)))))
|
|
|
|
(use-package consult
|
|
:after vertico
|
|
:general
|
|
(general-define-key
|
|
[remap switch-to-buffer] 'consult-buffer))
|
|
;; Minibuffer generic stuff
|
|
(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 ; broken by default on gnome. Run `ibus-setup' -> emoji
|
|
"C-;" 'embark-dwim)
|
|
:init
|
|
;; TODO: Should we put this in the which-key section?
|
|
(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)
|
|
:custom (enable-recursive-minibuffers t))
|
|
;; Consult users will also want the embark-consult package.
|
|
(use-package embark-consult
|
|
:after (embark consult))
|
|
|
|
;; el-patch, TODO remove linum requirement
|
|
;; upd: this is not waht that does 💀
|
|
;; (use-package el-patch)
|
|
;; SORTA WORKING: Relative line numbers with stuff
|
|
(use-package nlinum
|
|
:custom-face
|
|
(linum
|
|
((t (:foreground "#303030"))))
|
|
:ensure (:repo "https://git.marq42.xyz/mir/nlinum"))
|
|
(use-package nlinum-relative
|
|
:custom
|
|
(nlinum-relative-redisplay-delay 0)
|
|
:hook (prog-mode . nlinum-relative-mode)
|
|
:init
|
|
(defun mir/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
|
|
(line-number-at-pos (point-max))))))
|
|
(add-hook 'nlinum-relative-mode-hook #'mir/nlinum-buffer-setup)
|
|
;; (add-hook 'minibuffer-exit-hook #'mir/nlinum-buffer-setup)
|
|
)
|
|
|
|
;; Better modeline? Better modeline.
|
|
(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 ""))
|
|
:init
|
|
(defun mir/powerline-never-select-cfwindow (orig)
|
|
"Only run ORIG if the current frame is not a child frame."
|
|
(unless (frame-parent) (funcall orig)))
|
|
(advice-add #'powerline-set-selected-window
|
|
:around #'mir/powerline-never-select-cfwindow))
|
|
(use-package doom-modeline
|
|
:disabled
|
|
:after airline-themes
|
|
:custom
|
|
(doom-modeline-hud t)
|
|
(doom-modeline-buffer-encoding nil)
|
|
(doom-modeline-unicode-fallback t)
|
|
(doom-modeline-buffer-file-name-style 'truncate-upto-root)
|
|
(doom-modeline-highlight-modified-buffer-name nil)
|
|
:config (doom-modeline-mode))
|
|
;; (elpaca-wait)
|
|
(use-package airline-themes
|
|
:custom
|
|
(airline-cursor-colors nil)
|
|
(airline-display-directory t)
|
|
(airline-eshell-colors nil)
|
|
(airline-shortened-directory-length 20)
|
|
:custom-face
|
|
(mode-line
|
|
((t (:box (:style released-button
|
|
;; :line-width (0.5 . 0.5)
|
|
)))))
|
|
;; :config (load-theme 'airline-kolor t)
|
|
)
|
|
;; see https://github.com/dbordak/telephone-line/issues/126
|
|
;; (no telephone-line because why)
|
|
|
|
;; Custom Theme.
|
|
;; Not to be confused with a color theme, or a color scheme, or a custom scheme.
|
|
(use-package sv-theme
|
|
:ensure (sv-theme
|
|
:repo
|
|
"https://git.marq42.xyz/mir/sv-theme")
|
|
:config
|
|
(mir/visual-setup)
|
|
(set-face-attribute 'font-lock-comment-face nil :inherit 'variable-pitch)
|
|
(load-theme 'airline-ravenpower t)
|
|
:init (load-theme 'sv t))
|
|
|
|
;; parentheses settingses
|
|
(use-package paredit
|
|
;; :ensure 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
|
|
:diminish
|
|
: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)
|
|
:hook (prog-mode . paredit-mode)
|
|
:init
|
|
(show-paren-mode 1)
|
|
(paredit-mode 1)
|
|
(electric-pair-mode 1)
|
|
:custom
|
|
(show-paren-delay 0)
|
|
(show-paren-style 'parenthesis))
|
|
(use-package evil-paredit
|
|
:after paredit)
|
|
(use-package lispyville
|
|
:diminish
|
|
:hook (paredit-mode . lispyville-mode))
|
|
|
|
;; org mode and messy things
|
|
(use-package org
|
|
:ensure nil
|
|
:diminish (org-indent-mode org-vw-mode)
|
|
:custom
|
|
;; (org-hide-leading-stars t)
|
|
;; (org-startup-indented t)
|
|
;; (org-hide-emphasis-markers t)
|
|
(inhibit-compacting-font-caches t)
|
|
;; (org-element-use-cache nil)
|
|
:config
|
|
(add-hook 'after-save-hook
|
|
(lambda () (if (equal major-mode 'org-mode)
|
|
(org-babel-tangle))))
|
|
(make-local-variable 'completion-at-point-functions)
|
|
(add-to-list 'completion-at-point-functions #'cape-ispell)
|
|
(defun insert-zws ()
|
|
(interactive)
|
|
(insert 8203)) ; this is a Zero Width Space. It makes things confusing.
|
|
(defun insert-ï ()
|
|
(interactive)
|
|
(insert 239)) ; this is a lowercase I with an umlaut. Used for the word `naiive'.
|
|
(defun mir/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
|
|
#'mir/org-grayify-stars 90)
|
|
(defun mir-insert-current-datetime ()
|
|
"Insert the current date and time in my preffered format, with a newline at
|
|
the end."
|
|
(interactive)
|
|
(let ((calendar-date-display-form calendar-iso-date-display-form))
|
|
(insert
|
|
(downcase
|
|
(format "%s %s\n" (calendar-date-string (calendar-current-date))
|
|
(format-time-string "%-l:%M %p"))))))
|
|
(defun mir-1st-heading-now ()
|
|
"Insert a brand new 2nd level Org heading containing the current date/time.
|
|
Start insert mode."
|
|
(interactive)
|
|
(goto-char (point-max))
|
|
(insert "* ")
|
|
(mir-insert-current-datetime)
|
|
(evil-insert 1))
|
|
|
|
: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
|
|
"`" (general-key-dispatch 'self-insert-command
|
|
:timeout 0.1
|
|
"SPC" 'insert-zws
|
|
"i" 'insert-ï))
|
|
(general-define-key
|
|
:states 'normal
|
|
:keymaps 'org-src-mode-map
|
|
"ZZ" 'org-edit-src-exit))
|
|
(use-package ox-hugo
|
|
:after org
|
|
: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."
|
|
(let ((thisdir dir))
|
|
(let ((lexical-binding t))
|
|
(if (eq thisdir nil) nil
|
|
(if (file-exists-p (expand-file-name "config.toml" thisdir))
|
|
thisdir
|
|
(let ((updir (file-name-directory (string-trim-right thisdir "/"))))
|
|
(hugo-dir-above updir)))))))
|
|
;; (hugo-dir-above "~/.local/git/marq42.github.io/content-org/")
|
|
(defun hugo-compile (&optional dir)
|
|
(interactive)
|
|
(if (bound-and-true-p dir) nil
|
|
(setq dir default-directory))
|
|
(let ((hugo-dir (hugo-dir-above dir)))
|
|
(if hugo-dir
|
|
(progn
|
|
(if (string-match-p (rx bol (* any) "/content-org" (opt "/") eol)
|
|
default-directory)
|
|
(org-hugo-export-wim-to-md))
|
|
(let* ((default-directory hugo-dir)
|
|
(buffer (get-buffer-create "*hugo*")))
|
|
(with-current-buffer buffer
|
|
;; (compilation-mode)
|
|
(let* ((inhibit-read-only t)
|
|
(status-code (call-process-shell-command "hugo" nil buffer)))
|
|
(if (zerop status-code)
|
|
(message "Hugo re-generated!")
|
|
(error "Hugo exited %s, better change something!" status-code)))))))))
|
|
(add-hook 'after-save-hook #'hugo-compile))
|
|
(use-package ox-clip
|
|
:commands ox-clip-formatted-copy)
|
|
|
|
;; cheaty key popups
|
|
(use-package which-key
|
|
:diminish
|
|
:defer 5
|
|
:custom (which-key-idle-delay 2.5)
|
|
:init (which-key-mode t))
|
|
(use-package which-key-posframe
|
|
:after which-key
|
|
:if (display-graphic-p)
|
|
:config (which-key-posframe-mode))
|
|
|
|
;; parentheses are boring
|
|
(use-package rainbow-delimiters
|
|
:diminish
|
|
:defer 1
|
|
:custom (rainbow-delimiters-max-face-count 2)
|
|
:hook (prog-mode . rainbow-delimiters-mode))
|
|
|
|
;; c sharp; see 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-mode)
|
|
(lsp-mode . lsp-enable-which-key-integration)
|
|
(lsp-completion-mode . corfu/lsp-mode-setup-completion))
|
|
:commands lsp
|
|
:diminish lsp-lens-mode
|
|
:custom (lsp-completion-provider :none)
|
|
:config (defun corfu/lsp-mode-setup-completion ()
|
|
(setf (alist-get 'styles (alist-get 'lsp-capf completion-category-defaults))
|
|
'(flex))))
|
|
|
|
;; 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))
|
|
(use-package relint
|
|
:commands relint-file)
|
|
(use-package elisp-autofmt
|
|
:ensure (elisp-autofmt
|
|
:url "https://codeberg.org/ideasman42/emacs-elisp-autofmt"
|
|
:files ("*"))
|
|
:custom (elisp-autofmt-python-bin "/usr/bin/python3"))
|
|
|
|
;; Shell linting?
|
|
(use-package flymake
|
|
:diminish
|
|
:custom
|
|
(flymake-note-bitmap '(right-arrow compilation-info))
|
|
(flymake-error-bitmap '(right-arrow compilation-info))
|
|
(flymake-warning-bitmap '(right-arrow compilation-info))
|
|
:hook (prog-mode . flymake-mode))
|
|
|
|
;; Emacs startup profiling -- may not work with chemacs2
|
|
(use-package esup
|
|
:commands esup
|
|
:custom (esup-depth 0))
|
|
;; (esup buffer-file-name) ;useless
|
|
|
|
;; 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)
|
|
:diminish
|
|
: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 corfu
|
|
:after eldoc
|
|
:ensure (:files (:defaults "extensions/*.el"))
|
|
;; :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 t)
|
|
(corfu-preview-current nil)
|
|
(corfu-on-exact-match 'insert)
|
|
;; (corfu-scroll-margin 5)
|
|
(tab-always-indent 'complete)
|
|
(tab-first-completion 'eol)
|
|
(tooltip-delay 0.01)
|
|
(use-system-tooltips nil)
|
|
(tooltip-hide-delay 60)
|
|
:custom-face
|
|
(tooltip
|
|
((t (:inherit 'corfu-default))))
|
|
:init
|
|
(global-corfu-mode)
|
|
(tooltip-mode)
|
|
:config
|
|
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent)
|
|
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify)
|
|
(corfu-echo-mode)
|
|
(corfu-history-mode)
|
|
: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))
|
|
(use-package cape
|
|
:after corfu
|
|
:init
|
|
(add-to-list 'completion-at-point-functions #'cape-dabbrev)
|
|
(add-to-list 'completion-at-point-functions #'cape-file))
|
|
(use-package pcmpl-args
|
|
:after eshell)
|
|
|
|
(unless (display-graphic-p)
|
|
(use-package popon
|
|
:ensure ( :type git
|
|
:repo "https://codeberg.org/akib/emacs-popon"))
|
|
(use-package corfu-terminal
|
|
:ensure (corfu-terminal
|
|
:type git
|
|
:repo "https://codeberg.org/akib/emacs-corfu-terminal")
|
|
:after popon
|
|
:init (unless
|
|
(display-graphic-p)
|
|
(corfu-terminal-mode +1))))
|
|
|
|
(use-package transient :ensure t)
|
|
(use-package magit
|
|
:after seq
|
|
: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))))))
|
|
(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)))
|
|
;; ;; broken bc of hl-todo version issue
|
|
;; (use-package magit-todos
|
|
;; :after magit
|
|
;; :init (magit-todos-mode))
|
|
(use-package blamer
|
|
:ensure (:host github :repo "artawower/blamer.el")
|
|
:after magit
|
|
:custom
|
|
(blamer-view 'overlay)
|
|
(blamer-idle-time 10)
|
|
(blamer-min-offset 70)
|
|
(blamer-prettify-time-p t)
|
|
(blamer-show-avatar-p t)
|
|
:custom-face
|
|
(blamer-face ((t :foreground "#7a88cf"
|
|
:height 140
|
|
:italic t)))
|
|
:commands blamer-show-posframe-commit-info)
|
|
;; (use-package magit-stats
|
|
;; :ensure (:host github :repo "LionyxML/magit-stats")
|
|
;; :defer t
|
|
;; :commands magit-stats)
|
|
;; (use-package magit-pretty-graph
|
|
;; :ensure (:host github :repo "georgek/magit-pretty-graph")
|
|
;; :after magit
|
|
;; :commands magit-pg-repo)
|
|
|
|
(use-package hyperbole
|
|
:ensure (:files ("*.el"
|
|
("kotl" "kotl/*.el")
|
|
"man/*.info" "man/*.texi")
|
|
:host github :repo "rswgnu/hyperbole")
|
|
:diminish
|
|
:general (general-define-key
|
|
:states 'normal
|
|
"RET" 'hkey-either))
|
|
|
|
(use-package dconf-mode
|
|
:ensure (dconf-mode
|
|
:type git
|
|
:repo "https://git.marq42.xyz/mir/dconf-mode"))
|
|
|
|
(use-package info-variable-pitch
|
|
:ensure (info-variable-pitch
|
|
:host github
|
|
:repo "kisaragi-hiu/info-variable-pitch")
|
|
:config
|
|
(add-hook 'Info-mode-hook #'info-variable-pitch-mode))
|
|
|
|
(use-package slime
|
|
:if (file-exists-p (expand-file-name "~/quicklisp/slime-helper.el"))
|
|
:commands (slime slime-connect)
|
|
:custom (inferior-lisp-program "sbcl")
|
|
:config (load (expand-file-name "~/quicklisp/slime-helper.el")))
|
|
|
|
(use-package dwim-shell-command
|
|
:ensure (dwim-shell-command
|
|
:files (:defaults "dwim-shell-commands.el"))
|
|
:config (require 'dwim-shell-commands)
|
|
:commands dwim-shell-commands-kill-process)
|
|
|
|
(use-package youtube-sub-extractor
|
|
:ensure (youtube-sub-extractor
|
|
:host github
|
|
:repo "agzam/youtube-sub-extractor.el")
|
|
:custom (youtube-sub-extractor-timestamps 'left-margin)
|
|
:commands youtube-sub-extractor-extract-subs)
|
|
|
|
;; Cheat sheet
|
|
(use-package cheat-sh
|
|
:ensure (cheat-sh :host github :repo "davep/cheat-sh.el")
|
|
:commands cheat-sh)
|
|
|
|
(use-package pcre2el
|
|
:ensure (:host github
|
|
:repo "joddie/pcre2el")
|
|
:config
|
|
(defmacro prx (&rest expressions)
|
|
"Convert the rx-compatible regular EXPRESSIONS to PCRE.
|
|
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"))
|
|
(regexp "[0-9]\\{1,2\\}")))
|
|
(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))))
|
|
:commands prx)
|
|
|
|
(use-package haskell-mode
|
|
:mode "\\.hs")
|
|
(use-package yuck-mode
|
|
:mode "\\.yuck")
|
|
|
|
;; (use-package fretboard
|
|
;; :ensure (:host github :repo "vifon/fretboard.el")
|
|
;; :commands fretboard)
|
|
|
|
(use-package power-mode
|
|
:commands power-mode
|
|
:custom
|
|
(power-mode-streak-shake-threshold nil))
|
|
(use-package notibox
|
|
:if (display-graphic-p)
|
|
:ensure (:host github :repo "MitchMarq42/notibox.el")
|
|
:demand t
|
|
:custom (notibox-corner 'topright)
|
|
:config (notibox/setup-timer))
|
|
|
|
|
|
(use-package vidframe
|
|
:if (display-graphic-p) ;we won't yet bother with
|
|
;kitty/sixel/catimg shit
|
|
:ensure (:host github :repo "MitchMarq42/vidframe.el")
|
|
:defer t)
|
|
|
|
;; Kitty Keyboard Protocol
|
|
(use-package kkp
|
|
:ensure (:host github :repo "benjaminor/kkp")
|
|
:unless (display-graphic-p)
|
|
:config (global-kkp-mode))
|
|
|
|
;; Rubix Cube
|
|
(use-package eagle
|
|
:ensure (:repo "https://codeberg.org/akib/emacs-eagle"))
|
|
(use-package cube
|
|
:ensure (:repo "https://codeberg.org/akib/emacs-cube")
|
|
:commands 'cube)
|
|
|
|
(use-package dtache
|
|
:ensure (:repo "https://gitlab.com/niklaseklund/dtache")
|
|
:hook (after-init . dtache-setup))
|
|
|
|
|
|
(use-package org-modern-indent
|
|
:ensure (:type git :host github :repo "jdtsmith/org-modern-indent")
|
|
:hook (org-mode . org-modern-indent-mode))
|
|
|
|
(use-package indent-bars
|
|
:ensure (:type git :host github :repo "jdtsmith/indent-bars")
|
|
:custom
|
|
(indent-bars-prefer-character t)
|
|
(indent-bars-color '(highlight :face-bg t :blend 0.75))
|
|
(indent-bars-color-by-depth '(:palette ("lime" "yellow" "pink" "cyan") :blend 1))
|
|
(indent-bars-unspecified-fg-color "white")
|
|
(indent-bars-unspecified-bg-color "black")
|
|
(indent-bars-highlight-current-depth '(:face error :blend 0.7))
|
|
:hook (python-mode . indent-bars-mode))
|
|
|
|
|
|
(use-package lua-mode
|
|
:mode "\\.lua")
|
|
|
|
(use-package nix-mode
|
|
:mode "\\.nix")
|
|
|
|
(use-package yeetube
|
|
:defer t
|
|
:commands 'yeetube-search)
|
|
|
|
;(require 'mir-packages)
|
|
;; (setq esup-depth 0)
|
|
|
|
;; Absolute line numbers. Relative ones are an annoyance to set up, sadly.
|
|
;; (global-display-line-numbers-mode)
|
|
;; (defvar display-line-numbers-width-start t)
|
|
|
|
;; Don't barf out emacs errors as they are encountered
|
|
(setq debug-on-error nil)
|
|
|
|
;;; init.el ends here
|