/
init-util.el
194 lines (170 loc) · 6.56 KB
/
init-util.el
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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
;;; -*- lexical-binding: t -*-
;;; 工具包
;; 更加方便的快捷键设置，放在所有包之前
(use-package hydra
:straight t)
;; 规范化 emacs.d 的结构，使得配置集中于 ~/.emacs.d/etc，临时数据集中于 ~/.emacs.d/var
(use-package no-littering
:straight t
:config
(setq custom-file (no-littering-expand-etc-file-name "custom.el")) ; 设置 custom-file 路径
)
;; 测量启动时间
; 比较简朴的方式
(defun efs/display-startup-time ()
(interactive)
(message
"Emacs loaded in %s with %d garbage collections."
(format
"%.4f seconds"
(float-time
(time-subtract after-init-time before-init-time)))
gcs-done))
; 使用 M-x esup 就可以显示关键路径
(use-package esup
:straight t)
;; 展示颜色，用于 CSS 或者 HTML，当有 256 进制颜色的时候，可以 overlay 出颜色
(use-package rainbow-mode
:straight t
:functions (rainbow-turn-off rainbow-colorize-match rainbow-x-color-luminance)
:bind (:map help-mode-map
("r" . rainbow-mode))
:hook ((html-mode css-mode) . rainbow-mode)
)
;; 快捷键展示
(use-package which-key
:straight t)
;; 单独设置字体
(defun +set-buffer-face-mode-mono ()
"Set buffer-face-mode for org-agenda."
(interactive)
(setq buffer-face-mode-face '(:family "Sarasa Mono SC"))
(buffer-face-mode))
;; 超酷的截屏软件
(use-package screenshot
:straight
(screenshot :type git :host github :repo "tecosaur/screenshot")
:bind
("<f9>" . screenshot)
:config
(setq screenshot-line-numbers-p t)
(setq screenshot-max-width 400)
(setq screenshot-font-size 9) ; `9` is good, other maybe wrong
)
;;; 工具宏
;; Thanks to DOOM Emacs
(defmacro add-hook! (hooks &rest rest)
"A convenience macro for adding N functions to M hooks.
This macro accepts, in order:
1. The hook(s) to add to.
2. Optional properties :local, :append, and/or :depth [N].
3. The function(s) to be added: this can be a quoted function, a quoted list
thereof, a list of `defun' or `cl-defun' forms, or arbitrary forms (will
implicitly be wrapped in a lambda).
\(fn HOOKS [:append :local [:depth N] :remove :call-immediately] FUNCTIONS-OR-FORMS...)"
(declare (indent defun))
(let* ((hook-forms (if (listp hooks) hooks (list hooks)))
(func-forms ())
(defn-forms ())
append-p local-p remove-p call-immediately-p depth)
(while (keywordp (car rest))
(pcase (pop rest)
(:append (setq append-p t))
(:depth (setq depth (pop rest)))
(:local (setq local-p t))
(:remove (setq remove-p t))
(:call-immediately (setq call-immediately-p t))))
(while rest
(let* ((next (pop rest))
(first (car-safe next)))
(push (cond ((memq first '(function nil)) next)
((eq first 'quote)
(let ((quoted (cadr next)))
(if (atom quoted)
next
(when (cdr quoted)
(setq rest (cons (list first (cdr quoted)) rest)))
(list first (car quoted)))))
((memq first '(defun cl-defun))
(push next defn-forms)
(list 'function (cadr next)))
((prog1 `(lambda (&rest _) ,@(cons next rest))
(setq rest nil))))
func-forms)))
`(progn
,@defn-forms
(dolist (func (list ,@func-forms))
(dolist (hook (nreverse ',hook-forms))
,(if remove-p
`(remove-hook hook func ,local-p)
`(add-hook hook func ,(or depth append-p) ,local-p)))
,(if call-immediately-p `(funcall func))))))
(defmacro defadvice! (symbol arglist &rest body)
"Define an advice called SYMBOL and add it to PLACES.
ARGLIST is as in `defun'. WHERE is a keyword as passed to `advice-add', and
PLACE is the function to which to add the advice, like in `advice-add'.
DOCSTRING and BODY are as in `defun'.
\(fn SYMBOL ARGLIST &rest [WHERE PLACES...] BODY\)"
(declare (indent defun))
(let (where-alist)
(while (keywordp (car body))
(push `(cons ,(pop body) (ensure-list ,(pop body)))
where-alist))
`(progn
(defun ,symbol ,arglist ,@body)
(dolist (targets (list ,@(nreverse where-alist)))
(dolist (target (cdr targets))
(advice-add target (car targets) #',symbol))))))
(defmacro +advice-pp-to-prin1! (&rest body)
"Define an advice called SYMBOL that map `pp' to `prin1' when called.
PLACE is the function to which to add the advice, like in `advice-add'.
\(fn SYMBOL &rest [PLACES...]\)"
`(progn
(dolist (target (list ,@body))
(advice-add target :around #'+call-fn-with-pp-to-prin1))))
(defmacro +advice-pp-to-prin1! (&rest body)
"Define an advice called SYMBOL that map `pp' to `prin1' when called.
PLACE is the function to which to add the advice, like in `advice-add'.
\(fn SYMBOL &rest [PLACES...]\)"
`(progn
(dolist (target (list ,@body))
(advice-add target :around #'+call-fn-with-pp-to-prin1))))
(defmacro defun-call! (symbol args &rest body)
"Define a function and optionally apply it with specified arguments.
\(fn SYMBOL ARGS &optional [DOCSTRING] &optional [:call-with APPLY_ARGS] BODY\)"
(declare (indent defun))
(let* ((docstring (if (stringp (car body)) (pop body)))
(apply-body (if (eq :call-with (car body))
(progn
(cl-assert (eq (pop body) :call-with))
(pop body))
nil)))
`(progn
(defun ,symbol ,args
,@(if docstring
(cons docstring body)
body))
(apply ',symbol
,(if (listp apply-body)
`(list ,@apply-body)
`(list ,apply-body))))))
(defun +call-fn-with-pp-to-prin1 (fn &rest args)
"Call FN with ARGS, map `pp' to `prin1' when called."
(cl-letf (((symbol-function #'pp) #'prin1)
((symbol-function #'pp-to-string) #'prin1-to-string))
(apply fn args)))
(defun +unfill-region (start end)
"Replace newline chars in region from START to END by single spaces.
This command does the inverse of `fill-region'."
(interactive "r")
(let ((fill-column most-positive-fixnum))
(fill-region start end)))
(defun +temp-buffer-p (buffer)
"Return t if BUFFER is temporary."
(string-match-p "^ " (buffer-name buffer)))
;; theme changed hook
(defvar +theme-changed-hook nil
"Hook run after the theme is changed.")
(defadvice! +run-theme-changed-hook-a (&rest _)
:after #'enable-theme
(run-hooks '+theme-changed-hook))