1 ;;; init.el --- bandali's emacs configuration -*- lexical-binding: t -*-
3 ;; Copyright (C) 2018-2021 Amin Bandali <bandali@gnu.org>
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.
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.
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/>.
20 ;; GNU Emacs configuration of bandali, free software activist,
21 ;; computing scientist, and GNU maintainer and volunteer.
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:
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
37 ;;; Emacs initialization
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.")
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
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)
61 ;; set them back to their defaults once we're done initializing
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
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)
92 mode-line-buffer-identification
93 (propertized-buffer-identification "%10b"))))
94 (add-hook 'after-init-hook
#'b
/post-init
)
96 ;; increase number of lines kept in *Messages* log
97 (setq message-log-max
20000)
102 (setq ;; user-full-name "bandali"
103 user-mail-address
"bandali@gnu.org")
106 ;;; csetq (`custom' setq)
110 (defmacro csetq
(&rest args
)
111 "Set the value of user option VAR to VALUE.
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.
117 \(fn [VAR VALUE]...)"
118 (declare (debug setq
))
120 ,@(cl-loop for
(var value
) on args by
'cddr
122 `(funcall (or (get ',var
'custom-set
) #'set-default
)
126 ;;; Package management
128 ;; variables of interest:
129 ;; package-archive-priorities
131 ;; package-pinned-packages
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)
142 ;; ("bndl" . "https://p.bndl.org/elpa/")
143 ("org" .
"https://orgmode.org/elpa/"))
149 (rt-liberation "1.31")
151 (expand-region "0.11.0")
154 ;; (refinery-theme "0.1.1")
156 (org-plus-contrib "20201109"))))
157 (package-initialize))
159 (csetq package-archive-upload-base
"/ssh:caffeine:~/www/p/elpa")
164 ;; keep ~/.emacs.d clean
167 (convert-standard-filename "etc/") user-emacs-directory
)
168 "The directory where packages place their configuration files.")
171 (convert-standard-filename "var/") user-emacs-directory
)
172 "The directory where packages place their persistent data files.")
175 (convert-standard-filename "lisp/") user-emacs-directory
)
176 "The directory where packages place their persistent data files.")
178 "Expand filename FILE relative to `b/etc-dir'."
179 (expand-file-name (convert-standard-filename file
) b
/etc-dir
))
181 "Expand filename FILE relative to `b/var-dir'."
182 (expand-file-name (convert-standard-filename file
) b
/var-dir
))
184 "Expand filename FILE relative to `b/lisp-dir'."
185 (expand-file-name (convert-standard-filename file
) b
/lisp-dir
))
188 auto-save-list-file-prefix
(b/var
"auto-save/sessions/")
189 nsm-settings-file
(b/var
"nsm-settings.el"))
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
)
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))
204 ;; load the secrets file if it exists, otherwise show a warning
205 ;; (with-demoted-errors
206 ;; (load (b/etc "secrets")))
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)))
220 ;;;; C-level customizations
223 ;; completion case sensitivity
224 completion-ignore-case t
225 read-buffer-completion-ignore-case t
227 enable-recursive-minibuffers t
228 resize-mini-windows 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
235 ;; scroll-conservatively 101
236 scroll-conservatively
15
237 ;; scroll-preserve-screen-position 1
238 ;; focus follows mouse
239 ;; mouse-autoselect-window t
243 ;; case-sensitive search (and `dabbrev-expand')
244 ;; case-fold-search nil
245 ;; always use space for indentation
249 (set-fontset-font t
'arabic
"Vazir")
251 ;;;; Elisp-level customizations
253 ;; (define-key minibuffer-local-completion-map
254 ;; "\t" #'minibuffer-force-complete)
256 ;; (with-eval-after-load 'icomplete
258 ;; (setq icomplete-on-del-error-function #'abort-recursive-edit)
260 ;; (defun b/icomplete-fido-backward-updir ()
261 ;; "Delete char before or go up directory, like `ido-mode'."
263 ;; (if (and (eq (char-before) ?/)
264 ;; (eq (icomplete--category) 'file))
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)
272 ;; (when icomplete-on-del-error-function
273 ;; (funcall icomplete-on-del-error-function))))))
275 ;; (define-key icomplete-fido-mode-map
276 ;; (kbd "DEL") #'b/icomplete-fido-backward-updir))
278 ;; (with-eval-after-load 'subr
279 ;; (keyboard-translate ?\( ?\[)
280 ;; (keyboard-translate ?\) ?\])
281 ;; (keyboard-translate ?\[ ?\()
282 ;; (keyboard-translate ?\] ?\))
284 ;; ;; (keyboard-translate ?\( ?\()
285 ;; ;; (keyboard-translate ?\) ?\))
286 ;; ;; (keyboard-translate ?\[ ?\[)
287 ;; ;; (keyboard-translate ?\] ?\])
291 (csetq read-file-name-completion-ignore-case t
)
294 ;; don't need to see the startup echo area message
295 (advice-add #'display-startup-echo-area-message
:override
#'ignore
)
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
)
311 ;; backups (C-h v make-backup-files RET)
313 backup-directory-alist
(list (cons "." (b/var
"backup/")))
315 delete-old-versions t
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)
325 ;; disable disabled commands
326 (csetq disabled-command-function nil
)
328 ;; lazy-person-friendly yes/no prompts
329 (defalias 'yes-or-no-p
#'y-or-n-p
)
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)
337 ;; time and battery in mode-line
338 (run-with-idle-timer 0.1 nil
#'require
'time
)
339 (with-eval-after-load 'time
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"
346 display-time-use-mail-icon t
)
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))
354 ;; (with-eval-after-load 'fringe
356 ;; (fringe-mode '(3 . 1)))
358 ;; enable winner-mode (C-h f winner-mode RET)
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
))
371 (setq compilation-finish-functions
#'b
/compilation-finish-function
)
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
))
382 (ad-activate 'compilation-start
))
386 ;; allow scrolling in Isearch
387 isearch-allow-scroll 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
)
396 ;; uncomment to extend the above behaviour to query-replace
397 ;; (csetq replace-char-fold t)
400 (global-set-key (kbd "C-x v C-=") #'vc-ediff
)
402 (with-eval-after-load 'vc-git
403 (csetq vc-git-print-log-follow t
404 vc-git-show-stash
0))
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
))
413 ;; gentler font resizing
414 text-scale-mode-step
1.05)
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
421 (run-with-idle-timer 0.4 nil
#'require
'pixel-scroll
)
422 (with-eval-after-load 'pixel-scroll
423 (pixel-scroll-mode 1))
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
)
432 ;; (require 'pinentry)
433 ;; workaround for systemd-based distros:
434 ;; (setq pinentry--socket-dir server-socket-dir)
439 auth-sources
'("~/.authinfo.gpg")
440 authinfo-hidden
(regexp-opt '("password" "client-secret" "token")))
443 (with-eval-after-load 'info
447 (convert-standard-filename "info/") source-directory
)))
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)
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
))))
464 (defun b/add-elisp-section
()
468 (insert "\n\f\n;;; "))
470 (defun b/insert-asterism
()
471 "Insert a centred asterism."
473 (let ((asterism "* * *"))
478 (floor (/ (- fill-column
(length asterism
)) 2))
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
)))
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
))
497 (defun b/kill-current-buffer
()
498 "Kill the current buffer."
499 ;; also see https://redd.it/64xb3q
501 (kill-buffer (current-buffer)))
503 (defun b/move-indentation-or-beginning-of-line
(arg)
504 "Move to the indentation or to the beginning of line."
507 ;; (back-to-indentation)
508 ;; (move-beginning-of-line arg))
510 (progn (back-to-indentation)
512 (move-beginning-of-line arg
)))
514 (defun b/join-line-top
()
515 "Like `join-line', but join next line to the current line."
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."
523 (let ((u-r-p (use-region-p)) ; if region is active
528 (buffer-substring (region-beginning) (region-end))
529 (prog1 (thing-at-point 'line
)
533 (forward-line 1))))))
534 (dotimes (_ (abs n1
))
538 ;;; General key bindings
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
)
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
)
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
)
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
)
565 (global-set-key (kbd "C-c F m") #'make-frame-command
)
566 (global-set-key (kbd "C-c F d") #'delete-frame
)
569 (global-set-key (kbd "C-S-h F") #'describe-face
)
571 ;; (global-set-key (kbd "C-x k") #'b/kill-current-buffer)
572 ;; (global-set-key (kbd "C-x K") #'kill-buffer)
574 (define-key emacs-lisp-mode-map
(kbd "C-<return>") #'b
/add-elisp-section
)
576 (when (display-graphic-p)
577 (global-unset-key (kbd "C-z")))
580 ;;; Essential packages
585 (convert-standard-filename "lisp") user-emacs-directory
))
587 ;; (require 'bandali-exwm)
589 (require 'bandali-org
)
591 ;; (require 'bandali-theme)
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)
601 (defun b/recentf-open
()
602 "Use `completing-read' to \\[find-file] a recent file."
605 (completing-read "Find recent file: " recentf-list
)))
606 (global-set-key (kbd "C-c f r") #'b
/recentf-open
))
609 ;; (defun b/icomplete--fido-mode-setup ()
610 ;; "Customizations to `fido-mode''s minibuffer."
611 ;; (when (and icomplete-mode (icomplete-simple-completing-p))
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)
619 (require 'bandali-eshell
)
621 (require 'bandali-ibuffer
)
623 (require 'bandali-dired
)
625 (with-eval-after-load 'help
626 (temp-buffer-resize-mode)
627 (csetq help-window-select t
))
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
))
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
)))
642 (with-eval-after-load 'doc-view
643 (define-key doc-view-mode-map
(kbd "M-RET") #'image-previous-line
))
645 (csetq shr-max-width
80)
647 ;; Email (with Gnus and message)
648 (require 'bandali-gnus
)
649 (require 'bandali-message
)
652 (require 'bandali-erc
)
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
)
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)))
673 ;; highlight matching parens
677 ;; (require 'elec-pair)
678 ;; (electric-pair-mode)
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))
690 ;; save minibuffer history
692 (csetq savehist-file
(b/var
"savehist.el"))
694 (add-to-list 'savehist-additional-variables
'kill-ring
)
696 ;; automatically save place in files
697 (when (version< "25" emacs-version
)
698 (csetq save-place-file
(b/var
"save-place.el"))
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
)
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
)
711 (add-to-list 'auto-mode-alist
'("\\.*rc$" . conf-mode
))
713 (add-to-list 'auto-mode-alist
'("\\.bashrc$" . sh-mode
))
715 (with-eval-after-load 'flyspell
716 (csetq flyspell-mode-line-string
" fly"))
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))
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))
738 ;; (cons (replace-regexp-in-string
739 ;; "'" "’" (car args))
741 ;; (advice-add #'ispell-parse-output :filter-args
742 ;; #'endless/replace-quote))
745 (csetq abbrev-file-name
(b/etc
"abbrev.el"))
746 (add-hook 'text-mode-hook
#'abbrev-mode
)
749 ;;; Programming modes
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
))
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)
763 ;; ;; (if (region-active-p)
764 ;; ;; (indent-rigidly start end alloy-basic-offset)
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
)))
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))
791 (with-eval-after-load 'sgml-mode
792 (csetq sgml-basic-offset
0))
794 (with-eval-after-load 'css-mode
795 (csetq css-indent-offset
2))
798 ;; (csetq font-latex-fontify-sectioning 'color)
800 (with-eval-after-load 'tex-mode
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
)
808 ;;; Emacs enhancements & auxiliary packages
810 (with-eval-after-load 'man
811 (csetq Man-width
80))
813 (defun b/*scratch
* ()
814 "Switch to `*scratch*' buffer, creating it if it does not exist."
817 (or (get-buffer "*scratch*")
818 (with-current-buffer (get-buffer-create "*scratch*")
819 (set-buffer-major-mode (current-buffer))
821 (global-set-key (kbd "C-c s") #'b
/*scratch
*)
824 ;; | make pretty boxed quotes like this
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
))
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))
860 (global-set-key (kbd "C-=") #'er
/expand-region
)
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
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)
874 (setq yas-verbosity yas-verbosity-cur
)
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
)))
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
)
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
893 (setq debbugs-gnu-current-suppress t
)
894 (debbugs-gnu debbugs-gnu-default-severities
896 (global-set-key (kbd "C-c D g") ; bug-gnuzilla
899 (setq debbugs-gnu-current-suppress t
)
900 (debbugs-gnu debbugs-gnu-default-severities
905 url-configuration-directory
(b/var
"url/configuration/")
906 url-cache-directory
(b/var
"url/cache/"))
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
)
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/")
920 ;; fill-column-indicator ?
923 (csetq split-width-threshold
150)
924 (global-set-key (kbd "C-c w s l")
929 (global-set-key (kbd "C-c w s j")
934 (global-set-key (kbd "C-c w q") #'quit-window
)
937 ;; (global-set-key (kbd "C-c a p") #'pass)
938 ;; (add-hook 'pass-mode-hook #'View-exit)
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)))
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
)
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
)
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"))
971 ;;; Post initialization
973 (message "Loading %s...done (%.3fs)" user-init-file
974 (float-time (time-subtract (current-time)
975 b
/before-user-init-time
)))
977 ;;; init.el ends here