* .signature: Use new site address.
[~bandali/configs] / .emacs.d / init.el
CommitLineData
33b1a7ea 1;;; init.el --- bandali's emacs configuration -*- lexical-binding: t -*-
41d290a2 2
ccb32b49 3;; Copyright (C) 2018-2021 Amin Bandali <bandali@gnu.org>
41d290a2
AB
4
5;; This program is free software: you can redistribute it and/or modify
6;; it under the terms of the GNU General Public License as published by
7;; the Free Software Foundation, either version 3 of the License, or
8;; (at your option) any later version.
9
10;; This program is distributed in the hope that it will be useful,
11;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13;; GNU General Public License for more details.
14
15;; You should have received a copy of the GNU General Public License
16;; along with this program. If not, see <https://www.gnu.org/licenses/>.
17
18;;; Commentary:
19
9867e4bb
AB
20;; GNU Emacs configuration of bandali, free software activist,
21;; computing scientist, and GNU maintainer and volunteer.
b57457b2
AB
22
23;; Over the years, I've taken inspiration from configurations of many
24;; great people. Some that I can remember off the top of my head are:
25;;
26;; - https://github.com/dieggsy/dotfiles
27;; - https://github.com/dakra/dmacs
28;; - http://pages.sachachua.com/.emacs.d/Sacha.html
29;; - https://github.com/dakrone/eos
30;; - http://doc.rix.si/cce/cce.html
31;; - https://github.com/jwiegley/dot-emacs
32;; - https://github.com/wasamasa/dotemacs
33;; - https://github.com/hlissner/doom-emacs
41d290a2 34
49e9503b
AB
35;;; Code:
36
b57457b2
AB
37;;; Emacs initialization
38
dca50cf5 39(defvar b/before-user-init-time (current-time)
41d290a2 40 "Value of `current-time' when Emacs begins loading `user-init-file'.")
83364e5b
AB
41(defvar b/emacs-initialized nil
42 "Whether Emacs has been initialized.")
43
44(when (not (bound-and-true-p b/emacs-initialized))
45 (message "Loading Emacs...done (%.3fs)"
46 (float-time (time-subtract b/before-user-init-time
47 before-init-time))))
41d290a2 48
b57457b2
AB
49;; temporarily increase `gc-cons-threshhold' and `gc-cons-percentage'
50;; during startup to reduce garbage collection frequency. clearing
51;; `file-name-handler-alist' seems to help reduce startup time too.
dca50cf5
AB
52(defvar b/gc-cons-threshold gc-cons-threshold)
53(defvar b/gc-cons-percentage gc-cons-percentage)
54(defvar b/file-name-handler-alist file-name-handler-alist)
bc58e70a 55(setq gc-cons-threshold (* 30 1024 1024) ; 30 MiB
41d290a2
AB
56 gc-cons-percentage 0.6
57 file-name-handler-alist nil
58 ;; sidesteps a bug when profiling with esup
59 esup-child-profile-require-level 0)
60
b57457b2 61;; set them back to their defaults once we're done initializing
dca50cf5 62(defun b/post-init ()
83364e5b
AB
63 "My post-initialize function, run after loading `user-init-file'."
64 (setq b/emacs-initialized t
65 gc-cons-threshold b/gc-cons-threshold
66 gc-cons-percentage b/gc-cons-percentage
e8a3b8f7 67 file-name-handler-alist b/file-name-handler-alist)
c84be134 68 (when (featurep 'exwm-workspace)
8b1a2f32
AB
69 (with-eval-after-load 'exwm-workspace
70 (setq-default
71 mode-line-format
72 (append
73 mode-line-format
74 '((:eval
75 (format
76 "[%s]" (number-to-string
8c4704d0 77 exwm-workspace-current-index))))))))
9867e4bb
AB
78 (when (version< emacs-version "28")
79 ;; manually make some mode-line spaces smaller
80 ;; (version<= "28" emacs-version) can do an awesome job at this
81 ;; out of the box if `mode-line-compact' is set to t (see below)
82 (setq-default
83 mode-line-format
84 (mapcar
85 (lambda (x)
86 (if (and (stringp x)
87 (or (string= x " ")
88 (string= x " ")))
89 " "
90 x))
91 mode-line-format)
92 mode-line-buffer-identification
93 (propertized-buffer-identification "%10b"))))
dca50cf5 94(add-hook 'after-init-hook #'b/post-init)
41d290a2 95
b57457b2 96;; increase number of lines kept in *Messages* log
41d290a2
AB
97(setq message-log-max 20000)
98
b57457b2
AB
99\f
100;;; whoami
101
5efecfcd 102(setq ;; user-full-name "bandali"
33b1a7ea 103 user-mail-address "bandali@gnu.org")
41d290a2 104
b57457b2 105\f
927b50b7
AB
106;;; csetq (`custom' setq)
107
108(require 'cl-lib)
109
110(defmacro csetq (&rest args)
111 "Set the value of user option VAR to VALUE.
112
113More generally, you can use multiple variables and values, as in
114 (csetq VAR VALUE VAR VALUE...)
115This sets each user option VAR's value to the corresponding VALUE.
116
117\(fn [VAR VALUE]...)"
118 (declare (debug setq))
119 `(progn
120 ,@(cl-loop for (var value) on args by 'cddr
121 collect
122 `(funcall (or (get ',var 'custom-set) #'set-default)
123 ',var ,value))))
124
125\f
33273849
AB
126;;; Package management
127
8c4704d0
AB
128;; variables of interest:
129;; package-archive-priorities
130;; package-load-list
131;; package-pinned-packages
132
133;; (let* ((b (find-file-noselect "refinery-theme.el"))
134;; (d (with-current-buffer b (package-buffer-info))))
135;; (package-generate-description-file d "refinery-theme-pkg.el"))
136(run-with-idle-timer 0.01 nil #'require 'package)
137(with-eval-after-load 'package
12e6cf3c
AB
138 (csetq
139 ;; package-archives
140 ;; `(,@package-archives
141 ;; ("bndl" . "https://p.bndl.org/elpa/"))
142 package-load-list
143 '(;; GNU ELPA
144 (debbugs "0.29")
145 (delight "1.7")
146 (emms "7.7")
147 (expand-region "0.11.0")
148 (rt-liberation "2.4")
149 (yasnippet "0.14.0")))
150(package-initialize))
8c4704d0
AB
151
152(csetq package-archive-upload-base "/ssh:caffeine:~/www/p/elpa")
41d290a2 153
b57457b2
AB
154\f
155;;; Initial setup
156
157;; keep ~/.emacs.d clean
0596e3cf
AB
158(defvar b/etc-dir
159 (expand-file-name
160 (convert-standard-filename "etc/") user-emacs-directory)
161 "The directory where packages place their configuration files.")
162(defvar b/var-dir
163 (expand-file-name
164 (convert-standard-filename "var/") user-emacs-directory)
165 "The directory where packages place their persistent data files.")
8c4704d0
AB
166(defvar b/lisp-dir
167 (expand-file-name
168 (convert-standard-filename "lisp/") user-emacs-directory)
169 "The directory where packages place their persistent data files.")
0596e3cf
AB
170(defun b/etc (file)
171 "Expand filename FILE relative to `b/etc-dir'."
172 (expand-file-name (convert-standard-filename file) b/etc-dir))
173(defun b/var (file)
174 "Expand filename FILE relative to `b/var-dir'."
175 (expand-file-name (convert-standard-filename file) b/var-dir))
8c4704d0
AB
176(defun b/lisp (file)
177 "Expand filename FILE relative to `b/lisp-dir'."
178 (expand-file-name (convert-standard-filename file) b/lisp-dir))
0596e3cf
AB
179
180(csetq
181 auto-save-list-file-prefix (b/var "auto-save/sessions/")
182 nsm-settings-file (b/var "nsm-settings.el"))
c84be134 183
b57457b2 184;; separate custom file (don't want it mixing with init.el)
c84be134 185(with-eval-after-load 'custom
dca50cf5 186 (setq custom-file (b/etc "custom.el"))
41d290a2
AB
187 (when (file-exists-p custom-file)
188 (load custom-file))
b57457b2 189 ;; while at it, treat themes as safe
8c4704d0 190 ;; (setf custom-safe-themes t)
60ff805e 191 ;; only one custom theme at a time
927b50b7
AB
192 ;; (defadvice load-theme (before clear-previous-themes activate)
193 ;; "Clear existing theme settings instead of layering them"
194 ;; (mapc #'disable-theme custom-enabled-themes))
195 )
41d290a2 196
b57457b2 197;; load the secrets file if it exists, otherwise show a warning
927b50b7
AB
198;; (with-demoted-errors
199;; (load (b/etc "secrets")))
41d290a2 200
b57457b2
AB
201;; start up emacs server. see
202;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html#Emacs-Server
c84be134
AB
203(run-with-idle-timer 0.5 nil #'require 'server)
204(with-eval-after-load 'server
2087ae39 205 (declare-function server-edit "server")
0596e3cf 206 (global-set-key (kbd "C-c F D") #'server-edit)
2087ae39
AB
207 (declare-function server-running-p "server")
208 (or (server-running-p) (server-mode)))
41d290a2 209
60ff805e 210\f
60ff805e
AB
211;;; Defaults
212
213;;;; C-level customizations
214
c84be134 215(csetq
52b7a57a 216 ;; line-spacing 3
9867e4bb
AB
217 ;; completion case sensitivity
218 completion-ignore-case t
87631bd0 219 read-buffer-completion-ignore-case t
60ff805e
AB
220 ;; minibuffer
221 enable-recursive-minibuffers t
222 resize-mini-windows t
9867e4bb
AB
223 ;; mode-line
224 mode-line-compact t
225 ;; i don't feel like jumping out of my chair every now and again;
226 ;; so...don't *BEEP* at me, emacs =)
60ff805e
AB
227 ring-bell-function 'ignore
228 ;; better scrolling
9867e4bb
AB
229 ;; scroll-conservatively 101
230 scroll-conservatively 15
231 ;; scroll-preserve-screen-position 1
60ff805e 232 ;; focus follows mouse
9867e4bb
AB
233 ;; mouse-autoselect-window t
234 )
60ff805e
AB
235
236(setq-default
7682baf8
AB
237 ;; case-sensitive search (and `dabbrev-expand')
238 ;; case-fold-search nil
9867e4bb
AB
239 ;; always use space for indentation
240 indent-tabs-mode nil
241 tab-width 4)
60ff805e 242
52b7a57a
AB
243(when (display-graphic-p)
244 (set-fontset-font t 'arabic "Vazir"))
245;; ;; (set-frame-font "Drafting Mono-14:weight=light" nil t)
246;; (set-frame-font "Drafting Mono:pixelsize=16" nil t)
247;; (set-face-attribute 'bold nil :weight 'semi-bold)
7c558c9b 248
60ff805e 249;;;; Elisp-level customizations
41d290a2 250
adba94a7
AB
251;; (define-key minibuffer-local-completion-map
252;; "\t" #'minibuffer-force-complete)
253
9867e4bb 254;; (with-eval-after-load 'icomplete
adba94a7 255
9867e4bb 256;; (setq icomplete-on-del-error-function #'abort-recursive-edit)
adba94a7 257
9867e4bb
AB
258;; (defun b/icomplete-fido-backward-updir ()
259;; "Delete char before or go up directory, like `ido-mode'."
260;; (interactive)
261;; (if (and (eq (char-before) ?/)
262;; (eq (icomplete--category) 'file))
263;; (save-excursion
264;; (goto-char (1- (point)))
265;; (when (search-backward "/" (point-min) t)
266;; (delete-region (1+ (point)) (point-max))))
267;; (condition-case nil
268;; (call-interactively #'delete-backward-char)
269;; (error
270;; (when icomplete-on-del-error-function
271;; (funcall icomplete-on-del-error-function))))))
272
273;; (define-key icomplete-fido-mode-map
274;; (kbd "DEL") #'b/icomplete-fido-backward-updir))
275
276;; (with-eval-after-load 'subr
277;; (keyboard-translate ?\( ?\[)
278;; (keyboard-translate ?\) ?\])
279;; (keyboard-translate ?\[ ?\()
280;; (keyboard-translate ?\] ?\))
281
282;; ;; (keyboard-translate ?\( ?\()
283;; ;; (keyboard-translate ?\) ?\))
284;; ;; (keyboard-translate ?\[ ?\[)
285;; ;; (keyboard-translate ?\] ?\])
286;; )
adba94a7 287
87631bd0
AB
288;; minibuffer
289(csetq read-file-name-completion-ignore-case t)
290
c84be134
AB
291;; startup
292;; don't need to see the startup echo area message
293(advice-add #'display-startup-echo-area-message :override #'ignore)
294(csetq
295 ;; i want *scratch* as my startup buffer
296 initial-buffer-choice t
297 ;; i don't need the default hint
298 initial-scratch-message nil
299 ;; use customizable text-mode as major mode for *scratch*
300 ;; (initial-major-mode 'text-mode)
301 ;; inhibit buffer list when more than 2 files are loaded
302 inhibit-startup-buffer-menu t
303 ;; don't need to see the startup screen or echo area message
304 inhibit-startup-screen t
305 inhibit-startup-echo-area-message user-login-name)
306
307;; files
308(csetq
309 ;; backups (C-h v make-backup-files RET)
310 backup-by-copying t
0596e3cf 311 backup-directory-alist (list (cons "." (b/var "backup/")))
c84be134
AB
312 version-control t
313 delete-old-versions t
314 ;; auto-save
315 auto-save-file-name-transforms `((".*" ,(b/var "auto-save/") t))
316 ;; insert newline at the end of files
9867e4bb 317 ;; require-final-newline t
c84be134
AB
318 ;; open read-only file buffers in view-mode
319 ;; (enables niceties like `q' for quit)
320 view-read-only t)
321
322;; novice
60ff805e 323;; disable disabled commands
c84be134 324(csetq disabled-command-function nil)
41d290a2 325
60ff805e
AB
326;; lazy-person-friendly yes/no prompts
327(defalias 'yes-or-no-p #'y-or-n-p)
b57457b2 328
8c4704d0
AB
329;; autorevert: enable automatic reloading of changed buffers and files
330(csetq auto-revert-verbose nil
331 global-auto-revert-non-file-buffers nil)
332(require 'autorevert)
333(global-auto-revert-mode 1)
b57457b2
AB
334
335;; time and battery in mode-line
9867e4bb
AB
336(run-with-idle-timer 0.1 nil #'require 'time)
337(with-eval-after-load 'time
338 (csetq
339 display-time-default-load-average nil
340 display-time-format " %a %b %-e %-l:%M%P"
341 display-time-mail-icon '(image :type xpm
342 :file "gnus/gnus-pointer.xpm"
343 :ascent center)
344 display-time-use-mail-icon t)
345 (display-time-mode))
346
347(run-with-idle-timer 0.1 nil #'require 'battery)
348(with-eval-after-load 'battery
349 (csetq battery-mode-line-format " %p%% %t")
350 (display-battery-mode))
351
352;; (with-eval-after-load 'fringe
353;; ;; smaller fringe
354;; (fringe-mode '(3 . 1)))
c84be134 355
c84be134 356;; enable winner-mode (C-h f winner-mode RET)
9867e4bb 357(require 'winner)
c84be134
AB
358(winner-mode 1)
359
360(with-eval-after-load 'compile
60ff805e
AB
361 ;; don't display *compilation* buffer on success. based on
362 ;; https://stackoverflow.com/a/17788551, with changes to use `cl-letf'
363 ;; instead of the now obsolete `flet'.
dca50cf5 364 (defun b/compilation-finish-function (buffer outstr)
41d290a2
AB
365 (unless (string-match "finished" outstr)
366 (switch-to-buffer-other-window buffer))
367 t)
368
dca50cf5 369 (setq compilation-finish-functions #'b/compilation-finish-function)
41d290a2
AB
370
371 (require 'cl-macs)
372
373 (defadvice compilation-start
374 (around inhibit-display
375 (command &optional mode name-function highlight-regexp))
376 (if (not (string-match "^\\(find\\|grep\\)" command))
377 (cl-letf (((symbol-function 'display-buffer) #'ignore))
378 (save-window-excursion ad-do-it))
379 ad-do-it))
380 (ad-activate 'compilation-start))
381
c84be134
AB
382;; isearch
383(csetq
384 ;; allow scrolling in Isearch
385 isearch-allow-scroll t
9867e4bb 386 isearch-lazy-count t
c84be134
AB
387 ;; search for non-ASCII characters: i’d like non-ASCII characters such
388 ;; as ‘’“”«»‹›áⓐ𝒶 to be selected when i search for their ASCII
389 ;; counterpart. shoutout to
390 ;; http://endlessparentheses.com/new-in-emacs-25-1-easily-search-non-ascii-characters.html
391 search-default-mode #'char-fold-to-regexp)
392
393;; replace
60ff805e 394;; uncomment to extend the above behaviour to query-replace
c84be134
AB
395;; (csetq replace-char-fold t)
396
397;; vc
398(global-set-key (kbd "C-x v C-=") #'vc-ediff)
399
400(with-eval-after-load 'vc-git
514148d8
AB
401 (csetq vc-git-print-log-follow t
402 vc-git-show-stash 0))
c84be134
AB
403
404(csetq ediff-window-setup-function 'ediff-setup-windows-plain
405 ediff-split-window-function 'split-window-horizontally)
406(with-eval-after-load 'ediff
407 (add-hook 'ediff-after-quit-hook-internal #'winner-undo))
408
409;; face-remap
410(csetq
411 ;; gentler font resizing
412 text-scale-mode-step 1.05)
413
414(run-with-idle-timer 0.4 nil #'require 'mwheel)
415(csetq mouse-wheel-scroll-amount '(1 ((shift) . 1)) ; one line at a time
416 mouse-wheel-progressive-speed nil ; don't accelerate scrolling
417 mouse-wheel-follow-mouse t) ; scroll window under mouse
418
419(run-with-idle-timer 0.4 nil #'require 'pixel-scroll)
420(with-eval-after-load 'pixel-scroll
421 (pixel-scroll-mode 1))
422
423;; epg-config
424(csetq
425 epg-gpg-program (executable-find "gpg")
426 ;; ask for GPG passphrase in minibuffer
427 ;; this will fail if gpg>=2.1 is not available
428 epg-pinentry-mode 'loopback)
429
c84be134
AB
430;; auth-source
431(csetq
432 auth-sources '("~/.authinfo.gpg")
433 authinfo-hidden (regexp-opt '("password" "client-secret" "token")))
b98dbb3d 434
9867e4bb
AB
435;; info
436(with-eval-after-load 'info
437 (add-to-list
438 'Info-directory-list
439 (expand-file-name
440 (convert-standard-filename "info/") source-directory)))
441
442;; faces
6ff057ac
AB
443(when (display-graphic-p)
444 (with-eval-after-load 'faces
445 (let* ((grey "#e7e7e7")
52b7a57a
AB
446 ;; (darker-grey "#d9d9d9")
447 ;; (box ;; 'unspecified
448 ;; `(;; :line-width -1
449 ;; :style released-button))
450 )
6ff057ac 451 (set-face-attribute 'mode-line nil
52b7a57a
AB
452 :background grey ;; :box box
453 )
c6e4b014
AB
454 ;; (set-face-attribute 'mode-line-inactive nil
455 ;; :background darker-grey :box box)
456 )))
9867e4bb 457
b57457b2 458\f
927b50b7
AB
459;;; Useful utilities
460
461(defun b/add-elisp-section ()
462 (interactive)
463 (insert "\n")
464 (forward-line -1)
465 (insert "\n\f\n;;; "))
466
467(defun b/insert-asterism ()
468 "Insert a centred asterism."
469 (interactive)
470 (let ((asterism "* * *"))
471 (insert
472 (concat
473 "\n"
474 (make-string
475 (floor (/ (- fill-column (length asterism)) 2))
476 ?\s)
477 asterism
478 "\n"))))
479
480(defun b/start-process (program &rest args)
481 "Same as `start-process', but doesn't bother about name and buffer."
482 (let ((process-name (concat program "_process"))
483 (buffer-name (generate-new-buffer-name
484 (concat program "_output"))))
485 (apply #'start-process
486 process-name buffer-name program args)))
487
488(defun b/no-mouse-autoselect-window ()
489 "Conveniently disable `focus-follows-mouse'.
490For disabling the behaviour for certain buffers and/or modes."
491 (make-local-variable 'mouse-autoselect-window)
492 (setq mouse-autoselect-window nil))
493
494(defun b/kill-current-buffer ()
495 "Kill the current buffer."
496 ;; also see https://redd.it/64xb3q
497 (interactive)
498 (kill-buffer (current-buffer)))
499
500(defun b/move-indentation-or-beginning-of-line (arg)
501 "Move to the indentation or to the beginning of line."
502 (interactive "^p")
503 ;; (if (bolp)
504 ;; (back-to-indentation)
505 ;; (move-beginning-of-line arg))
506 (if (= (point)
507 (progn (back-to-indentation)
508 (point)))
509 (move-beginning-of-line arg)))
510
511(defun b/join-line-top ()
512 "Like `join-line', but join next line to the current line."
513 (interactive)
514 (join-line 1))
515
516(defun b/duplicate-line-or-region (&optional n)
517 "Duplicate the current line, or region (if active).
518Make N (default: 1) copies of the current line or region."
519 (interactive "*p")
520 (let ((u-r-p (use-region-p)) ; if region is active
521 (n1 (or n 1)))
522 (save-excursion
523 (let ((text
524 (if u-r-p
525 (buffer-substring (region-beginning) (region-end))
526 (prog1 (thing-at-point 'line)
527 (end-of-line)
528 (if (eobp)
529 (newline)
530 (forward-line 1))))))
531 (dotimes (_ (abs n1))
532 (insert text))))))
533
534\f
c84be134 535;;; General key bindings
b57457b2 536
c84be134
AB
537(global-set-key (kbd "C-a") #'b/move-indentation-or-beginning-of-line)
538(global-set-key (kbd "C-c a i") #'ielm)
539(global-set-key (kbd "C-c d") #'b/duplicate-line-or-region)
adba94a7 540(global-set-key (kbd "C-c j") #'b/join-line-top)
c84be134
AB
541(global-set-key (kbd "C-S-j") #'b/join-line-top)
542(global-set-key (kbd "C-c x") #'execute-extended-command)
41d290a2 543
c84be134
AB
544;; evaling and macro-expanding
545(global-set-key (kbd "C-c e b") #'eval-buffer)
546(global-set-key (kbd "C-c e e") #'eval-last-sexp)
9867e4bb 547(global-set-key (kbd "C-c e m") #'pp-macroexpand-last-sexp)
c84be134 548(global-set-key (kbd "C-c e r") #'eval-region)
41d290a2 549
c84be134
AB
550;; emacs things
551(global-set-key (kbd "C-c e i") #'emacs-init-time)
552(global-set-key (kbd "C-c e u") #'emacs-uptime)
553(global-set-key (kbd "C-c e v") #'emacs-version)
41d290a2 554
c84be134
AB
555;; finding
556(global-set-key (kbd "C-c f .") #'find-file)
557(global-set-key (kbd "C-c f d") #'find-name-dired)
558(global-set-key (kbd "C-c f l") #'find-library)
b44dfb35 559(global-set-key (kbd "C-c f p") #'find-file-at-point)
567440fa 560
c84be134
AB
561;; frames
562(global-set-key (kbd "C-c F m") #'make-frame-command)
563(global-set-key (kbd "C-c F d") #'delete-frame)
41d290a2 564
c84be134 565;; help/describe
c84be134 566(global-set-key (kbd "C-S-h F") #'describe-face)
41d290a2 567
c84be134
AB
568;; (global-set-key (kbd "C-x k") #'b/kill-current-buffer)
569;; (global-set-key (kbd "C-x K") #'kill-buffer)
e5c2d147 570
9867e4bb 571(define-key emacs-lisp-mode-map (kbd "C-<return>") #'b/add-elisp-section)
41d290a2
AB
572
573(when (display-graphic-p)
c84be134 574 (global-unset-key (kbd "C-z")))
500004f4 575
b57457b2
AB
576\f
577;;; Essential packages
578
927b50b7
AB
579(add-to-list
580 'load-path
581 (expand-file-name
582 (convert-standard-filename "lisp") user-emacs-directory))
583
9867e4bb 584;; (require 'bandali-exwm)
33273849 585
f7910e3d 586(require 'bandali-org)
41d290a2 587
9867e4bb 588;; (require 'bandali-theme)
9c48decc 589
b57457b2 590;; recently opened files
8c4704d0
AB
591(csetq recentf-max-saved-items 2000
592 recentf-save-file (b/var "recentf-save.el"))
c84be134
AB
593(run-with-idle-timer 0.2 nil #'require 'recentf)
594(with-eval-after-load 'recentf
8c4704d0 595 ;; (add-to-list 'recentf-keep #'file-remote-p)
9867e4bb
AB
596 (recentf-mode)
597
598 (defun b/recentf-open ()
599 "Use `completing-read' to \\[find-file] a recent file."
600 (interactive)
601 (find-file
602 (completing-read "Find recent file: " recentf-list)))
603 (global-set-key (kbd "C-c f r") #'b/recentf-open))
41d290a2 604
87631bd0
AB
605;; (fido-mode 1)
606;; (defun b/icomplete--fido-mode-setup ()
607;; "Customizations to `fido-mode''s minibuffer."
608;; (when (and icomplete-mode (icomplete-simple-completing-p))
609;; (setq-local
610;; ;; icomplete-compute-delay 0.1
611;; ;; icomplete-hide-common-prefix t
612;; icomplete-separator " · "
613;; completion-styles '(basic substring partial-completion flex))))
614;; (add-hook 'minibuffer-setup-hook #'b/icomplete--fido-mode-setup 1)
41d290a2 615
679463c6 616(require 'bandali-eshell)
41d290a2 617
679463c6 618(require 'bandali-ibuffer)
41d290a2 619
679463c6 620(require 'bandali-dired)
41d290a2 621
c84be134 622(with-eval-after-load 'help
41d290a2 623 (temp-buffer-resize-mode)
8c4704d0 624 (csetq help-window-select t))
41d290a2 625
8c4704d0 626(with-eval-after-load 'help-mode
c84be134
AB
627 ;; local key bindings
628 (define-key help-mode-map (kbd "p") #'backward-button)
629 (define-key help-mode-map (kbd "n") #'forward-button))
630
631(with-eval-after-load 'tramp
0596e3cf
AB
632 (csetq tramp-auto-save-directory (b/var "tramp/auto-save/")
633 tramp-persistency-file-name (b/var "tramp/persistency.el"))
41d290a2
AB
634 (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
635 (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
636 (add-to-list 'tramp-default-proxies-alist
637 (list (regexp-quote (system-name)) nil nil)))
638
c84be134
AB
639(with-eval-after-load 'doc-view
640 (define-key doc-view-mode-map (kbd "M-RET") #'image-previous-line))
41d290a2 641
c84be134 642(csetq shr-max-width 80)
7c558c9b 643
29e8b5de 644;; Email (with Gnus, message, and smtpmail)
2087ae39 645(require 'bandali-gnus)
2087ae39 646(require 'bandali-message)
29e8b5de
AB
647;; (with-eval-after-load 'smtpmail
648;; (csetq smtpmail-queue-mail t
649;; smtpmail-queue-dir (concat b/maildir "queue/")))
2087ae39 650
8c4704d0 651;; IRC (with ERC)
39c1c073
AB
652(require 'bandali-erc)
653
927b50b7 654;; 'paste' service (aka scp + web server)
8c4704d0 655(add-to-list 'load-path (b/lisp "scpaste"))
c84be134
AB
656(with-eval-after-load 'scpaste
657 (csetq scpaste-http-destination "https://p.bndl.org"
658 scpaste-scp-destination "p:~"))
8c4704d0
AB
659(autoload 'scpaste "scpaste" nil t)
660(autoload 'scpaste-region "scpaste" nil t)
0596e3cf
AB
661(global-set-key (kbd "C-c a p p") #'scpaste)
662(global-set-key (kbd "C-c a p r") #'scpaste-region)
2331b5a0 663
b57457b2
AB
664\f
665;;; Editing
5750405c 666
b57457b2 667;; display Lisp objects at point in the echo area
c84be134
AB
668(when (version< "25" emacs-version)
669 (with-eval-after-load 'eldoc
8c4704d0
AB
670 (csetq eldoc-minor-mode-string " eldoc")
671 (global-eldoc-mode)))
41d290a2 672
b57457b2 673;; highlight matching parens
c84be134
AB
674(require 'paren)
675(show-paren-mode)
676
677;; (require 'elec-pair)
678;; (electric-pair-mode)
679
680(csetq
681 ;; Save what I copy into clipboard from other applications into Emacs'
682 ;; kill-ring, which would allow me to still be able to easily access
683 ;; it in case I kill (cut or copy) something else inside Emacs before
684 ;; yanking (pasting) what I'd originally intended to.
685 save-interprogram-paste-before-kill t)
686(with-eval-after-load 'simple
9867e4bb
AB
687 (column-number-mode 1)
688 (line-number-mode 1))
41d290a2 689
b57457b2 690;; save minibuffer history
c84be134 691(require 'savehist)
0596e3cf 692(csetq savehist-file (b/var "savehist.el"))
c84be134
AB
693(savehist-mode)
694(add-to-list 'savehist-additional-variables 'kill-ring)
41d290a2 695
b57457b2 696;; automatically save place in files
c84be134 697(when (version< "25" emacs-version)
0596e3cf 698 (csetq save-place-file (b/var "save-place.el"))
c84be134
AB
699 (save-place-mode))
700
701(defun indicate-buffer-boundaries-left ()
702 (csetq indicate-buffer-boundaries 'left))
703(with-eval-after-load 'prog-mode
704 (global-prettify-symbols-mode))
705(add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left)
706
8c4704d0 707(define-key text-mode-map (kbd "C-<return>") #'b/insert-asterism)
c84be134
AB
708(add-hook 'text-mode-hook #'indicate-buffer-boundaries-left)
709(add-hook 'text-mode-hook #'flyspell-mode)
710
711(add-to-list 'auto-mode-alist '("\\.*rc$" . conf-mode))
712
713(add-to-list 'auto-mode-alist '("\\.bashrc$" . sh-mode))
714
8c4704d0
AB
715(with-eval-after-load 'flyspell
716 (csetq flyspell-mode-line-string " fly"))
717
c84be134 718;; ispell
41d290a2 719;; http://endlessparentheses.com/ispell-and-apostrophes.html
c84be134
AB
720;; (run-with-idle-timer 0.6 nil #'require 'ispell)
721;; (with-eval-after-load 'ispell
722;; ;; ’ can be part of a word
723;; (csetq ispell-local-dictionary-alist
724;; `((nil "[[:alpha:]]" "[^[:alpha:]]"
725;; "['\x2019]" nil ("-B") nil utf-8))
726;; ispell-program-name (executable-find "hunspell"))
727;; ;; don't send ’ to the subprocess
728;; (defun endless/replace-apostrophe (args)
729;; (cons (replace-regexp-in-string
730;; "’" "'" (car args))
731;; (cdr args)))
732;; (advice-add #'ispell-send-string :filter-args
733;; #'endless/replace-apostrophe)
734;; ;; convert ' back to ’ from the subprocess
735;; (defun endless/replace-quote (args)
736;; (if (not (derived-mode-p 'org-mode))
737;; args
738;; (cons (replace-regexp-in-string
739;; "'" "’" (car args))
740;; (cdr args))))
741;; (advice-add #'ispell-parse-output :filter-args
742;; #'endless/replace-quote))
743
0596e3cf 744;; abbrev
8c4704d0 745(csetq abbrev-file-name (b/etc "abbrev.el"))
c84be134 746(add-hook 'text-mode-hook #'abbrev-mode)
54209e74 747
b57457b2
AB
748\f
749;;; Programming modes
750
c84be134 751(with-eval-after-load 'lisp-mode
41d290a2
AB
752 (defun indent-spaces-mode ()
753 (setq indent-tabs-mode nil))
754 (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
755
8c4704d0
AB
756;; alloy
757(add-to-list 'load-path (b/lisp "alloy-mode"))
758(autoload 'alloy-mode "alloy-mode" nil t)
c84be134
AB
759(with-eval-after-load 'alloy-mode
760 (csetq alloy-basic-offset 2)
fac1032c
AB
761 ;; (defun b/alloy-simple-indent (start end)
762 ;; (interactive "r")
763 ;; ;; (if (region-active-p)
764 ;; ;; (indent-rigidly start end alloy-basic-offset)
765 ;; ;; (if (bolp)
766 ;; ;; (indent-rigidly (line-beginning-position)
767 ;; ;; (line-end-position)
768 ;; ;; alloy-basic-offset)))
769 ;; (indent-to (+ (current-column) alloy-basic-offset)))
c84be134
AB
770 ;; local key bindings
771 (define-key alloy-mode-map (kbd "RET") #'electric-newline-and-maybe-indent)
772 ;; (define-key alloy-mode-map (kbd "TAB") #'b/alloy-simple-indent)
773 (define-key alloy-mode-map (kbd "TAB") #'indent-for-tab-command))
774(add-to-list 'auto-mode-alist '("\\.\\(als\\|dsh\\)\\'" . alloy-mode))
775(add-hook 'alloy-mode-hook (lambda nil (setq-local indent-tabs-mode nil)))
776
777;; lean
778;; (eval-when-compile (defvar lean-mode-map))
779;; (run-with-idle-timer 0.4 nil #'require 'lean-mode)
780;; (with-eval-after-load 'lean-mode
781;; (require 'lean-input)
782;; (csetq default-input-method "Lean"
783;; lean-input-tweak-all '(lean-input-compose
784;; (lean-input-prepend "/")
785;; (lean-input-nonempty))
786;; lean-input-user-translations '(("/" "/")))
787;; (lean-input-setup)
788;; ;; local key bindings
789;; (define-key lean-mode-map (kbd "S-SPC") #'company-complete))
790
791(with-eval-after-load 'sgml-mode
792 (csetq sgml-basic-offset 0))
793
794(with-eval-after-load 'css-mode
795 (csetq css-indent-offset 2))
796
c84be134
AB
797;; auctex
798;; (csetq font-latex-fontify-sectioning 'color)
799
800(with-eval-after-load 'tex-mode
748bd8ac
AB
801 (cl-delete-if
802 (lambda (p) (string-match "^---?" (car p)))
c84be134
AB
803 tex--prettify-symbols-alist))
804(add-hook 'tex-mode-hook #'auto-fill-mode)
805(add-hook 'tex-mode-hook #'flyspell-mode)
1d01c927 806
b57457b2 807\f
b57457b2 808;;; Emacs enhancements & auxiliary packages
1eb20313 809
c84be134
AB
810(with-eval-after-load 'man
811 (csetq Man-width 80))
812
8c4704d0
AB
813(defun b/*scratch* ()
814 "Switch to `*scratch*' buffer, creating it if it does not exist."
815 (interactive)
816 (switch-to-buffer
817 (or (get-buffer "*scratch*")
818 (with-current-buffer (get-buffer-create "*scratch*")
819 (set-buffer-major-mode (current-buffer))
820 (current-buffer)))))
821(global-set-key (kbd "C-c s") #'b/*scratch*)
41d290a2 822
5b10d879
AB
823;; ,----
824;; | make pretty boxed quotes like this
825;; `----
8c4704d0 826(add-to-list 'load-path (b/lisp "boxquote"))
c84be134
AB
827(run-with-idle-timer 0.6 nil #'require 'boxquote)
828(with-eval-after-load 'boxquote
829 (defvar b/boxquote-prefix-map)
830 (define-prefix-command 'b/boxquote-prefix-map)
831 (global-set-key (kbd "C-c q") 'b/boxquote-prefix-map)
832 (define-key b/boxquote-prefix-map (kbd "b") #'boxquote-buffer)
833 (define-key b/boxquote-prefix-map (kbd "B") #'boxquote-insert-buffer)
834 (define-key b/boxquote-prefix-map (kbd "d") #'boxquote-defun)
835 (define-key b/boxquote-prefix-map (kbd "F") #'boxquote-insert-file)
836 (define-key b/boxquote-prefix-map (kbd "hf") #'boxquote-describe-function)
837 (define-key b/boxquote-prefix-map (kbd "hk") #'boxquote-describe-key)
838 (define-key b/boxquote-prefix-map (kbd "hv") #'boxquote-describe-variable)
839 (define-key b/boxquote-prefix-map (kbd "hw") #'boxquote-where-is)
840 (define-key b/boxquote-prefix-map (kbd "k") #'boxquote-kill)
841 (define-key b/boxquote-prefix-map (kbd "p") #'boxquote-paragraph)
842 (define-key b/boxquote-prefix-map (kbd "q") #'boxquote-boxquote)
843 (define-key b/boxquote-prefix-map (kbd "r") #'boxquote-region)
844 (define-key b/boxquote-prefix-map (kbd "s") #'boxquote-shell-command)
845 (define-key b/boxquote-prefix-map (kbd "t") #'boxquote-text)
846 (define-key b/boxquote-prefix-map (kbd "T") #'boxquote-title)
847 (define-key b/boxquote-prefix-map (kbd "u") #'boxquote-unbox)
848 (define-key b/boxquote-prefix-map (kbd "U") #'boxquote-unbox-region)
849 (define-key b/boxquote-prefix-map (kbd "y") #'boxquote-yank)
850 (define-key b/boxquote-prefix-map (kbd "M-q") #'boxquote-fill-paragraph)
851 (define-key b/boxquote-prefix-map (kbd "M-w") #'boxquote-kill-ring-save))
852
8c4704d0 853(add-to-list 'load-path (b/lisp "hl-todo"))
c84be134
AB
854(run-with-idle-timer 0.5 nil #'require 'hl-todo)
855(with-eval-after-load 'hl-todo
1eb20313 856 ;; highlight TODOs in buffers
41d290a2
AB
857 (global-hl-todo-mode))
858
c84be134
AB
859;; expand-region
860(global-set-key (kbd "C-=") #'er/expand-region)
861
862(run-with-idle-timer 0.6 nil #'require 'yasnippet)
863(with-eval-after-load 'yasnippet
864 (declare-function yas-reload-all
865 "yasnippet" (&optional no-jit interactive))
866 (declare-function yas-maybe-expand-abbrev-key-filter
867 "yasnippet" (cmd))
868
869 (defconst yas-verbosity-cur yas-verbosity)
870 (setq yas-verbosity 2)
0596e3cf 871 (csetq yas-snippet-dirs `(,(b/etc "yasnippet/snippets")))
5df34463 872 ;; (add-to-list 'yas-snippet-dirs "~/src/git/guix/etc/snippets" t)
c84be134
AB
873 (yas-reload-all)
874 (setq yas-verbosity yas-verbosity-cur)
875
876 (defun b/yas-maybe-expand-abbrev-key-filter (cmd)
877 (when (and (yas-maybe-expand-abbrev-key-filter cmd)
878 (not (bound-and-true-p git-commit-mode)))
879 cmd))
880 (defconst b/yas-maybe-expand
881 '(menu-item "" yas-expand
882 :filter b/yas-maybe-expand-abbrev-key-filter))
883 (define-key yas-minor-mode-map (kbd "SPC") b/yas-maybe-expand)
884
885 (yas-global-mode))
886
887;; debbugs
888(global-set-key (kbd "C-c D d") #'debbugs-gnu)
889(global-set-key (kbd "C-c D b") #'debbugs-gnu-bugs)
890(global-set-key (kbd "C-c D e") ; bug-gnu-emacs
891 (lambda ()
892 (interactive)
893 (setq debbugs-gnu-current-suppress t)
894 (debbugs-gnu debbugs-gnu-default-severities
895 '("emacs"))))
896(global-set-key (kbd "C-c D g") ; bug-gnuzilla
897 (lambda ()
898 (interactive)
899 (setq debbugs-gnu-current-suppress t)
900 (debbugs-gnu debbugs-gnu-default-severities
901 '("gnuzilla"))))
c84be134 902
0596e3cf
AB
903;; url and url-cache
904(csetq
905 url-configuration-directory (b/var "url/configuration/")
906 url-cache-directory (b/var "url/cache/"))
907
c84be134
AB
908;; eww
909(csetq eww-download-directory (file-name-as-directory
910 (getenv "XDG_DOWNLOAD_DIR")))
911(global-set-key (kbd "C-c a e w") #'eww)
41d290a2 912
8c4704d0
AB
913;; ;; org-ref
914;; (csetq
915;; reftex-default-bibliography '("~/usr/org/references.bib")
916;; org-ref-default-bibliography '("~/usr/org/references.bib")
917;; org-ref-bibliography-notes "~/usr/org/notes.org"
918;; org-ref-pdf-directory "~/usr/org/bibtex-pdfs/")
c84be134
AB
919
920;; fill-column-indicator ?
921
922;; window
923(csetq split-width-threshold 150)
924(global-set-key (kbd "C-c w s l")
925 (lambda ()
926 (interactive)
927 (split-window-right)
928 (other-window 1)))
929(global-set-key (kbd "C-c w s j")
930 (lambda ()
931 (interactive)
932 (split-window-below)
933 (other-window 1)))
934(global-set-key (kbd "C-c w q") #'quit-window)
935
c84be134 936;; pass
8c4704d0
AB
937;; (global-set-key (kbd "C-c a p") #'pass)
938;; (add-hook 'pass-mode-hook #'View-exit)
c84be134
AB
939
940;; reftex
941;; uncomment to disable reftex-cite's default choice of previous word
942;; (with-eval-after-load 'reftex
943;; (require 'reftex-cite)
944;; (defun reftex-get-bibkey-default ()
945;; "If the cursor is in a citation macro, return the word before the macro."
946;; (let* ((macro (reftex-what-macro 1)))
947;; (save-excursion
948;; (when (and macro (string-match "cite" (car macro)))
949;; (goto-char (cdr macro)))
950;; (reftex-this-word)))))
951(add-hook 'latex-mode-hook #'reftex-mode)
952
953;; dmenu
1f5c92ff
AB
954(add-to-list 'load-path (b/lisp "dmenu"))
955(with-eval-after-load 'dmenu
956 (csetq dmenu-prompt-string "run: "
957 dmenu-save-file (b/var "dmenu-items")))
958(autoload 'dmenu "dmenu" nil t)
c84be134
AB
959
960;; eosd ?
9ed5410e 961
8c4704d0
AB
962;; delight
963(run-with-idle-timer 0.5 nil #'require 'delight)
964(with-eval-after-load 'delight
965 (delight 'auto-fill-function " f" "simple")
966 (delight 'abbrev-mode "" "abbrev")
8c4704d0
AB
967 (delight 'mml-mode " mml" "mml")
968 (delight 'yas-minor-mode "" "yasnippet"))
969
a85421b4
AB
970;; po-mode
971(require 'bandali-po)
972
12e6cf3c
AB
973(with-eval-after-load 'emms
974 (csetq emms-directory (b/var "emms")))
975
b57457b2 976\f
b57457b2
AB
977;;; Post initialization
978
41d290a2
AB
979(message "Loading %s...done (%.3fs)" user-init-file
980 (float-time (time-subtract (current-time)
dca50cf5 981 b/before-user-init-time)))
41d290a2
AB
982
983;;; init.el ends here