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