blob: 21df594025be5e8e34a2b47d0044af3c42cfcb3c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
;; Path Functions -*- lexical-binding: t -*-
(require 'xdg)
(defun my/cache-file-name (name)
(expand-file-name name (concat (xdg-cache-home) "/emacs")))
(defun my/data-file-name (name)
(expand-file-name name (concat (xdg-data-home) "/emacs")))
;; Search Helpers
(defun my/consult-ripgrep (&optional dir)
"Call ‘consult-ripgrep’ with the contents of the region as INITIAL
when possible."
(interactive)
(if (not (use-region-p))
(consult-ripgrep dir)
(deactivate-mark)
(consult-ripgrep dir (buffer-substring-no-properties
(region-beginning) (region-end)))))
(defun my/isearch-region (&rest _args)
"Pull the contents of the region into the search string if it
is active."
(when (use-region-p)
(deactivate-mark)
(isearch-yank-string (buffer-substring-no-properties
(region-beginning) (region-end)))))
;; Theme Functions
(defun my/maybe-switch-theme (light-theme dark-theme enable-dark-theme-p)
"Switch between themes.
If ENABLE-DARK-THEME-P returns a non-nil value, then DARK-THEME
is enabled and LIGHT-THEME is disabled, unless DARK-THEME is
already enabled, undefined, or nil. The opposite happens if
ENABLE-DARK-THEME-P returns nil, unless if LIGHT-THEME is nil, in
which case only DARK-THEME is disabled, and nothing else is
enabled."
(if (funcall enable-dark-theme-p)
(when (and (custom-theme-p dark-theme)
(not (custom-theme-enabled-p dark-theme)))
(enable-theme dark-theme)
(disable-theme light-theme))
(if (and (not light-theme) (custom-theme-enabled-p dark-theme))
(disable-theme dark-theme)
(when (and (custom-theme-p light-theme)
(not (custom-theme-enabled-p light-theme)))
(enable-theme light-theme)
(disable-theme dark-theme)))))
(defun my/set-frame-font ()
"Set font in the selected frame."
(let* ((pred (lambda (font) (x-family-fonts (plist-get font :family))))
(font (seq-find pred my/fonts)))
(when font
(apply #'set-face-attribute `(default nil ,@font)))))
;; “Window Management” Functions
(defun my/center-frame (&optional frame)
"Center FRAME."
(interactive)
(modify-frame-parameters frame '((left . 0.5) (top . 0.5))))
(defun my/disable-frame-modes ()
"Disable select frame modes where appropriate."
(dolist (mode '(menu-bar-mode scroll-bar-mode tool-bar-mode))
(when (and (fboundp mode) (symbol-value mode)) (funcall mode -1))))
;; Misc. Stuff
(defun my/display-startup-time ()
"Displays a message saying how long it took Emacs to load."
(message "Emacs loaded in %.2f seconds with %d garbage collections done."
(float-time (time-subtract after-init-time before-init-time))
gcs-done))
(defun my/eglot-organize-imports ()
"Interactively call ‘eglot-code-action-organize-imports’."
(interactive)
(call-interactively #'eglot-code-action-organize-imports))
(defmacro my/with-add-hook (hook &rest body)
(declare (indent 1) (debug t))
`(add-hook ,hook #'(lambda () ,@body)))
|
