only use straight.el, consolidate everything from packages file to init

This commit is contained in:
mir 2024-02-23 21:34:31 -09:00
parent 16e11efbb5
commit 19ec820674
2 changed files with 963 additions and 940 deletions

975
init.el

File diff suppressed because it is too large Load Diff

View File

@ -8,143 +8,7 @@
;; (use-package no-littering) ;a bad start, and we need more
;; diminish
(use-package diminish
:config (diminish 'visual-line-mode))
;; Keybinding manager
(use-package general
:demand t
:custom (default-input-method "japanese")
:config (require 'mir-keybinds))
(if (fboundp #'elpaca) (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))
;; (use-package use-package-ensure-system-package)
;; 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 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
:git (: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))
:config (edwina-mode)
(advice-add 'balance-windows
:override 'edwina-arrange)
(add-hook 'server-after-make-frame-hook #'edwina-arrange)
(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
:git (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
:git (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)
: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))
(use-package eshell-dat
:git (eshell-dat
:repo "https://git.marq42.xyz/mir/eshell-dat")
:after eshell)
(use-package ansilove
:git (:host gitlab
:repo "xgqt/emacs-ansilove")
:commands ansilove)
;; (use-package gitstatus
;; :git (:host github
;; :repo "igorepst/gitstatus-el")
@ -154,624 +18,6 @@
;; (setq gitstatusd-exe (format "~/.cache/gitstatus/gitstatusd-linux-%s"
;; system-architecture))
;; (add-hook 'eshell-before-prompt-hook #'gitstatus-eshell-start))
(use-package p11k
:git (: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
:git (all-the-icons
;; :post-build
;; ("emacsclient" "--eval '(all-the-icons-install-fonts t)'")
))
(use-package nerd-fonts
:git (:host github
:repo "twlz0ne/nerd-fonts.el"))
;; (use-package nerd-icons ;has error
;; :git (:host github :repo "rainstormstudio/nerd-icons.el")
;; :custom (nerd-icons-font-family "MesloLGS NF"))
(use-package dirvish
:git (: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
:git (: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
:git nil
:after vertico
:config
(vertico-mouse-mode))
(use-package app-launcher
:git (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 と ~/.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)
;; el-patch, TODO remove linum requirement
(use-package el-patch)
;; SORTA WORKING: Relative line numbers with stuff
(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 '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
:git (sv-theme
:repo
"https://git.marq42.xyz/mir/sv-theme")
:config
(mir/visual-setup)
(load-theme 'airline-ravenpower t)
:init (load-theme 'sv t))
;; parentheses settingses
(use-package paredit
;; :git 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
:git 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
;; :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)
(use-package elisp-autofmt
:git (elisp-autofmt
:host "https://codeberg.org"
:repo "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
:git (: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)
(use-package popon
:git (:type git
:repo "https://codeberg.org/akib/emacs-popon")
:if (not (display-graphic-p)))
(use-package corfu-terminal
:git (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 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
:git (: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
:git (:host github :repo "LionyxML/magit-stats")
:after magit
:commands magit-stats)
(use-package magit-pretty-graph
:git (:host github :repo "georgek/magit-pretty-graph")
:after magit
:commands magit-pg-repo)
;; (use-package transient-posframe
;; ;; :after magit
;; :if (display-graphic-p)
;; :config
;; (transient-posframe-mode)
;; ;; (add-to-list 'display-buffer-alist
;; ;; '(" *transient*" . transient-posframe--show-buffer))
;; )
(use-package hyperbole
:git (: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
:git (dconf-mode
:type git
:repo "https://git.marq42.xyz/mir/dconf-mode"))
(use-package info-variable-pitch
:git (info-variable-pitch
:host github
:repo "kisaragi-hiu/info-variable-pitch")
:config
(add-hook 'Info-mode-hook #'info-variable-pitch-mode))
;; (elpaca nil
;; (use-package exwm
@ -786,85 +32,6 @@ Return nil if DIR is not in a hugo project at all."
;; :repo "https://git.marq42.xyz/mir/ani-el"
;; :files ("ani-el.el" "lib")))
(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")))
;; Java never looked so useful...
(use-package clojure-mode
:mode "\\.cljs\\'")
(use-package inf-clojure
:after clojure-mode)
;; or an okay language
(use-package cider
:after clojure-mode)
(use-package dwim-shell-command
:git (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
:git (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
:git (cheat-sh :host github :repo "davep/cheat-sh.el")
:commands cheat-sh)
(use-package pcre2el
:git (: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)))))
(use-package haskell-mode)
(use-package yuck-mode)
(use-package empv
:after embark
:custom
(empv-invidious-instance "https://invidious.sethforprivacy.com/api/v1")
:config (empv-embark-initialize-extra-actions)
(add-to-list 'empv-mpv-args "--ytdl-format=best"))
(use-package fretboard
:git (:host github :repo "vifon/fretboard.el")
:commands fretboard)
(use-package power-mode
:commands power-mode
:custom
(power-mode-streak-shake-threshold nil))
;; (use-package hypop
;; :if (display-graphic-p)
;; :git (:repo "https://git.marq42.xyz/mir/hypop.el")
@ -873,13 +40,6 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
;; :after vertico
;; :if (display-graphic-p)
;; :config (vertico-posframe-mode))
(use-package notibox
:if (display-graphic-p)
:git (:host github :repo "MitchMarq42/notibox.el")
:demand t
:custom (notibox-corner 'topright)
:config (notibox/setup-timer))
;; (use-package hl-column ; disabled because visual yuck
;; :if (display-graphic-p)
;; :config
@ -894,74 +54,6 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
;; (hl-column
;; ((t (:inherit hl-line))))
;; :hook (prog-mode . hl-col-line-init))
(use-package vidframe
:if (display-graphic-p) ;we won't yet bother with
;kitty/sixel/catimg shit
:git (:host github :repo "MitchMarq42/vidframe.el")
)
;; Kitty Keyboard Protocol
(use-package kkp
:git (:host github :repo "benjaminor/kkp")
:unless (display-graphic-p)
:config (global-kkp-mode))
;; Rubix Cube
(use-package eagle
:git (:repo "https://codeberg.org/akib/emacs-eagle"))
(use-package cube
:git (:repo "https://codeberg.org/akib/emacs-cube"))
;; Emacs App Framework. Definitely pretty broken but it worked once
(unless (eq system-type 'windows-nt)
(use-package eaf
:git (:host github :repo "emacs-eaf/emacs-application-framework"
:files ("*.el" "*.py" "core" "app" "*.json")
:pre-build (("python" "install-eaf.py"
"--install" "pdf-viewer" "browser"
"--ignore-sys-deps")))
:commands (eaf-open-browser eaf-open-url-at-point)
:config (add-to-list 'load-path (expand-file-name "app/" eaf-source-dir))
(if (and (string= (getenv "XDG_CURRENT_DESKTOP") "Hyprland")
(featurep 'hypop))
(defun eaf--get-frame-coordinate ()
"We need fetch Emacs coordinate to adjust coordinate of EAF if it running on system not support cross-process reparent technology.
Such as, wayland native, macOS etc.
This is redefined for use with `hypop' library because multiple Emacs frames may be open."
(cond ((string-equal (getenv "XDG_CURRENT_DESKTOP") "sway")
(eaf--split-number (shell-command-to-string (concat eaf-build-dir "swaymsg-treefetch/swaymsg-rectfetcher.sh emacs"))))
((string-equal (getenv "XDG_CURRENT_DESKTOP") "Hyprland")
(let ((clients (json-parse-string (shell-command-to-string "hyprctl -j clients")))
(coordinate))
(dotimes (i (length clients))
(when (and (equal (gethash "pid" (aref clients i)) (emacs-pid))
(not (string= (gethash "title" (aref clients i)) hypop--frame-name)))
(setq coordinate (gethash "at" (aref clients i)))))
(list (aref coordinate 0) (aref coordinate 1))))
((eaf-emacs-running-in-wayland-native)
(require 'dbus)
(let* ((coordinate (eaf--split-number
(dbus-call-method :session "org.gnome.Shell" "/org/eaf/wayland" "org.eaf.wayland" "get_emacs_window_coordinate" :timeout 1000)
","))
;; HiDPI need except by `frame-scale-factor'.
(frame-x (truncate (/ (car coordinate) (frame-scale-factor))))
(frame-y (truncate (/ (cadr coordinate) (frame-scale-factor)))))
(list frame-x frame-y)))
(t (list 0 0)))))
(use-package eaf-browser
:git nil
:after eaf
:custom
(eaf-browser-continue-where-left-off t)
(eaf-browser-enable-adblocker t))))
(use-package dtache
:git (:repo "https://gitlab.com/niklaseklund/dtache")
:hook (after-init . dtache-setup))
;; (if (display-graphic-p)
;; (unless (string= (getenv "XDG_SESSION_DESKTOP") "hyprland")
;; (progn
@ -984,30 +76,10 @@ This is redefined for use with `hypop' library because multiple Emacs frames may
;; :url "https://codeberg.org/gargle/tumblesocks")
;; :custom (tumblesocks-blog "mirqmarq428.tumblr.com")
;; )
(use-package org-modern-indent
:git (:type git :host github :repo "jdtsmith/org-modern-indent")
:hook (org-mode . org-modern-indent-mode))
(use-package indent-bars
:git (: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))
;;; disabled because i cant make it look good
;; (use-package prism
;; :git (:host github :repo "alphapapa/prism.el")
;; :custom (prism-colors '()))
(use-package lua-mode)
(use-package nix-mode)
(provide 'mir-packages)
;;; mir-packages.el ends here