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