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