0e6f3309e0f00870cc49de0ff498182c5989425f
[~bandali/configs] / init.org
1 #+title: =aminb='s Literate Emacs Configuration
2 #+author: Amin Bandali
3 #+babel: :cache yes
4 #+property: header-args :tangle yes
5
6 * About
7 :PROPERTIES:
8 :CUSTOM_ID: about
9 :END:
10
11 This org file is my literate configuration for GNU Emacs, and is
12 tangled to [[./init.el][init.el]]. Packages are installed and managed using
13 [[https://github.com/raxod502/straight.el][straight.el]]. Over the years, I've taken inspiration from
14 configurations of many different people. Some of the configurations
15 that I can remember off the top of my head are:
16
17 - [[https://github.com/dieggsy/dotfiles][dieggsy/dotfiles]]: literate Emacs and dotfiles configuration, uses
18 straight.el for managing packages
19 - [[https://github.com/dakra/dmacs][dakra/dmacs]]: literate Emacs configuration, using Borg for managing
20 packages
21 - [[http://pages.sachachua.com/.emacs.d/Sacha.html][Sacha Chua's literate Emacs configuration]]
22 - [[https://github.com/dakrone/eos][dakrone/eos]]
23 - Ryan Rix's [[http://doc.rix.si/cce/cce.html][Complete Computing Environment]] ([[http://doc.rix.si/projects/fsem.html][about cce]])
24 - [[https://github.com/jwiegley/dot-emacs][jwiegley/dot-emacs]]: nix-based configuration
25 - [[https://github.com/wasamasa/dotemacs][wasamasa/dotemacs]]
26 - [[https://github.com/hlissner/doom-emacs][Doom Emacs]]
27
28 I'd like to have a fully reproducible Emacs setup (part of the reason
29 why I store my configuration in this repository) but unfortunately out
30 of the box, that's not achievable with =package.el=, not currently
31 anyway. So, I've opted to use =straight.el=. I also used Borg for a
32 few months, but decided to try =straight.el= which allows direct use
33 of the various package archives.
34
35 ** Installation
36
37 To use this config for your Emacs, first you need to clone this repo,
38 then tangle =init.org= into =init.el=, and optionally byte-compile
39 =init.el=.
40
41 First, clone the repository and =cd= into it:
42
43 #+begin_src sh :tangle no
44 git clone https://git.sr.ht/~bandali/dotfiles ~/.emacs.d
45 cd ~/.emacs.d
46 #+end_src
47
48 Then, decide if you would like to use a byte-compiled init file, and
49 set the following variable accordingly:
50
51 #+begin_src emacs-lisp
52 (defvar a/byte-compiled-init t
53 "If non-nil, byte-(re)compile init.el on successful tangles.")
54 #+end_src
55
56 Now, first tangle =init.org=, and only if you chose to have a
57 byte-compiled init, build init as well:
58
59 #+begin_src sh :tangle no
60 make tangle-init
61 make build-init
62 #+end_src
63
64 If you'd like to use a byte-compiled init, it's important that it be
65 recompiled whenever =init.el= is generated from an updated =init.org=.
66 Not only does my setup automatically and asynchronously tangle
67 =init.org= to =init.el= every time you edit and save =init.org= in GNU
68 Emacs, it will also invoke =make build-init= if you set
69 =a/byte-compiled-init= to =t= above, so you wouldn't have to worry
70 about manually tangling and compiling your init file whenever you
71 change it. The output of the last byte-compilation in the current
72 session is kept in a =*compilation*= buffer, which will automatically
73 be displayed if compilation fails.
74
75 * Contents :toc_1:noexport:
76
77 - [[#about][About]]
78 - [[#header][Header]]
79 - [[#initial-setup][Initial setup]]
80 - [[#core][Core]]
81 - [[#borg-essentials][Borg's =layer/essentials=]]
82 - [[#editing][Editing]]
83 - [[#syntax-spell-checking][Syntax and spell checking]]
84 - [[#programming-modes][Programming modes]]
85 - [[#emacs-enhancements][Emacs enhancements]]
86 - [[#email][Email]]
87 - [[#blogging][Blogging]]
88 - [[#post-initialization][Post initialization]]
89 - [[#footer][Footer]]
90
91 * Header
92 :PROPERTIES:
93 :CUSTOM_ID: header
94 :END:
95
96 ** First line
97
98 #+begin_src emacs-lisp :comments none
99 ;;; init.el --- Amin Bandali's Emacs config -*- lexical-binding: t; eval: (view-mode 1) -*-
100 #+end_src
101
102 Enable =view-mode=, which both makes the file read-only (as a reminder
103 that =init.el= is an auto-generated file, not supposed to be edited),
104 and provides some convenient key bindings for browsing through the
105 file.
106
107 ** License
108
109 #+begin_src emacs-lisp :comments none
110 ;; Copyright (C) 2018 Amin Bandali <bandali@gnu.org>
111
112 ;; This program is free software: you can redistribute it and/or modify
113 ;; it under the terms of the GNU General Public License as published by
114 ;; the Free Software Foundation, either version 3 of the License, or
115 ;; (at your option) any later version.
116
117 ;; This program is distributed in the hope that it will be useful,
118 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
119 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
120 ;; GNU General Public License for more details.
121
122 ;; You should have received a copy of the GNU General Public License
123 ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
124 #+end_src
125
126 ** Commentary
127
128 #+begin_src emacs-lisp :comments none
129 ;;; Commentary:
130
131 ;; Emacs configuration of Amin Bandali, computer scientist, functional
132 ;; programmer, and free software advocate.
133
134 ;; THIS FILE IS AUTO-GENERATED FROM `init.org'.
135 #+end_src
136
137 * Initial setup
138 :PROPERTIES:
139 :CUSTOM_ID: initial-setup
140 :END:
141
142 ** Emacs initialization
143
144 I'd like to do a couple of measurements of Emacs' startup time. First,
145 let's see how long Emacs takes to start up, before even loading
146 =init.el=, i.e. =user-init-file=:
147
148 #+begin_src emacs-lisp
149 (defvar a/before-user-init-time (current-time)
150 "Value of `current-time' when Emacs begins loading `user-init-file'.")
151 (message "Loading Emacs...done (%.3fs)"
152 (float-time (time-subtract a/before-user-init-time
153 before-init-time)))
154 #+end_src
155
156 Also, temporarily increase ~gc-cons-threshhold~ and
157 ~gc-cons-percentage~ during startup to reduce garbage collection
158 frequency. Clearing the ~file-name-handler-alist~ seems to help reduce
159 startup time as well.
160
161 #+begin_src emacs-lisp
162 (defvar a/gc-cons-threshold gc-cons-threshold)
163 (defvar a/gc-cons-percentage gc-cons-percentage)
164 (defvar a/file-name-handler-alist file-name-handler-alist)
165 (setq gc-cons-threshold (* 400 1024 1024) ; 400 MiB
166 gc-cons-percentage 0.6
167 file-name-handler-alist nil
168 ;; sidesteps a bug when profiling with esup
169 esup-child-profile-require-level 0)
170 #+end_src
171
172 Of course, we'd like to set them back to their defaults once we're
173 done initializing.
174
175 #+begin_src emacs-lisp
176 (add-hook
177 'after-init-hook
178 (lambda ()
179 (setq gc-cons-threshold a/gc-cons-threshold
180 gc-cons-percentage a/gc-cons-percentage
181 file-name-handler-alist a/file-name-handler-alist)))
182 #+end_src
183
184 Increase the number of lines kept in message logs (the =*Messages*=
185 buffer).
186
187 #+begin_src emacs-lisp
188 (setq message-log-max 20000)
189 #+end_src
190
191 Optionally, we could suppress some byte compiler warnings like below,
192 but for now I've decided to keep them enabled. See documentation for
193 ~byte-compile-warnings~ for more details.
194
195 #+begin_src emacs-lisp
196 ;; (setq byte-compile-warnings
197 ;; '(not free-vars unresolved noruntime lexical make-local))
198 #+end_src
199
200 ** whoami
201
202 #+begin_src emacs-lisp
203 (setq user-full-name "Amin Bandali"
204 user-mail-address "amin@aminb.org")
205 #+end_src
206
207 ** Package management
208
209 *** No =package.el=
210
211 I can do all my package management things with =straight.el=, and
212 don't need Emacs' built-in =package.el=. Emacs 27 lets us disable
213 =package.el= in the =early-init-file= (see [[https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=24acb31c04b4048b85311d794e600ecd7ce60d3b][here]]).
214
215 #+begin_src emacs-lisp :tangle early-init.el
216 (setq package-enable-at-startup nil)
217 #+end_src
218
219 But since Emacs 27 isn't out yet (Emacs 26 is just around the corner
220 right now), and even when released it'll be long before most distros
221 ship in their repos, I'll still put the old workaround with the
222 commented call to ~package-initialize~ here anyway.
223
224 #+begin_src emacs-lisp :tangle no
225 (setq package-enable-at-startup nil)
226 ;; (package-initialize)
227 #+end_src
228
229 Update: the above is not necessary, since =straight.el= automatically
230 does that (and more). See =straight-package-neutering-mode=.
231
232 *** =straight.el=
233
234 #+begin_quote
235 Next-generation, purely functional package manager for the Emacs
236 hacker.
237 #+end_quote
238
239 =straight.el= allows me to have a fully reproducible Emacs setup.
240
241 #+begin_src emacs-lisp
242 ;; Main engine start...
243
244 (setq straight-repository-branch "develop"
245 straight-check-for-modifications '(check-on-save find-when-checking))
246
247 (defun a/bootstrap-straight ()
248 (defvar bootstrap-version)
249 (let ((bootstrap-file
250 (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
251 (bootstrap-version 5))
252 (unless (file-exists-p bootstrap-file)
253 (with-current-buffer
254 (url-retrieve-synchronously
255 "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
256 'silent 'inhibit-cookies)
257 (goto-char (point-max))
258 (eval-print-last-sexp)))
259 (load bootstrap-file nil 'nomessage)))
260
261 ;; Solid rocket booster ignition...
262
263 (defun a/build-init ()
264 (a/bootstrap-straight)
265 (byte-compile-file "init.el"))
266
267 (a/bootstrap-straight)
268
269 ;; We have lift off!
270
271 (setq straight-use-package-by-default t)
272 #+end_src
273
274 Since we enable =straight.el='s =straight-use-package-by-default=
275 integration, we will define a =use-feature= for plain ole
276 =use-package= without any of the =straight.el= stuff.
277
278 #+begin_src emacs-lisp
279 (defmacro use-feature (name &rest args)
280 "Like `use-package', but with `straight-use-package-by-default' disabled."
281 (declare (indent defun))
282 `(use-package ,name
283 :straight nil
284 ,@args))
285 #+end_src
286
287 *** =use-package=
288
289 #+begin_quote
290 A use-package declaration for simplifying your .emacs
291 #+end_quote
292
293 [[https://github.com/jwiegley/use-package][use-package]] is an awesome utility for managing and configuring
294 packages (in our case especially the latter) in a neatly organized way
295 and without compromising on performance.
296
297 #+begin_src emacs-lisp
298 (straight-use-package 'use-package)
299 (if nil ; set to t when need to debug init
300 (progn
301 (setq use-package-verbose t
302 use-package-expand-minimally nil
303 use-package-compute-statistics t
304 debug-on-error t)
305 (require 'use-package))
306 (setq use-package-verbose nil
307 use-package-expand-minimally t))
308
309 (setq use-package-always-defer t)
310 #+end_src
311
312 *** Epkg
313
314 #+begin_quote
315 Browse the Emacsmirror package database
316 #+end_quote
317
318 Epkg provides access to a local copy of the [[https://emacsmirror.net][Emacsmirror]] package
319 database, low-level functions for querying the database, and a
320 =package.el=-like user interface for browsing the available packages.
321
322 #+begin_src emacs-lisp
323 (require 'bind-key)
324 (use-package epkg
325 :commands (epkg-list-packages epkg-describe-package)
326 :bind
327 (("C-c p e d" . epkg-describe-package)
328 ("C-c p e p" . epkg-list-packages))
329 :config
330 (setq epkg-repository "~/.emacs.d/straight/repos/epkgs/")
331 (eval-when-compile (defvar ivy-initial-inputs-alist))
332 (with-eval-after-load 'ivy
333 (add-to-list
334 'ivy-initial-inputs-alist '(epkg-describe-package . "^") t)))
335 #+end_src
336
337 ** No littering in =~/.emacs.d=
338
339 #+begin_quote
340 Help keeping ~/.emacs.d clean
341 #+end_quote
342
343 By default, even for Emacs' built-in packages, the configuration files
344 and persistent data are all over the place. Use =no-littering= to help
345 contain the mess.
346
347 #+begin_src emacs-lisp
348 (use-package no-littering
349 :demand t
350 :config
351 (savehist-mode 1)
352 (add-to-list 'savehist-additional-variables 'kill-ring)
353 (save-place-mode 1)
354 (setq auto-save-file-name-transforms
355 `((".*" ,(no-littering-expand-var-file-name "auto-save/") t))))
356 #+end_src
357
358 ** Custom file (=custom.el=)
359
360 I'm not planning on using the custom file much, but even so, I
361 definitely don't want it mixing with =init.el=. So, here; let's give
362 it it's own file. While at it, treat themes as safe.
363
364 #+begin_src emacs-lisp
365 (use-feature custom
366 :no-require t
367 :config
368 (setq custom-file (no-littering-expand-etc-file-name "custom.el"))
369 (when (file-exists-p custom-file)
370 (load custom-file))
371 (setf custom-safe-themes t))
372 #+end_src
373
374 ** Secrets file
375
376 Load the secrets file if it exists, otherwise show a warning.
377
378 #+begin_src emacs-lisp
379 (with-demoted-errors
380 (load (no-littering-expand-etc-file-name "secrets")))
381 #+end_src
382
383 ** Better =$PATH= handling
384
385 Let's use [[https://github.com/purcell/exec-path-from-shell][exec-path-from-shell]] to make Emacs use the =$PATH= as set up
386 in my shell.
387
388 #+begin_src emacs-lisp
389 (use-package exec-path-from-shell
390 :defer 1
391 :init
392 (setq exec-path-from-shell-arguments nil
393 exec-path-from-shell-check-startup-files nil)
394 :config
395 (exec-path-from-shell-initialize)
396 ;; while we're at it, let's fix access to our running ssh-agent
397 (exec-path-from-shell-copy-env "SSH_AGENT_PID")
398 (exec-path-from-shell-copy-env "SSH_AUTH_SOCK"))
399 #+end_src
400
401 ** COMMENT Only one custom theme at a time
402
403 #+begin_src emacs-lisp
404 (defadvice load-theme (before clear-previous-themes activate)
405 "Clear existing theme settings instead of layering them"
406 (mapc #'disable-theme custom-enabled-themes))
407 #+end_src
408
409 ** Server
410
411 Start server if not already running. Alternatively, can be done by
412 issuing =emacs --daemon= in the terminal, which can be automated with
413 a systemd service or using =brew services start emacs= on macOS. I use
414 Emacs as my window manager (via EXWM), so I always start Emacs on
415 login; so starting the server from inside Emacs is good enough for me.
416
417 See [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html#Emacs-Server][Using Emacs as a Server]].
418
419 #+begin_src emacs-lisp
420 (use-feature server
421 :defer 1
422 :config (or (server-running-p) (server-mode)))
423 #+end_src
424
425 ** COMMENT Unicode support
426
427 Font stack with better unicode support, around =Ubuntu Mono= and
428 =Hack=.
429
430 #+begin_src emacs-lisp
431 (dolist (ft (fontset-list))
432 (set-fontset-font
433 ft
434 'unicode
435 (font-spec :name "Source Code Pro" :size 14))
436 (set-fontset-font
437 ft
438 'unicode
439 (font-spec :name "DejaVu Sans Mono")
440 nil
441 'append)
442 ;; (set-fontset-font
443 ;; ft
444 ;; 'unicode
445 ;; (font-spec
446 ;; :name "Symbola monospacified for DejaVu Sans Mono")
447 ;; nil
448 ;; 'append)
449 ;; (set-fontset-font
450 ;; ft
451 ;; #x2115 ; ℕ
452 ;; (font-spec :name "DejaVu Sans Mono")
453 ;; nil
454 ;; 'append)
455 (set-fontset-font
456 ft
457 (cons ?Α ?ω)
458 (font-spec :name "DejaVu Sans Mono" :size 14)
459 nil
460 'prepend))
461 #+end_src
462
463 ** Gentler font resizing
464
465 #+begin_src emacs-lisp
466 (setq text-scale-mode-step 1.05)
467 #+end_src
468
469 ** Focus follows mouse
470
471 I’d like focus to follow the mouse when I move the cursor from one
472 window to the next.
473
474 #+begin_src emacs-lisp
475 (setq mouse-autoselect-window t)
476 #+end_src
477
478 Let’s define a function to conveniently disable this for certain
479 buffers and/or modes.
480
481 #+begin_src emacs-lisp
482 (defun a/no-mouse-autoselect-window ()
483 (make-local-variable 'mouse-autoselect-window)
484 (setq mouse-autoselect-window nil))
485 #+end_src
486
487 ** Libraries
488
489 #+begin_src emacs-lisp
490 (require 'cl-lib)
491 (require 'subr-x)
492 #+end_src
493
494 ** Useful utilities
495
496 Convenience macro for =setq='ing multiple variables to the same value:
497
498 #+begin_src emacs-lisp
499 (defmacro a/setq-every (value &rest vars)
500 "Set all the variables from VARS to value VALUE."
501 (declare (indent defun) (debug t))
502 `(progn ,@(mapcar (lambda (x) (list 'setq x value)) vars)))
503 #+end_src
504
505 The following process-related stuff from [[https://github.com/alezost/emacs-config][alezost's emacs-config]].
506
507 #+begin_src emacs-lisp
508 (defun a/start-process (program &rest args)
509 "Same as `start-process', but doesn't bother about name and buffer."
510 (let ((process-name (concat program "_process"))
511 (buffer-name (generate-new-buffer-name
512 (concat program "_output"))))
513 (apply #'start-process
514 process-name buffer-name program args)))
515
516 (defun a/dired-start-process (program &optional args)
517 "Open current file with a PROGRAM."
518 ;; Shell command looks like this: "program [ARGS]... FILE" (ARGS can
519 ;; be nil, so remove it).
520 (apply #'a/start-process
521 program
522 (remove nil (list args (dired-get-file-for-visit)))))
523 #+end_src
524
525 * Core
526 :PROPERTIES:
527 :CUSTOM_ID: core
528 :END:
529
530 ** Defaults
531
532 *** Time and battery in mode-line
533
534 Enable displaying time and battery in the mode-line, since I'm not
535 using the Xfce panel anymore. Also, I don't need to see the load
536 average on a regular basis, so disable that.
537
538 Note: using =i3status= on sway at the moment, so disabling this.
539
540 #+begin_src emacs-lisp :tangle no
541 (use-package time
542 :init
543 (setq display-time-default-load-average nil)
544 :config
545 (display-time-mode))
546
547 (use-package battery
548 :config
549 (display-battery-mode))
550 #+end_src
551
552 *** Smaller fringe
553
554 Might want to set the fringe to a smaller value, especially if using
555 EXWM. I'm fine with the default for now.
556
557 #+begin_src emacs-lisp
558 ;; (fringe-mode '(3 . 1))
559 (fringe-mode nil)
560 #+end_src
561
562 *** Disable disabled commands
563
564 Emacs disables some commands by default that could persumably be
565 confusing for novice users. Let's disable that.
566
567 #+begin_src emacs-lisp
568 (setq disabled-command-function nil)
569 #+end_src
570
571 *** Kill-ring
572
573 Save what I copy into clipboard from other applications into Emacs'
574 kill-ring, which would allow me to still be able to easily access it
575 in case I kill (cut or copy) something else inside Emacs before
576 yanking (pasting) what I'd originally intended to.
577
578 #+begin_src emacs-lisp
579 (setq save-interprogram-paste-before-kill t)
580 #+end_src
581
582 *** Minibuffer
583
584 #+begin_src emacs-lisp
585 (setq enable-recursive-minibuffers t
586 resize-mini-windows t)
587 #+end_src
588
589 *** Lazy-person-friendly yes/no prompts
590
591 Lazy people would prefer to type fewer keystrokes, especially for yes
592 or no questions. I'm lazy.
593
594 #+begin_src emacs-lisp
595 (defalias 'yes-or-no-p #'y-or-n-p)
596 #+end_src
597
598 *** Startup screen and =*scratch*=
599
600 Firstly, let Emacs know that I'd like to have =*scratch*= as my
601 startup buffer.
602
603 #+begin_src emacs-lisp
604 (setq initial-buffer-choice t)
605 #+end_src
606
607 Now let's customize the =*scratch*= buffer a bit. First off, I don't
608 need the default hint.
609
610 #+begin_src emacs-lisp
611 (setq initial-scratch-message nil)
612 #+end_src
613
614 Also, let's use Text mode as the major mode, in case I want to
615 customize it (=*scratch*='s default major mode, Fundamental mode,
616 can't really be customized).
617
618 #+begin_src emacs-lisp
619 (setq initial-major-mode 'text-mode)
620 #+end_src
621
622 Inhibit the buffer list when more than 2 files are loaded.
623
624 #+begin_src emacs-lisp
625 (setq inhibit-startup-buffer-menu t)
626 #+end_src
627
628 I don't really need to see the startup screen or echo area message
629 either.
630
631 #+begin_src emacs-lisp
632 (advice-add #'display-startup-echo-area-message :override #'ignore)
633 (setq inhibit-startup-screen t
634 inhibit-startup-echo-area-message user-login-name)
635 #+end_src
636
637 *** More useful frame titles
638
639 Show either the file name or the buffer name (in case the buffer isn't
640 visiting a file). Borrowed from Emacs Prelude.
641
642 #+begin_src emacs-lisp
643 (setq frame-title-format
644 '("" invocation-name " - "
645 (:eval (if (buffer-file-name)
646 (abbreviate-file-name (buffer-file-name))
647 "%b"))))
648 #+end_src
649
650 *** Backups
651
652 Emacs' default backup settings aren't that great. Let's use more
653 sensible options. See documentation for the ~make-backup-file~
654 variable.
655
656 #+begin_src emacs-lisp
657 (setq backup-by-copying t
658 version-control t
659 delete-old-versions t)
660 #+end_src
661
662 *** Auto revert
663
664 Enable automatic reloading of changed buffers and files.
665
666 #+begin_src emacs-lisp
667 (global-auto-revert-mode 1)
668 (setq auto-revert-verbose nil
669 global-auto-revert-non-file-buffers nil)
670 #+end_src
671
672 *** Always use space for indentation
673
674 #+begin_src emacs-lisp
675 (setq-default
676 indent-tabs-mode nil
677 require-final-newline t
678 tab-width 4)
679 #+end_src
680
681 *** Winner mode
682
683 Enable =winner-mode=.
684
685 #+begin_src emacs-lisp
686 (winner-mode 1)
687 #+end_src
688
689 *** Don’t display =*compilation*= on success
690
691 Based on https://stackoverflow.com/a/17788551, with changes to use
692 =cl-letf= instead of the now obsolete =flet=.
693
694 #+begin_src emacs-lisp
695 (with-eval-after-load 'compile
696 (defun a/compilation-finish-function (buffer outstr)
697 (unless (string-match "finished" outstr)
698 (switch-to-buffer-other-window buffer))
699 t)
700
701 (setq compilation-finish-functions #'a/compilation-finish-function)
702
703 (require 'cl-macs)
704
705 (defadvice compilation-start
706 (around inhibit-display
707 (command &optional mode name-function highlight-regexp))
708 (if (not (string-match "^\\(find\\|grep\\)" command))
709 (cl-letf (((symbol-function 'display-buffer) #'ignore))
710 (save-window-excursion ad-do-it))
711 ad-do-it))
712 (ad-activate 'compilation-start))
713 #+end_src
714
715 *** Search for non-ASCII characters
716
717 I’d like non-ASCII characters such as ‘’“”«»‹›áⓐ𝒶 to be selected when
718 I search for their ASCII counterpart. Shoutout to [[http://endlessparentheses.com/new-in-emacs-25-1-easily-search-non-ascii-characters.html][endlessparentheses]]
719 for this.
720
721 #+begin_src emacs-lisp
722 (setq search-default-mode #'char-fold-to-regexp)
723
724 ;; uncomment to extend this behaviour to query-replace
725 ;; (setq replace-char-fold t)
726 #+end_src
727
728 *** Cursor shape
729
730 #+begin_src emacs-lisp
731 (setq-default cursor-type 'bar)
732 #+end_src
733
734 *** Allow scrolling in Isearch
735
736 #+begin_src emacs-lisp
737 (setq isearch-allow-scroll t)
738 #+end_src
739
740 ** Bindings
741
742 Some bindings for functions from built-in GNU Emacs packages:
743
744 #+begin_src emacs-lisp
745 (bind-keys
746 ("C-c a i" . ielm)
747
748 ("C-c e b" . eval-buffer)
749 ("C-c e r" . eval-region)
750
751 ("C-c e i" . emacs-init-time)
752 ("C-c e u" . emacs-uptime)
753
754 ("C-c F m" . make-frame-command)
755 ("C-c F d" . delete-frame)
756 ("C-c F D" . delete-other-frames)
757
758 ("C-c o" . other-window)
759
760 ("C-c Q" . save-buffers-kill-terminal)
761
762 ("C-S-h C" . describe-char)
763 ("C-S-h F" . describe-face)
764
765 ("C-x K" . kill-this-buffer)
766
767 ("s-p" . beginning-of-buffer)
768 ("s-n" . end-of-buffer))
769 #+end_src
770
771 While at it, let's bind a few for some =straight-*= functions too:
772
773 #+begin_src emacs-lisp
774 (bind-keys
775 :prefix-map a/straight-prefix-map
776 :prefix "C-c p s"
777 ("u" . straight-use-package)
778 ("f" . straight-freeze-versions)
779 ("t" . straight-thaw-versions)
780 ("P" . straight-prune-build)
781 ("r" . straight-get-recipe)
782 ;; M-x ^straight-.*-all$
783 ("a c" . straight-check-all)
784 ("a f" . straight-fetch-all)
785 ("a m" . straight-merge-all)
786 ("a n" . straight-normalize-all)
787 ("a F" . straight-pull-all)
788 ("a P" . straight-push-all)
789 ("a r" . straight-rebuild-all)
790 ;; M-x ^straight-.*-package$
791 ("p c" . straight-check-package)
792 ("p f" . straight-fetch-package)
793 ("p m" . straight-merge-package)
794 ("p n" . straight-normalize-package)
795 ("p F" . straight-pull-package)
796 ("p P" . straight-push-package)
797 ("p r" . straight-rebuild-package))
798 #+end_src
799
800 ** Packages
801
802 The packages in this section are absolutely essential to my everyday
803 workflow, and they play key roles in how I do my computing. They
804 immensely enhance the Emacs experience for me; both using Emacs, and
805 customizing it.
806
807 *** [[https://github.com/emacscollective/auto-compile][auto-compile]]
808
809 #+begin_src emacs-lisp
810 (use-package auto-compile
811 :demand t
812 :config
813 (auto-compile-on-load-mode)
814 (auto-compile-on-save-mode)
815 (setq auto-compile-display-buffer nil
816 auto-compile-mode-line-counter t
817 auto-compile-source-recreate-deletes-dest t
818 auto-compile-toggle-deletes-nonlib-dest t
819 auto-compile-update-autoloads t)
820 (add-hook 'auto-compile-inhibit-compile-hook
821 'auto-compile-inhibit-compile-detached-git-head))
822 #+end_src
823
824 *** [[https://orgmode.org/][Org]]
825
826 #+begin_quote
827 Org mode is for keeping notes, maintaining TODO lists, planning
828 projects, and authoring documents with a fast and effective plain-text
829 system.
830 #+end_quote
831
832 In short, my favourite way of life.
833
834 First, we have to resort to a [[https://github.com/raxod502/straight.el#installing-org-with-straightel][hack]] to be able to use the correct
835 latest version of Org from upstream.
836
837 #+begin_src emacs-lisp
838 (use-package git)
839
840 (defun org-git-version ()
841 "The Git version of org-mode.
842 Inserted by installing org-mode or when a release is made."
843 (require 'git)
844 (let ((git-repo (expand-file-name
845 "straight/repos/org/" user-emacs-directory)))
846 (string-trim
847 (git-run "describe"
848 "--match=release\*"
849 "--abbrev=6"
850 "HEAD"))))
851
852 (defun org-release ()
853 "The release version of org-mode.
854 Inserted by installing org-mode or when a release is made."
855 (require 'git)
856 (let ((git-repo (expand-file-name
857 "straight/repos/org/" user-emacs-directory)))
858 (string-trim
859 (string-remove-prefix
860 "release_"
861 (git-run "describe"
862 "--match=release\*"
863 "--abbrev=0"
864 "HEAD")))))
865
866 (provide 'org-version)
867 #+end_src
868
869 We will use the =org-plus-contrib= package to get the whole deal:
870
871 #+begin_src emacs-lisp
872 (straight-use-package 'org-plus-contrib)
873 #+end_src
874
875 And here's where my actual Org configurations begin:
876
877 #+begin_src emacs-lisp
878 (use-feature org
879 :defer 2
880 :config
881 (setq org-src-tab-acts-natively t
882 org-src-preserve-indentation nil
883 org-edit-src-content-indentation 0
884 org-email-link-description-format "Email %c: %s" ; %.30s
885 org-highlight-latex-and-related '(entities)
886 org-use-speed-commands t
887 org-startup-folded 'content
888 org-catch-invisible-edits 'show-and-error
889 org-log-done 'time)
890 (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
891 :bind (:map org-mode-map ("M-L" . org-insert-last-stored-link))
892 :hook ((org-mode . org-indent-mode)
893 (org-mode . auto-fill-mode)
894 (org-mode . flyspell-mode))
895 :custom
896 (org-latex-packages-alist '(("" "listings") ("" "color")))
897 :custom-face
898 '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21"))))
899 '(org-block ((t (:background "#1d1f21"))))
900 '(org-latex-and-related ((t (:foreground "#b294bb")))))
901
902 (use-feature ox-latex
903 :after ox
904 :config
905 (setq org-latex-listings 'listings
906 ;; org-latex-prefer-user-labels t
907 )
908 (add-to-list 'org-latex-classes
909 '("IEEEtran" "\\documentclass[11pt]{IEEEtran}"
910 ("\\section{%s}" . "\\section*{%s}")
911 ("\\subsection{%s}" . "\\subsection*{%s}")
912 ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
913 ("\\paragraph{%s}" . "\\paragraph*{%s}")
914 ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
915 t)
916 (require 'ox-beamer))
917 #+end_src
918
919 **** asynchronous tangle
920
921 =a/async-babel-tangle= is a function closely inspired by [[https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles][dieggsy's
922 d/async-babel-tangle]] which uses [[https://github.com/jwiegley/emacs-async][async]] to asynchronously tangle an org
923 file.
924
925 #+begin_src emacs-lisp
926 (with-eval-after-load 'org
927 (defvar a/show-async-tangle-results nil
928 "Keep *emacs* async buffers around for later inspection.")
929
930 (defvar a/show-async-tangle-time nil
931 "Show the time spent tangling the file.")
932
933 (defvar a/async-tangle-post-compile
934 (when a/byte-compiled-init "make build-init")
935 "If non-nil, pass to `compile' after successful tangle.")
936
937 ;; TODO: look into why directly byte-compiling init.el causes a
938 ;; number of problems, including magit-status not loading (busy
939 ;; waiting).
940 (defvar a/async-tangle-byte-recompile nil
941 "If non-nil, byte-recompile the file on successful tangle.")
942
943 (defun a/async-babel-tangle ()
944 "Tangle org file asynchronously."
945 (interactive)
946 (let* ((file-tangle-start-time (current-time))
947 (file (buffer-file-name))
948 (file-nodir (file-name-nondirectory file))
949 ;; (async-quiet-switch "-q")
950 (file-noext (file-name-sans-extension file)))
951 (async-start
952 `(lambda ()
953 (require 'org)
954 (org-babel-tangle-file ,file))
955 (unless a/show-async-tangle-results
956 `(lambda (result)
957 (if result
958 (progn
959 ;; (setq byte-compile-warnings '(not noruntime unresolved))
960 (message "Tangled %s%s"
961 ,file-nodir
962 (if a/show-async-tangle-time
963 (format " (%.3fs)"
964 (float-time (time-subtract (current-time)
965 ',file-tangle-start-time)))
966 ""))
967 (when a/async-tangle-post-compile
968 (compile a/async-tangle-post-compile))
969 (when a/async-tangle-byte-recompile
970 (byte-recompile-file (concat ,file-noext ".el"))))
971 (message "Tangling %s failed" ,file-nodir))))))))
972
973 (add-to-list
974 'safe-local-variable-values
975 '(eval add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local))
976 #+end_src
977
978 *** [[https://magit.vc/][Magit]]
979
980 #+begin_quote
981 It's Magit! A Git porcelain inside Emacs.
982 #+end_quote
983
984 Not just how I do git, but /the/ way to do git.
985
986 #+begin_src emacs-lisp
987 (use-package magit
988 :defer 2
989 :bind (("C-x g" . magit-status)
990 ("s-g s" . magit-status)
991 ("s-g l" . magit-log-buffer-file))
992 :config
993 (magit-add-section-hook 'magit-status-sections-hook
994 'magit-insert-modules
995 'magit-insert-stashes
996 'append)
997 (setq
998 magit-repository-directories '(("~/.emacs.d/" . 0)
999 ("~/src/git/" . 1)))
1000 (nconc magit-section-initial-visibility-alist
1001 '(([unpulled status] . show)
1002 ([unpushed status] . show)))
1003 :custom-face (magit-diff-file-heading ((t (:weight normal)))))
1004 #+end_src
1005
1006 *** recentf
1007
1008 Recently opened files.
1009
1010 #+begin_src emacs-lisp
1011 (use-feature recentf
1012 :defer 0.5
1013 :config
1014 (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
1015 (setq recentf-max-saved-items 40))
1016 #+end_src
1017
1018 *** smex
1019
1020 #+begin_quote
1021 A smart M-x enhancement for Emacs.
1022 #+end_quote
1023
1024 Mostly because =counsel= needs it to remember history.
1025
1026 #+begin_src emacs-lisp
1027 (use-package smex)
1028 #+end_src
1029
1030 *** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
1031
1032 #+begin_quote
1033 Ivy - a generic completion frontend for Emacs, Swiper - isearch with
1034 an overview, and more. Oh, man!
1035 #+end_quote
1036
1037 There's no way I could top that, so I won't attempt to.
1038
1039 **** Ivy
1040
1041 #+begin_src emacs-lisp
1042 (use-package ivy
1043 :defer 0.6
1044 :bind
1045 (:map ivy-minibuffer-map
1046 ([escape] . keyboard-escape-quit)
1047 ([S-up] . ivy-previous-history-element)
1048 ([S-down] . ivy-next-history-element)
1049 ("DEL" . ivy-backward-delete-char))
1050 :config
1051 (setq ivy-wrap t)
1052 (ivy-mode 1)
1053 ;; :custom-face
1054 ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
1055 ;; (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
1056 ;; (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold))))
1057 )
1058 #+end_src
1059
1060 **** Swiper
1061
1062 #+begin_src emacs-lisp
1063 (use-package swiper
1064 :after ivy
1065 :bind (("C-s" . swiper)
1066 ("C-r" . swiper)
1067 ("C-S-s" . isearch-forward)))
1068 #+end_src
1069
1070 **** Counsel
1071
1072 #+begin_src emacs-lisp
1073 (use-package counsel
1074 :after ivy
1075 :bind (([remap execute-extended-command] . counsel-M-x)
1076 ([remap find-file] . counsel-find-file)
1077 ("s-r" . counsel-recentf)
1078 ("C-c x" . counsel-M-x)
1079 ("C-c f ." . counsel-find-file)
1080 :map minibuffer-local-map
1081 ("C-r" . counsel-minibuffer-history))
1082 :config
1083 (counsel-mode 1)
1084 (defalias 'locate #'counsel-locate))
1085 #+end_src
1086
1087 *** eshell
1088
1089 #+begin_src emacs-lisp
1090 (use-feature eshell
1091 :defer 2
1092 :commands eshell
1093 :bind ("C-c a s e" . eshell)
1094 :config
1095 (eval-when-compile (defvar eshell-prompt-regexp))
1096 (defun a/eshell-quit-or-delete-char (arg)
1097 (interactive "p")
1098 (if (and (eolp) (looking-back eshell-prompt-regexp nil))
1099 (eshell-life-is-too-much)
1100 (delete-char arg)))
1101
1102 (defun a/eshell-clear ()
1103 (interactive)
1104 (let ((inhibit-read-only t))
1105 (erase-buffer))
1106 (eshell-send-input))
1107
1108 (defun a/eshell-setup ()
1109 (make-local-variable 'company-idle-delay)
1110 (defvar company-idle-delay)
1111 (setq company-idle-delay nil)
1112 (bind-keys :map eshell-mode-map
1113 ("C-d" . a/eshell-quit-or-delete-char)
1114 ("C-S-l" . a/eshell-clear)
1115 ("M-r" . counsel-esh-history)
1116 ([tab] . company-complete)))
1117
1118 :hook (eshell-mode . a/eshell-setup)
1119 :custom
1120 (eshell-hist-ignoredups t)
1121 (eshell-input-filter 'eshell-input-filter-initial-space))
1122 #+end_src
1123
1124 *** Ibuffer
1125
1126 #+begin_src emacs-lisp
1127 (use-feature ibuffer
1128 :bind
1129 (("C-x C-b" . ibuffer-other-window)
1130 :map ibuffer-mode-map
1131 ("P" . ibuffer-backward-filter-group)
1132 ("N" . ibuffer-forward-filter-group)
1133 ("M-p" . ibuffer-do-print)
1134 ("M-n" . ibuffer-do-shell-command-pipe-replace))
1135 :config
1136 ;; Use human readable Size column instead of original one
1137 (define-ibuffer-column size-h
1138 (:name "Size" :inline t)
1139 (cond
1140 ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
1141 ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
1142 ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
1143 (t (format "%8d" (buffer-size)))))
1144 :custom
1145 (ibuffer-saved-filter-groups
1146 '(("default"
1147 ("dired" (mode . dired-mode))
1148 ("org" (mode . org-mode))
1149 ("gnus"
1150 (or
1151 (mode . gnus-group-mode)
1152 (mode . gnus-summary-mode)
1153 (mode . gnus-article-mode)
1154 ;; not really, but...
1155 (mode . message-mode)))
1156 ("web"
1157 (or
1158 (mode . web-mode)
1159 (mode . css-mode)
1160 (mode . scss-mode)
1161 (mode . js2-mode)))
1162 ("shell"
1163 (or
1164 (mode . eshell-mode)
1165 (mode . shell-mode)
1166 (mode . term-mode)))
1167 ("programming"
1168 (or
1169 (mode . python-mode)
1170 (mode . c-mode)
1171 (mode . c++-mode)
1172 (mode . emacs-lisp-mode)
1173 (mode . scheme-mode)
1174 (mode . haskell-mode)
1175 (mode . lean-mode)))
1176 ("emacs"
1177 (or
1178 (name . "^\\*scratch\\*$")
1179 (name . "^\\*Messages\\*$"))))))
1180 (ibuffer-formats
1181 '((mark modified read-only locked " "
1182 (name 18 18 :left :elide)
1183 " "
1184 (size-h 9 -1 :right)
1185 " "
1186 (mode 16 16 :left :elide)
1187 " " filename-and-process)
1188 (mark " "
1189 (name 16 -1)
1190 " " filename)))
1191 :hook (ibuffer . (lambda () (ibuffer-switch-to-saved-filter-groups "default"))))
1192 #+end_src
1193
1194 *** Outline
1195
1196 #+begin_src emacs-lisp
1197 (use-feature outline
1198 :hook (prog-mode . outline-minor-mode)
1199 :bind
1200 (:map
1201 outline-minor-mode-map
1202 ("<s-tab>" . outline-toggle-children)
1203 ("M-p" . outline-previous-visible-heading)
1204 ("M-n" . outline-next-visible-heading)
1205 :prefix-map a/outline-prefix-map
1206 :prefix "s-o"
1207 ("TAB" . outline-toggle-children)
1208 ("a" . outline-hide-body)
1209 ("H" . outline-hide-body)
1210 ("S" . outline-show-all)
1211 ("h" . outline-hide-subtree)
1212 ("s" . outline-show-subtree)))
1213 #+end_src
1214
1215 *** Dired
1216
1217 #+begin_src emacs-lisp
1218 (use-feature ls-lisp
1219 :custom (ls-lisp-dirs-first t))
1220
1221 (use-feature dired
1222 :config
1223 (setq dired-listing-switches "-alh"
1224 ls-lisp-use-insert-directory-program nil)
1225
1226 ;; easily diff 2 marked files
1227 ;; https://oremacs.com/2017/03/18/dired-ediff/
1228 (defun dired-ediff-files ()
1229 (interactive)
1230 (require 'dired-aux)
1231 (defvar ediff-after-quit-hook-internal)
1232 (let ((files (dired-get-marked-files))
1233 (wnd (current-window-configuration)))
1234 (if (<= (length files) 2)
1235 (let ((file1 (car files))
1236 (file2 (if (cdr files)
1237 (cadr files)
1238 (read-file-name
1239 "file: "
1240 (dired-dwim-target-directory)))))
1241 (if (file-newer-than-file-p file1 file2)
1242 (ediff-files file2 file1)
1243 (ediff-files file1 file2))
1244 (add-hook 'ediff-after-quit-hook-internal
1245 (lambda ()
1246 (setq ediff-after-quit-hook-internal nil)
1247 (set-window-configuration wnd))))
1248 (error "no more than 2 files should be marked"))))
1249 :bind (:map dired-mode-map
1250 ("b" . dired-up-directory)
1251 ("e" . dired-ediff-files)
1252 ("E" . dired-toggle-read-only)
1253 ("\\" . dired-hide-details-mode)
1254 ("z" . (lambda ()
1255 (interactive)
1256 (a/dired-start-process "zathura"))))
1257 :hook (dired-mode . dired-hide-details-mode))
1258 #+end_src
1259
1260 *** Help
1261
1262 #+begin_src emacs-lisp
1263 (use-feature help
1264 :config
1265 (temp-buffer-resize-mode)
1266 (setq help-window-select t))
1267 #+end_src
1268
1269 *** Tramp
1270
1271 #+begin_src emacs-lisp
1272 (use-feature tramp
1273 :config
1274 (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
1275 (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
1276 (add-to-list 'tramp-default-proxies-alist
1277 (list (regexp-quote (system-name)) nil nil)))
1278 #+end_src
1279
1280 *** Dash
1281
1282 #+begin_src emacs-lisp
1283 (use-package dash
1284 :config (dash-enable-font-lock))
1285 #+end_src
1286
1287 * Editing
1288 :PROPERTIES:
1289 :CUSTOM_ID: editing
1290 :END:
1291
1292 ** =diff-hl=
1293
1294 Highlight uncommitted changes in the left fringe.
1295
1296 #+begin_src emacs-lisp
1297 (use-package diff-hl
1298 :config
1299 (setq diff-hl-draw-borders nil)
1300 (global-diff-hl-mode)
1301 :hook (magit-post-refresh . diff-hl-magit-post-refresh))
1302 #+end_src
1303
1304 ** ElDoc
1305
1306 Display Lisp objects at point in the echo area.
1307
1308 #+begin_src emacs-lisp
1309 (use-feature eldoc
1310 :when (version< "25" emacs-version)
1311 :config (global-eldoc-mode))
1312 #+end_src
1313
1314 ** paren
1315
1316 Highlight matching parens.
1317
1318 #+begin_src emacs-lisp
1319 (use-feature paren
1320 :demand
1321 :config (show-paren-mode))
1322 #+end_src
1323
1324 ** simple (for column numbers)
1325
1326 #+begin_src emacs-lisp
1327 (use-feature simple
1328 :config (column-number-mode))
1329 #+end_src
1330
1331 ** =savehist=
1332
1333 Save minibuffer history.
1334
1335 #+begin_src emacs-lisp
1336 (use-feature savehist
1337 :config (savehist-mode))
1338 #+end_src
1339
1340 ** =saveplace=
1341
1342 Automatically save place in each file.
1343
1344 #+begin_src emacs-lisp
1345 (use-feature saveplace
1346 :when (version< "25" emacs-version)
1347 :config (save-place-mode))
1348 #+end_src
1349
1350 ** =prog-mode=
1351
1352 #+begin_src emacs-lisp
1353 (use-feature prog-mode
1354 :config (global-prettify-symbols-mode)
1355 (defun indicate-buffer-boundaries-left ()
1356 (setq indicate-buffer-boundaries 'left))
1357 (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
1358 #+end_src
1359
1360 ** =text-mode=
1361
1362 #+begin_src emacs-lisp
1363 (use-feature text-mode
1364 :hook ((text-mode . indicate-buffer-boundaries-left)
1365 (text-mode . abbrev-mode)))
1366 #+end_src
1367
1368 ** Company
1369
1370 #+begin_src emacs-lisp
1371 (use-package company
1372 :defer 3
1373 :bind
1374 (:map company-active-map
1375 ([tab] . company-complete-common-or-cycle)
1376 ([escape] . company-abort))
1377 :custom
1378 (company-minimum-prefix-length 1)
1379 (company-selection-wrap-around t)
1380 (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
1381 (company-dabbrev-downcase nil)
1382 (company-dabbrev-ignore-case nil)
1383 :config
1384 (global-company-mode t))
1385 #+end_src
1386
1387 ** Flycheck
1388
1389 #+begin_src emacs-lisp
1390 (use-package flycheck
1391 :defer 3
1392 :hook (prog-mode . flycheck-mode)
1393 :bind
1394 (:map flycheck-mode-map
1395 ("M-P" . flycheck-previous-error)
1396 ("M-N" . flycheck-next-error))
1397 :config
1398 ;; Use the load-path from running Emacs when checking elisp files
1399 (setq flycheck-emacs-lisp-load-path 'inherit)
1400
1401 ;; Only flycheck when I actually save the buffer
1402 (setq flycheck-check-syntax-automatically '(mode-enabled save)))
1403
1404 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
1405 (use-package ispell
1406 :defer 3
1407 :config
1408 ;; ’ can be part of a word
1409 (setq ispell-local-dictionary-alist
1410 `((nil "[[:alpha:]]" "[^[:alpha:]]"
1411 "['\x2019]" nil ("-B") nil utf-8)))
1412 ;; don't send ’ to the subprocess
1413 (defun endless/replace-apostrophe (args)
1414 (cons (replace-regexp-in-string
1415 "’" "'" (car args))
1416 (cdr args)))
1417 (advice-add #'ispell-send-string :filter-args
1418 #'endless/replace-apostrophe)
1419
1420 ;; convert ' back to ’ from the subprocess
1421 (defun endless/replace-quote (args)
1422 (if (not (derived-mode-p 'org-mode))
1423 args
1424 (cons (replace-regexp-in-string
1425 "'" "’" (car args))
1426 (cdr args))))
1427 (advice-add #'ispell-parse-output :filter-args
1428 #'endless/replace-quote))
1429 #+end_src
1430
1431 * Programming modes
1432 :PROPERTIES:
1433 :CUSTOM_ID: programming-modes
1434 :END:
1435
1436 ** Lisp
1437
1438 #+begin_src emacs-lisp
1439 (use-feature lisp-mode
1440 :config
1441 (add-hook 'emacs-lisp-mode-hook 'outline-minor-mode)
1442 (add-hook 'emacs-lisp-mode-hook 'reveal-mode)
1443 (defun indent-spaces-mode ()
1444 (setq indent-tabs-mode nil))
1445 (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
1446 #+end_src
1447
1448 ** [[http://alloytools.org][Alloy]] (with [[https://github.com/dwwmmn/alloy-mode][alloy-mode]])
1449
1450 #+begin_src emacs-lisp
1451 (use-package alloy-mode
1452 :straight (:host github :repo "dwwmmn/alloy-mode")
1453 :config (setq alloy-basic-offset 2))
1454 #+end_src
1455
1456 ** [[https://coq.inria.fr][Coq]] (with [[https://github.com/ProofGeneral/PG][Proof General]])
1457
1458 #+begin_src emacs-lisp
1459 (use-package proof-site ; Proof General
1460 :straight proof-general)
1461 #+end_src
1462
1463 ** [[https://leanprover.github.io][Lean]] (with [[https://github.com/leanprover/lean-mode][lean-mode]])
1464
1465 #+begin_src emacs-lisp
1466 (eval-when-compile (defvar lean-mode-map))
1467 (use-package lean-mode
1468 :defer 1
1469 :bind (:map lean-mode-map
1470 ("S-SPC" . company-complete))
1471 :config
1472 (require 'lean-input)
1473 (setq default-input-method "Lean"
1474 lean-input-tweak-all '(lean-input-compose
1475 (lean-input-prepend "/")
1476 (lean-input-nonempty))
1477 lean-input-user-translations '(("/" "/")))
1478 (lean-input-setup))
1479 #+end_src
1480
1481 ** Haskell
1482
1483 *** [[https://github.com/haskell/haskell-mode][haskell-mode]]
1484
1485 #+begin_src emacs-lisp
1486 (use-package haskell-mode
1487 :config
1488 (setq haskell-indentation-layout-offset 4
1489 haskell-indentation-left-offset 4
1490 flycheck-checker 'haskell-hlint
1491 flycheck-disabled-checkers '(haskell-stack-ghc haskell-ghc)))
1492 #+end_src
1493
1494 *** [[https://github.com/jyp/dante][dante]]
1495
1496 #+begin_src emacs-lisp
1497 (use-package dante
1498 :after haskell-mode
1499 :commands dante-mode
1500 :hook (haskell-mode . dante-mode))
1501 #+end_src
1502
1503 *** [[https://github.com/mpickering/hlint-refactor-mode][hlint-refactor]]
1504
1505 Emacs bindings for [[https://github.com/ndmitchell/hlint][hlint]]'s refactor option. This requires the refact
1506 executable from [[https://github.com/mpickering/apply-refact][apply-refact]].
1507
1508 #+begin_src emacs-lisp
1509 (use-package hlint-refactor
1510 :after haskell-mode
1511 :bind (:map hlint-refactor-mode-map
1512 ("C-c l b" . hlint-refactor-refactor-buffer)
1513 ("C-c l r" . hlint-refactor-refactor-at-point))
1514 :hook (haskell-mode . hlint-refactor-mode))
1515 #+end_src
1516
1517 *** [[https://github.com/flycheck/flycheck-haskell][flycheck-haskell]]
1518
1519 #+begin_src emacs-lisp
1520 (use-package flycheck-haskell
1521 :after haskell-mode)
1522 #+end_src
1523
1524 *** [[https://github.com/ndmitchell/hlint/blob/20e116a043f2073c57b17b24ae6364b5e433ba7e/data/hs-lint.el][hs-lint.el]]
1525 :PROPERTIES:
1526 :header-args+: :tangle lisp/hs-lint.el :mkdirp yes
1527 :END:
1528
1529 Currently using =flycheck-haskell= with the =haskell-hlint= checker
1530 instead.
1531
1532 #+begin_src emacs-lisp :tangle no
1533 ;;; hs-lint.el --- minor mode for HLint code checking
1534
1535 ;; Copyright 2009 (C) Alex Ott
1536 ;;
1537 ;; Author: Alex Ott <alexott@gmail.com>
1538 ;; Keywords: haskell, lint, HLint
1539 ;; Requirements:
1540 ;; Status: distributed under terms of GPL2 or above
1541
1542 ;; Typical message from HLint looks like:
1543 ;;
1544 ;; /Users/ott/projects/lang-exp/haskell/test.hs:52:1: Eta reduce
1545 ;; Found:
1546 ;; count1 p l = length (filter p l)
1547 ;; Why not:
1548 ;; count1 p = length . filter p
1549
1550
1551 (require 'compile)
1552
1553 (defgroup hs-lint nil
1554 "Run HLint as inferior of Emacs, parse error messages."
1555 :group 'tools
1556 :group 'haskell)
1557
1558 (defcustom hs-lint-command "hlint"
1559 "The default hs-lint command for \\[hlint]."
1560 :type 'string
1561 :group 'hs-lint)
1562
1563 (defcustom hs-lint-save-files t
1564 "Save modified files when run HLint or no (ask user)"
1565 :type 'boolean
1566 :group 'hs-lint)
1567
1568 (defcustom hs-lint-replace-with-suggestions nil
1569 "Replace user's code with suggested replacements"
1570 :type 'boolean
1571 :group 'hs-lint)
1572
1573 (defcustom hs-lint-replace-without-ask nil
1574 "Replace user's code with suggested replacements automatically"
1575 :type 'boolean
1576 :group 'hs-lint)
1577
1578 (defun hs-lint-process-setup ()
1579 "Setup compilation variables and buffer for `hlint'."
1580 (run-hooks 'hs-lint-setup-hook))
1581
1582 ;; regex for replace suggestions
1583 ;;
1584 ;; ^\(.*?\):\([0-9]+\):\([0-9]+\): .*
1585 ;; Found:
1586 ;; \s +\(.*\)
1587 ;; Why not:
1588 ;; \s +\(.*\)
1589
1590 (defvar hs-lint-regex
1591 "^\\(.*?\\):\\([0-9]+\\):\\([0-9]+\\): .*[\n\C-m]Found:[\n\C-m]\\s +\\(.*\\)[\n\C-m]Why not:[\n\C-m]\\s +\\(.*\\)[\n\C-m]"
1592 "Regex for HLint messages")
1593
1594 (defun make-short-string (str maxlen)
1595 (if (< (length str) maxlen)
1596 str
1597 (concat (substring str 0 (- maxlen 3)) "...")))
1598
1599 (defun hs-lint-replace-suggestions ()
1600 "Perform actual replacement of suggestions"
1601 (goto-char (point-min))
1602 (while (re-search-forward hs-lint-regex nil t)
1603 (let* ((fname (match-string 1))
1604 (fline (string-to-number (match-string 2)))
1605 (old-code (match-string 4))
1606 (new-code (match-string 5))
1607 (msg (concat "Replace '" (make-short-string old-code 30)
1608 "' with '" (make-short-string new-code 30) "'"))
1609 (bline 0)
1610 (eline 0)
1611 (spos 0)
1612 (new-old-code ""))
1613 (save-excursion
1614 (switch-to-buffer (get-file-buffer fname))
1615 (goto-char (point-min))
1616 (forward-line (1- fline))
1617 (beginning-of-line)
1618 (setf bline (point))
1619 (when (or hs-lint-replace-without-ask
1620 (yes-or-no-p msg))
1621 (end-of-line)
1622 (setf eline (point))
1623 (beginning-of-line)
1624 (setf old-code (regexp-quote old-code))
1625 (while (string-match "\\\\ " old-code spos)
1626 (setf new-old-code (concat new-old-code
1627 (substring old-code spos (match-beginning 0))
1628 "\\ *"))
1629 (setf spos (match-end 0)))
1630 (setf new-old-code (concat new-old-code (substring old-code spos)))
1631 (remove-text-properties bline eline '(composition nil))
1632 (when (re-search-forward new-old-code eline t)
1633 (replace-match new-code nil t)))))))
1634
1635 (defun hs-lint-finish-hook (buf msg)
1636 "Function, that is executed at the end of HLint execution"
1637 (if hs-lint-replace-with-suggestions
1638 (hs-lint-replace-suggestions)
1639 (next-error 1 t)))
1640
1641 (define-compilation-mode hs-lint-mode "HLint"
1642 "Mode for check Haskell source code."
1643 (set (make-local-variable 'compilation-process-setup-function)
1644 'hs-lint-process-setup)
1645 (set (make-local-variable 'compilation-disable-input) t)
1646 (set (make-local-variable 'compilation-scroll-output) nil)
1647 (set (make-local-variable 'compilation-finish-functions)
1648 (list 'hs-lint-finish-hook))
1649 )
1650
1651 (defun hs-lint ()
1652 "Run HLint for current buffer with haskell source"
1653 (interactive)
1654 (save-some-buffers hs-lint-save-files)
1655 (compilation-start (concat hs-lint-command " \"" buffer-file-name "\"")
1656 'hs-lint-mode))
1657
1658 (provide 'hs-lint)
1659 ;;; hs-lint.el ends here
1660 #+end_src
1661
1662 #+begin_src emacs-lisp :tangle no
1663 (use-package hs-lint
1664 :load-path "lisp/"
1665 :bind (:map haskell-mode-map
1666 ("C-c l l" . hs-lint)))
1667 #+end_src
1668
1669 ** Web
1670
1671 *** SGML and HTML
1672
1673 #+begin_src emacs-lisp
1674 (use-package sgml-mode
1675 :config
1676 (setq sgml-basic-offset 2))
1677 #+end_src
1678
1679 *** CSS and SCSS
1680
1681 #+begin_src emacs-lisp
1682 (use-package css-mode
1683 :config
1684 (setq css-indent-offset 2))
1685 #+end_src
1686
1687 *** Web mode
1688
1689 #+begin_src emacs-lisp
1690 (use-package web-mode
1691 :mode "\\.html\\'"
1692 :config
1693 (a/setq-every 2
1694 web-mode-code-indent-offset
1695 web-mode-css-indent-offset
1696 web-mode-markup-indent-offset))
1697 #+end_src
1698
1699 *** Emmet mode
1700
1701 #+begin_src emacs-lisp
1702 (use-package emmet-mode
1703 :after (:any web-mode css-mode sgml-mode)
1704 :bind* (("C-)" . emmet-next-edit-point)
1705 ("C-(" . emmet-prev-edit-point))
1706 :config
1707 (unbind-key "C-j" emmet-mode-keymap)
1708 (setq emmet-move-cursor-between-quotes t)
1709 :hook (web-mode css-mode html-mode sgml-mode))
1710 #+end_src
1711
1712 ** COMMENT Java
1713
1714 *** meghanada
1715
1716 #+begin_src emacs-lisp
1717 (use-package meghanada
1718 :bind
1719 (:map meghanada-mode-map
1720 (("C-M-o" . meghanada-optimize-import)
1721 ("C-M-t" . meghanada-import-all)))
1722 :hook (java-mode . meghanada-mode))
1723 #+end_src
1724
1725 *** lsp-java
1726
1727 #+begin_comment
1728 dependencies:
1729
1730 ace-window
1731 avy
1732 bui
1733 company-lsp
1734 dap-mode
1735 lsp-java
1736 lsp-mode
1737 lsp-ui
1738 pfuture
1739 tree-mode
1740 treemacs
1741 #+end_comment
1742
1743 #+begin_src emacs-lisp
1744 (use-package treemacs
1745 :config (setq treemacs-never-persist t))
1746
1747 (use-package yasnippet
1748 :config
1749 ;; (yas-global-mode)
1750 )
1751
1752 (use-package lsp-mode
1753 :init (setq lsp-eldoc-render-all nil
1754 lsp-highlight-symbol-at-point nil)
1755 )
1756
1757 (use-package hydra)
1758
1759 (use-package company-lsp
1760 :after company
1761 :config
1762 (setq company-lsp-cache-candidates t
1763 company-lsp-async t))
1764
1765 (use-package lsp-ui
1766 :config
1767 (setq lsp-ui-sideline-update-mode 'point))
1768
1769 (use-package lsp-java
1770 :config
1771 (add-hook 'java-mode-hook
1772 (lambda ()
1773 (setq-local company-backends (list 'company-lsp))))
1774
1775 (add-hook 'java-mode-hook 'lsp-java-enable)
1776 (add-hook 'java-mode-hook 'flycheck-mode)
1777 (add-hook 'java-mode-hook 'company-mode)
1778 (add-hook 'java-mode-hook 'lsp-ui-mode))
1779
1780 (use-package dap-mode
1781 :after lsp-mode
1782 :config
1783 (dap-mode t)
1784 (dap-ui-mode t))
1785
1786 (use-package dap-java
1787 :after (lsp-java))
1788
1789 (use-package lsp-java-treemacs
1790 :after (treemacs))
1791 #+end_src
1792
1793 ** geiser
1794
1795 #+begin_src emacs-lisp
1796 (use-package geiser)
1797
1798 (use-feature geiser-guile
1799 :config
1800 (setq geiser-guile-load-path "~/src/git/guix"))
1801 #+end_src
1802
1803 ** guix
1804
1805 #+begin_src emacs-lisp
1806 (use-package guix)
1807 #+end_src
1808
1809 * Emacs enhancements
1810 :PROPERTIES:
1811 :CUSTOM_ID: emacs-enhancements
1812 :END:
1813
1814 ** man
1815
1816 #+begin_src emacs-lisp
1817 (use-feature man
1818 :config (setq Man-width 80))
1819 #+end_src
1820
1821 ** [[https://github.com/justbur/emacs-which-key][which-key]]
1822
1823 #+begin_quote
1824 Emacs package that displays available keybindings in popup
1825 #+end_quote
1826
1827 #+begin_src emacs-lisp
1828 (use-package which-key
1829 :defer 1
1830 :config
1831 (which-key-add-key-based-replacements
1832 ;; prefixes for global prefixes and minor modes
1833 "C-c @" "outline"
1834 "C-c !" "flycheck"
1835 "C-c 8" "typo"
1836 "C-c 8 -" "typo/dashes"
1837 "C-c 8 <" "typo/left-brackets"
1838 "C-c 8 >" "typo/right-brackets"
1839 "C-x 8" "unicode"
1840 "C-x a" "abbrev/expand"
1841 "C-x r" "rectangle/register/bookmark"
1842 "C-x v" "version control"
1843 ;; prefixes for my personal bindings
1844 "C-c a" "applications"
1845 "C-c a s" "shells"
1846 "C-c p" "package-management"
1847 "C-c p e" "package-management/epkg"
1848 "C-c p s" "straight.el"
1849 "C-c psa" "all"
1850 "C-c psp" "package"
1851 "C-c c" "compile-and-comments"
1852 "C-c e" "eval"
1853 "C-c f" "files"
1854 "C-c F" "frames"
1855 "C-S-h" "help(ful)"
1856 "C-c m" "multiple-cursors"
1857 "C-c P" "projectile"
1858 "C-c P s" "projectile/search"
1859 "C-c P x" "projectile/execute"
1860 "C-c P 4" "projectile/other-window"
1861 "C-c q" "boxquote"
1862 "s-g" "magit"
1863 "s-o" "outline"
1864 "s-t" "themes")
1865
1866 ;; prefixes for major modes
1867 (which-key-add-major-mode-key-based-replacements 'message-mode
1868 "C-c f" "footnote")
1869 (which-key-add-major-mode-key-based-replacements 'org-mode
1870 "C-c C-v" "org-babel")
1871 (which-key-add-major-mode-key-based-replacements 'web-mode
1872 "C-c C-a" "web/attributes"
1873 "C-c C-b" "web/blocks"
1874 "C-c C-d" "web/dom"
1875 "C-c C-e" "web/element"
1876 "C-c C-t" "web/tags")
1877
1878 (which-key-mode)
1879 :custom
1880 (which-key-add-column-padding 5)
1881 (which-key-max-description-length 32))
1882 #+end_src
1883
1884 ** theme
1885
1886 #+begin_src emacs-lisp
1887 (add-to-list 'custom-theme-load-path "~/.emacs.d/lisp")
1888 (load-theme 'tangomod t)
1889 #+end_src
1890
1891 ** smart-mode-line
1892
1893 #+begin_src emacs-lisp
1894 (use-package smart-mode-line
1895 :commands (sml/apply-theme)
1896 :demand
1897 :config
1898 (sml/setup))
1899 #+end_src
1900
1901 ** doom-themes
1902
1903 #+begin_src emacs-lisp
1904 (use-package doom-themes)
1905 #+end_src
1906
1907 ** theme helper functions
1908
1909 #+begin_src emacs-lisp
1910 (defvar a/org-mode-font-lock-keywords
1911 '(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)"
1912 (1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive
1913 (3 '(:foreground "#81a2be" :background "#292b2b") t) ; kind
1914 (4 '(:foreground "#c5c8c6") t)))) ; title
1915
1916 (defun a/lights-on ()
1917 "Enable my favourite light theme."
1918 (interactive)
1919 (mapc #'disable-theme custom-enabled-themes)
1920 (load-theme 'tangomod t)
1921 (sml/apply-theme 'automatic)
1922 (font-lock-remove-keywords
1923 'org-mode a/org-mode-font-lock-keywords))
1924
1925 (defun a/lights-off ()
1926 "Go dark."
1927 (interactive)
1928 (mapc #'disable-theme custom-enabled-themes)
1929 (load-theme 'doom-tomorrow-night t)
1930 (sml/apply-theme 'automatic)
1931 (font-lock-add-keywords
1932 'org-mode a/org-mode-font-lock-keywords t))
1933
1934 (bind-keys
1935 ("s-t d" . a/lights-off)
1936 ("s-t l" . a/lights-on))
1937 #+end_src
1938
1939 ** [[https://github.com/bbatsov/crux][crux]]
1940
1941 #+begin_src emacs-lisp
1942 (use-package crux ; results in Waiting for git... [2 times]
1943 :defer 1
1944 :bind (("C-c b k" . crux-kill-other-buffers)
1945 ("C-c d" . crux-duplicate-current-line-or-region)
1946 ("C-c D" . crux-duplicate-and-comment-current-line-or-region)
1947 ("C-c f c" . crux-copy-file-preserve-attributes)
1948 ("C-c f d" . crux-delete-file-and-buffer)
1949 ("C-c f r" . crux-rename-file-and-buffer)
1950 ("C-c j" . crux-top-join-line)
1951 ("C-S-j" . crux-top-join-line)))
1952 #+end_src
1953
1954 ** [[https://github.com/alezost/mwim.el][mwim]]
1955
1956 #+begin_src emacs-lisp
1957 (use-package mwim
1958 :bind (("C-a" . mwim-beginning-of-code-or-line)
1959 ("C-e" . mwim-end-of-code-or-line)
1960 ("<home>" . mwim-beginning-of-line-or-code)
1961 ("<end>" . mwim-end-of-line-or-code)))
1962 #+end_src
1963
1964 ** projectile
1965
1966 #+begin_src emacs-lisp
1967 (use-package projectile
1968 :bind-keymap ("C-c P" . projectile-command-map)
1969 :config
1970 (projectile-mode)
1971
1972 (defun my-projectile-invalidate-cache (&rest _args)
1973 ;; ignore the args to `magit-checkout'
1974 (projectile-invalidate-cache nil))
1975
1976 (eval-after-load 'magit-branch
1977 '(progn
1978 (advice-add 'magit-checkout
1979 :after #'my-projectile-invalidate-cache)
1980 (advice-add 'magit-branch-and-checkout
1981 :after #'my-projectile-invalidate-cache)))
1982 :custom (projectile-completion-system 'ivy))
1983 #+end_src
1984
1985 ** [[https://github.com/Wilfred/helpful][helpful]]
1986
1987 #+begin_src emacs-lisp
1988 (use-package helpful
1989 :defer 3
1990 :bind
1991 (("C-S-h c" . helpful-command)
1992 ("C-S-h f" . helpful-callable) ; helpful-function
1993 ("C-S-h v" . helpful-variable)
1994 ("C-S-h k" . helpful-key)
1995 ("C-S-h p" . helpful-at-point)))
1996 #+end_src
1997
1998 ** [[https://github.com/EricCrosson/unkillable-scratch][unkillable-scratch]]
1999
2000 Make =*scratch*= and =*Messages*= unkillable.
2001
2002 #+begin_src emacs-lisp
2003 (use-package unkillable-scratch
2004 :defer 3
2005 :config
2006 (unkillable-scratch 1)
2007 :custom
2008 (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
2009 #+end_src
2010
2011 ** [[https://github.com/davep/boxquote.el][boxquote.el]]
2012
2013 #+begin_example
2014 ,----
2015 | make pretty boxed quotes like this
2016 `----
2017 #+end_example
2018
2019 #+begin_src emacs-lisp
2020 (use-package boxquote
2021 :defer 3
2022 :bind
2023 (:prefix-map a/boxquote-prefix-map
2024 :prefix "C-c q"
2025 ("b" . boxquote-buffer)
2026 ("B" . boxquote-insert-buffer)
2027 ("d" . boxquote-defun)
2028 ("F" . boxquote-insert-file)
2029 ("hf" . boxquote-describe-function)
2030 ("hk" . boxquote-describe-key)
2031 ("hv" . boxquote-describe-variable)
2032 ("hw" . boxquote-where-is)
2033 ("k" . boxquote-kill)
2034 ("p" . boxquote-paragraph)
2035 ("q" . boxquote-boxquote)
2036 ("r" . boxquote-region)
2037 ("s" . boxquote-shell-command)
2038 ("t" . boxquote-text)
2039 ("T" . boxquote-title)
2040 ("u" . boxquote-unbox)
2041 ("U" . boxquote-unbox-region)
2042 ("y" . boxquote-yank)
2043 ("M-q" . boxquote-fill-paragraph)
2044 ("M-w" . boxquote-kill-ring-save)))
2045 #+end_src
2046
2047 Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
2048
2049 ** orgalist
2050
2051 #+begin_src emacs-lisp
2052 (use-package orgalist
2053 :after message
2054 :hook (message-mode . orgalist-mode))
2055 #+end_src
2056
2057 ** typo.el
2058
2059 #+begin_src emacs-lisp
2060 (use-package typo
2061 :defer 2
2062 :config
2063 (typo-global-mode 1)
2064 :hook (text-mode . typo-mode))
2065 #+end_src
2066
2067 ** hl-todo
2068
2069 #+begin_src emacs-lisp
2070 (use-package hl-todo
2071 :defer 4
2072 :config
2073 (global-hl-todo-mode))
2074 #+end_src
2075
2076 ** shrink-path
2077
2078 #+begin_src emacs-lisp
2079 (use-package shrink-path
2080 :defer 2
2081 :after eshell
2082 :config
2083 (defun +eshell/prompt ()
2084 (let ((base/dir (shrink-path-prompt default-directory)))
2085 (concat (propertize (car base/dir)
2086 'face 'font-lock-comment-face)
2087 (propertize (cdr base/dir)
2088 'face 'font-lock-constant-face)
2089 (propertize (+eshell--current-git-branch)
2090 'face 'font-lock-function-name-face)
2091 "\n"
2092 ;; "λ"
2093 ;; (propertize "λ" 'face 'eshell-prompt)
2094 ;; needed for the input text to not have prompt face
2095 (propertize "λ " 'face 'default))))
2096
2097 (defun +eshell--current-git-branch ()
2098 (let ((branch (car (loop for match in (split-string (shell-command-to-string "git branch") "\n")
2099 when (string-match "^\*" match)
2100 collect match))))
2101 (if (not (eq branch nil))
2102 (concat " " (substring branch 2))
2103 "")))
2104 (setq eshell-prompt-regexp "\\(.*\n\\)*λ "
2105 eshell-prompt-function #'+eshell/prompt))
2106 #+end_src
2107
2108 ** [[https://github.com/peterwvj/eshell-up][eshell-up]]
2109
2110 #+begin_src emacs-lisp
2111 (use-package eshell-up
2112 :after eshell
2113 :commands eshell-up)
2114 #+end_src
2115
2116 ** multi-term
2117
2118 #+begin_src emacs-lisp
2119 (use-package multi-term
2120 :defer 3
2121 :bind (("C-c a s m" . multi-term-dedicated-toggle)
2122 :map term-mode-map
2123 ("C-c C-j" . term-char-mode)
2124 :map term-raw-map
2125 ("C-c C-j" . term-line-mode))
2126 :config
2127 (setq multi-term-program "/bin/screen"
2128 ;; TODO: add separate bindings for connecting to existing
2129 ;; session vs. always creating a new one
2130 multi-term-dedicated-select-after-open-p t
2131 multi-term-dedicated-window-height 20
2132 multi-term-dedicated-max-window-height 30
2133 term-bind-key-alist
2134 '(("C-c C-c" . term-interrupt-subjob)
2135 ("C-c C-e" . term-send-esc)
2136 ("C-k" . kill-line)
2137 ("C-y" . term-paste)
2138 ("M-f" . term-send-forward-word)
2139 ("M-b" . term-send-backward-word)
2140 ("M-p" . term-send-up)
2141 ("M-n" . term-send-down)
2142 ("<C-backspace>" . term-send-backward-kill-word)
2143 ("<M-DEL>" . term-send-backward-kill-word)
2144 ("M-d" . term-send-delete-word)
2145 ("M-," . term-send-raw)
2146 ("M-." . comint-dynamic-complete))
2147 term-unbind-key-alist
2148 '("C-z" "C-x" "C-c" "C-h" "C-y" "<ESC>")))
2149 #+end_src
2150
2151 ** page-break-lines
2152
2153 #+begin_src emacs-lisp
2154 (use-package page-break-lines
2155 :config
2156 (global-page-break-lines-mode))
2157 #+end_src
2158
2159 ** expand-region
2160
2161 #+begin_src emacs-lisp
2162 (use-package expand-region
2163 :bind ("C-=" . er/expand-region))
2164 #+end_src
2165
2166 ** multiple-cursors
2167
2168 #+begin_src emacs-lisp
2169 (use-package multiple-cursors
2170 :bind
2171 (("C-S-<mouse-1>" . mc/add-cursor-on-click)
2172 (:prefix-map a/mc-prefix-map
2173 :prefix "C-c m"
2174 ("c" . mc/edit-lines)
2175 ("n" . mc/mark-next-like-this)
2176 ("p" . mc/mark-previous-like-this)
2177 ("a" . mc/mark-all-like-this))))
2178 #+end_src
2179
2180 * Email
2181 :PROPERTIES:
2182 :CUSTOM_ID: email
2183 :END:
2184
2185 #+begin_src emacs-lisp
2186 (defvar a/maildir (expand-file-name "~/mail/"))
2187 (with-eval-after-load 'recentf
2188 (add-to-list 'recentf-exclude a/maildir))
2189 #+end_src
2190
2191 ** Gnus
2192
2193 #+begin_src emacs-lisp
2194 (setq
2195 a/gnus-init-file (no-littering-expand-etc-file-name "gnus")
2196 mail-user-agent 'gnus-user-agent
2197 read-mail-command 'gnus)
2198
2199 (use-feature gnus
2200 :bind (("s-m" . gnus)
2201 ("s-M" . gnus-unplugged))
2202 :init
2203 (setq
2204 gnus-select-method '(nnnil "")
2205 gnus-secondary-select-methods
2206 '((nnimap "amin"
2207 (nnimap-stream plain)
2208 (nnimap-address "127.0.0.1")
2209 (nnimap-server-port 143)
2210 (nnimap-authenticator plain)
2211 (nnimap-user "amin@aminb.org"))
2212 (nnimap "uwaterloo"
2213 (nnimap-stream plain)
2214 (nnimap-address "127.0.0.1")
2215 (nnimap-server-port 143)
2216 (nnimap-authenticator plain)
2217 (nnimap-user "abandali@uwaterloo.ca")))
2218 gnus-message-archive-group "nnimap+amin:Sent"
2219 gnus-parameters
2220 '(("gnu.*"
2221 (gcc-self . t)))
2222 gnus-large-newsgroup 50
2223 gnus-home-directory (no-littering-expand-var-file-name "gnus/")
2224 gnus-directory (concat gnus-home-directory "news/")
2225 message-directory (concat gnus-home-directory "mail/")
2226 nndraft-directory (concat gnus-home-directory "drafts/")
2227 gnus-save-newsrc-file nil
2228 gnus-read-newsrc-file nil
2229 gnus-interactive-exit nil
2230 gnus-gcc-mark-as-read t)
2231 :config
2232 (require 'ebdb)
2233 (require 'ebdb-mua)
2234 (require 'ebdb-gnus))
2235
2236 (use-feature gnus-art
2237 :config
2238 (setq
2239 gnus-visible-headers
2240 (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
2241 gnus-sorted-header-list
2242 '("^From:" "^Subject:" "^Summary:" "^Keywords:"
2243 "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator"
2244 "^Newsgroups:" "List-Id:" "^Organization:"
2245 "^User-Agent:" "^Date:")
2246 ;; local-lapsed article dates
2247 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
2248 gnus-article-date-headers '(user-defined)
2249 gnus-article-time-format
2250 (lambda (time)
2251 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
2252 (local (article-make-date-line date 'local))
2253 (combined-lapsed (article-make-date-line date
2254 'combined-lapsed))
2255 (lapsed (progn
2256 (string-match " (.+" combined-lapsed)
2257 (match-string 0 combined-lapsed))))
2258 (concat local lapsed))))
2259 (bind-keys
2260 :map gnus-article-mode-map
2261 ("r" . gnus-article-reply-with-original)
2262 ("R" . gnus-article-wide-reply-with-original)
2263 ("M-L" . org-store-link)))
2264
2265 (use-feature gnus-sum
2266 :bind (:map gnus-summary-mode-map
2267 :prefix-map a/gnus-summary-prefix-map
2268 :prefix "v"
2269 ("r" . gnus-summary-reply)
2270 ("w" . gnus-summary-wide-reply)
2271 ("v" . gnus-summary-show-raw-article))
2272 :config
2273 (bind-keys
2274 :map gnus-summary-mode-map
2275 ("r" . gnus-summary-reply-with-original)
2276 ("R" . gnus-summary-wide-reply-with-original)
2277 ("M-L" . org-store-link))
2278 :hook (gnus-summary-mode . a/no-mouse-autoselect-window))
2279
2280 (use-feature gnus-msg
2281 :config
2282 (setq gnus-posting-styles
2283 '((".*"
2284 (address "amin@aminb.org")
2285 (body "\nBest,\namin\n")
2286 (eval (setq a/message-cite-say-hi t)))
2287 ("gnu.*"
2288 (address "bandali@gnu.org"))
2289 ((header "subject" "ThankCRM")
2290 (to "webmasters-comment@gnu.org")
2291 (body "\nAdded to 2018supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
2292 (eval (setq a/message-cite-say-hi nil)))
2293 ("nnimap\\+uwaterloo:.*"
2294 (address "abandali@uwaterloo.ca")
2295 (gcc "\"nnimap+uwaterloo:Sent Items\"")))))
2296
2297 (use-feature gnus-topic
2298 :hook (gnus-group-mode . gnus-topic-mode))
2299
2300 (use-feature gnus-agent
2301 :config
2302 (setq gnus-agent-synchronize-flags 'ask)
2303 :hook (gnus-group-mode . gnus-agent-mode))
2304
2305 (use-feature gnus-group
2306 :config
2307 (setq gnus-permanently-visible-groups "\\((INBOX\\|gnu$\\)"))
2308
2309 (use-feature mm-decode
2310 :config
2311 (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
2312 #+end_src
2313
2314 ** sendmail
2315
2316 #+begin_src emacs-lisp
2317 (use-feature sendmail
2318 :config
2319 (setq sendmail-program "/usr/bin/msmtp"
2320 ;; message-sendmail-extra-arguments '("-v" "-d")
2321 mail-specify-envelope-from t
2322 mail-envelope-from 'header))
2323 #+end_src
2324
2325 ** message
2326
2327 #+begin_src emacs-lisp
2328 (use-feature message
2329 :config
2330 (defconst a/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
2331 (defconst message-cite-style-bandali
2332 '((message-cite-function 'message-cite-original)
2333 (message-citation-line-function 'message-insert-formatted-citation-line)
2334 (message-cite-reply-position 'traditional)
2335 (message-yank-prefix "> ")
2336 (message-yank-cited-prefix ">")
2337 (message-yank-empty-prefix ">")
2338 (message-citation-line-format
2339 (if a/message-cite-say-hi
2340 (concat "Hi %F,\n\n" a/message-cite-style-format)
2341 a/message-cite-style-format)))
2342 "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
2343 (setq message-cite-style 'message-cite-style-bandali
2344 message-kill-buffer-on-exit t
2345 message-send-mail-function 'message-send-mail-with-sendmail
2346 message-sendmail-envelope-from 'header
2347 message-dont-reply-to-names
2348 "\\(\\(.*@aminb\\.org\\)\\|\\(amin@bandali\\.me\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
2349 message-user-fqdn "aminb.org")
2350 (require 'company-ebdb)
2351 :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
2352 (message-mode . flyspell-mode)
2353 (message-mode . (lambda ()
2354 ;; (setq fill-column 65
2355 ;; message-fill-column 65)
2356 (make-local-variable 'company-idle-delay)
2357 (setq company-idle-delay 0.2))))
2358 ;; :custom-face
2359 ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
2360 ;; (message-header-to ((t (:foreground "#111" :weight normal))))
2361 ;; (message-header-cc ((t (:foreground "#333" :weight normal))))
2362 )
2363
2364 (with-eval-after-load 'mml-sec
2365 (setq mml-secure-openpgp-encrypt-to-self t
2366 mml-secure-openpgp-sign-with-sender t))
2367 #+end_src
2368
2369 ** footnote
2370
2371 Convenient footnotes in =message-mode=.
2372
2373 #+begin_src emacs-lisp
2374 (use-feature footnote
2375 :after message
2376 :bind
2377 (:map message-mode-map
2378 :prefix-map a/footnote-prefix-map
2379 :prefix "C-c f"
2380 ("a" . footnote-add-footnote)
2381 ("b" . footnote-back-to-message)
2382 ("c" . footnote-cycle-style)
2383 ("d" . footnote-delete-footnote)
2384 ("g" . footnote-goto-footnote)
2385 ("r" . footnote-renumber-footnotes)
2386 ("s" . footnote-set-style))
2387 :config
2388 (setq footnote-start-tag ""
2389 footnote-end-tag ""
2390 footnote-style 'unicode))
2391 #+end_src
2392
2393 ** ebdb
2394
2395 #+begin_src emacs-lisp
2396 (use-package ebdb
2397 :straight (:host github :repo "girzel/ebdb")
2398 :after gnus
2399 :bind (:map gnus-group-mode-map ("e" . ebdb))
2400 :config
2401 (setq ebdb-sources (no-littering-expand-var-file-name "ebdb"))
2402 (with-eval-after-load 'swiper
2403 (add-to-list 'swiper-font-lock-exclude 'ebdb-mode t)))
2404
2405 (use-feature ebdb-com
2406 :after ebdb)
2407
2408 ;; (use-package ebdb-complete
2409 ;; :after ebdb
2410 ;; :config
2411 ;; (ebdb-complete-enable))
2412
2413 (use-package company-ebdb
2414 :config
2415 (defun company-ebdb--post-complete (_) nil))
2416
2417 (use-feature ebdb-gnus
2418 :after ebdb
2419 :custom
2420 (ebdb-gnus-window-configuration
2421 '(article
2422 (vertical 1.0
2423 (summary 0.25 point)
2424 (horizontal 1.0
2425 (article 1.0)
2426 (ebdb-gnus 0.3))))))
2427
2428 (use-feature ebdb-mua
2429 :after ebdb
2430 ;; :custom (ebdb-mua-pop-up nil)
2431 )
2432
2433 ;; (use-package ebdb-message
2434 ;; :after ebdb)
2435
2436
2437 ;; (use-package ebdb-vcard
2438 ;; :after ebdb)
2439 #+end_src
2440
2441 ** message-x
2442
2443 #+begin_src emacs-lisp
2444 (use-package message-x)
2445 #+end_src
2446
2447 #+begin_src emacs-lisp :tangle no
2448 (use-package message-x
2449 :custom
2450 (message-x-completion-alist
2451 (quote
2452 (("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:" . gnus-harvest-find-address)
2453 ((if
2454 (boundp
2455 (quote message-newgroups-header-regexp))
2456 message-newgroups-header-regexp message-newsgroups-header-regexp)
2457 . message-expand-group)))))
2458 #+end_src
2459
2460 ** COMMENT gnus-harvest
2461
2462 #+begin_src emacs-lisp
2463 (use-package gnus-harvest
2464 :commands gnus-harvest-install
2465 :demand t
2466 :config
2467 (if (featurep 'message-x)
2468 (gnus-harvest-install 'message-x)
2469 (gnus-harvest-install)))
2470 #+end_src
2471
2472 * Blogging
2473 :PROPERTIES:
2474 :CUSTOM_ID: blogging
2475 :END:
2476
2477 ** [[https://ox-hugo.scripter.co][ox-hugo]]
2478
2479 #+begin_src emacs-lisp
2480 (use-package ox-hugo
2481 :after ox)
2482
2483 (use-feature ox-hugo-auto-export
2484 :after ox-hugo)
2485 #+end_src
2486
2487 * Post initialization
2488 :PROPERTIES:
2489 :CUSTOM_ID: post-initialization
2490 :END:
2491
2492 Display how long it took to load the init file.
2493
2494 #+begin_src emacs-lisp
2495 (message "Loading %s...done (%.3fs)" user-init-file
2496 (float-time (time-subtract (current-time)
2497 a/before-user-init-time)))
2498 #+end_src
2499
2500 * Footer
2501 :PROPERTIES:
2502 :CUSTOM_ID: footer
2503 :END:
2504
2505 #+begin_src emacs-lisp :comments none
2506 ;;; init.el ends here
2507 #+end_src
2508
2509 * COMMENT Local Variables :ARCHIVE:
2510 # Local Variables:
2511 # eval: (add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local)
2512 # eval: (when (featurep 'typo (typo-mode -1)))
2513 # End: