[emacs] assimilate and use hl-todo
[~bandali/configs] / init.org
CommitLineData
180cab37
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
3b98e899
AB
12tangled to [[./init.el][init.el]]. Packages are installed and managed using
13[[https://github.com/emacscollective/borg][Borg]]. Over the years, I've taken inspiration from configurations of
14many different people. Some of the configurations that I can remember
15off the top of my head are:
16
17- [[https://github.com/dieggsy/dotfiles][dieggsy/dotfiles]]: literate Emacs and dotfiles configuration, uses
18 straight.el for managing packages
19- [[https://github.com/dakra/dmacs][dakra/dmacs]]: literate Emacs configuration, using Borg for managing
20 packages
21- [[http://pages.sachachua.com/.emacs.d/Sacha.html][Sacha Chua's literate Emacs configuration]]
22- [[https://github.com/dakrone/eos][dakrone/eos]]
23- Ryan Rix's [[http://doc.rix.si/cce/cce.html][Complete Computing Environment]] ([[http://doc.rix.si/projects/fsem.html][about cce]])
24- [[https://github.com/jwiegley/dot-emacs][jwiegley/dot-emacs]]: nix-based configuration
25- [[https://github.com/wasamasa/dotemacs][wasamasa/dotemacs]]
26- [[https://github.com/hlissner/doom-emacs][Doom Emacs]]
180cab37
AB
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
31anyway. So, I've opted to use Borg. For what it's worth, I briefly
32experimented with [[https://github.com/raxod502/straight.el][straight.el]], but found that it added about 2 seconds
33to my init time; which is unacceptable for me: I use Emacs as my
34window manager (via EXWM) and coming from bspwm, I'm too used to
35having fast startup times.
36
3b98e899
AB
37** Installation
38
4ae2cd62
AB
39To use this config for your Emacs, first you need to clone this repo,
40then bootstrap Borg, tell Borg to retrieve package submodules, and
41byte-compiled the packages. Something along these lines should work:
42
4b4e432d 43#+begin_src sh :tangle no
4ae2cd62
AB
44git clone https://github.com/aminb/dotfiles ~/.emacs.d
45cd ~/.emacs.d
46make bootstrap-borg
4ae2cd62
AB
47make bootstrap
48make build
49#+end_src
50
180cab37
AB
51* Contents :toc_1:noexport:
52
53- [[#about][About]]
54- [[#header][Header]]
55- [[#initial-setup][Initial setup]]
56- [[#core][Core]]
967b0a82 57- [[#post-initialization][Post initialization]]
180cab37
AB
58- [[#footer][Footer]]
59
60* Header
61:PROPERTIES:
62:CUSTOM_ID: header
63:END:
64
65** First line
66
67#+begin_src emacs-lisp :comments none
68;;; init.el --- Amin Bandali's Emacs config -*- lexical-binding: t ; eval: (view-mode 1)-*-
69#+end_src
70
71Enable =view-mode=, which both makes the file read-only (as a reminder
72that =init.el= is an auto-generated file, not supposed to be edited),
73and provides some convenient key bindings for browsing through the
74file.
75
76** License
77
78#+begin_src emacs-lisp :comments none
79;; Copyright (C) 2018 Amin Bandali <amin@aminb.org>
80
81;; This program is free software: you can redistribute it and/or modify
82;; it under the terms of the GNU General Public License as published by
83;; the Free Software Foundation, either version 3 of the License, or
84;; (at your option) any later version.
85
86;; This program is distributed in the hope that it will be useful,
87;; but WITHOUT ANY WARRANTY; without even the implied warranty of
88;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
89;; GNU General Public License for more details.
90
91;; You should have received a copy of the GNU General Public License
92;; along with this program. If not, see <https://www.gnu.org/licenses/>.
93#+end_src
94
95** Commentary
96
97#+begin_src emacs-lisp :comments none
98;;; Commentary:
99
100;; Emacs configuration of Amin Bandali, computer scientist and functional
101;; programmer.
102
103;; THIS FILE IS AUTO-GENERATED FROM `init.org'.
104#+end_src
105
106** Naming conventions
107
850dd012 108The conventions below were inspired by [[https://github.com/hlissner/doom-emacs][Doom]]'s, found [[https://github.com/hlissner/doom-emacs/blob/5dacbb7cb1c6ac246a9ccd15e6c4290def67757c/core/core.el#L3-L17][here]].
180cab37
AB
109
110#+begin_src emacs-lisp :comments none
111;; Naming conventions:
112;;
850dd012
AB
113;; amin-... public variables or non-interactive functions
114;; amin--... private anything (non-interactive), not safe for direct use
115;; amin/... an interactive function; safe for M-x or keybinding
116;; amin:... an evil operator, motion, or command
117;; amin|... a hook function
118;; amin*... an advising function
119;; amin@... a hydra command
120;; ...! a macro
180cab37
AB
121#+end_src
122
123* Initial setup
124:PROPERTIES:
125:CUSTOM_ID: initial-setup
126:END:
127
128#+begin_src emacs-lisp :comments none
129;;; Code:
130#+end_src
131
132** Emacs initialization
133
134I'd like to do a couple of measurements of Emacs' startup time. First,
135let's see how long Emacs takes to start up, before even loading
136=init.el=, i.e. =user-init-file=:
137
138#+begin_src emacs-lisp
850dd012 139(defvar amin--before-user-init-time (current-time)
180cab37
AB
140 "Value of `current-time' when Emacs begins loading `user-init-file'.")
141(message "Loading Emacs...done (%.3fs)"
850dd012 142 (float-time (time-subtract amin--before-user-init-time
180cab37
AB
143 before-init-time)))
144#+end_src
145
146Also, temporarily increase ~gc-cons-threshhold~ and
147~gc-cons-percentage~ during startup to reduce garbage collection
148frequency. Clearing the ~file-name-handler-alist~ seems to help reduce
149startup time as well.
150
151#+begin_src emacs-lisp
850dd012
AB
152(defvar amin--gc-cons-threshold gc-cons-threshold)
153(defvar amin--gc-cons-percentage gc-cons-percentage)
154(defvar amin--file-name-handler-alist file-name-handler-alist)
180cab37
AB
155(setq gc-cons-threshold (* 400 1024 1024) ; 400 MiB
156 gc-cons-percentage 0.6
157 file-name-handler-alist nil
158 ;; sidesteps a bug when profiling with esup
159 esup-child-profile-require-level 0)
160#+end_src
161
162Of course, we'd like to set them back to their defaults once we're
163done initializing.
164
165#+begin_src emacs-lisp
166(add-hook
167 'after-init-hook
168 (lambda ()
850dd012
AB
169 (setq gc-cons-threshold amin--gc-cons-threshold
170 gc-cons-percentage amin--gc-cons-percentage
171 file-name-handler-alist amin--file-name-handler-alist)))
180cab37
AB
172#+end_src
173
174Increase the number of lines kept in message logs (the =*Messages*=
175buffer).
176
177#+begin_src emacs-lisp
178(setq message-log-max 20000)
179#+end_src
180
181Optionally, we could suppress some byte compiler warnings like below,
182but for now I've decided to keep them enabled. See documentation for
183~byte-compile-warnings~ for more details.
184
185#+begin_src emacs-lisp
186;; (setq byte-compile-warnings
187;; '(not free-vars unresolved noruntime lexical make-local))
188#+end_src
189
41a4f26a
AB
190** whoami
191
192#+begin_src emacs-lisp
193(setq user-full-name "Amin Bandali"
194 user-mail-address "amin@aminb.org")
195#+end_src
196
180cab37
AB
197** Package management
198
199*** No =package.el=
200
201I can do all my package management things with Borg, and don't need
202Emacs' built-in =package.el=. Emacs 27 lets us disable =package.el= in
203the =early-init-file= (see [[https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=24acb31c04b4048b85311d794e600ecd7ce60d3b][here]]).
204
205#+begin_src emacs-lisp :tangle early-init.el
206(setq package-enable-at-startup nil)
207#+end_src
208
209But since Emacs 27 isn't out yet (Emacs 26 is just around the corner
210right now), and even when released it'll be long before most distros
211ship in their repos, I'll still put the old workaround with the
212commented call to ~package-initialize~ here anyway.
213
214#+begin_src emacs-lisp
215(setq package-enable-at-startup nil)
216;; (package-initialize)
217#+end_src
218
219*** Borg
220
221#+begin_quote
222Assimilate Emacs packages as Git submodules
223#+end_quote
224
225[[https://github.com/emacscollective/borg][Borg]] is at the heart of package management of my Emacs setup. In
226short, it creates a git submodule in =lib/= for each package, which
227can then be managed with the help of Magit or other tools.
228
229#+begin_src emacs-lisp
230(setq user-init-file (or load-file-name buffer-file-name)
231 user-emacs-directory (file-name-directory user-init-file))
232(add-to-list 'load-path
233 (expand-file-name "lib/borg" user-emacs-directory))
234(require 'borg)
235(borg-initialize)
d14698a3 236
87f61b04
AB
237;; (require 'borg-nix-shell)
238;; (setq borg-build-shell-command 'borg-nix-shell-build-command)
0f3d4eb5 239
d14698a3 240(with-eval-after-load 'bind-key
d14698a3
AB
241 (bind-keys
242 :package borg
06e16600
AB
243 ("C-c B A" . borg-activate)
244 ("C-c B a" . borg-assimilate)
245 ("C-c B b" . borg-build)
246 ("C-c B c" . borg-clone)))
180cab37
AB
247#+end_src
248
249*** =use-package=
250
251#+begin_quote
252A use-package declaration for simplifying your .emacs
253#+end_quote
254
255[[https://github.com/jwiegley/use-package][use-package]] is an awesome utility for managing and configuring
256packages (in our case especially the latter) in a neatly organized way
257and without compromising on performance.
258
259#+begin_src emacs-lisp
260(require 'use-package)
eb186a5a 261(if nil ; set to t when need to debug init
180cab37
AB
262 (setq use-package-verbose t
263 use-package-expand-minimally nil
264 use-package-compute-statistics t
265 debug-on-error t)
266 (setq use-package-verbose nil
267 use-package-expand-minimally t))
268#+end_src
269
270*** Epkg
271
272#+begin_quote
273Browse the Emacsmirror package database
274#+end_quote
275
276Epkg provides access to a local copy of the [[https://emacsmirror.net][Emacsmirror]] package
277database, low-level functions for querying the database, and a
278=package.el=-like user interface for browsing the available packages.
279
280#+begin_src emacs-lisp
281(use-package epkg
d14698a3
AB
282 :defer t
283 :bind
06e16600
AB
284 (("C-c B d" . epkg-describe-package)
285 ("C-c B p" . epkg-list-packages)
286 ("C-c B r" . borg-remove)
287 ("C-c B u" . epkg-update)))
180cab37
AB
288#+end_src
289
290** No littering in =~/.emacs.d=
291
292#+begin_quote
293Help keeping ~/.emacs.d clean
294#+end_quote
295
296By default, even for Emacs' built-in packages, the configuration files
297and persistent data are all over the place. Use =no-littering= to help
298contain the mess.
299
300#+begin_src emacs-lisp
301(use-package no-littering
302 :demand t
303 :config
304 (savehist-mode 1)
305 (add-to-list 'savehist-additional-variables 'kill-ring)
306 (save-place-mode 1)
307 (setq auto-save-file-name-transforms
308 `((".*" ,(no-littering-expand-var-file-name "auto-save/") t))))
309#+end_src
310
180cab37
AB
311** Custom file (=custom.el=)
312
313I'm not planning on using the custom file much, but even so, I
314definitely don't want it mixing with =init.el=. So, here; let's give
315it it's own file. While at it, treat themes as safe.
316
317#+begin_src emacs-lisp
318(use-package custom
319 :no-require t
320 :config
321 (setq custom-file (no-littering-expand-etc-file-name "custom.el"))
322 (when (file-exists-p custom-file)
323 (load custom-file))
324 (setf custom-safe-themes t))
325#+end_src
326
313f5877
AB
327** Secrets file
328
329#+begin_src emacs-lisp
330(load (no-littering-expand-etc-file-name "secrets"))
331#+end_src
332
180cab37
AB
333** Better =$PATH= handling
334
335Let's use [[https://github.com/purcell/exec-path-from-shell][exec-path-from-shell]] to make Emacs use the =$PATH= as set up
336in my shell.
337
338#+begin_src emacs-lisp
7538956f
AB
339(use-package exec-path-from-shell
340 :defer 1
341 :init
342 (setq exec-path-from-shell-check-startup-files nil)
343 :config
344 (exec-path-from-shell-initialize)
345 ;; while we're at it, let's fix access to our running ssh-agent
346 (exec-path-from-shell-copy-env "SSH_AGENT_PID")
347 (exec-path-from-shell-copy-env "SSH_AUTH_SOCK"))
180cab37
AB
348#+end_src
349
ebec2c18
AB
350** Only one custom theme at a time
351
352#+begin_src emacs-lisp
353(defadvice load-theme (before clear-previous-themes activate)
354 "Clear existing theme settings instead of layering them"
355 (mapc #'disable-theme custom-enabled-themes))
356#+end_src
357
180cab37
AB
358** Server
359
360Start server if not already running. Alternatively, can be done by
361issuing =emacs --daemon= in the terminal, which can be automated with
362a systemd service or using =brew services start emacs= on macOS. I use
363Emacs as my window manager (via EXWM), so I always start Emacs on
364login; so starting the server from inside Emacs is good enough for me.
365
366See [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html#Emacs-Server][Using Emacs as a Server]].
367
368#+begin_src emacs-lisp
369(use-package server
ce842fdf 370 :defer 1
180cab37
AB
371 :config (or (server-running-p) (server-mode)))
372#+end_src
373
e9bcfa30
AB
374** Unicode support
375
376Font stack with better unicode support, around =Ubuntu Mono= and
377=Hack=.
378
1f2bc66e 379#+begin_src emacs-lisp :tangle no
e9bcfa30
AB
380(dolist (ft (fontset-list))
381 (set-fontset-font
382 ft
383 'unicode
1f2bc66e 384 (font-spec :name "Source Code Pro" :size 14))
e9bcfa30
AB
385 (set-fontset-font
386 ft
387 'unicode
16d70d6f 388 (font-spec :name "DejaVu Sans Mono")
e9bcfa30
AB
389 nil
390 'append)
16d70d6f
AB
391 ;; (set-fontset-font
392 ;; ft
393 ;; 'unicode
394 ;; (font-spec
395 ;; :name "Symbola monospacified for DejaVu Sans Mono")
396 ;; nil
397 ;; 'append)
398 ;; (set-fontset-font
399 ;; ft
400 ;; #x2115 ; â„•
401 ;; (font-spec :name "DejaVu Sans Mono")
402 ;; nil
403 ;; 'append)
e9bcfa30
AB
404 (set-fontset-font
405 ft
16d70d6f
AB
406 (cons ?Α ?ω)
407 (font-spec :name "DejaVu Sans Mono" :size 14)
e9bcfa30 408 nil
16d70d6f 409 'prepend))
e9bcfa30
AB
410#+end_src
411
523e4f87
AB
412** Gentler font resizing
413
414#+begin_src emacs-lisp
415(setq text-scale-mode-step 1.05)
416#+end_src
417
51db62d8
AB
418** Libraries
419
420#+begin_src emacs-lisp
421(require 'cl-lib)
422(require 'subr-x)
423#+end_src
424
425** Useful utilities
426
427#+begin_src emacs-lisp
850dd012 428(defun amin-enlist (exp)
51db62d8
AB
429 "Return EXP wrapped in a list, or as-is if already a list."
430(if (listp exp) exp (list exp)))
431
432; from https://github.com/hlissner/doom-emacs/commit/589108fdb270f24a98ba6209f6955fe41530b3ef
433(defmacro after! (features &rest body)
434 "A smart wrapper around `with-eval-after-load'. Supresses warnings during
435compilation."
436 (declare (indent defun) (debug t))
437 (list (if (or (not (bound-and-true-p byte-compile-current-file))
850dd012 438 (dolist (next (amin-enlist features))
51db62d8
AB
439 (if (symbolp next)
440 (require next nil :no-error)
441 (load next :no-message :no-error))))
442 #'progn
443 #'with-no-warnings)
444 (cond ((symbolp features)
445 `(eval-after-load ',features '(progn ,@body)))
446 ((and (consp features)
447 (memq (car features) '(:or :any)))
448 `(progn
449 ,@(cl-loop for next in (cdr features)
450 collect `(after! ,next ,@body))))
451 ((and (consp features)
452 (memq (car features) '(:and :all)))
453 (dolist (next (cdr features))
454 (setq body `(after! ,next ,@body)))
455 body)
456 ((listp features)
eb186a5a 457 `(after! (:all ,@features) ,@body)))))
51db62d8
AB
458#+end_src
459
2090f409
AB
460Convenience macro for =setq='ing multiple variables to the same value:
461
462#+begin_src emacs-lisp
463(defmacro setq-every! (value &rest vars)
464 "Set all the variables from VARS to value VALUE."
465 (declare (indent defun) (debug t))
466 `(progn ,@(mapcar (lambda (x) (list 'setq x value)) vars)))
467#+end_src
468
180cab37
AB
469* Core
470:PROPERTIES:
471:CUSTOM_ID: core
472:END:
473
474** Defaults
475
e602de37
AB
476*** Time and battery in mode-line
477
478Enable displaying time and battery in the mode-line, since I'm not
479using the Xfce panel anymore. Also, I don't need to see the load
480average on a regular basis, so disable that.
481
63073abd
AB
482Note: using =i3status= on sway at the moment, so disabling this.
483
484#+begin_src emacs-lisp :tangle no
e602de37 485(use-package time
e602de37
AB
486 :init
487 (setq display-time-default-load-average nil)
488 :config
489 (display-time-mode))
490
491(use-package battery
e602de37
AB
492 :config
493 (display-battery-mode))
494#+end_src
495
180cab37
AB
496*** Smaller fringe
497
2f8102f0
AB
498Might want to set the fringe to a smaller value, especially if using
499EXWM. I'm fine with the default for now.
180cab37
AB
500
501#+begin_src emacs-lisp
2f8102f0 502;; (fringe-mode '(3 . 1))
4b4e432d 503(fringe-mode nil)
180cab37
AB
504#+end_src
505
506*** Disable disabled commands
507
508Emacs disables some commands by default that could persumably be
509confusing for novice users. Let's disable that.
510
511#+begin_src emacs-lisp
512(setq disabled-command-function nil)
513#+end_src
514
515*** Kill-ring
516
517Save what I copy into clipboard from other applications into Emacs'
518kill-ring, which would allow me to still be able to easily access it
519in case I kill (cut or copy) something else inside Emacs before
520yanking (pasting) what I'd originally intended to.
521
522#+begin_src emacs-lisp
523(setq save-interprogram-paste-before-kill t)
524#+end_src
525
526*** Minibuffer
527
528#+begin_src emacs-lisp
529(setq enable-recursive-minibuffers t
530 resize-mini-windows t)
531#+end_src
532
533*** Lazy-person-friendly yes/no prompts
534
535Lazy people would prefer to type fewer keystrokes, especially for yes
536or no questions. I'm lazy.
537
538#+begin_src emacs-lisp
539(defalias 'yes-or-no-p #'y-or-n-p)
540#+end_src
541
542*** Startup screen and =*scratch*=
543
544Firstly, let Emacs know that I'd like to have =*scratch*= as my
545startup buffer.
546
547#+begin_src emacs-lisp
548(setq initial-buffer-choice t)
549#+end_src
550
551Now let's customize the =*scratch*= buffer a bit. First off, I don't
552need the default hint.
553
554#+begin_src emacs-lisp
555(setq initial-scratch-message nil)
556#+end_src
557
558Also, let's use Text mode as the major mode, in case I want to
559customize it (=*scratch*='s default major mode, Fundamental mode,
560can't really be customized).
561
562#+begin_src emacs-lisp
563(setq initial-major-mode 'text-mode)
564#+end_src
565
566Inhibit the buffer list when more than 2 files are loaded.
567
568#+begin_src emacs-lisp
569(setq inhibit-startup-buffer-menu t)
570#+end_src
571
572I don't really need to see the startup screen or echo area message
573either.
574
575#+begin_src emacs-lisp
576(advice-add #'display-startup-echo-area-message :override #'ignore)
577(setq inhibit-startup-screen t
578 inhibit-startup-echo-area-message user-login-name)
579#+end_src
580
581*** More useful frame titles
582
583Show either the file name or the buffer name (in case the buffer isn't
584visiting a file). Borrowed from Emacs Prelude.
585
586#+begin_src emacs-lisp
587(setq frame-title-format
588 '("" invocation-name " - "
589 (:eval (if (buffer-file-name)
590 (abbreviate-file-name (buffer-file-name))
591 "%b"))))
592#+end_src
593
594*** Backups
595
596Emacs' default backup settings aren't that great. Let's use more
597sensible options. See documentation for the ~make-backup-file~
598variable.
599
600#+begin_src emacs-lisp
601(setq backup-by-copying t
72a03130
AB
602 version-control t
603 delete-old-versions t)
180cab37
AB
604#+end_src
605
89394449
AB
606*** Auto revert
607
608Enable automatic reloading of changed buffers and files.
609
610#+begin_src emacs-lisp
611(global-auto-revert-mode 1)
612(setq auto-revert-verbose nil
613 global-auto-revert-non-file-buffers t)
614#+end_src
615
616*** Always use space for indentation
617
618#+begin_src emacs-lisp
619(setq-default
620 indent-tabs-mode nil
621 require-final-newline t
622 tab-width 4)
623#+end_src
624
d14698a3
AB
625*** Winner mode
626
627Enable =winner-mode=.
628
629#+begin_src emacs-lisp
630(winner-mode 1)
631#+end_src
632
165ca268
AB
633*** Close =*compilation*= on success
634
635#+begin_src emacs-lisp
636(setq compilation-exit-message-function
637 (lambda (status code msg)
638 "Close the compilation window if successful."
639 ;; if M-x compile exits with 0
640 (when (and (eq status 'exit) (zerop code))
641 (bury-buffer)
642 (delete-window (get-buffer-window (get-buffer "*compilation*"))))
643 ;; return the result of compilation-exit-message-function
644 (cons msg code)))
645#+end_src
646
d14698a3
AB
647** Bindings
648
06e16600 649#+begin_src emacs-lisp
d14698a3 650(bind-keys
06e16600
AB
651 ("C-c b k" . kill-this-buffer)
652 ("C-c b s" . save-buffer)
653 ("C-c S" . save-buffer)
654 ("C-c o" . other-window)
3634ffb6 655 ("C-c q q" . save-buffers-kill-terminal)
11c0d265 656
3634ffb6
AB
657 ("C-c F m" . make-frame-command)
658 ("C-c F d" . delete-frame)
3c3055c7 659 ("C-c F D" . delete-other-frames)
11c0d265 660
3c3055c7
AB
661 ("s-c e b" . eval-buffer)
662 ("s-c e r" . eval-region)
11c0d265 663
3c3055c7
AB
664 ("s-p" . beginning-of-buffer)
665 ("s-n" . end-of-buffer))
d14698a3
AB
666#+end_src
667
180cab37
AB
668** Packages
669
670The packages in this section are absolutely essential to my everyday
671workflow, and they play key roles in how I do my computing. They
672immensely enhance the Emacs experience for me; both using Emacs, and
673customizing it.
674
675*** [[https://github.com/emacscollective/auto-compile][auto-compile]]
676
677#+begin_src emacs-lisp
678(use-package auto-compile
679 :demand t
680 :config
681 (auto-compile-on-load-mode)
682 (auto-compile-on-save-mode)
683 (setq auto-compile-display-buffer nil
eb186a5a
AB
684 auto-compile-mode-line-counter t
685 auto-compile-source-recreate-deletes-dest t
686 auto-compile-toggle-deletes-nonlib-dest t
687 auto-compile-update-autoloads t)
180cab37
AB
688 (add-hook 'auto-compile-inhibit-compile-hook
689 'auto-compile-inhibit-compile-detached-git-head))
690#+end_src
691
180cab37
AB
692*** [[https://orgmode.org/][Org mode]]
693
694#+begin_quote
695Org mode is for keeping notes, maintaining TODO lists, planning
696projects, and authoring documents with a fast and effective plain-text
697system.
698#+end_quote
699
700In short, my favourite way of life.
701
702#+begin_src emacs-lisp
51f3b22b 703(use-package org
ce842fdf 704 :defer 3
51f3b22b
AB
705 :config
706 (setq org-src-tab-acts-natively t
707 org-src-preserve-indentation nil
5ebf6597 708 org-edit-src-content-indentation 0
3e70dc4a 709 org-email-link-description-format "Email %c: %s" ; %.30s
5ebf6597 710 org-log-done 'time)
3e70dc4a 711 :bind (:map org-mode-map ("M-L" . org-insert-last-stored-link))
bdf99c0d
AB
712 :hook ((org-mode . org-indent-mode)
713 (org-mode . auto-fill-mode)
714 (org-mode . flyspell-mode))
3e7e82b4
AB
715 :custom
716 (org-latex-packages-alist '(("" "listings") ("" "color"))))
717
718(use-package ox-latex
ce842fdf 719 :after ox
3e7e82b4 720 :config
3bb16326
AB
721 (setq org-latex-listings 'listings
722 ;; org-latex-prefer-user-labels t
723 )
3e7e82b4
AB
724 (add-to-list 'org-latex-packages-alist '("" "listings"))
725 (add-to-list 'org-latex-packages-alist '("" "color"))
726 (add-to-list 'org-latex-classes
727 '("IEEEtran" "\\documentclass[11pt]{IEEEtran}"
728 ("\\section{%s}" . "\\section*{%s}")
729 ("\\subsection{%s}" . "\\subsection*{%s}")
730 ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
731 ("\\paragraph{%s}" . "\\paragraph*{%s}")
732 ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
733 t))
6578a877 734
ce842fdf
AB
735(use-package ox-beamer
736 :after ox)
6bda705d 737
a4aa1167 738(use-package orgalist
ce842fdf 739 :after message
a4aa1167 740 :hook (message-mode . orgalist-mode))
180cab37
AB
741#+end_src
742
eb689aa4
AB
743**** asynchronous tangle
744
745=amin/async-babel-tangle= is a function closely inspired by [[https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles][dieggsy's
746d/async-babel-tangle]] which uses [[https://github.com/jwiegley/emacs-async][async]] to asynchronously tangle an org
747file.
748
749#+begin_src emacs-lisp
750(after! org
751 (defvar amin-show-async-tangle-results nil
752 "Keep *emacs* async buffers around for later inspection.")
753
754 (defvar amin-show-async-tangle-time nil
755 "Show the time spent tangling the file.")
756
b07c1cc4
AB
757 (defvar amin-async-tangle-post-compile "make ti"
758 "If non-nil, pass to `compile' after successful tangle.")
759
eb689aa4
AB
760 (defun amin/async-babel-tangle ()
761 "Tangle org file asynchronously."
762 (interactive)
763 (let* ((file-tangle-start-time (current-time))
764 (file (buffer-file-name))
765 (file-nodir (file-name-nondirectory file))
766 (async-quiet-switch "-q"))
767 (async-start
768 `(lambda ()
769 (require 'org)
770 (org-babel-tangle-file ,file))
771 (unless amin-show-async-tangle-results
772 `(lambda (result)
773 (if result
b07c1cc4
AB
774 (progn
775 (message "Tangled %s%s"
776 ,file-nodir
777 (if amin-show-async-tangle-time
778 (format " (%.3fs)"
779 (float-time (time-subtract (current-time)
780 ',file-tangle-start-time)))
781 ""))
782 (when amin-async-tangle-post-compile
783 (compile amin-async-tangle-post-compile)))
eb689aa4
AB
784 (message "Tangling %s failed" ,file-nodir))))))))
785
786(add-to-list
787 'safe-local-variable-values
788 '(eval add-hook 'after-save-hook #'amin/async-babel-tangle 'append 'local))
789#+end_src
790
180cab37
AB
791*** [[https://magit.vc/][Magit]]
792
793#+begin_quote
794It's Magit! A Git porcelain inside Emacs.
795#+end_quote
796
797Not just how I do git, but /the/ way to do git.
798
799#+begin_src emacs-lisp
800(use-package magit
ce842fdf 801 :defer 2
d14698a3 802 :bind
3c3055c7 803 (("s-g" . magit-status)
d14698a3 804 :prefix-map amin--magit-prefix-map
06e16600 805 :prefix "C-c g"
d14698a3
AB
806 ("SPC" . magit-status)
807 ("s" . magit-status)
808 ("S" . magit-status-prefix)
ac049f62 809 ("B" . magit-blame-addition)
d14698a3 810 ("C" . magit-clone)
ac049f62
AB
811 ("f" . magit-fetch-other)
812 ("F" . magit-pull-branch)
813 ("P" . magit-push-other)
06e16600 814 ("p" . magit-dispatch-popup)
ac049f62 815 ("c c" . magit-commit-create)
d14698a3
AB
816 ("c a" . magit-commit-amend)
817 ("b b" . magit-checkout)
ac049f62 818 ("b c" . magit-branch-create))
180cab37
AB
819 :config
820 (magit-add-section-hook 'magit-status-sections-hook
821 'magit-insert-modules
822 'magit-insert-stashes
1278d522
AB
823 'append)
824 :custom-face (magit-diff-file-heading ((t (:weight normal)))))
180cab37
AB
825#+end_src
826
827*** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
828
829#+begin_quote
830Ivy - a generic completion frontend for Emacs, Swiper - isearch with
831an overview, and more. Oh, man!
832#+end_quote
833
834There's no way I could top that, so I won't attempt to.
835
836**** Ivy
837
838#+begin_src emacs-lisp
f7752223 839(use-package ivy
3ea5e792 840 :defer 1
f7752223 841 :bind
06e16600 842 (("C-c b b" . ivy-switch-buffer)
d14698a3
AB
843 :map ivy-minibuffer-map
844 ([escape] . keyboard-escape-quit)
845 ([S-up] . ivy-previous-history-element)
846 ([S-down] . ivy-next-history-element)
847 ("DEL" . ivy-backward-delete-char))
f7752223 848 :config
f6d8e3e4 849 (setq ivy-wrap t)
1278d522
AB
850 (ivy-mode 1)
851 :custom-face
852 (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
853 (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
854 (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold)))))
180cab37
AB
855#+end_src
856
857**** Swiper
858
859#+begin_src emacs-lisp
f7752223 860(use-package swiper
f811cdad
AB
861 :bind (("C-s" . swiper)
862 ("C-r" . swiper)))
180cab37
AB
863#+end_src
864
865**** Counsel
866
867#+begin_src emacs-lisp
f7752223 868(use-package counsel
3d35bdff 869 :defer 1
f7752223 870 :bind (([remap execute-extended-command] . counsel-M-x)
d14698a3
AB
871 ([remap find-file] . counsel-find-file)
872 ("s-r" . counsel-recentf)
06e16600
AB
873 ("C-c x" . counsel-M-x)
874 ("C-c f ." . counsel-find-file)
f7752223 875 :map minibuffer-local-map
eb186a5a 876 ("C-r" . counsel-minibuffer-history))
f7752223
AB
877 :config
878 (counsel-mode 1)
879 (defalias 'locate #'counsel-locate))
180cab37
AB
880#+end_src
881
4d987946
AB
882*** eshell
883
884#+begin_src emacs-lisp
885(use-package eshell
ce842fdf 886 :defer t
4d987946
AB
887 :commands eshell
888 :config
889 (eval-when-compile (defvar eshell-prompt-regexp))
890 (defun amin/eshell-quit-or-delete-char (arg)
891 (interactive "p")
892 (if (and (eolp) (looking-back eshell-prompt-regexp nil))
893 (eshell-life-is-too-much)
894 (delete-char arg)))
895
a8702c03
AB
896 (defun amin/eshell-clear ()
897 (interactive)
898 (let ((inhibit-read-only t))
899 (erase-buffer))
900 (eshell-send-input))
901
4d987946
AB
902 (defun amin|eshell-setup ()
903 (bind-keys :map eshell-mode-map
a8702c03
AB
904 ("C-d" . amin/eshell-quit-or-delete-char)
905 ("C-l" . amin/eshell-clear)))
4d987946
AB
906
907 :hook (eshell-mode . amin|eshell-setup))
908#+end_src
909
4d86735a
AB
910*** Ibuffer
911
912#+begin_src emacs-lisp
913(use-package ibuffer
ce842fdf 914 :defer t
4d86735a
AB
915 :bind
916 (("C-x C-b" . ibuffer-other-window)
917 ("C-c b B" . ibuffer-other-window)
918 :map ibuffer-mode-map
919 ("P" . ibuffer-backward-filter-group)
920 ("N" . ibuffer-forward-filter-group)
921 ("M-p" . ibuffer-do-print)
922 ("M-n" . ibuffer-do-shell-command-pipe-replace))
923 :config
924 ;; Use human readable Size column instead of original one
925 (define-ibuffer-column size-h
926 (:name "Size" :inline t)
927 (cond
928 ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
929 ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
930 ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
931 (t (format "%8d" (buffer-size)))))
932 :custom
933 (ibuffer-saved-filter-groups
934 '(("default"
935 ("dired" (mode . dired-mode))
9e756a57 936 ("org" (mode . org-mode))
4d86735a
AB
937 ("web"
938 (or
939 (mode . web-mode)
746c8c1a
AB
940 (mode . css-mode)
941 (mode . scss-mode)
4d86735a
AB
942 (mode . js2-mode)))
943 ("shell"
944 (or
945 (mode . eshell-mode)
946 (mode . shell-mode)))
947 ("notmuch" (name . "\*notmuch\*"))
948 ("programming"
949 (or
950 (mode . python-mode)
951 (mode . c++-mode)
952 (mode . emacs-lisp-mode)))
953 ("emacs"
954 (or
955 (name . "^\\*scratch\\*$")
3bb16326
AB
956 (name . "^\\*Messages\\*$")))
957 ("slack"
958 (or
959 (name . "^\\*Slack*"))))))
4d86735a
AB
960 (ibuffer-formats
961 '((mark modified read-only locked " "
962 (name 18 18 :left :elide)
963 " "
964 (size-h 9 -1 :right)
965 " "
966 (mode 16 16 :left :elide)
967 " " filename-and-process)
968 (mark " "
969 (name 16 -1)
970 " " filename)))
971 :hook (ibuffer . (lambda () (ibuffer-switch-to-saved-filter-groups "default"))))
972#+end_src
973
458ff84b
AB
974*** Outline
975
976#+begin_src emacs-lisp
977(use-package outline
ce842fdf 978 :defer t
458ff84b
AB
979 :hook (prog-mode . outline-minor-mode)
980 :bind
981 (:map
982 outline-minor-mode-map
983 ("<s-tab>" . outline-toggle-children)
3ffa4732
AB
984 ("M-p" . outline-previous-visible-heading)
985 ("M-n" . outline-next-visible-heading)
458ff84b
AB
986 :prefix-map amin--outline-prefix-map
987 :prefix "s-o"
988 ("TAB" . outline-toggle-children)
989 ("a" . outline-hide-body)
990 ("H" . outline-hide-body)
991 ("S" . outline-show-all)
992 ("h" . outline-hide-subtree)
993 ("s" . outline-show-subtree)))
994#+end_src
995
180cab37
AB
996* Borg's =layer/essentials=
997
998TODO: break this giant source block down into individual org sections.
999
1000#+begin_src emacs-lisp
1001(use-package dash
1002 :config (dash-enable-font-lock))
1003
1004(use-package diff-hl
1005 :config
1006 (setq diff-hl-draw-borders nil)
1007 (global-diff-hl-mode)
1008 (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh t))
1009
1010(use-package dired
1011 :defer t
1012 :config (setq dired-listing-switches "-alh"))
1013
1014(use-package eldoc
1015 :when (version< "25" emacs-version)
1016 :config (global-eldoc-mode))
1017
1018(use-package help
1019 :defer t
1020 :config (temp-buffer-resize-mode))
1021
1022(progn ; `isearch'
1023 (setq isearch-allow-scroll t))
1024
1025(use-package lisp-mode
1026 :config
1027 (add-hook 'emacs-lisp-mode-hook 'outline-minor-mode)
1028 (add-hook 'emacs-lisp-mode-hook 'reveal-mode)
1029 (defun indent-spaces-mode ()
1030 (setq indent-tabs-mode nil))
1031 (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
1032
1033(use-package man
1034 :defer t
1035 :config (setq Man-width 80))
1036
1037(use-package paren
1038 :config (show-paren-mode))
1039
1040(use-package prog-mode
1041 :config (global-prettify-symbols-mode)
1042 (defun indicate-buffer-boundaries-left ()
1043 (setq indicate-buffer-boundaries 'left))
1044 (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
1045
1046(use-package recentf
ce842fdf 1047 :defer 0.5
633de78a
AB
1048 :config
1049 (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
1050 (setq recentf-max-saved-items 40))
180cab37
AB
1051
1052(use-package savehist
1053 :config (savehist-mode))
1054
1055(use-package saveplace
1056 :when (version< "25" emacs-version)
1057 :config (save-place-mode))
1058
1059(use-package simple
1060 :config (column-number-mode))
1061
1062(progn ; `text-mode'
1063 (add-hook 'text-mode-hook #'indicate-buffer-boundaries-left))
1064
1065(use-package tramp
1066 :defer t
1067 :config
1068 (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
1069 (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
1070 (add-to-list 'tramp-default-proxies-alist
1071 (list (regexp-quote (system-name)) nil nil)))
1072
1073(use-package undo-tree
bffae347 1074 :bind (("C-?" . undo-tree-undo)
82ff3214 1075 ("M-_" . undo-tree-redo))
180cab37
AB
1076 :config
1077 (global-undo-tree-mode)
bffae347
AB
1078 (setq undo-tree-mode-lighter ""
1079 undo-tree-auto-save-history t))
180cab37
AB
1080#+end_src
1081
54512e45
AB
1082* Editing
1083
1084** Company
1085
1086#+begin_src emacs-lisp
1087(use-package company
ce842fdf 1088 :defer 2
54512e45
AB
1089 :bind
1090 (:map company-active-map
42da5dd2
AB
1091 ([tab] . company-complete-common-or-cycle)
1092 ([escape] . company-abort))
54512e45
AB
1093 :custom
1094 (company-idle-delay 0.3)
1095 (company-minimum-prefix-length 1)
1096 (company-selection-wrap-around t)
1097 (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
94a3349d
AB
1098 (company-dabbrev-downcase nil)
1099 (company-dabbrev-ignore-case nil)
54512e45
AB
1100 :config
1101 (global-company-mode t))
1102#+end_src
1103
284bbe78
AB
1104* Syntax and spell checking
1105#+begin_src emacs-lisp
1106(use-package flycheck
ce842fdf 1107 :defer 3
284bbe78 1108 :hook (prog-mode . flycheck-mode)
3ffa4732
AB
1109 :bind
1110 (:map flycheck-mode-map
1111 ("M-P" . flycheck-previous-error)
1112 ("M-N" . flycheck-next-error))
284bbe78
AB
1113 :config
1114 ;; Use the load-path from running Emacs when checking elisp files
1115 (setq flycheck-emacs-lisp-load-path 'inherit)
1116
1117 ;; Only flycheck when I actually save the buffer
1118 (setq flycheck-check-syntax-automatically '(mode-enabled save)))
46467dc3
AB
1119
1120;; http://endlessparentheses.com/ispell-and-apostrophes.html
1121(use-package ispell
ce842fdf 1122 :defer 3
46467dc3
AB
1123 :config
1124 ;; ’ can be part of a word
1125 (setq ispell-local-dictionary-alist
1126 `((nil "[[:alpha:]]" "[^[:alpha:]]"
1127 "['\x2019]" nil ("-B") nil utf-8)))
1128 ;; don't send ’ to the subprocess
1129 (defun endless/replace-apostrophe (args)
1130 (cons (replace-regexp-in-string
1131 "’" "'" (car args))
1132 (cdr args)))
1133 (advice-add #'ispell-send-string :filter-args
1134 #'endless/replace-apostrophe)
1135
1136 ;; convert ' back to ’ from the subprocess
1137 (defun endless/replace-quote (args)
1138 (if (not (derived-mode-p 'org-mode))
1139 args
1140 (cons (replace-regexp-in-string
1141 "'" "’" (car args))
1142 (cdr args))))
1143 (advice-add #'ispell-parse-output :filter-args
1144 #'endless/replace-quote))
284bbe78 1145#+end_src
3f0f8d01
AB
1146* Programming modes
1147
d43a8eda 1148** [[http://alloytools.org][Alloy]] (with [[https://github.com/dwwmmn/alloy-mode][alloy-mode]])
221cdaa3
AB
1149
1150#+begin_src emacs-lisp
fad62af5 1151(use-package alloy-mode
ce842fdf 1152 :defer t
fad62af5 1153 :config (setq alloy-basic-offset 2))
221cdaa3
AB
1154#+end_src
1155
d43a8eda 1156** [[https://coq.inria.fr][Coq]] (with [[https://github.com/ProofGeneral/PG][Proof General]])
695170a4
AB
1157
1158#+begin_src emacs-lisp
1159(use-package proof-site ; Proof General
ce842fdf 1160 :defer t
695170a4
AB
1161 :load-path "lib/proof-site/generic/")
1162#+end_src
1163
d43a8eda 1164** [[https://leanprover.github.io][Lean]] (with [[https://github.com/leanprover/lean-mode][lean-mode]])
3f0f8d01
AB
1165
1166#+begin_src emacs-lisp
56fd2611 1167(eval-when-compile (defvar lean-mode-map))
e9bcfa30 1168(use-package lean-mode
f97a01bd 1169 :defer 1
e9bcfa30 1170 :bind (:map lean-mode-map
2e7aa30f
AB
1171 ("S-SPC" . company-complete))
1172 :config
1173 (require 'lean-input)
e44b9b7e
AB
1174 (setq default-input-method "Lean"
1175 lean-input-tweak-all '(lean-input-compose
1176 (lean-input-prepend "/")
1177 (lean-input-nonempty))
1178 lean-input-user-translations '(("/" "/")))
1179 (lean-input-setup))
2e7aa30f 1180 #+end_src
3f0f8d01 1181
36fca309
AB
1182** Haskell
1183
1184*** [[https://github.com/haskell/haskell-mode][haskell-mode]]
a81db923
AB
1185
1186#+begin_src emacs-lisp
1187(use-package haskell-mode
ce842fdf 1188 :defer t
a81db923
AB
1189 :config
1190 (setq haskell-indentation-layout-offset 4
1191 haskell-indentation-left-offset 4
eb186a5a
AB
1192 flycheck-checker 'haskell-hlint
1193 flycheck-disabled-checkers '(haskell-stack-ghc haskell-ghc)))
a81db923 1194#+end_src
36fca309 1195
eba52b9c
AB
1196*** [[https://github.com/jyp/dante][dante]]
1197
1198#+begin_src emacs-lisp
1199(use-package dante
1200 :after haskell-mode
1201 :commands dante-mode
1202 :hook (haskell-mode . dante-mode))
1203#+end_src
1204
36fca309
AB
1205*** [[https://github.com/mpickering/hlint-refactor-mode][hlint-refactor]]
1206
1207Emacs bindings for [[https://github.com/ndmitchell/hlint][hlint]]'s refactor option. This requires the refact
1208executable from [[https://github.com/mpickering/apply-refact][apply-refact]].
1209
1210#+begin_src emacs-lisp
1211(use-package hlint-refactor
ce842fdf 1212 :after haskell-mode
36fca309 1213 :bind (:map hlint-refactor-mode-map
eb186a5a
AB
1214 ("C-c l b" . hlint-refactor-refactor-buffer)
1215 ("C-c l r" . hlint-refactor-refactor-at-point))
36fca309
AB
1216 :hook (haskell-mode . hlint-refactor-mode))
1217#+end_src
1218
f76bdaa8
AB
1219*** [[https://github.com/flycheck/flycheck-haskell][flycheck-haskell]]
1220
1221#+begin_src emacs-lisp
ce842fdf
AB
1222(use-package flycheck-haskell
1223 :after haskell-mode)
f76bdaa8
AB
1224#+end_src
1225
1226*** [[https://github.com/ndmitchell/hlint/blob/20e116a043f2073c57b17b24ae6364b5e433ba7e/data/hs-lint.el][hs-lint.el]]
1227:PROPERTIES:
1228:header-args+: :tangle lisp/hs-lint.el :mkdirp yes
1229:END:
1230
1231Currently using =flycheck-haskell= with the =haskell-hlint= checker
1232instead.
1233
1234#+begin_src emacs-lisp :tangle no
1235;;; hs-lint.el --- minor mode for HLint code checking
1236
1237;; Copyright 2009 (C) Alex Ott
1238;;
1239;; Author: Alex Ott <alexott@gmail.com>
1240;; Keywords: haskell, lint, HLint
1241;; Requirements:
1242;; Status: distributed under terms of GPL2 or above
1243
1244;; Typical message from HLint looks like:
1245;;
1246;; /Users/ott/projects/lang-exp/haskell/test.hs:52:1: Eta reduce
1247;; Found:
1248;; count1 p l = length (filter p l)
1249;; Why not:
1250;; count1 p = length . filter p
1251
1252
1253(require 'compile)
1254
1255(defgroup hs-lint nil
1256 "Run HLint as inferior of Emacs, parse error messages."
1257 :group 'tools
1258 :group 'haskell)
1259
1260(defcustom hs-lint-command "hlint"
1261 "The default hs-lint command for \\[hlint]."
1262 :type 'string
1263 :group 'hs-lint)
1264
1265(defcustom hs-lint-save-files t
1266 "Save modified files when run HLint or no (ask user)"
1267 :type 'boolean
1268 :group 'hs-lint)
1269
1270(defcustom hs-lint-replace-with-suggestions nil
1271 "Replace user's code with suggested replacements"
1272 :type 'boolean
1273 :group 'hs-lint)
1274
1275(defcustom hs-lint-replace-without-ask nil
1276 "Replace user's code with suggested replacements automatically"
1277 :type 'boolean
1278 :group 'hs-lint)
1279
1280(defun hs-lint-process-setup ()
1281 "Setup compilation variables and buffer for `hlint'."
1282 (run-hooks 'hs-lint-setup-hook))
1283
1284;; regex for replace suggestions
1285;;
1286;; ^\(.*?\):\([0-9]+\):\([0-9]+\): .*
1287;; Found:
1288;; \s +\(.*\)
1289;; Why not:
1290;; \s +\(.*\)
1291
1292(defvar hs-lint-regex
1293 "^\\(.*?\\):\\([0-9]+\\):\\([0-9]+\\): .*[\n\C-m]Found:[\n\C-m]\\s +\\(.*\\)[\n\C-m]Why not:[\n\C-m]\\s +\\(.*\\)[\n\C-m]"
1294 "Regex for HLint messages")
1295
1296(defun make-short-string (str maxlen)
1297 (if (< (length str) maxlen)
1298 str
1299 (concat (substring str 0 (- maxlen 3)) "...")))
1300
1301(defun hs-lint-replace-suggestions ()
1302 "Perform actual replacement of suggestions"
1303 (goto-char (point-min))
1304 (while (re-search-forward hs-lint-regex nil t)
1305 (let* ((fname (match-string 1))
1306 (fline (string-to-number (match-string 2)))
1307 (old-code (match-string 4))
1308 (new-code (match-string 5))
1309 (msg (concat "Replace '" (make-short-string old-code 30)
1310 "' with '" (make-short-string new-code 30) "'"))
1311 (bline 0)
1312 (eline 0)
1313 (spos 0)
1314 (new-old-code ""))
1315 (save-excursion
1316 (switch-to-buffer (get-file-buffer fname))
eb186a5a
AB
1317 (goto-char (point-min))
1318 (forward-line (1- fline))
f76bdaa8
AB
1319 (beginning-of-line)
1320 (setf bline (point))
1321 (when (or hs-lint-replace-without-ask
1322 (yes-or-no-p msg))
1323 (end-of-line)
1324 (setf eline (point))
1325 (beginning-of-line)
1326 (setf old-code (regexp-quote old-code))
1327 (while (string-match "\\\\ " old-code spos)
1328 (setf new-old-code (concat new-old-code
1329 (substring old-code spos (match-beginning 0))
1330 "\\ *"))
1331 (setf spos (match-end 0)))
1332 (setf new-old-code (concat new-old-code (substring old-code spos)))
1333 (remove-text-properties bline eline '(composition nil))
1334 (when (re-search-forward new-old-code eline t)
1335 (replace-match new-code nil t)))))))
1336
1337(defun hs-lint-finish-hook (buf msg)
1338 "Function, that is executed at the end of HLint execution"
1339 (if hs-lint-replace-with-suggestions
1340 (hs-lint-replace-suggestions)
1341 (next-error 1 t)))
1342
1343(define-compilation-mode hs-lint-mode "HLint"
1344 "Mode for check Haskell source code."
1345 (set (make-local-variable 'compilation-process-setup-function)
1346 'hs-lint-process-setup)
1347 (set (make-local-variable 'compilation-disable-input) t)
1348 (set (make-local-variable 'compilation-scroll-output) nil)
1349 (set (make-local-variable 'compilation-finish-functions)
1350 (list 'hs-lint-finish-hook))
1351 )
1352
1353(defun hs-lint ()
1354 "Run HLint for current buffer with haskell source"
1355 (interactive)
1356 (save-some-buffers hs-lint-save-files)
1357 (compilation-start (concat hs-lint-command " \"" buffer-file-name "\"")
1358 'hs-lint-mode))
1359
1360(provide 'hs-lint)
1361;;; hs-lint.el ends here
1362#+end_src
1363
1364#+begin_src emacs-lisp :tangle no
1365(use-package hs-lint
1366 :load-path "lisp/"
1367 :bind (:map haskell-mode-map
1368 ("C-c l l" . hs-lint)))
1369#+end_src
d98421d5 1370
2090f409
AB
1371** Web dev
1372
1373*** SGML and HTML
d98421d5
AB
1374
1375#+begin_src emacs-lisp
1376(use-package sgml-mode
ce842fdf 1377 :defer t
d98421d5 1378 :config
2090f409 1379 (setq sgml-basic-offset 2))
d98421d5
AB
1380#+end_src
1381
2090f409
AB
1382*** CSS and SCSS
1383
1384#+begin_src emacs-lisp
1385(use-package css-mode
ce842fdf 1386 :defer t
2090f409
AB
1387 :config
1388 (setq css-indent-offset 2))
1389#+end_src
1390
1391*** Web mode
d98421d5
AB
1392
1393#+begin_src emacs-lisp
1394(use-package web-mode
ce842fdf 1395 :defer t
2090f409
AB
1396 :mode "\\.html\\'"
1397 :config
1398 (setq-every! 2
1399 web-mode-code-indent-offset
1400 web-mode-css-indent-offset
1401 web-mode-markup-indent-offset))
d98421d5
AB
1402#+end_src
1403
2090f409 1404*** Emmet mode
d98421d5
AB
1405
1406#+begin_src emacs-lisp
1407(use-package emmet-mode
ce842fdf 1408 :after (:any web-mode css-mode sgml-mode)
d98421d5
AB
1409 :bind* (("C-)" . emmet-next-edit-point)
1410 ("C-(" . emmet-prev-edit-point))
9be4b796
AB
1411 :config
1412 (unbind-key "C-j" emmet-mode-keymap)
d98421d5
AB
1413 (setq emmet-move-cursor-between-quotes t)
1414 :hook (web-mode css-mode html-mode sgml-mode))
1415#+end_src
1416
1c3eaf15
AB
1417** Nix
1418
1419#+begin_src emacs-lisp
1420(use-package nix-mode
ce842fdf 1421 :defer t
1c3eaf15
AB
1422 :mode "\\.nix\\'")
1423#+end_src
1424
d3ce3580
AB
1425** Java
1426
1427*** meghanada
1428
a9674790 1429#+begin_src emacs-lisp :tangle no
d3ce3580
AB
1430(use-package meghanada
1431 :bind
1432 (:map meghanada-mode-map
1433 (("C-M-o" . meghanada-optimize-import)
1434 ("C-M-t" . meghanada-import-all)))
1435 :hook (java-mode . meghanada-mode))
1436#+end_src
1437
1438*** lsp-java
1439
a9674790
AB
1440#+begin_comment
1441dependencies:
1442
1443ace-window
1444avy
1445bui
1446company-lsp
1447dap-mode
1448lsp-java
1449lsp-mode
1450lsp-ui
1451pfuture
1452tree-mode
1453treemacs
1454#+end_comment
1455
d3ce3580 1456#+begin_src emacs-lisp :tangle no
a9674790
AB
1457(use-package treemacs
1458 :config (setq treemacs-never-persist t))
d3ce3580
AB
1459
1460(use-package yasnippet
1461 :config
1462 ;; (yas-global-mode)
1463 )
1464
1465(use-package lsp-mode
1466 :init (setq lsp-eldoc-render-all nil
1467 lsp-highlight-symbol-at-point nil)
1468 )
1469
1470(use-package hydra)
1471
1472(use-package company-lsp
1473 :after company
1474 :config
1475 (setq company-lsp-cache-candidates t
1476 company-lsp-async t))
1477
1478(use-package lsp-ui
1479 :config
1480 (setq lsp-ui-sideline-update-mode 'point))
1481
1482(use-package lsp-java
1483 :config
1484 (add-hook 'java-mode-hook
1485 (lambda ()
1486 (setq-local company-backends (list 'company-lsp))))
1487
1488 (add-hook 'java-mode-hook 'lsp-java-enable)
1489 (add-hook 'java-mode-hook 'flycheck-mode)
1490 (add-hook 'java-mode-hook 'company-mode)
1491 (add-hook 'java-mode-hook 'lsp-ui-mode))
1492
1493(use-package dap-mode
1494 :after lsp-mode
1495 :config
1496 (dap-mode t)
1497 (dap-ui-mode t))
1498
1499(use-package dap-java
1500 :after (lsp-java))
1501
1502(use-package lsp-java-treemacs
1503 :after (treemacs))
1504#+end_src
1505
0deee788
AB
1506* Emacs Enhancements
1507
1508** [[https://github.com/justbur/emacs-which-key][which-key]]
1509
1510#+begin_quote
1511Emacs package that displays available keybindings in popup
1512#+end_quote
1513
1514#+begin_src emacs-lisp
1515(use-package which-key
1516 :defer 1
1517 :config (which-key-mode))
1518#+end_src
75095920 1519
0f3b91c1 1520** [[https://github.com/Malabarba/smart-mode-line][smart-mode-line]]
75095920
AB
1521
1522#+begin_src emacs-lisp
0f3b91c1
AB
1523(use-package smart-mode-line
1524 :config
1525 (sml/setup)
1526 ;; (sml/apply-theme 'light)
1527 (remove-hook 'display-time-hook 'sml/propertize-time-string))
fdcac86a
AB
1528#+end_src
1529
bb93c9e1
AB
1530** [[https://github.com/bbatsov/crux][crux]]
1531
1532#+begin_src emacs-lisp
1533(use-package crux
ce842fdf 1534 :defer 1
d14698a3
AB
1535 :bind (("C-c d" . crux-duplicate-current-line-or-region)
1536 ("C-c M-d" . crux-duplicate-and-comment-current-line-or-region)
06e16600 1537 ("C-c b K" . crux-kill-other-buffers)
ca2bcf5f 1538 ("C-c f C" . crux-copy-file-preserve-attributes)
06e16600 1539 ("C-c f D" . crux-delete-file-and-buffer)
ba8fa06b
AB
1540 ("C-c f R" . crux-rename-file-and-buffer)
1541 ("C-S-j" . crux-top-join-line)
1542 ("C-c j" . crux-top-join-line)))
bb93c9e1
AB
1543#+end_src
1544
1545** [[https://github.com/alezost/mwim.el][mwim]]
1546
1547#+begin_src emacs-lisp
1548(use-package mwim
1549 :bind (("C-a" . mwim-beginning-of-code-or-line)
1550 ("C-e" . mwim-end-of-code-or-line)
1551 ("<home>" . mwim-beginning-of-line-or-code)
d14698a3 1552 ("<end>" . mwim-end-of-line-or-code)))
f8869b0b
AB
1553#+end_src
1554
9b646b53
AB
1555** projectile
1556
1557#+begin_src emacs-lisp
1558(use-package projectile
ce842fdf 1559 :defer 2
9b646b53
AB
1560 :bind-keymap ("C-c p" . projectile-command-map)
1561 :config
47112ed3 1562 (projectile-mode)
9b646b53
AB
1563
1564 (defun my-projectile-invalidate-cache (&rest _args)
1565 ;; ignore the args to `magit-checkout'
1566 (projectile-invalidate-cache nil))
1567
1568 (eval-after-load 'magit-branch
1569 '(progn
1570 (advice-add 'magit-checkout
1571 :after #'my-projectile-invalidate-cache)
1572 (advice-add 'magit-branch-and-checkout
1573 :after #'my-projectile-invalidate-cache))))
1574#+end_src
1575
b36bd0dd
AB
1576** [[https://github.com/Wilfred/helpful][helpful]]
1577
1578#+begin_src emacs-lisp
1579(use-package helpful
ce842fdf 1580 :defer 1
b36bd0dd 1581 :bind
11c0d265
AB
1582 (;; ("C-h F" . helpful-function)
1583 ("C-h f" . helpful-callable)
b36bd0dd
AB
1584 ("C-h v" . helpful-variable)
1585 ("C-h k" . helpful-key)
1586 ("C-c C-d" . helpful-at-point)
11c0d265
AB
1587 ("C-h C" . helpful-command)
1588 ("C-h c" . describe-char)
1589 ("C-h F" . describe-face)))
1590
1591(use-package help
1592 :bind
1593 (("C-S-h f" . describe-function)
1594 ("C-S-h v" . describe-variable)
1595 ("C-S-h k" . describe-key)
1596 ("C-S-h C" . describe-coding-system)
1597 ("C-S-h c" . describe-key-briefly))
1598 :config (setq help-window-select t))
b36bd0dd
AB
1599#+end_src
1600
6ef44cb7
AB
1601** [[https://github.com/kyagi/shell-pop-el][shell-pop]]
1602
1603#+begin_src emacs-lisp
1604(use-package shell-pop
ce842fdf
AB
1605 :defer 1
1606 :init
1607 (setq shell-pop-universal-key "C-c e"
1608 shell-pop-shell-type '("eshell" "*eshell*" (lambda nil (eshell)))))
6ef44cb7
AB
1609#+end_src
1610
8bc647a7
AB
1611** [[https://github.com/EricCrosson/unkillable-scratch][unkillable-scratch]]
1612
1613Make =*scratch*= and =*Messages*= unkillable.
1614
1615#+begin_src emacs-lisp
1616(use-package unkillable-scratch
ce842fdf 1617 :defer 3
8bc647a7
AB
1618 :config
1619 (unkillable-scratch 1)
1620 :custom
1621 (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
1622#+end_src
1623
f20d6a60
AB
1624** [[https://github.com/davep/boxquote.el][boxquote.el]]
1625
1626#+begin_example
1627,----
1628| make pretty boxed quotes like this
1629`----
1630#+end_example
1631
1632#+begin_src emacs-lisp
1633(use-package boxquote
ce842fdf 1634 :defer 3
f20d6a60
AB
1635 :bind
1636 (:prefix-map amin--boxquote-prefix-map
1637 :prefix "C-c q"
1638 ("b" . boxquote-buffer)
1639 ("B" . boxquote-insert-buffer)
1640 ("d" . boxquote-defun)
1641 ("F" . boxquote-insert-file)
1642 ("hf" . boxquote-describe-function)
1643 ("hk" . boxquote-describe-key)
1644 ("hv" . boxquote-describe-variable)
1645 ("hw" . boxquote-where-is)
1646 ("k" . boxquote-kill)
1647 ("p" . boxquote-paragraph)
1648 ("q" . boxquote-boxquote)
1649 ("r" . boxquote-region)
1650 ("s" . boxquote-shell-command)
1651 ("t" . boxquote-text)
1652 ("T" . boxquote-title)
1653 ("u" . boxquote-unbox)
1654 ("U" . boxquote-unbox-region)
1655 ("y" . boxquote-yank)
1656 ("M-q" . boxquote-fill-paragraph)
1657 ("M-w" . boxquote-kill-ring-save)))
1658#+end_src
1659
1660Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
1661
0fbb9f4e
AB
1662** [[https://github.com/DarthFennec/highlight-indent-guides][highlight-indent-guides]]
1663
1664#+begin_src emacs-lisp
1665(use-package highlight-indent-guides
ce842fdf 1666 :defer 3
0fbb9f4e 1667 :hook ((prog-mode . highlight-indent-guides-mode)
97cf0fc4
AB
1668 ;; (org-mode . highlight-indent-guides-mode)
1669 )
0fbb9f4e
AB
1670 :config
1671 (setq highlight-indent-guides-character ?\|)
1672 (setq highlight-indent-guides-auto-enabled nil)
1673 (setq highlight-indent-guides-method 'character)
1674 (setq highlight-indent-guides-responsive 'top)
1675 (set-face-foreground 'highlight-indent-guides-character-face "gainsboro")
1676 (set-face-foreground 'highlight-indent-guides-top-character-face "grey40")) ; grey13 is nice too
1677#+end_src
1678
f811cdad
AB
1679** pdf-tools
1680
1681#+begin_src emacs-lisp
1682(use-package pdf-tools
ce842fdf 1683 :defer t
f811cdad 1684 :magic ("%PDF" . pdf-view-mode)
a25e5659
AB
1685 :config
1686 (setq pdf-view-resize-factor 1.05)
1687 (pdf-tools-install)
f811cdad
AB
1688 :bind
1689 (:map pdf-view-mode-map
1690 ("C-s" . isearch-forward)
1691 ("C-r" . isearch-backward)
1692 ("j" . pdf-view-next-line-or-next-page)
a25e5659
AB
1693 ("k" . pdf-view-previous-line-or-previous-page)
1694 ("h" . image-backward-hscroll)
1695 ("l" . image-forward-hscroll)))
f811cdad
AB
1696#+end_src
1697
1698** anzu
1699
1700#+begin_src emacs-lisp
1701(use-package anzu)
1702#+end_src
1703
46467dc3
AB
1704** typo.el
1705
1706#+begin_src emacs-lisp
1707(use-package typo
ce842fdf 1708 :defer 2
46467dc3
AB
1709 :config
1710 (typo-global-mode 1)
1711 :hook (text-mode . typo-mode))
1712#+end_src
1713
313f5877
AB
1714** slack
1715
1716Hopefully temporary.
1717
1718#+begin_src emacs-lisp
1719(use-package slack
1720 :commands (slack-start)
1721 :init
1722 (eval-when-compile ; silence the byte-compiler
1723 (defvar url-http-data nil)
1724 (defvar url-http-extra-headers nil)
1725 (defvar url-http-method nil)
1726 (defvar url-callback-function nil)
1727 (defvar url-callback-arguments nil)
1728 (defvar oauth--token-data nil))
1729 (setq slack-buffer-emojify t
1730 slack-prefer-current-team t)
1731 :config
1732 (slack-register-team
1733 :name "uw-apv"
1734 :default t
1735 :client-id uw-apv-client-id
1736 :client-secret uw-apv-client-secret
1737 :token uw-apv-token
1738 :subscribed-channels '(general)
1739 :full-and-display-names t)
1740 (slack-register-team
1741 :name "watform"
1742 :default nil
1743 :client-id watform-client-id
1744 :client-secret watform-client-secret
1745 :token watform-token
1746 :subscribed-channels '(general)
d851faed
AB
1747 :full-and-display-names t)
1748 (add-to-list 'swiper-font-lock-exclude 'slack-message-buffer-mode t)
313f5877
AB
1749 :bind
1750 (("C-c s s" . slack-start)
1751 ("C-c s u" . slack-select-unread-rooms)
1752 ("C-c s b" . slack-select-rooms)
1753 ("C-c s t" . slack-change-current-team)
1754 ("C-c s c" . slack-ws-close)
1755 :map slack-mode-map
3bb16326
AB
1756 ("M-p" . slack-buffer-goto-prev-message)
1757 ("M-n" . slack-buffer-goto-next-message)
313f5877
AB
1758 ("C-c e" . slack-message-edit)
1759 ("C-c k" . slack-message-delete)
1760 ("C-c C-k" . slack-channel-leave)
3bb16326
AB
1761 ("C-c r a" . slack-message-add-reaction)
1762 ("C-c r r" . slack-message-remove-reaction)
1763 ("C-c r s" . slack-message-show-reaction-users)
1764 ("C-c p l" . slack-room-pins-list)
1765 ("C-c p a" . slack-message-pins-add)
1766 ("C-c p r" . slack-message-pins-remove)
313f5877 1767 ("@" . slack-message-embed-mention)
d851faed 1768 ("#" . slack-message-embed-channel)))
313f5877
AB
1769
1770(use-package alert
1771 :commands (alert)
1772 :init
1773 (setq alert-default-style 'notifier))
1774#+end_src
1775
1a46b236
AB
1776** hl-todo
1777
1778#+begin_src emacs-lisp
1779(use-package hl-todo
1780 :defer 4
1781 :config
1782 (global-hl-todo-mode))
1783#+end_src
1784
51db62d8 1785* Email
9d5d55c5 1786
51db62d8 1787#+begin_src emacs-lisp
6c5b745f
AB
1788(defvar amin-maildir (expand-file-name "~/mail/"))
1789(after! recentf
1790 (add-to-list 'recentf-exclude amin-maildir))
1791#+end_src
51db62d8 1792
ea40ba6c
AB
1793** Gnus
1794
bc39c780 1795#+begin_src emacs-lisp
9ae707cc
AB
1796(setq
1797 amin-gnus-init-file (no-littering-expand-etc-file-name "gnus")
1798 mail-user-agent 'gnus-user-agent
1799 read-mail-command 'gnus)
ea40ba6c
AB
1800
1801(use-package gnus
9ae707cc
AB
1802 :bind (("s-m" . gnus)
1803 ("s-M" . gnus-unplugged))
ea40ba6c
AB
1804 :init
1805 (setq
9ae707cc
AB
1806 gnus-select-method '(nnnil "")
1807 gnus-secondary-select-methods
1808 '((nnimap "amin"
6b6a22a2
AB
1809 (nnimap-stream plain)
1810 (nnimap-address "127.0.0.1")
1811 (nnimap-server-port 143)
1812 (nnimap-authenticator plain)
1813 (nnimap-user "amin@aminb.org"))
9ae707cc 1814 (nnimap "uwaterloo"
6b6a22a2
AB
1815 (nnimap-stream plain)
1816 (nnimap-address "127.0.0.1")
1817 (nnimap-server-port 143)
1818 (nnimap-authenticator plain)
1819 (nnimap-user "abandali@uwaterloo.ca")))
1820 gnus-message-archive-group "nnimap:Sent"
1821 gnus-parameters
53b0be6b
AB
1822 '(("gnu.*"
1823 (gcc-self . t)))
1824 gnus-large-newsgroup 50
ea40ba6c 1825 gnus-home-directory (no-littering-expand-var-file-name "gnus/")
9ae707cc
AB
1826 gnus-directory (concat gnus-home-directory "news/")
1827 message-directory (concat gnus-home-directory "mail/")
1828 nndraft-directory (concat gnus-home-directory "drafts/")
ea40ba6c
AB
1829 gnus-save-newsrc-file nil
1830 gnus-read-newsrc-file nil
f7f392c7 1831 gnus-interactive-exit nil
ea40ba6c
AB
1832 gnus-gcc-mark-as-read t))
1833
f7f392c7
AB
1834(use-package gnus-art
1835 :config
1836 (setq
1837 gnus-visible-headers
5a343a21 1838 (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
f7f392c7
AB
1839 gnus-sorted-header-list
1840 '("^From:" "^Subject:" "^Summary:" "^Keywords:"
1841 "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator"
1842 "^Newsgroups:" "List-Id:" "^Organization:"
5a343a21 1843 "^User-Agent:" "^Date:")
f7f392c7
AB
1844 ;; local-lapsed article dates
1845 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
1846 gnus-article-date-headers '(user-defined)
1847 gnus-article-time-format
1848 (lambda (time)
1849 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
1850 (local (article-make-date-line date 'local))
1851 (combined-lapsed (article-make-date-line date
1852 'combined-lapsed))
1853 (lapsed (progn
1854 (string-match " (.+" combined-lapsed)
1855 (match-string 0 combined-lapsed))))
4cf3b363
AB
1856 (concat local lapsed))))
1857 (bind-keys
1858 :map gnus-article-mode-map
3e70dc4a
AB
1859 ("r" . gnus-article-reply-with-original)
1860 ("R" . gnus-article-wide-reply-with-original)
1861 ("M-L" . org-store-link)))
f7f392c7
AB
1862
1863(use-package gnus-sum
4cf3b363
AB
1864 :bind (:map gnus-summary-mode-map
1865 :prefix-map amin--gnus-summary-prefix-map
1866 :prefix "v"
1867 ("r" . gnus-summary-reply)
1868 ("w" . gnus-summary-wide-reply)
1869 ("v" . gnus-summary-show-raw-article))
f7f392c7 1870 :config
4cf3b363
AB
1871 (bind-keys
1872 :map gnus-summary-mode-map
3e70dc4a
AB
1873 ("r" . gnus-summary-reply-with-original)
1874 ("R" . gnus-summary-wide-reply-with-original)
1875 ("M-L" . org-store-link)))
f7f392c7 1876
ef8a092b
AB
1877(use-package gnus-msg
1878 :config
1879 (setq gnus-posting-styles
1880 '((".*"
1881 (address "amin@aminb.org"))
1882 ("gnu.*"
1883 (address "bandali@gnu.org"))
1884 ("nnimap\\+uwaterloo:.*"
1885 (address "abandali@uwaterloo.ca")
1886 (gcc "\"nnimap+uwaterloo:Sent Items\"")))))
1887
9ae707cc 1888(use-package gnus-topic
bc39c780 1889 :hook (gnus-group-mode . gnus-topic-mode))
4cf3b363 1890
9ae707cc
AB
1891(use-package gnus-agent
1892 :config
1893 (setq gnus-agent-synchronize-flags 'ask)
1894 :hook (gnus-group-mode . gnus-agent-mode))
1895
c2f9e851
AB
1896(use-package gnus-group
1897 :config
1898 (setq gnus-permanently-visible-groups "\\((INBOX\\|gnu$\\)"))
9ae707cc 1899
ea40ba6c
AB
1900(use-package mm-decode
1901 :config
1902 (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
1903#+end_src
1904
6c5b745f
AB
1905** sendmail
1906
1907#+begin_src emacs-lisp
51db62d8 1908(use-package sendmail
51db62d8
AB
1909 :config
1910 (setq sendmail-program "/usr/bin/msmtp"
6c5b745f 1911 ;; message-sendmail-extra-arguments '("-v" "-d")
51db62d8
AB
1912 mail-specify-envelope-from t
1913 mail-envelope-from 'header))
6c5b745f
AB
1914#+end_src
1915
1916** message
51db62d8 1917
6c5b745f 1918#+begin_src emacs-lisp
51db62d8 1919(use-package message
51db62d8
AB
1920 :config
1921 (setq message-kill-buffer-on-exit t
1922 message-send-mail-function 'message-send-mail-with-sendmail
1923 message-sendmail-envelope-from 'header
9ae707cc
AB
1924 message-dont-reply-to-names
1925 "\\(\\(.*@aminb\\.org\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
41a4f26a 1926 message-user-fqdn "aminb.org")
9ae707cc
AB
1927 :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
1928 (message-mode . flyspell-mode)
1929 (message-mode . (lambda () (setq fill-column 65
1930 message-fill-column 65))))
1278d522 1931 :custom-face
9ae707cc
AB
1932 (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
1933 (message-header-to ((t (:foreground "#111" :weight normal))))
1934 (message-header-cc ((t (:foreground "#333" :weight normal)))))
51db62d8
AB
1935
1936(after! mml-sec
1937 (setq mml-secure-openpgp-encrypt-to-self t
1938 mml-secure-openpgp-sign-with-sender t))
6c5b745f 1939#+end_src
51db62d8 1940
ca2bcf5f
AB
1941** footnote
1942
1943Convenient footnotes in =message-mode=.
1944
1945#+begin_src emacs-lisp
1946(use-package footnote
1947 :after message
1948 :bind
1949 (:map message-mode-map
1950 :prefix-map amin--footnote-prefix-map
1951 :prefix "C-c f"
1952 ("a" . footnote-add-footnote)
1953 ("b" . footnote-back-to-message)
1954 ("c" . footnote-cycle-style)
1955 ("d" . footnote-delete-footnote)
1956 ("g" . footnote-goto-footnote)
1957 ("r" . footnote-renumber-footnotes)
1958 ("s" . footnote-set-style))
1959 :config
1960 (setq footnote-start-tag ""
1961 footnote-end-tag ""
1962 footnote-style 'unicode))
1963#+end_src
1964
6b6a22a2
AB
1965** supercite
1966
1967#+begin_src emacs-lisp :tangle no
1968(use-package supercite
1969 :commands sc-cite-original
1970 :init
1971 (add-hook 'mail-citation-hook 'sc-cite-original)
1972
1973 (defun sc-remove-existing-signature ()
1974 (save-excursion
1975 (goto-char (region-beginning))
1976 (when (re-search-forward message-signature-separator (region-end) t)
1977 (delete-region (match-beginning 0) (region-end)))))
1978
1979 (add-hook 'mail-citation-hook 'sc-remove-existing-signature)
1980
1981 (defun sc-remove-if-not-mailing-list ()
1982 (unless (assoc "list-id" sc-mail-info)
1983 (setq attribution sc-default-attribution
1984 citation (concat sc-citation-delimiter
1985 sc-citation-separator))))
1986
1987 (add-hook 'sc-attribs-postselect-hook 'sc-remove-if-not-mailing-list)
1988
1989 :config
1990 (defun sc-fill-if-different (&optional prefix)
1991 "Fill the region bounded by `sc-fill-begin' and point.
1992Only fill if optional PREFIX is different than
1993`sc-fill-line-prefix'. If `sc-auto-fill-region-p' is nil, do not
1994fill region. If PREFIX is not supplied, initialize fill
1995variables. This is useful for a regi `begin' frame-entry."
1996 (if (not prefix)
1997 (setq sc-fill-line-prefix ""
1998 sc-fill-begin (line-beginning-position))
1999 (if (and sc-auto-fill-region-p
2000 (not (string= prefix sc-fill-line-prefix)))
2001 (let ((fill-prefix sc-fill-line-prefix))
2002 (unless (or (string= fill-prefix "")
2003 (save-excursion
2004 (goto-char sc-fill-begin)
2005 (or (looking-at ">+ +")
2006 (< (length
2007 (buffer-substring (point)
2008 (line-end-position)))
2009 65))))
2010 (fill-region sc-fill-begin (line-beginning-position)))
2011 (setq sc-fill-line-prefix prefix
2012 sc-fill-begin (line-beginning-position)))))
2013nil))
2014#+end_src
2015
ef8a092b
AB
2016** COMMENT gnus-alias :ARCHIVE:
2017
2018#+begin_src emacs-lisp
2019(use-package gnus-alias
2020 :commands (gnus-alias-determine-identity
2021 gnus-alias-select-identity)
2022 :bind (:map message-mode-map
2023 ("s-i" . gnus-alias-select-identity))
2024 :config
2025 (setq
2026 gnus-alias-default-identity "amin"
2027 gnus-alias-identity-alist
2028 '(("amin"
2029 nil ;; Does not refer to any other identity
2030 "Amin Bandali <amin@aminb.org>"
2031 nil ;; Organization
2032 nil ;; extra headers
2033 nil ;; extra body text
2034 nil) ;; signature file
2035 ("gnu"
2036 nil
2037 "Amin Bandali <bandali@gnu.org>"
2038 nil
2039 nil
2040 nil
2041 nil)
2042 ("uw"
2043 nil
2044 "Amin Bandali <abandali@uwaterloo.ca>"
2045 nil
2046 (("Gcc" . "\"nnimap+uwaterloo:Sent Items\""))
2047 nil
2048 nil))
2049 gnus-alias-identity-rules
2050 '(("amin" ("Delivered-To" "<amin\\@aminb\\.org" both) "amin")
2051 ("gnu" ("Delivered-To" "<gnu\\@aminb\\.org" both) "gnu")
2052 ("uw" ("any" "<\\(.+\\)\\@uwaterloo\\.ca" both) "uw"))
2053 gnus-alias-override-user-mail-address t)
2054 :hook (message-setup . gnus-alias-determine-identity))
2055#+end_src
2056
6b6a22a2 2057** COMMENT [[https://notmuchmail.org][notmuch]] :ARCHIVE:
6c5b745f
AB
2058
2059See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
2060
6b6a22a2 2061#+begin_src emacs-lisp
6f4c133d
AB
2062(defun amin/notmuch ()
2063 "Delete other windows, then launch `notmuch'."
a4a4b14a
AB
2064 (interactive
2065 (when (equal current-prefix-arg nil)
2066 (delete-other-windows)))
6f4c133d
AB
2067 (notmuch))
2068
51db62d8 2069(use-package notmuch
6f4c133d 2070 :commands notmuch
6c5b745f 2071 :bind ("C-c n" . amin/notmuch)
47112ed3 2072 :custom (notmuch-always-prompt-for-sender t)
51db62d8
AB
2073 :config
2074 (setq notmuch-hello-sections
2075 '(notmuch-hello-insert-header
2076 notmuch-hello-insert-saved-searches
2077 ;; notmuch-hello-insert-search
2078 notmuch-hello-insert-alltags)
2079 notmuch-search-oldest-first nil
2080 notmuch-show-all-tags-list t
9d5d55c5
AB
2081 notmuch-message-headers ; see bug follow-up above
2082 '("Subject" "To" "Cc" "Date" "List-Id" "X-RT-Originator")
51db62d8
AB
2083 notmuch-hello-thousands-separator ","
2084 notmuch-fcc-dirs
1e340324 2085 '(("amin@aminb.org" . "amin/Sent")
05675ca4 2086 ("bandali@gnu.org" . "gnu/Sent")
1e340324
AB
2087 ("abandali@uwaterloo.ca" . "\"uwaterloo/Sent Items\"")
2088 ("mab@gnu.org" . "gnu/Sent")
05675ca4 2089 ("amin@gnu.org" . "gnu/Sent")
1e340324
AB
2090 ("aminb@gnu.org" . "gnu/Sent")
2091 (".*" . "sent"))
f4636d6b 2092 notmuch-search-result-format
1e340324
AB
2093 '(("date" . "%12s ")
2094 ("count" . "%-7s ")
f4636d6b
AB
2095 ("authors" . "%-40s ")
2096 ("subject" . "%s ")
1e340324
AB
2097 ("tags" . "(%s)"))
2098 notmuch-saved-searches
2099 '((:name "inbox" :query "tag:inbox" :key "i")
2100 (:name "unread" :query "tag:unread" :key "u")
2101 (:name "latest" :query "tag:latest" :key "l")
2102 (:name "encrypted" :query "tag:encrypted" :key "e")
2103 (:name "flagged" :query "tag:flagged" :key "f")
2104 (:name "sent" :query "tag:sent" :key "s")
2105 (:name "drafts" :query "tag:draft" :key "d")
2106 (:name "all mail" :query "*" :key "a")))
51db62d8
AB
2107 ;; (add-hook 'visual-fill-column-mode-hook
2108 ;; (lambda ()
2109 ;; (when (string= major-mode 'notmuch-message-mode)
2110 ;; (setq visual-fill-column-width 70))))
2111 ;; (set! :evil-state 'notmuch-message-mode 'insert)
2112 ;; (advice-add #'notmuch-bury-or-kill-this-buffer
2113 ;; :override #'kill-this-buffer)
1278d522 2114 :hook (notmuch-message-mode . doom-modeline-set-special-modeline)
51db62d8 2115 :bind
56fd2611
AB
2116 (:map notmuch-hello-mode-map
2117 ("u" . (lambda ()
2118 "Search for `unread'-tagged messages"
2119 (interactive)
2120 (notmuch-hello-search "tag:unread")))
2121 ("i" . (lambda ()
2122 "Search for `inbox'-tagged messages"
2123 (interactive)
2124 (notmuch-hello-search "tag:inbox")))
2125 ("l" . (lambda ()
2126 "Search for `latest'-tagged messages"
2127 (interactive)
2128 (notmuch-hello-search "tag:latest")))
2129 ("e" . (lambda ()
2130 "Search for `encrypted'-tagged messages"
2131 (interactive)
2132 (notmuch-hello-search "tag:encrypted"))))
51db62d8 2133 (:map notmuch-search-mode-map
eb186a5a
AB
2134 ("k" . (lambda ()
2135 "Mark message read"
2136 (interactive)
2137 (notmuch-search-tag '("-unread"))
2138 ;; (notmuch-search-archive-thread)
2139 (notmuch-search-next-thread)))
2140 ("u" . (lambda ()
2141 "Mark message unread"
2142 (interactive)
2143 (notmuch-search-tag '("+unread"))
2144 (notmuch-search-next-thread)))
2145 ("K" . (lambda ()
2146 "Mark message deleted"
2147 (interactive)
2148 (notmuch-search-tag '("-unread" "-inbox" "+deleted"))
56fd2611 2149 (notmuch-search-next-thread)))
eb186a5a
AB
2150 ("S" . (lambda ()
2151 "Mark message as spam"
2152 (interactive)
2153 (notmuch-search-tag '("-unread" "-inbox" "-webmasters" "+spam"))
56fd2611
AB
2154 (notmuch-search-next-thread))))
2155 (:map notmuch-tree-mode-map
2156 ("k" . (lambda ()
2157 "Mark message read"
2158 (interactive)
2159 (notmuch-tree-tag '("-unread"))
2160 ;; (notmuch-tree-archive-thread)
2161 (notmuch-tree-next-message)))
2162 ("u" . (lambda ()
2163 "Mark message unread"
2164 (interactive)
2165 (notmuch-tree-tag '("+unread"))
2166 (notmuch-tree-next-message)))
2167 ("K" . (lambda ()
2168 "Mark message deleted"
2169 (interactive)
2170 (notmuch-tree-tag '("-unread" "-inbox" "+deleted"))
2171 (notmuch-tree-next-message)))
eb186a5a
AB
2172 ("S" . (lambda ()
2173 "Mark message as spam"
2174 (interactive)
2175 (notmuch-tree-tag '("-unread" "-inbox" "-webmasters" "+spam"))
1278d522
AB
2176 (notmuch-tree-next-message))))
2177 :custom-face
2178 (notmuch-search-unread-face ((t (:weight semi-bold))))
2179 (notmuch-tag-face ((t (:foreground "navy blue" :weight semi-bold)))))
51db62d8 2180
6f4c133d 2181(use-package counsel-notmuch
06e16600 2182 :bind ("C-c s m" . counsel-notmuch))
51db62d8
AB
2183
2184(after! notmuch-crypto
2185 (setq notmuch-crypto-process-mime t))
26172d91 2186
6b6a22a2
AB
2187(use-package org-notmuch
2188 :after (:any org notmuch))
26172d91
AB
2189#+end_src
2190
97934ec4
AB
2191* Blogging
2192** [[https://ox-hugo.scripter.co][ox-hugo]]
2193
2194#+begin_src emacs-lisp
2195(use-package ox-hugo
2196 :after ox)
4e88d051
AB
2197
2198(use-package ox-hugo-auto-export
2199 :load-path "lib/ox-hugo")
97934ec4
AB
2200#+end_src
2201
180cab37
AB
2202* Post initialization
2203:PROPERTIES:
967b0a82 2204:CUSTOM_ID: post-initialization
180cab37
AB
2205:END:
2206
2207Display how long it took to load the init file.
2208
2209#+begin_src emacs-lisp
2210(message "Loading %s...done (%.3fs)" user-init-file
2211 (float-time (time-subtract (current-time)
850dd012 2212 amin--before-user-init-time)))
180cab37
AB
2213#+end_src
2214
2215* Footer
2216:PROPERTIES:
2217:CUSTOM_ID: footer
2218:END:
2219
2220#+begin_src emacs-lisp :comments none
2221;;; init.el ends here
2222#+end_src
eb689aa4
AB
2223
2224* COMMENT Local Variables :ARCHIVE:
2225# Local Variables:
2226# eval: (add-hook 'after-save-hook #'amin/async-babel-tangle 'append 'local)
2227# End: