;;; 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) ;; see also https://emacs.stackexchange.com/questions/7228/nice-tty-window-borders-in-24-4 (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))) (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 "Monaspace Radon" :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)))) (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) (confirm-kill-processes nil) ;nice but gets annoying :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-expand-input-functions '(eshell-expand-history-references)) :init (setq eshell-banner-message "") :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 :after meow :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 :after meow :ensure (:host github :repo "protesilaos/altcaps") :general (general-define-key :states 'visual "`" 'altcaps-region)) ;; 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 :defer 3 :config (exec-path-from-shell-initialize) ;; :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) ;; (eat-mode . meow-insert) ) (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 (evil paredit)) ;; (use-package lispyville ;; ;; :after evil ;; :after meow ;; :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 ;; :ensure t ;; :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 (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)) ) ;; ;; 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 (:repo "https://git.marq42.xyz/mir/notibox") :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) (use-package super-hint :ensure ( :type git :host github :repo "eval-exec/super-hint.el")) (use-package zalgo-mode ;; t̫ͭ͋͐h̟͛͝i̴̥͔̓s̡̭̰ͭ ̻͔͛̾͋i̫̲ͬͬ̾͘s̯͎ͭ ͇͋̀z͔̰̹̽͑a̲̤ͫͭͬl̥͔͆͟g͕͕͇̔̈́o̢̥̻͌̔̅ ̠͓̦͗͜t͉̮͕̽e͓ͮ̒x̷̹̘͊̈́t̲̯͊ :ensure ( :type git :host github :repo "nehrbash/zalgo-mode")) (use-package geiser-guile) (use-package guix) ;(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 (put 'list-timers 'disabled nil)