fix "M-r" binding for eshell history completion
[~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 ;; completion case sensitivity
224 completion-ignore-case t
225 read-buffer-completion-ignore-case t
226 ;; minibuffer
227 enable-recursive-minibuffers t
228 resize-mini-windows t
229 ;; mode-line
230 mode-line-compact t
231 ;; i don't feel like jumping out of my chair every now and again;
232 ;; so...don't *BEEP* at me, emacs =)
233 ring-bell-function 'ignore
234 ;; better scrolling
235 ;; scroll-conservatively 101
236 scroll-conservatively 15
237 ;; scroll-preserve-screen-position 1
238 ;; focus follows mouse
239 ;; mouse-autoselect-window t
240 )
241
242 (setq-default
243 ;; case-sensitive search (and `dabbrev-expand')
244 ;; case-fold-search nil
245 ;; always use space for indentation
246 indent-tabs-mode nil
247 tab-width 4)
248
249 (set-fontset-font t 'arabic "Vazir")
250
251 ;;;; Elisp-level customizations
252
253 ;; (define-key minibuffer-local-completion-map
254 ;; "\t" #'minibuffer-force-complete)
255
256 ;; (with-eval-after-load 'icomplete
257
258 ;; (setq icomplete-on-del-error-function #'abort-recursive-edit)
259
260 ;; (defun b/icomplete-fido-backward-updir ()
261 ;; "Delete char before or go up directory, like `ido-mode'."
262 ;; (interactive)
263 ;; (if (and (eq (char-before) ?/)
264 ;; (eq (icomplete--category) 'file))
265 ;; (save-excursion
266 ;; (goto-char (1- (point)))
267 ;; (when (search-backward "/" (point-min) t)
268 ;; (delete-region (1+ (point)) (point-max))))
269 ;; (condition-case nil
270 ;; (call-interactively #'delete-backward-char)
271 ;; (error
272 ;; (when icomplete-on-del-error-function
273 ;; (funcall icomplete-on-del-error-function))))))
274
275 ;; (define-key icomplete-fido-mode-map
276 ;; (kbd "DEL") #'b/icomplete-fido-backward-updir))
277
278 ;; (with-eval-after-load 'subr
279 ;; (keyboard-translate ?\( ?\[)
280 ;; (keyboard-translate ?\) ?\])
281 ;; (keyboard-translate ?\[ ?\()
282 ;; (keyboard-translate ?\] ?\))
283
284 ;; ;; (keyboard-translate ?\( ?\()
285 ;; ;; (keyboard-translate ?\) ?\))
286 ;; ;; (keyboard-translate ?\[ ?\[)
287 ;; ;; (keyboard-translate ?\] ?\])
288 ;; )
289
290 ;; minibuffer
291 (csetq read-file-name-completion-ignore-case t)
292
293 ;; startup
294 ;; don't need to see the startup echo area message
295 (advice-add #'display-startup-echo-area-message :override #'ignore)
296 (csetq
297 ;; i want *scratch* as my startup buffer
298 initial-buffer-choice t
299 ;; i don't need the default hint
300 initial-scratch-message nil
301 ;; use customizable text-mode as major mode for *scratch*
302 ;; (initial-major-mode 'text-mode)
303 ;; inhibit buffer list when more than 2 files are loaded
304 inhibit-startup-buffer-menu t
305 ;; don't need to see the startup screen or echo area message
306 inhibit-startup-screen t
307 inhibit-startup-echo-area-message user-login-name)
308
309 ;; files
310 (csetq
311 ;; backups (C-h v make-backup-files RET)
312 backup-by-copying t
313 backup-directory-alist (list (cons "." (b/var "backup/")))
314 version-control t
315 delete-old-versions t
316 ;; auto-save
317 auto-save-file-name-transforms `((".*" ,(b/var "auto-save/") t))
318 ;; insert newline at the end of files
319 ;; require-final-newline t
320 ;; open read-only file buffers in view-mode
321 ;; (enables niceties like `q' for quit)
322 view-read-only t)
323
324 ;; novice
325 ;; disable disabled commands
326 (csetq disabled-command-function nil)
327
328 ;; lazy-person-friendly yes/no prompts
329 (defalias 'yes-or-no-p #'y-or-n-p)
330
331 ;; autorevert: enable automatic reloading of changed buffers and files
332 (csetq auto-revert-verbose nil
333 global-auto-revert-non-file-buffers nil)
334 (require 'autorevert)
335 (global-auto-revert-mode 1)
336
337 ;; time and battery in mode-line
338 (run-with-idle-timer 0.1 nil #'require 'time)
339 (with-eval-after-load 'time
340 (csetq
341 display-time-default-load-average nil
342 display-time-format " %a %b %-e %-l:%M%P"
343 display-time-mail-icon '(image :type xpm
344 :file "gnus/gnus-pointer.xpm"
345 :ascent center)
346 display-time-use-mail-icon t)
347 (display-time-mode))
348
349 (run-with-idle-timer 0.1 nil #'require 'battery)
350 (with-eval-after-load 'battery
351 (csetq battery-mode-line-format " %p%% %t")
352 (display-battery-mode))
353
354 ;; (with-eval-after-load 'fringe
355 ;; ;; smaller fringe
356 ;; (fringe-mode '(3 . 1)))
357
358 ;; enable winner-mode (C-h f winner-mode RET)
359 (require 'winner)
360 (winner-mode 1)
361
362 (with-eval-after-load 'compile
363 ;; don't display *compilation* buffer on success. based on
364 ;; https://stackoverflow.com/a/17788551, with changes to use `cl-letf'
365 ;; instead of the now obsolete `flet'.
366 (defun b/compilation-finish-function (buffer outstr)
367 (unless (string-match "finished" outstr)
368 (switch-to-buffer-other-window buffer))
369 t)
370
371 (setq compilation-finish-functions #'b/compilation-finish-function)
372
373 (require 'cl-macs)
374
375 (defadvice compilation-start
376 (around inhibit-display
377 (command &optional mode name-function highlight-regexp))
378 (if (not (string-match "^\\(find\\|grep\\)" command))
379 (cl-letf (((symbol-function 'display-buffer) #'ignore))
380 (save-window-excursion ad-do-it))
381 ad-do-it))
382 (ad-activate 'compilation-start))
383
384 ;; isearch
385 (csetq
386 ;; allow scrolling in Isearch
387 isearch-allow-scroll t
388 isearch-lazy-count t
389 ;; search for non-ASCII characters: i’d like non-ASCII characters such
390 ;; as ‘’“”«»‹›áⓐ𝒶 to be selected when i search for their ASCII
391 ;; counterpart. shoutout to
392 ;; http://endlessparentheses.com/new-in-emacs-25-1-easily-search-non-ascii-characters.html
393 search-default-mode #'char-fold-to-regexp)
394
395 ;; replace
396 ;; uncomment to extend the above behaviour to query-replace
397 ;; (csetq replace-char-fold t)
398
399 ;; vc
400 (global-set-key (kbd "C-x v C-=") #'vc-ediff)
401
402 (with-eval-after-load 'vc-git
403 (csetq vc-git-print-log-follow t
404 vc-git-show-stash 0))
405
406 (csetq ediff-window-setup-function 'ediff-setup-windows-plain
407 ediff-split-window-function 'split-window-horizontally)
408 (with-eval-after-load 'ediff
409 (add-hook 'ediff-after-quit-hook-internal #'winner-undo))
410
411 ;; face-remap
412 (csetq
413 ;; gentler font resizing
414 text-scale-mode-step 1.05)
415
416 (run-with-idle-timer 0.4 nil #'require 'mwheel)
417 (csetq mouse-wheel-scroll-amount '(1 ((shift) . 1)) ; one line at a time
418 mouse-wheel-progressive-speed nil ; don't accelerate scrolling
419 mouse-wheel-follow-mouse t) ; scroll window under mouse
420
421 (run-with-idle-timer 0.4 nil #'require 'pixel-scroll)
422 (with-eval-after-load 'pixel-scroll
423 (pixel-scroll-mode 1))
424
425 ;; epg-config
426 (csetq
427 epg-gpg-program (executable-find "gpg")
428 ;; ask for GPG passphrase in minibuffer
429 ;; this will fail if gpg>=2.1 is not available
430 epg-pinentry-mode 'loopback)
431
432 ;; (require 'pinentry)
433 ;; workaround for systemd-based distros:
434 ;; (setq pinentry--socket-dir server-socket-dir)
435 ;; (pinentry-start)
436
437 ;; auth-source
438 (csetq
439 auth-sources '("~/.authinfo.gpg")
440 authinfo-hidden (regexp-opt '("password" "client-secret" "token")))
441
442 ;; info
443 (with-eval-after-load 'info
444 (add-to-list
445 'Info-directory-list
446 (expand-file-name
447 (convert-standard-filename "info/") source-directory)))
448
449 ;; faces
450 (when (display-graphic-p)
451 (with-eval-after-load 'faces
452 (let* ((grey "#e7e7e7")
453 (darker-grey "#d9d9d9")
454 (box ;; `(:line-width -1 :style released-button)
455 'unspecified))
456 (set-face-attribute 'mode-line nil
457 :background grey :box box)
458 (set-face-attribute 'mode-line-inactive nil
459 :background darker-grey :box box))))
460
461 \f
462 ;;; Useful utilities
463
464 (defun b/add-elisp-section ()
465 (interactive)
466 (insert "\n")
467 (forward-line -1)
468 (insert "\n\f\n;;; "))
469
470 (defun b/insert-asterism ()
471 "Insert a centred asterism."
472 (interactive)
473 (let ((asterism "* * *"))
474 (insert
475 (concat
476 "\n"
477 (make-string
478 (floor (/ (- fill-column (length asterism)) 2))
479 ?\s)
480 asterism
481 "\n"))))
482
483 (defun b/start-process (program &rest args)
484 "Same as `start-process', but doesn't bother about name and buffer."
485 (let ((process-name (concat program "_process"))
486 (buffer-name (generate-new-buffer-name
487 (concat program "_output"))))
488 (apply #'start-process
489 process-name buffer-name program args)))
490
491 (defun b/no-mouse-autoselect-window ()
492 "Conveniently disable `focus-follows-mouse'.
493 For disabling the behaviour for certain buffers and/or modes."
494 (make-local-variable 'mouse-autoselect-window)
495 (setq mouse-autoselect-window nil))
496
497 (defun b/kill-current-buffer ()
498 "Kill the current buffer."
499 ;; also see https://redd.it/64xb3q
500 (interactive)
501 (kill-buffer (current-buffer)))
502
503 (defun b/move-indentation-or-beginning-of-line (arg)
504 "Move to the indentation or to the beginning of line."
505 (interactive "^p")
506 ;; (if (bolp)
507 ;; (back-to-indentation)
508 ;; (move-beginning-of-line arg))
509 (if (= (point)
510 (progn (back-to-indentation)
511 (point)))
512 (move-beginning-of-line arg)))
513
514 (defun b/join-line-top ()
515 "Like `join-line', but join next line to the current line."
516 (interactive)
517 (join-line 1))
518
519 (defun b/duplicate-line-or-region (&optional n)
520 "Duplicate the current line, or region (if active).
521 Make N (default: 1) copies of the current line or region."
522 (interactive "*p")
523 (let ((u-r-p (use-region-p)) ; if region is active
524 (n1 (or n 1)))
525 (save-excursion
526 (let ((text
527 (if u-r-p
528 (buffer-substring (region-beginning) (region-end))
529 (prog1 (thing-at-point 'line)
530 (end-of-line)
531 (if (eobp)
532 (newline)
533 (forward-line 1))))))
534 (dotimes (_ (abs n1))
535 (insert text))))))
536
537 \f
538 ;;; General key bindings
539
540 (global-set-key (kbd "C-a") #'b/move-indentation-or-beginning-of-line)
541 (global-set-key (kbd "C-c a i") #'ielm)
542 (global-set-key (kbd "C-c d") #'b/duplicate-line-or-region)
543 (global-set-key (kbd "C-c j") #'b/join-line-top)
544 (global-set-key (kbd "C-S-j") #'b/join-line-top)
545 (global-set-key (kbd "C-c x") #'execute-extended-command)
546
547 ;; evaling and macro-expanding
548 (global-set-key (kbd "C-c e b") #'eval-buffer)
549 (global-set-key (kbd "C-c e e") #'eval-last-sexp)
550 (global-set-key (kbd "C-c e m") #'pp-macroexpand-last-sexp)
551 (global-set-key (kbd "C-c e r") #'eval-region)
552
553 ;; emacs things
554 (global-set-key (kbd "C-c e i") #'emacs-init-time)
555 (global-set-key (kbd "C-c e u") #'emacs-uptime)
556 (global-set-key (kbd "C-c e v") #'emacs-version)
557
558 ;; finding
559 (global-set-key (kbd "C-c f .") #'find-file)
560 (global-set-key (kbd "C-c f d") #'find-name-dired)
561 (global-set-key (kbd "C-c f l") #'find-library)
562 (global-set-key (kbd "C-c f p") #'find-file-at-point)
563
564 ;; frames
565 (global-set-key (kbd "C-c F m") #'make-frame-command)
566 (global-set-key (kbd "C-c F d") #'delete-frame)
567
568 ;; help/describe
569 (global-set-key (kbd "C-S-h F") #'describe-face)
570
571 ;; (global-set-key (kbd "C-x k") #'b/kill-current-buffer)
572 ;; (global-set-key (kbd "C-x K") #'kill-buffer)
573
574 (define-key emacs-lisp-mode-map (kbd "C-<return>") #'b/add-elisp-section)
575
576 (when (display-graphic-p)
577 (global-unset-key (kbd "C-z")))
578
579 \f
580 ;;; Essential packages
581
582 (add-to-list
583 'load-path
584 (expand-file-name
585 (convert-standard-filename "lisp") user-emacs-directory))
586
587 ;; (require 'bandali-exwm)
588
589 (require 'bandali-org)
590
591 ;; (require 'bandali-theme)
592
593 ;; recently opened files
594 (csetq recentf-max-saved-items 2000
595 recentf-save-file (b/var "recentf-save.el"))
596 (run-with-idle-timer 0.2 nil #'require 'recentf)
597 (with-eval-after-load 'recentf
598 ;; (add-to-list 'recentf-keep #'file-remote-p)
599 (recentf-mode)
600
601 (defun b/recentf-open ()
602 "Use `completing-read' to \\[find-file] a recent file."
603 (interactive)
604 (find-file
605 (completing-read "Find recent file: " recentf-list)))
606 (global-set-key (kbd "C-c f r") #'b/recentf-open))
607
608 ;; (fido-mode 1)
609 ;; (defun b/icomplete--fido-mode-setup ()
610 ;; "Customizations to `fido-mode''s minibuffer."
611 ;; (when (and icomplete-mode (icomplete-simple-completing-p))
612 ;; (setq-local
613 ;; ;; icomplete-compute-delay 0.1
614 ;; ;; icomplete-hide-common-prefix t
615 ;; icomplete-separator " · "
616 ;; completion-styles '(basic substring partial-completion flex))))
617 ;; (add-hook 'minibuffer-setup-hook #'b/icomplete--fido-mode-setup 1)
618
619 (require 'bandali-eshell)
620
621 (require 'bandali-ibuffer)
622
623 (require 'bandali-dired)
624
625 (with-eval-after-load 'help
626 (temp-buffer-resize-mode)
627 (csetq help-window-select t))
628
629 (with-eval-after-load 'help-mode
630 ;; local key bindings
631 (define-key help-mode-map (kbd "p") #'backward-button)
632 (define-key help-mode-map (kbd "n") #'forward-button))
633
634 (with-eval-after-load 'tramp
635 (csetq tramp-auto-save-directory (b/var "tramp/auto-save/")
636 tramp-persistency-file-name (b/var "tramp/persistency.el"))
637 (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
638 (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
639 (add-to-list 'tramp-default-proxies-alist
640 (list (regexp-quote (system-name)) nil nil)))
641
642 (with-eval-after-load 'doc-view
643 (define-key doc-view-mode-map (kbd "M-RET") #'image-previous-line))
644
645 (csetq shr-max-width 80)
646
647 ;; Email (with Gnus and message)
648 (require 'bandali-gnus)
649 (require 'bandali-message)
650
651 ;; IRC (with ERC)
652 (require 'bandali-erc)
653
654 ;; 'paste' service (aka scp + web server)
655 (add-to-list 'load-path (b/lisp "scpaste"))
656 (with-eval-after-load 'scpaste
657 (csetq scpaste-http-destination "https://p.bndl.org"
658 scpaste-scp-destination "p:~"))
659 (autoload 'scpaste "scpaste" nil t)
660 (autoload 'scpaste-region "scpaste" nil t)
661 (global-set-key (kbd "C-c a p p") #'scpaste)
662 (global-set-key (kbd "C-c a p r") #'scpaste-region)
663
664 \f
665 ;;; Editing
666
667 ;; display Lisp objects at point in the echo area
668 (when (version< "25" emacs-version)
669 (with-eval-after-load 'eldoc
670 (csetq eldoc-minor-mode-string " eldoc")
671 (global-eldoc-mode)))
672
673 ;; highlight matching parens
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
687 (column-number-mode 1)
688 (line-number-mode 1))
689
690 ;; save minibuffer history
691 (require 'savehist)
692 (csetq savehist-file (b/var "savehist.el"))
693 (savehist-mode)
694 (add-to-list 'savehist-additional-variables 'kill-ring)
695
696 ;; automatically save place in files
697 (when (version< "25" emacs-version)
698 (csetq save-place-file (b/var "save-place.el"))
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
707 (define-key text-mode-map (kbd "C-<return>") #'b/insert-asterism)
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
715 (with-eval-after-load 'flyspell
716 (csetq flyspell-mode-line-string " fly"))
717
718 ;; ispell
719 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
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
744 ;; abbrev
745 (csetq abbrev-file-name (b/etc "abbrev.el"))
746 (add-hook 'text-mode-hook #'abbrev-mode)
747
748 \f
749 ;;; Programming modes
750
751 (with-eval-after-load 'lisp-mode
752 (defun indent-spaces-mode ()
753 (setq indent-tabs-mode nil))
754 (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
755
756 ;; alloy
757 (add-to-list 'load-path (b/lisp "alloy-mode"))
758 (autoload 'alloy-mode "alloy-mode" nil t)
759 (with-eval-after-load 'alloy-mode
760 (csetq alloy-basic-offset 2)
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)))
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
797 ;; auctex
798 ;; (csetq font-latex-fontify-sectioning 'color)
799
800 (with-eval-after-load 'tex-mode
801 (cl-delete-if
802 (lambda (p) (string-match "^---?" (car p)))
803 tex--prettify-symbols-alist))
804 (add-hook 'tex-mode-hook #'auto-fill-mode)
805 (add-hook 'tex-mode-hook #'flyspell-mode)
806
807 \f
808 ;;; Emacs enhancements & auxiliary packages
809
810 (with-eval-after-load 'man
811 (csetq Man-width 80))
812
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*)
822
823 ;; ,----
824 ;; | make pretty boxed quotes like this
825 ;; `----
826 (add-to-list 'load-path (b/lisp "boxquote"))
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
853 (add-to-list 'load-path (b/lisp "hl-todo"))
854 (run-with-idle-timer 0.5 nil #'require 'hl-todo)
855 (with-eval-after-load 'hl-todo
856 ;; highlight TODOs in buffers
857 (global-hl-todo-mode))
858
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)
871 (csetq yas-snippet-dirs `(,(b/etc "yasnippet/snippets")))
872 ;; (add-to-list 'yas-snippet-dirs "~/src/git/guix/etc/snippets" t)
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"))))
902
903 ;; url and url-cache
904 (csetq
905 url-configuration-directory (b/var "url/configuration/")
906 url-cache-directory (b/var "url/cache/"))
907
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)
912
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/")
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
936 ;; pass
937 ;; (global-set-key (kbd "C-c a p") #'pass)
938 ;; (add-hook 'pass-mode-hook #'View-exit)
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
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)
959
960 ;; eosd ?
961
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")
967 (delight 'mml-mode " mml" "mml")
968 (delight 'yas-minor-mode "" "yasnippet"))
969
970 \f
971 ;;; Post initialization
972
973 (message "Loading %s...done (%.3fs)" user-init-file
974 (float-time (time-subtract (current-time)
975 b/before-user-init-time)))
976
977 ;;; init.el ends here