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
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
|
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
;;; Basic information.
;; There are some packages that expect us to have a `user-full-name' and a
;; `user-mail-address' defined.
(setq user-full-name "Miquel Sabaté Solà"
user-mail-address "mikisabate@gmail.com")
;;; General
;; Bindings for managing windows, buffers, etc.
(map! "C-x k" #'kill-this-buffer)
(map! "C-x K" #'kill-buffer-and-window)
(map! "C-x v" #'split-window-right)
(map! "C-x V" (lambda () (interactive) (split-window-right) (other-window 1)))
;; The crux package offers quite a few goodies, and I'm particularly interested
;; on the `crux-delete-file-and-buffer', which will delete the file related to
;; the current buffer as well as the buffer itself.
(use-package! crux
:bind (("C-c D" . crux-delete-file-and-buffer)))
;;; UI
;; Some time ago I created this title format, and now I prefer it over other
;; options, including Doom's default one.
(setq frame-title-format
(setq icon-title-format '((:eval (concat (user-real-login-name) ": "
(if (buffer-file-name)
(abbreviate-file-name (buffer-file-name))
"%b"))))))
;; Color theme: try to use my own theme called `soria'. There are two paths
;; where the `soria' theme might reside. The first path we are going to try is
;; my local dev environment, otherwise we will try the global installation path
;; (as pointed out on the documentation of the RPM package). If none of this
;; worked, then just go with doom's default theme.
(let ((dev-dir (concat (getenv "HOME") "/src/github.com/mssola/soria"))
(global-dir "/usr/share/emacs/site-lisp/themes"))
(if (file-exists-p dev-dir)
(add-to-list 'custom-theme-load-path dev-dir)
(when (file-exists-p global-dir)
(add-to-list 'custom-theme-load-path global-dir)))
;; If soria could be loaded as a theme, let's set the
;; `soria-theme-purple-identifiers' hook for the relevant modes.
(when (load-theme 'soria t)
(dolist (lang-hook '(ruby-mode-hook
php-mode-hook
perl-mode-hook
emacs-lisp-mode-hook))
(add-hook lang-hook 'soria-theme-purple-identifiers))))
(defun mssola/face-at-point (pos)
"Writes a message with the name of the face at the current
point. The `POS' argument contains the current position of the
cursor."
(interactive "d")
(let ((face (or (get-char-property (point) 'read-face-name)
(get-char-property (point) 'face))))
(if face (message "Face: %s" face) (message "No face at %d" pos))))
;; Binding so we know the current face at a given point. Convenient when hacking
;; the `soria' theme.
(map! "C-c f" #'mssola/face-at-point)
;; Doom allows us to define the font depending on the contex which is really
;; cool. Let's define Droid Sans Mono Dotted just because I've grown used to
;; it...
(setq doom-font (font-spec :name "Droid Sans Mono Dotted for Powerline-10")
doom-big-font (font-spec :name "Droid Sans Mono Dotted for Powerline-10" :size 24))
;; When in Evil mode, it just makes sense to have line numbers relatively.
(setq display-line-numbers-type 'relative)
;; I *really* don't like highlighting the current line, let's remove it now...
(remove-hook 'doom-first-buffer-hook #'global-hl-line-mode)
;; For whatever reason someone thought that having the tilde fringe as it
;; happens to vi was a good idea. I disagree.
(remove-hook 'text-mode-hook #'vi-tilde-fringe-mode)
;; Disable whitespace-mode.
(after! whitespace
(global-whitespace-mode -1))
(advice-add #'doom-highlight-non-default-indentation-h :override #'ignore)
;; Doom Emacs eventually removed highlight-numbers, which was useful to me.
(add-hook! '(prog-mode-hook conf-mode-hook) #'highlight-numbers-mode)
;; The modeline I was using even before switching to Doom. I modify quite a few
;; things from the default installation so it is simpler.
(use-package! doom-modeline
:init
(setq doom-modeline-height 20
doom-modeline-persp-name nil
doom-modeline-major-mode-icon nil
doom-modeline-modal-icon t
doom-modeline-icon t
doom-modeline-buffer-file-name-style 'relative-from-project))
;;; Editor
;; Some bindings that I've grown used to over the years.
(map! :i "C-z" #'evil-escape)
(map! :n "C-z" #'evil-escape)
(map! :n "C-s" #'save-buffer)
(map! :n "C-e" #'evil-end-of-line)
(map! :i "C-s" (lambda () (interactive) (save-buffer) (evil-force-normal-state)))
(map! :n "C-2"
(lambda (n)
(interactive "p")
(evil-execute-macro n "@q")))
;; Doom by default inserts Evil's snipe mode, which is really confusing and I
;; *really* don't like it. Let's remove it and bring back the original search
;; behavior.
(remove-hook 'doom-first-input-hook #'evil-snipe-mode)
;; Abbreviations live in the Doom private directory, where it's versioned and
;; it's shared across computers. Moreover, abbrev mode should only spring up
;; with very specific environments, so let's enable it explicitely for them.
(setq abbrev-file-name (concat doom-private-dir "abbrevs.el")
save-abbrevs 'silent)
(dolist (hook '(erc-mode-hook org-mode-hook text-mode-hook))
(add-hook hook #'abbrev-mode))
;; Set the default width of tabs. This can be tweaked away by `editorconfig'
;; support, but at least set some defaults now.
(setq-default tab-width 4)
(setq tab-width 4)
;; No auto save.
(setq-default auto-save-default nil)
;;; Spell checking
(map! "<f8>" #'ispell-word)
(map! "M-<f8>" #'flyspell-buffer)
;;; Programming languages.
;; Flags to be passed to `clangd' for LSP integration.
(after! lsp-clangd
(setq lsp-clients-clangd-args
'("-j=3"
"--background-index"
"--clang-tidy"
"--completion-style=detailed"
"--header-insertion=never"
"--header-insertion-decorators=0"))
(set-lsp-priority! 'clangd 2))
;; Go: ensure `goimports' is applied on save.
(add-hook 'go-mode-hook #'lsp-deferred)
(defun lsp-go-install-save-hooks ()
(add-hook 'before-save-hook #'lsp-organize-imports))
(add-hook 'go-mode-hook #'lsp-go-install-save-hooks)
;;; Organization
;; Setting this variable before org-mode loads.
(setq org-directory "~/org/")
;; I know there are better ways to use org, but that's how I ended up using org
;; and I don't think I will change for the foreseeable future...
(map! "C-c C-o"
(lambda ()
(interactive)
(find-file (concat (file-name-as-directory org-directory) "index.org"))))
;; Remove some Doom defaults for org (yeah yeah, I'm boring, I know).
(after! org
(setq! org-startup-indented nil
org-hide-leading-stars nil))
;;; Email
;; Sometimes the load path is not properly set for RPM installs...
(add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e")
(after! mu4e
;; Use `msmtp' as the program for sending email.
(setq sendmail-program (executable-find "msmtp")
send-mail-function #'smtpmail-send-it
starttls-use-gnutls t
message-sendmail-f-is-evil t
message-sendmail-extra-arguments '("--read-envelope-from")
message-send-mail-function #'message-send-mail-with-sendmail)
;; The default bookmarks are cool and all, but they lack a proper sink that
;; gathers all inboxes.
(add-to-list 'mu4e-bookmarks
'(:name "Inbox"
:query "maildir:/gmail/inbox OR maildir:/comsuse/inbox OR maildir:/sindicat/inbox OR maildir:/uoc/inbox"
:key ?n))
;; For whatever reason I lost the "messages sent" bookmark. Let's re-add it.
(add-to-list 'mu4e-bookmarks
'(:name "Sent"
:query "from:mikisabate@gmail.com OR from:msabate@suse.com"
:key ?s))
;; General mu4e settings.
(setq message-kill-buffer-on-exit t
mu4e-update-interval 600
mu4e-use-fancy-chars nil
gnus-treat-display-smileys nil
;; doom-emacs adds a lot of clutter here and I'm a simple man.
mu4e-headers-fields
'((:human-date . 8)
(:from-or-to . 25)
(:subject))
;; Always ask, I don't trust mu4e on this and an error on this can be
;; rather silent and embarrasing at the same time.
mu4e-context-policy 'ask-if-none
mu4e-compose-context-policy 'always-ask
mu4e-change-filenames-when-moving t)
;; Set the cite style just like what it is on GMail.
(setq message-cite-style message-cite-style-gmail
message-citation-line-function 'message-insert-formatted-citation-line))
;; Let the account party begin!
(set-email-account! "gmail"
'((mu4e-sent-folder . "/gmail/Sent")
(mu4e-drafts-folder . "/gmail/Drafts")
(mu4e-trash-folder . "/gmail/Trash")
(mu4e-refile-folder . "/gmail/All")
(smtpmail-smtp-user . "mikisabate@gmail.com")
(user-mail-address . "mikisabate@gmail.com"))
t)
(set-email-account! "comsuse"
'((mu4e-sent-folder . "/comsuse/Elements enviats")
(mu4e-drafts-folder . "/comsuse/Esborranys")
(mu4e-trash-folder . "/comsuse/Elements suprimits")
(mu4e-refile-folder . "/comsuse/All")
(smtpmail-smtp-user . "msabate@suse.com")
(user-mail-address . "msabate@suse.com"))
nil)
;; Colorize patch-based emails
(add-hook 'gnus-part-display-hook 'message-view-patch-highlight)
;; Last but not least, let's configure PGP with mu4e.
(setq mml-secure-openpgp-signers '("0x96BE8C6FD89D6565")
mml-secure-openpgp-sign-with-sender t)
(add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime)
|
