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