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