[emacs/org] have `C-c C-, L' insert an emacs-lisp src block
[~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
e27e0383 358** COMMENT Server
180cab37
AB
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
e27e0383 374** COMMENT Unicode support
e9bcfa30
AB
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)
39ecbcc0 711 (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
3e70dc4a 712 :bind (:map org-mode-map ("M-L" . org-insert-last-stored-link))
bdf99c0d
AB
713 :hook ((org-mode . org-indent-mode)
714 (org-mode . auto-fill-mode)
715 (org-mode . flyspell-mode))
3e7e82b4
AB
716 :custom
717 (org-latex-packages-alist '(("" "listings") ("" "color"))))
718
719(use-package ox-latex
ce842fdf 720 :after ox
3e7e82b4 721 :config
3bb16326
AB
722 (setq org-latex-listings 'listings
723 ;; org-latex-prefer-user-labels t
724 )
3e7e82b4
AB
725 (add-to-list 'org-latex-packages-alist '("" "listings"))
726 (add-to-list 'org-latex-packages-alist '("" "color"))
727 (add-to-list 'org-latex-classes
728 '("IEEEtran" "\\documentclass[11pt]{IEEEtran}"
729 ("\\section{%s}" . "\\section*{%s}")
730 ("\\subsection{%s}" . "\\subsection*{%s}")
731 ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
732 ("\\paragraph{%s}" . "\\paragraph*{%s}")
733 ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
734 t))
6578a877 735
ce842fdf
AB
736(use-package ox-beamer
737 :after ox)
6bda705d 738
a4aa1167 739(use-package orgalist
ce842fdf 740 :after message
a4aa1167 741 :hook (message-mode . orgalist-mode))
180cab37
AB
742#+end_src
743
eb689aa4
AB
744**** asynchronous tangle
745
746=amin/async-babel-tangle= is a function closely inspired by [[https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles][dieggsy's
747d/async-babel-tangle]] which uses [[https://github.com/jwiegley/emacs-async][async]] to asynchronously tangle an org
748file.
749
750#+begin_src emacs-lisp
751(after! org
752 (defvar amin-show-async-tangle-results nil
753 "Keep *emacs* async buffers around for later inspection.")
754
755 (defvar amin-show-async-tangle-time nil
756 "Show the time spent tangling the file.")
757
b07c1cc4
AB
758 (defvar amin-async-tangle-post-compile "make ti"
759 "If non-nil, pass to `compile' after successful tangle.")
760
eb689aa4
AB
761 (defun amin/async-babel-tangle ()
762 "Tangle org file asynchronously."
763 (interactive)
764 (let* ((file-tangle-start-time (current-time))
765 (file (buffer-file-name))
766 (file-nodir (file-name-nondirectory file))
767 (async-quiet-switch "-q"))
768 (async-start
769 `(lambda ()
770 (require 'org)
771 (org-babel-tangle-file ,file))
772 (unless amin-show-async-tangle-results
773 `(lambda (result)
774 (if result
b07c1cc4
AB
775 (progn
776 (message "Tangled %s%s"
777 ,file-nodir
778 (if amin-show-async-tangle-time
779 (format " (%.3fs)"
780 (float-time (time-subtract (current-time)
781 ',file-tangle-start-time)))
782 ""))
783 (when amin-async-tangle-post-compile
784 (compile amin-async-tangle-post-compile)))
eb689aa4
AB
785 (message "Tangling %s failed" ,file-nodir))))))))
786
787(add-to-list
788 'safe-local-variable-values
789 '(eval add-hook 'after-save-hook #'amin/async-babel-tangle 'append 'local))
790#+end_src
791
180cab37
AB
792*** [[https://magit.vc/][Magit]]
793
794#+begin_quote
795It's Magit! A Git porcelain inside Emacs.
796#+end_quote
797
798Not just how I do git, but /the/ way to do git.
799
800#+begin_src emacs-lisp
801(use-package magit
ce842fdf 802 :defer 2
d14698a3 803 :bind
3c3055c7 804 (("s-g" . magit-status)
d14698a3 805 :prefix-map amin--magit-prefix-map
06e16600 806 :prefix "C-c g"
d14698a3
AB
807 ("SPC" . magit-status)
808 ("s" . magit-status)
809 ("S" . magit-status-prefix)
ac049f62 810 ("B" . magit-blame-addition)
d14698a3 811 ("C" . magit-clone)
ac049f62
AB
812 ("f" . magit-fetch-other)
813 ("F" . magit-pull-branch)
814 ("P" . magit-push-other)
06e16600 815 ("p" . magit-dispatch-popup)
ac049f62 816 ("c c" . magit-commit-create)
d14698a3
AB
817 ("c a" . magit-commit-amend)
818 ("b b" . magit-checkout)
ac049f62 819 ("b c" . magit-branch-create))
180cab37
AB
820 :config
821 (magit-add-section-hook 'magit-status-sections-hook
822 'magit-insert-modules
823 'magit-insert-stashes
1278d522
AB
824 'append)
825 :custom-face (magit-diff-file-heading ((t (:weight normal)))))
180cab37
AB
826#+end_src
827
828*** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
829
830#+begin_quote
831Ivy - a generic completion frontend for Emacs, Swiper - isearch with
832an overview, and more. Oh, man!
833#+end_quote
834
835There's no way I could top that, so I won't attempt to.
836
837**** Ivy
838
839#+begin_src emacs-lisp
f7752223 840(use-package ivy
3ea5e792 841 :defer 1
f7752223 842 :bind
06e16600 843 (("C-c b b" . ivy-switch-buffer)
d14698a3
AB
844 :map ivy-minibuffer-map
845 ([escape] . keyboard-escape-quit)
846 ([S-up] . ivy-previous-history-element)
847 ([S-down] . ivy-next-history-element)
848 ("DEL" . ivy-backward-delete-char))
f7752223 849 :config
f6d8e3e4 850 (setq ivy-wrap t)
1278d522
AB
851 (ivy-mode 1)
852 :custom-face
853 (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
854 (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
855 (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold)))))
180cab37
AB
856#+end_src
857
858**** Swiper
859
860#+begin_src emacs-lisp
f7752223 861(use-package swiper
f811cdad
AB
862 :bind (("C-s" . swiper)
863 ("C-r" . swiper)))
180cab37
AB
864#+end_src
865
866**** Counsel
867
868#+begin_src emacs-lisp
f7752223 869(use-package counsel
3d35bdff 870 :defer 1
f7752223 871 :bind (([remap execute-extended-command] . counsel-M-x)
d14698a3
AB
872 ([remap find-file] . counsel-find-file)
873 ("s-r" . counsel-recentf)
06e16600
AB
874 ("C-c x" . counsel-M-x)
875 ("C-c f ." . counsel-find-file)
f7752223 876 :map minibuffer-local-map
eb186a5a 877 ("C-r" . counsel-minibuffer-history))
f7752223
AB
878 :config
879 (counsel-mode 1)
880 (defalias 'locate #'counsel-locate))
180cab37
AB
881#+end_src
882
4d987946
AB
883*** eshell
884
885#+begin_src emacs-lisp
886(use-package eshell
ce842fdf 887 :defer t
4d987946
AB
888 :commands eshell
889 :config
890 (eval-when-compile (defvar eshell-prompt-regexp))
891 (defun amin/eshell-quit-or-delete-char (arg)
892 (interactive "p")
893 (if (and (eolp) (looking-back eshell-prompt-regexp nil))
894 (eshell-life-is-too-much)
895 (delete-char arg)))
896
a8702c03
AB
897 (defun amin/eshell-clear ()
898 (interactive)
899 (let ((inhibit-read-only t))
900 (erase-buffer))
901 (eshell-send-input))
902
4d987946
AB
903 (defun amin|eshell-setup ()
904 (bind-keys :map eshell-mode-map
a8702c03
AB
905 ("C-d" . amin/eshell-quit-or-delete-char)
906 ("C-l" . amin/eshell-clear)))
4d987946
AB
907
908 :hook (eshell-mode . amin|eshell-setup))
909#+end_src
910
4d86735a
AB
911*** Ibuffer
912
913#+begin_src emacs-lisp
914(use-package ibuffer
ce842fdf 915 :defer t
4d86735a
AB
916 :bind
917 (("C-x C-b" . ibuffer-other-window)
918 ("C-c b B" . ibuffer-other-window)
919 :map ibuffer-mode-map
920 ("P" . ibuffer-backward-filter-group)
921 ("N" . ibuffer-forward-filter-group)
922 ("M-p" . ibuffer-do-print)
923 ("M-n" . ibuffer-do-shell-command-pipe-replace))
924 :config
925 ;; Use human readable Size column instead of original one
926 (define-ibuffer-column size-h
927 (:name "Size" :inline t)
928 (cond
929 ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
930 ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
931 ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
932 (t (format "%8d" (buffer-size)))))
933 :custom
934 (ibuffer-saved-filter-groups
935 '(("default"
936 ("dired" (mode . dired-mode))
9e756a57 937 ("org" (mode . org-mode))
4d86735a
AB
938 ("web"
939 (or
940 (mode . web-mode)
746c8c1a
AB
941 (mode . css-mode)
942 (mode . scss-mode)
4d86735a
AB
943 (mode . js2-mode)))
944 ("shell"
945 (or
946 (mode . eshell-mode)
947 (mode . shell-mode)))
948 ("notmuch" (name . "\*notmuch\*"))
949 ("programming"
950 (or
951 (mode . python-mode)
952 (mode . c++-mode)
953 (mode . emacs-lisp-mode)))
954 ("emacs"
955 (or
956 (name . "^\\*scratch\\*$")
3bb16326
AB
957 (name . "^\\*Messages\\*$")))
958 ("slack"
959 (or
960 (name . "^\\*Slack*"))))))
4d86735a
AB
961 (ibuffer-formats
962 '((mark modified read-only locked " "
963 (name 18 18 :left :elide)
964 " "
965 (size-h 9 -1 :right)
966 " "
967 (mode 16 16 :left :elide)
968 " " filename-and-process)
969 (mark " "
970 (name 16 -1)
971 " " filename)))
972 :hook (ibuffer . (lambda () (ibuffer-switch-to-saved-filter-groups "default"))))
973#+end_src
974
458ff84b
AB
975*** Outline
976
977#+begin_src emacs-lisp
978(use-package outline
ce842fdf 979 :defer t
458ff84b
AB
980 :hook (prog-mode . outline-minor-mode)
981 :bind
982 (:map
983 outline-minor-mode-map
984 ("<s-tab>" . outline-toggle-children)
3ffa4732
AB
985 ("M-p" . outline-previous-visible-heading)
986 ("M-n" . outline-next-visible-heading)
458ff84b
AB
987 :prefix-map amin--outline-prefix-map
988 :prefix "s-o"
989 ("TAB" . outline-toggle-children)
990 ("a" . outline-hide-body)
991 ("H" . outline-hide-body)
992 ("S" . outline-show-all)
993 ("h" . outline-hide-subtree)
994 ("s" . outline-show-subtree)))
995#+end_src
996
180cab37
AB
997* Borg's =layer/essentials=
998
999TODO: break this giant source block down into individual org sections.
1000
1001#+begin_src emacs-lisp
1002(use-package dash
1003 :config (dash-enable-font-lock))
1004
1005(use-package diff-hl
1006 :config
1007 (setq diff-hl-draw-borders nil)
1008 (global-diff-hl-mode)
1009 (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh t))
1010
1011(use-package dired
1012 :defer t
1013 :config (setq dired-listing-switches "-alh"))
1014
1015(use-package eldoc
1016 :when (version< "25" emacs-version)
1017 :config (global-eldoc-mode))
1018
1019(use-package help
1020 :defer t
1021 :config (temp-buffer-resize-mode))
1022
1023(progn ; `isearch'
1024 (setq isearch-allow-scroll t))
1025
1026(use-package lisp-mode
1027 :config
1028 (add-hook 'emacs-lisp-mode-hook 'outline-minor-mode)
1029 (add-hook 'emacs-lisp-mode-hook 'reveal-mode)
1030 (defun indent-spaces-mode ()
1031 (setq indent-tabs-mode nil))
1032 (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
1033
1034(use-package man
1035 :defer t
1036 :config (setq Man-width 80))
1037
1038(use-package paren
1039 :config (show-paren-mode))
1040
1041(use-package prog-mode
1042 :config (global-prettify-symbols-mode)
1043 (defun indicate-buffer-boundaries-left ()
1044 (setq indicate-buffer-boundaries 'left))
1045 (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
1046
1047(use-package recentf
ce842fdf 1048 :defer 0.5
633de78a
AB
1049 :config
1050 (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
1051 (setq recentf-max-saved-items 40))
180cab37
AB
1052
1053(use-package savehist
1054 :config (savehist-mode))
1055
1056(use-package saveplace
1057 :when (version< "25" emacs-version)
1058 :config (save-place-mode))
1059
1060(use-package simple
1061 :config (column-number-mode))
1062
1063(progn ; `text-mode'
1064 (add-hook 'text-mode-hook #'indicate-buffer-boundaries-left))
1065
1066(use-package tramp
1067 :defer t
1068 :config
1069 (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
1070 (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
1071 (add-to-list 'tramp-default-proxies-alist
1072 (list (regexp-quote (system-name)) nil nil)))
1073
1074(use-package undo-tree
bffae347 1075 :bind (("C-?" . undo-tree-undo)
82ff3214 1076 ("M-_" . undo-tree-redo))
180cab37
AB
1077 :config
1078 (global-undo-tree-mode)
bffae347
AB
1079 (setq undo-tree-mode-lighter ""
1080 undo-tree-auto-save-history t))
180cab37
AB
1081#+end_src
1082
54512e45
AB
1083* Editing
1084
1085** Company
1086
1087#+begin_src emacs-lisp
1088(use-package company
ce842fdf 1089 :defer 2
54512e45
AB
1090 :bind
1091 (:map company-active-map
42da5dd2
AB
1092 ([tab] . company-complete-common-or-cycle)
1093 ([escape] . company-abort))
54512e45
AB
1094 :custom
1095 (company-idle-delay 0.3)
1096 (company-minimum-prefix-length 1)
1097 (company-selection-wrap-around t)
1098 (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
94a3349d
AB
1099 (company-dabbrev-downcase nil)
1100 (company-dabbrev-ignore-case nil)
54512e45
AB
1101 :config
1102 (global-company-mode t))
1103#+end_src
1104
284bbe78
AB
1105* Syntax and spell checking
1106#+begin_src emacs-lisp
1107(use-package flycheck
ce842fdf 1108 :defer 3
284bbe78 1109 :hook (prog-mode . flycheck-mode)
3ffa4732
AB
1110 :bind
1111 (:map flycheck-mode-map
1112 ("M-P" . flycheck-previous-error)
1113 ("M-N" . flycheck-next-error))
284bbe78
AB
1114 :config
1115 ;; Use the load-path from running Emacs when checking elisp files
1116 (setq flycheck-emacs-lisp-load-path 'inherit)
1117
1118 ;; Only flycheck when I actually save the buffer
1119 (setq flycheck-check-syntax-automatically '(mode-enabled save)))
46467dc3
AB
1120
1121;; http://endlessparentheses.com/ispell-and-apostrophes.html
1122(use-package ispell
ce842fdf 1123 :defer 3
46467dc3
AB
1124 :config
1125 ;; ’ can be part of a word
1126 (setq ispell-local-dictionary-alist
1127 `((nil "[[:alpha:]]" "[^[:alpha:]]"
1128 "['\x2019]" nil ("-B") nil utf-8)))
1129 ;; don't send ’ to the subprocess
1130 (defun endless/replace-apostrophe (args)
1131 (cons (replace-regexp-in-string
1132 "’" "'" (car args))
1133 (cdr args)))
1134 (advice-add #'ispell-send-string :filter-args
1135 #'endless/replace-apostrophe)
1136
1137 ;; convert ' back to ’ from the subprocess
1138 (defun endless/replace-quote (args)
1139 (if (not (derived-mode-p 'org-mode))
1140 args
1141 (cons (replace-regexp-in-string
1142 "'" "’" (car args))
1143 (cdr args))))
1144 (advice-add #'ispell-parse-output :filter-args
1145 #'endless/replace-quote))
284bbe78 1146#+end_src
3f0f8d01
AB
1147* Programming modes
1148
d43a8eda 1149** [[http://alloytools.org][Alloy]] (with [[https://github.com/dwwmmn/alloy-mode][alloy-mode]])
221cdaa3
AB
1150
1151#+begin_src emacs-lisp
fad62af5 1152(use-package alloy-mode
ce842fdf 1153 :defer t
fad62af5 1154 :config (setq alloy-basic-offset 2))
221cdaa3
AB
1155#+end_src
1156
d43a8eda 1157** [[https://coq.inria.fr][Coq]] (with [[https://github.com/ProofGeneral/PG][Proof General]])
695170a4
AB
1158
1159#+begin_src emacs-lisp
1160(use-package proof-site ; Proof General
ce842fdf 1161 :defer t
695170a4
AB
1162 :load-path "lib/proof-site/generic/")
1163#+end_src
1164
d43a8eda 1165** [[https://leanprover.github.io][Lean]] (with [[https://github.com/leanprover/lean-mode][lean-mode]])
3f0f8d01
AB
1166
1167#+begin_src emacs-lisp
56fd2611 1168(eval-when-compile (defvar lean-mode-map))
e9bcfa30 1169(use-package lean-mode
f97a01bd 1170 :defer 1
e9bcfa30 1171 :bind (:map lean-mode-map
2e7aa30f
AB
1172 ("S-SPC" . company-complete))
1173 :config
1174 (require 'lean-input)
e44b9b7e
AB
1175 (setq default-input-method "Lean"
1176 lean-input-tweak-all '(lean-input-compose
1177 (lean-input-prepend "/")
1178 (lean-input-nonempty))
1179 lean-input-user-translations '(("/" "/")))
1180 (lean-input-setup))
2e7aa30f 1181 #+end_src
3f0f8d01 1182
36fca309
AB
1183** Haskell
1184
1185*** [[https://github.com/haskell/haskell-mode][haskell-mode]]
a81db923
AB
1186
1187#+begin_src emacs-lisp
1188(use-package haskell-mode
ce842fdf 1189 :defer t
a81db923
AB
1190 :config
1191 (setq haskell-indentation-layout-offset 4
1192 haskell-indentation-left-offset 4
eb186a5a
AB
1193 flycheck-checker 'haskell-hlint
1194 flycheck-disabled-checkers '(haskell-stack-ghc haskell-ghc)))
a81db923 1195#+end_src
36fca309 1196
eba52b9c
AB
1197*** [[https://github.com/jyp/dante][dante]]
1198
1199#+begin_src emacs-lisp
1200(use-package dante
1201 :after haskell-mode
1202 :commands dante-mode
1203 :hook (haskell-mode . dante-mode))
1204#+end_src
1205
36fca309
AB
1206*** [[https://github.com/mpickering/hlint-refactor-mode][hlint-refactor]]
1207
1208Emacs bindings for [[https://github.com/ndmitchell/hlint][hlint]]'s refactor option. This requires the refact
1209executable from [[https://github.com/mpickering/apply-refact][apply-refact]].
1210
1211#+begin_src emacs-lisp
1212(use-package hlint-refactor
ce842fdf 1213 :after haskell-mode
36fca309 1214 :bind (:map hlint-refactor-mode-map
eb186a5a
AB
1215 ("C-c l b" . hlint-refactor-refactor-buffer)
1216 ("C-c l r" . hlint-refactor-refactor-at-point))
36fca309
AB
1217 :hook (haskell-mode . hlint-refactor-mode))
1218#+end_src
1219
f76bdaa8
AB
1220*** [[https://github.com/flycheck/flycheck-haskell][flycheck-haskell]]
1221
1222#+begin_src emacs-lisp
ce842fdf
AB
1223(use-package flycheck-haskell
1224 :after haskell-mode)
f76bdaa8
AB
1225#+end_src
1226
1227*** [[https://github.com/ndmitchell/hlint/blob/20e116a043f2073c57b17b24ae6364b5e433ba7e/data/hs-lint.el][hs-lint.el]]
1228:PROPERTIES:
1229:header-args+: :tangle lisp/hs-lint.el :mkdirp yes
1230:END:
1231
1232Currently using =flycheck-haskell= with the =haskell-hlint= checker
1233instead.
1234
1235#+begin_src emacs-lisp :tangle no
1236;;; hs-lint.el --- minor mode for HLint code checking
1237
1238;; Copyright 2009 (C) Alex Ott
1239;;
1240;; Author: Alex Ott <alexott@gmail.com>
1241;; Keywords: haskell, lint, HLint
1242;; Requirements:
1243;; Status: distributed under terms of GPL2 or above
1244
1245;; Typical message from HLint looks like:
1246;;
1247;; /Users/ott/projects/lang-exp/haskell/test.hs:52:1: Eta reduce
1248;; Found:
1249;; count1 p l = length (filter p l)
1250;; Why not:
1251;; count1 p = length . filter p
1252
1253
1254(require 'compile)
1255
1256(defgroup hs-lint nil
1257 "Run HLint as inferior of Emacs, parse error messages."
1258 :group 'tools
1259 :group 'haskell)
1260
1261(defcustom hs-lint-command "hlint"
1262 "The default hs-lint command for \\[hlint]."
1263 :type 'string
1264 :group 'hs-lint)
1265
1266(defcustom hs-lint-save-files t
1267 "Save modified files when run HLint or no (ask user)"
1268 :type 'boolean
1269 :group 'hs-lint)
1270
1271(defcustom hs-lint-replace-with-suggestions nil
1272 "Replace user's code with suggested replacements"
1273 :type 'boolean
1274 :group 'hs-lint)
1275
1276(defcustom hs-lint-replace-without-ask nil
1277 "Replace user's code with suggested replacements automatically"
1278 :type 'boolean
1279 :group 'hs-lint)
1280
1281(defun hs-lint-process-setup ()
1282 "Setup compilation variables and buffer for `hlint'."
1283 (run-hooks 'hs-lint-setup-hook))
1284
1285;; regex for replace suggestions
1286;;
1287;; ^\(.*?\):\([0-9]+\):\([0-9]+\): .*
1288;; Found:
1289;; \s +\(.*\)
1290;; Why not:
1291;; \s +\(.*\)
1292
1293(defvar hs-lint-regex
1294 "^\\(.*?\\):\\([0-9]+\\):\\([0-9]+\\): .*[\n\C-m]Found:[\n\C-m]\\s +\\(.*\\)[\n\C-m]Why not:[\n\C-m]\\s +\\(.*\\)[\n\C-m]"
1295 "Regex for HLint messages")
1296
1297(defun make-short-string (str maxlen)
1298 (if (< (length str) maxlen)
1299 str
1300 (concat (substring str 0 (- maxlen 3)) "...")))
1301
1302(defun hs-lint-replace-suggestions ()
1303 "Perform actual replacement of suggestions"
1304 (goto-char (point-min))
1305 (while (re-search-forward hs-lint-regex nil t)
1306 (let* ((fname (match-string 1))
1307 (fline (string-to-number (match-string 2)))
1308 (old-code (match-string 4))
1309 (new-code (match-string 5))
1310 (msg (concat "Replace '" (make-short-string old-code 30)
1311 "' with '" (make-short-string new-code 30) "'"))
1312 (bline 0)
1313 (eline 0)
1314 (spos 0)
1315 (new-old-code ""))
1316 (save-excursion
1317 (switch-to-buffer (get-file-buffer fname))
eb186a5a
AB
1318 (goto-char (point-min))
1319 (forward-line (1- fline))
f76bdaa8
AB
1320 (beginning-of-line)
1321 (setf bline (point))
1322 (when (or hs-lint-replace-without-ask
1323 (yes-or-no-p msg))
1324 (end-of-line)
1325 (setf eline (point))
1326 (beginning-of-line)
1327 (setf old-code (regexp-quote old-code))
1328 (while (string-match "\\\\ " old-code spos)
1329 (setf new-old-code (concat new-old-code
1330 (substring old-code spos (match-beginning 0))
1331 "\\ *"))
1332 (setf spos (match-end 0)))
1333 (setf new-old-code (concat new-old-code (substring old-code spos)))
1334 (remove-text-properties bline eline '(composition nil))
1335 (when (re-search-forward new-old-code eline t)
1336 (replace-match new-code nil t)))))))
1337
1338(defun hs-lint-finish-hook (buf msg)
1339 "Function, that is executed at the end of HLint execution"
1340 (if hs-lint-replace-with-suggestions
1341 (hs-lint-replace-suggestions)
1342 (next-error 1 t)))
1343
1344(define-compilation-mode hs-lint-mode "HLint"
1345 "Mode for check Haskell source code."
1346 (set (make-local-variable 'compilation-process-setup-function)
1347 'hs-lint-process-setup)
1348 (set (make-local-variable 'compilation-disable-input) t)
1349 (set (make-local-variable 'compilation-scroll-output) nil)
1350 (set (make-local-variable 'compilation-finish-functions)
1351 (list 'hs-lint-finish-hook))
1352 )
1353
1354(defun hs-lint ()
1355 "Run HLint for current buffer with haskell source"
1356 (interactive)
1357 (save-some-buffers hs-lint-save-files)
1358 (compilation-start (concat hs-lint-command " \"" buffer-file-name "\"")
1359 'hs-lint-mode))
1360
1361(provide 'hs-lint)
1362;;; hs-lint.el ends here
1363#+end_src
1364
1365#+begin_src emacs-lisp :tangle no
1366(use-package hs-lint
1367 :load-path "lisp/"
1368 :bind (:map haskell-mode-map
1369 ("C-c l l" . hs-lint)))
1370#+end_src
d98421d5 1371
2090f409
AB
1372** Web dev
1373
1374*** SGML and HTML
d98421d5
AB
1375
1376#+begin_src emacs-lisp
1377(use-package sgml-mode
ce842fdf 1378 :defer t
d98421d5 1379 :config
2090f409 1380 (setq sgml-basic-offset 2))
d98421d5
AB
1381#+end_src
1382
2090f409
AB
1383*** CSS and SCSS
1384
1385#+begin_src emacs-lisp
1386(use-package css-mode
ce842fdf 1387 :defer t
2090f409
AB
1388 :config
1389 (setq css-indent-offset 2))
1390#+end_src
1391
1392*** Web mode
d98421d5
AB
1393
1394#+begin_src emacs-lisp
1395(use-package web-mode
ce842fdf 1396 :defer t
2090f409
AB
1397 :mode "\\.html\\'"
1398 :config
1399 (setq-every! 2
1400 web-mode-code-indent-offset
1401 web-mode-css-indent-offset
1402 web-mode-markup-indent-offset))
d98421d5
AB
1403#+end_src
1404
2090f409 1405*** Emmet mode
d98421d5
AB
1406
1407#+begin_src emacs-lisp
1408(use-package emmet-mode
ce842fdf 1409 :after (:any web-mode css-mode sgml-mode)
d98421d5
AB
1410 :bind* (("C-)" . emmet-next-edit-point)
1411 ("C-(" . emmet-prev-edit-point))
9be4b796
AB
1412 :config
1413 (unbind-key "C-j" emmet-mode-keymap)
d98421d5
AB
1414 (setq emmet-move-cursor-between-quotes t)
1415 :hook (web-mode css-mode html-mode sgml-mode))
1416#+end_src
1417
1c3eaf15
AB
1418** Nix
1419
1420#+begin_src emacs-lisp
1421(use-package nix-mode
ce842fdf 1422 :defer t
1c3eaf15
AB
1423 :mode "\\.nix\\'")
1424#+end_src
1425
d3ce3580
AB
1426** Java
1427
1428*** meghanada
1429
a9674790 1430#+begin_src emacs-lisp :tangle no
d3ce3580
AB
1431(use-package meghanada
1432 :bind
1433 (:map meghanada-mode-map
1434 (("C-M-o" . meghanada-optimize-import)
1435 ("C-M-t" . meghanada-import-all)))
1436 :hook (java-mode . meghanada-mode))
1437#+end_src
1438
1439*** lsp-java
1440
a9674790
AB
1441#+begin_comment
1442dependencies:
1443
1444ace-window
1445avy
1446bui
1447company-lsp
1448dap-mode
1449lsp-java
1450lsp-mode
1451lsp-ui
1452pfuture
1453tree-mode
1454treemacs
1455#+end_comment
1456
d3ce3580 1457#+begin_src emacs-lisp :tangle no
a9674790
AB
1458(use-package treemacs
1459 :config (setq treemacs-never-persist t))
d3ce3580
AB
1460
1461(use-package yasnippet
1462 :config
1463 ;; (yas-global-mode)
1464 )
1465
1466(use-package lsp-mode
1467 :init (setq lsp-eldoc-render-all nil
1468 lsp-highlight-symbol-at-point nil)
1469 )
1470
1471(use-package hydra)
1472
1473(use-package company-lsp
1474 :after company
1475 :config
1476 (setq company-lsp-cache-candidates t
1477 company-lsp-async t))
1478
1479(use-package lsp-ui
1480 :config
1481 (setq lsp-ui-sideline-update-mode 'point))
1482
1483(use-package lsp-java
1484 :config
1485 (add-hook 'java-mode-hook
1486 (lambda ()
1487 (setq-local company-backends (list 'company-lsp))))
1488
1489 (add-hook 'java-mode-hook 'lsp-java-enable)
1490 (add-hook 'java-mode-hook 'flycheck-mode)
1491 (add-hook 'java-mode-hook 'company-mode)
1492 (add-hook 'java-mode-hook 'lsp-ui-mode))
1493
1494(use-package dap-mode
1495 :after lsp-mode
1496 :config
1497 (dap-mode t)
1498 (dap-ui-mode t))
1499
1500(use-package dap-java
1501 :after (lsp-java))
1502
1503(use-package lsp-java-treemacs
1504 :after (treemacs))
1505#+end_src
1506
0deee788
AB
1507* Emacs Enhancements
1508
1509** [[https://github.com/justbur/emacs-which-key][which-key]]
1510
1511#+begin_quote
1512Emacs package that displays available keybindings in popup
1513#+end_quote
1514
1515#+begin_src emacs-lisp
1516(use-package which-key
1517 :defer 1
1518 :config (which-key-mode))
1519#+end_src
75095920 1520
0f3b91c1 1521** [[https://github.com/Malabarba/smart-mode-line][smart-mode-line]]
75095920
AB
1522
1523#+begin_src emacs-lisp
0f3b91c1
AB
1524(use-package smart-mode-line
1525 :config
1526 (sml/setup)
1527 ;; (sml/apply-theme 'light)
1528 (remove-hook 'display-time-hook 'sml/propertize-time-string))
fdcac86a
AB
1529#+end_src
1530
bb93c9e1
AB
1531** [[https://github.com/bbatsov/crux][crux]]
1532
1533#+begin_src emacs-lisp
1534(use-package crux
ce842fdf 1535 :defer 1
d14698a3
AB
1536 :bind (("C-c d" . crux-duplicate-current-line-or-region)
1537 ("C-c M-d" . crux-duplicate-and-comment-current-line-or-region)
06e16600 1538 ("C-c b K" . crux-kill-other-buffers)
ca2bcf5f 1539 ("C-c f C" . crux-copy-file-preserve-attributes)
06e16600 1540 ("C-c f D" . crux-delete-file-and-buffer)
ba8fa06b
AB
1541 ("C-c f R" . crux-rename-file-and-buffer)
1542 ("C-S-j" . crux-top-join-line)
1543 ("C-c j" . crux-top-join-line)))
bb93c9e1
AB
1544#+end_src
1545
1546** [[https://github.com/alezost/mwim.el][mwim]]
1547
1548#+begin_src emacs-lisp
1549(use-package mwim
1550 :bind (("C-a" . mwim-beginning-of-code-or-line)
1551 ("C-e" . mwim-end-of-code-or-line)
1552 ("<home>" . mwim-beginning-of-line-or-code)
d14698a3 1553 ("<end>" . mwim-end-of-line-or-code)))
f8869b0b
AB
1554#+end_src
1555
9b646b53
AB
1556** projectile
1557
1558#+begin_src emacs-lisp
1559(use-package projectile
ce842fdf 1560 :defer 2
9b646b53
AB
1561 :bind-keymap ("C-c p" . projectile-command-map)
1562 :config
47112ed3 1563 (projectile-mode)
9b646b53
AB
1564
1565 (defun my-projectile-invalidate-cache (&rest _args)
1566 ;; ignore the args to `magit-checkout'
1567 (projectile-invalidate-cache nil))
1568
1569 (eval-after-load 'magit-branch
1570 '(progn
1571 (advice-add 'magit-checkout
1572 :after #'my-projectile-invalidate-cache)
1573 (advice-add 'magit-branch-and-checkout
1574 :after #'my-projectile-invalidate-cache))))
1575#+end_src
1576
b36bd0dd
AB
1577** [[https://github.com/Wilfred/helpful][helpful]]
1578
1579#+begin_src emacs-lisp
1580(use-package helpful
ce842fdf 1581 :defer 1
b36bd0dd 1582 :bind
11c0d265
AB
1583 (;; ("C-h F" . helpful-function)
1584 ("C-h f" . helpful-callable)
b36bd0dd
AB
1585 ("C-h v" . helpful-variable)
1586 ("C-h k" . helpful-key)
1587 ("C-c C-d" . helpful-at-point)
11c0d265
AB
1588 ("C-h C" . helpful-command)
1589 ("C-h c" . describe-char)
1590 ("C-h F" . describe-face)))
1591
1592(use-package help
1593 :bind
1594 (("C-S-h f" . describe-function)
1595 ("C-S-h v" . describe-variable)
1596 ("C-S-h k" . describe-key)
1597 ("C-S-h C" . describe-coding-system)
1598 ("C-S-h c" . describe-key-briefly))
1599 :config (setq help-window-select t))
b36bd0dd
AB
1600#+end_src
1601
6ef44cb7
AB
1602** [[https://github.com/kyagi/shell-pop-el][shell-pop]]
1603
1604#+begin_src emacs-lisp
1605(use-package shell-pop
ce842fdf
AB
1606 :defer 1
1607 :init
1608 (setq shell-pop-universal-key "C-c e"
1609 shell-pop-shell-type '("eshell" "*eshell*" (lambda nil (eshell)))))
6ef44cb7
AB
1610#+end_src
1611
8bc647a7
AB
1612** [[https://github.com/EricCrosson/unkillable-scratch][unkillable-scratch]]
1613
1614Make =*scratch*= and =*Messages*= unkillable.
1615
1616#+begin_src emacs-lisp
1617(use-package unkillable-scratch
ce842fdf 1618 :defer 3
8bc647a7
AB
1619 :config
1620 (unkillable-scratch 1)
1621 :custom
1622 (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
1623#+end_src
1624
f20d6a60
AB
1625** [[https://github.com/davep/boxquote.el][boxquote.el]]
1626
1627#+begin_example
1628,----
1629| make pretty boxed quotes like this
1630`----
1631#+end_example
1632
1633#+begin_src emacs-lisp
1634(use-package boxquote
ce842fdf 1635 :defer 3
f20d6a60
AB
1636 :bind
1637 (:prefix-map amin--boxquote-prefix-map
1638 :prefix "C-c q"
1639 ("b" . boxquote-buffer)
1640 ("B" . boxquote-insert-buffer)
1641 ("d" . boxquote-defun)
1642 ("F" . boxquote-insert-file)
1643 ("hf" . boxquote-describe-function)
1644 ("hk" . boxquote-describe-key)
1645 ("hv" . boxquote-describe-variable)
1646 ("hw" . boxquote-where-is)
1647 ("k" . boxquote-kill)
1648 ("p" . boxquote-paragraph)
1649 ("q" . boxquote-boxquote)
1650 ("r" . boxquote-region)
1651 ("s" . boxquote-shell-command)
1652 ("t" . boxquote-text)
1653 ("T" . boxquote-title)
1654 ("u" . boxquote-unbox)
1655 ("U" . boxquote-unbox-region)
1656 ("y" . boxquote-yank)
1657 ("M-q" . boxquote-fill-paragraph)
1658 ("M-w" . boxquote-kill-ring-save)))
1659#+end_src
1660
1661Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
1662
0fbb9f4e
AB
1663** [[https://github.com/DarthFennec/highlight-indent-guides][highlight-indent-guides]]
1664
1665#+begin_src emacs-lisp
1666(use-package highlight-indent-guides
ce842fdf 1667 :defer 3
0fbb9f4e 1668 :hook ((prog-mode . highlight-indent-guides-mode)
97cf0fc4
AB
1669 ;; (org-mode . highlight-indent-guides-mode)
1670 )
0fbb9f4e
AB
1671 :config
1672 (setq highlight-indent-guides-character ?\|)
1673 (setq highlight-indent-guides-auto-enabled nil)
1674 (setq highlight-indent-guides-method 'character)
1675 (setq highlight-indent-guides-responsive 'top)
1676 (set-face-foreground 'highlight-indent-guides-character-face "gainsboro")
1677 (set-face-foreground 'highlight-indent-guides-top-character-face "grey40")) ; grey13 is nice too
1678#+end_src
1679
f811cdad
AB
1680** pdf-tools
1681
1682#+begin_src emacs-lisp
1683(use-package pdf-tools
ce842fdf 1684 :defer t
f811cdad 1685 :magic ("%PDF" . pdf-view-mode)
a25e5659
AB
1686 :config
1687 (setq pdf-view-resize-factor 1.05)
1688 (pdf-tools-install)
f811cdad
AB
1689 :bind
1690 (:map pdf-view-mode-map
1691 ("C-s" . isearch-forward)
1692 ("C-r" . isearch-backward)
1693 ("j" . pdf-view-next-line-or-next-page)
a25e5659
AB
1694 ("k" . pdf-view-previous-line-or-previous-page)
1695 ("h" . image-backward-hscroll)
1696 ("l" . image-forward-hscroll)))
f811cdad
AB
1697#+end_src
1698
1699** anzu
1700
1701#+begin_src emacs-lisp
1702(use-package anzu)
1703#+end_src
1704
46467dc3
AB
1705** typo.el
1706
1707#+begin_src emacs-lisp
1708(use-package typo
ce842fdf 1709 :defer 2
46467dc3
AB
1710 :config
1711 (typo-global-mode 1)
1712 :hook (text-mode . typo-mode))
1713#+end_src
1714
313f5877
AB
1715** slack
1716
1717Hopefully temporary.
1718
1719#+begin_src emacs-lisp
1720(use-package slack
1721 :commands (slack-start)
1722 :init
1723 (eval-when-compile ; silence the byte-compiler
1724 (defvar url-http-data nil)
1725 (defvar url-http-extra-headers nil)
1726 (defvar url-http-method nil)
1727 (defvar url-callback-function nil)
1728 (defvar url-callback-arguments nil)
1729 (defvar oauth--token-data nil))
1730 (setq slack-buffer-emojify t
1731 slack-prefer-current-team t)
1732 :config
1733 (slack-register-team
1734 :name "uw-apv"
1735 :default t
1736 :client-id uw-apv-client-id
1737 :client-secret uw-apv-client-secret
1738 :token uw-apv-token
1739 :subscribed-channels '(general)
1740 :full-and-display-names t)
1741 (slack-register-team
1742 :name "watform"
1743 :default nil
1744 :client-id watform-client-id
1745 :client-secret watform-client-secret
1746 :token watform-token
1747 :subscribed-channels '(general)
d851faed
AB
1748 :full-and-display-names t)
1749 (add-to-list 'swiper-font-lock-exclude 'slack-message-buffer-mode t)
313f5877
AB
1750 :bind
1751 (("C-c s s" . slack-start)
1752 ("C-c s u" . slack-select-unread-rooms)
1753 ("C-c s b" . slack-select-rooms)
1754 ("C-c s t" . slack-change-current-team)
1755 ("C-c s c" . slack-ws-close)
1756 :map slack-mode-map
3bb16326
AB
1757 ("M-p" . slack-buffer-goto-prev-message)
1758 ("M-n" . slack-buffer-goto-next-message)
313f5877
AB
1759 ("C-c e" . slack-message-edit)
1760 ("C-c k" . slack-message-delete)
1761 ("C-c C-k" . slack-channel-leave)
3bb16326
AB
1762 ("C-c r a" . slack-message-add-reaction)
1763 ("C-c r r" . slack-message-remove-reaction)
1764 ("C-c r s" . slack-message-show-reaction-users)
1765 ("C-c p l" . slack-room-pins-list)
1766 ("C-c p a" . slack-message-pins-add)
1767 ("C-c p r" . slack-message-pins-remove)
313f5877 1768 ("@" . slack-message-embed-mention)
d851faed 1769 ("#" . slack-message-embed-channel)))
313f5877
AB
1770
1771(use-package alert
1772 :commands (alert)
1773 :init
1774 (setq alert-default-style 'notifier))
1775#+end_src
1776
1a46b236
AB
1777** hl-todo
1778
1779#+begin_src emacs-lisp
1780(use-package hl-todo
1781 :defer 4
1782 :config
1783 (global-hl-todo-mode))
1784#+end_src
1785
6827bbb0
AB
1786** shrink-path
1787
1788#+begin_src emacs-lisp
1789(use-package shrink-path
1790 :after eshell
1791 :config
1792 (setq eshell-prompt-regexp "\\(.*\n\\)*λ "
1793 eshell-prompt-function #'+eshell/prompt)
1794
1795 (defun +eshell/prompt ()
1796 (let ((base/dir (shrink-path-prompt default-directory)))
1797 (concat (propertize (car base/dir)
1798 'face 'font-lock-comment-face)
1799 (propertize (cdr base/dir)
1800 'face 'font-lock-constant-face)
1801 (propertize (+eshell--current-git-branch)
1802 'face 'font-lock-function-name-face)
1803 "\n"
1804 (propertize "λ" 'face 'eshell-prompt-face)
1805 ;; needed for the input text to not have prompt face
1806 (propertize " " 'face 'default))))
1807
1808 (defun +eshell--current-git-branch ()
1809 (let ((branch (car (loop for match in (split-string (shell-command-to-string "git branch") "\n")
1810 when (string-match "^\*" match)
1811 collect match))))
1812 (if (not (eq branch nil))
1813 (concat " " (substring branch 2))
1814 ""))))
1815#+end_src
1816
51db62d8 1817* Email
9d5d55c5 1818
51db62d8 1819#+begin_src emacs-lisp
6c5b745f
AB
1820(defvar amin-maildir (expand-file-name "~/mail/"))
1821(after! recentf
1822 (add-to-list 'recentf-exclude amin-maildir))
1823#+end_src
51db62d8 1824
ea40ba6c
AB
1825** Gnus
1826
bc39c780 1827#+begin_src emacs-lisp
9ae707cc
AB
1828(setq
1829 amin-gnus-init-file (no-littering-expand-etc-file-name "gnus")
1830 mail-user-agent 'gnus-user-agent
1831 read-mail-command 'gnus)
ea40ba6c
AB
1832
1833(use-package gnus
9ae707cc
AB
1834 :bind (("s-m" . gnus)
1835 ("s-M" . gnus-unplugged))
ea40ba6c
AB
1836 :init
1837 (setq
9ae707cc
AB
1838 gnus-select-method '(nnnil "")
1839 gnus-secondary-select-methods
1840 '((nnimap "amin"
6b6a22a2
AB
1841 (nnimap-stream plain)
1842 (nnimap-address "127.0.0.1")
1843 (nnimap-server-port 143)
1844 (nnimap-authenticator plain)
1845 (nnimap-user "amin@aminb.org"))
9ae707cc 1846 (nnimap "uwaterloo"
6b6a22a2
AB
1847 (nnimap-stream plain)
1848 (nnimap-address "127.0.0.1")
1849 (nnimap-server-port 143)
1850 (nnimap-authenticator plain)
1851 (nnimap-user "abandali@uwaterloo.ca")))
1852 gnus-message-archive-group "nnimap:Sent"
1853 gnus-parameters
53b0be6b
AB
1854 '(("gnu.*"
1855 (gcc-self . t)))
1856 gnus-large-newsgroup 50
ea40ba6c 1857 gnus-home-directory (no-littering-expand-var-file-name "gnus/")
9ae707cc
AB
1858 gnus-directory (concat gnus-home-directory "news/")
1859 message-directory (concat gnus-home-directory "mail/")
1860 nndraft-directory (concat gnus-home-directory "drafts/")
ea40ba6c
AB
1861 gnus-save-newsrc-file nil
1862 gnus-read-newsrc-file nil
f7f392c7 1863 gnus-interactive-exit nil
ea40ba6c
AB
1864 gnus-gcc-mark-as-read t))
1865
f7f392c7
AB
1866(use-package gnus-art
1867 :config
1868 (setq
1869 gnus-visible-headers
5a343a21 1870 (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
f7f392c7
AB
1871 gnus-sorted-header-list
1872 '("^From:" "^Subject:" "^Summary:" "^Keywords:"
1873 "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator"
1874 "^Newsgroups:" "List-Id:" "^Organization:"
5a343a21 1875 "^User-Agent:" "^Date:")
f7f392c7
AB
1876 ;; local-lapsed article dates
1877 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
1878 gnus-article-date-headers '(user-defined)
1879 gnus-article-time-format
1880 (lambda (time)
1881 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
1882 (local (article-make-date-line date 'local))
1883 (combined-lapsed (article-make-date-line date
1884 'combined-lapsed))
1885 (lapsed (progn
1886 (string-match " (.+" combined-lapsed)
1887 (match-string 0 combined-lapsed))))
4cf3b363
AB
1888 (concat local lapsed))))
1889 (bind-keys
1890 :map gnus-article-mode-map
3e70dc4a
AB
1891 ("r" . gnus-article-reply-with-original)
1892 ("R" . gnus-article-wide-reply-with-original)
1893 ("M-L" . org-store-link)))
f7f392c7
AB
1894
1895(use-package gnus-sum
4cf3b363
AB
1896 :bind (:map gnus-summary-mode-map
1897 :prefix-map amin--gnus-summary-prefix-map
1898 :prefix "v"
1899 ("r" . gnus-summary-reply)
1900 ("w" . gnus-summary-wide-reply)
1901 ("v" . gnus-summary-show-raw-article))
f7f392c7 1902 :config
4cf3b363
AB
1903 (bind-keys
1904 :map gnus-summary-mode-map
3e70dc4a
AB
1905 ("r" . gnus-summary-reply-with-original)
1906 ("R" . gnus-summary-wide-reply-with-original)
1907 ("M-L" . org-store-link)))
f7f392c7 1908
ef8a092b
AB
1909(use-package gnus-msg
1910 :config
1911 (setq gnus-posting-styles
1912 '((".*"
1913 (address "amin@aminb.org"))
1914 ("gnu.*"
1915 (address "bandali@gnu.org"))
1916 ("nnimap\\+uwaterloo:.*"
1917 (address "abandali@uwaterloo.ca")
1918 (gcc "\"nnimap+uwaterloo:Sent Items\"")))))
1919
9ae707cc 1920(use-package gnus-topic
bc39c780 1921 :hook (gnus-group-mode . gnus-topic-mode))
4cf3b363 1922
9ae707cc
AB
1923(use-package gnus-agent
1924 :config
1925 (setq gnus-agent-synchronize-flags 'ask)
1926 :hook (gnus-group-mode . gnus-agent-mode))
1927
c2f9e851
AB
1928(use-package gnus-group
1929 :config
1930 (setq gnus-permanently-visible-groups "\\((INBOX\\|gnu$\\)"))
9ae707cc 1931
ea40ba6c
AB
1932(use-package mm-decode
1933 :config
1934 (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
1935#+end_src
1936
6c5b745f
AB
1937** sendmail
1938
1939#+begin_src emacs-lisp
51db62d8 1940(use-package sendmail
51db62d8
AB
1941 :config
1942 (setq sendmail-program "/usr/bin/msmtp"
6c5b745f 1943 ;; message-sendmail-extra-arguments '("-v" "-d")
51db62d8
AB
1944 mail-specify-envelope-from t
1945 mail-envelope-from 'header))
6c5b745f
AB
1946#+end_src
1947
1948** message
51db62d8 1949
6c5b745f 1950#+begin_src emacs-lisp
51db62d8 1951(use-package message
51db62d8
AB
1952 :config
1953 (setq message-kill-buffer-on-exit t
1954 message-send-mail-function 'message-send-mail-with-sendmail
1955 message-sendmail-envelope-from 'header
9ae707cc
AB
1956 message-dont-reply-to-names
1957 "\\(\\(.*@aminb\\.org\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
41a4f26a 1958 message-user-fqdn "aminb.org")
9ae707cc
AB
1959 :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
1960 (message-mode . flyspell-mode)
1961 (message-mode . (lambda () (setq fill-column 65
1962 message-fill-column 65))))
1278d522 1963 :custom-face
9ae707cc
AB
1964 (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
1965 (message-header-to ((t (:foreground "#111" :weight normal))))
1966 (message-header-cc ((t (:foreground "#333" :weight normal)))))
51db62d8
AB
1967
1968(after! mml-sec
1969 (setq mml-secure-openpgp-encrypt-to-self t
1970 mml-secure-openpgp-sign-with-sender t))
6c5b745f 1971#+end_src
51db62d8 1972
ca2bcf5f
AB
1973** footnote
1974
1975Convenient footnotes in =message-mode=.
1976
1977#+begin_src emacs-lisp
1978(use-package footnote
1979 :after message
1980 :bind
1981 (:map message-mode-map
1982 :prefix-map amin--footnote-prefix-map
1983 :prefix "C-c f"
1984 ("a" . footnote-add-footnote)
1985 ("b" . footnote-back-to-message)
1986 ("c" . footnote-cycle-style)
1987 ("d" . footnote-delete-footnote)
1988 ("g" . footnote-goto-footnote)
1989 ("r" . footnote-renumber-footnotes)
1990 ("s" . footnote-set-style))
1991 :config
1992 (setq footnote-start-tag ""
1993 footnote-end-tag ""
1994 footnote-style 'unicode))
1995#+end_src
1996
6b6a22a2
AB
1997** supercite
1998
1999#+begin_src emacs-lisp :tangle no
2000(use-package supercite
2001 :commands sc-cite-original
2002 :init
2003 (add-hook 'mail-citation-hook 'sc-cite-original)
2004
2005 (defun sc-remove-existing-signature ()
2006 (save-excursion
2007 (goto-char (region-beginning))
2008 (when (re-search-forward message-signature-separator (region-end) t)
2009 (delete-region (match-beginning 0) (region-end)))))
2010
2011 (add-hook 'mail-citation-hook 'sc-remove-existing-signature)
2012
2013 (defun sc-remove-if-not-mailing-list ()
2014 (unless (assoc "list-id" sc-mail-info)
2015 (setq attribution sc-default-attribution
2016 citation (concat sc-citation-delimiter
2017 sc-citation-separator))))
2018
2019 (add-hook 'sc-attribs-postselect-hook 'sc-remove-if-not-mailing-list)
2020
2021 :config
2022 (defun sc-fill-if-different (&optional prefix)
2023 "Fill the region bounded by `sc-fill-begin' and point.
2024Only fill if optional PREFIX is different than
2025`sc-fill-line-prefix'. If `sc-auto-fill-region-p' is nil, do not
2026fill region. If PREFIX is not supplied, initialize fill
2027variables. This is useful for a regi `begin' frame-entry."
2028 (if (not prefix)
2029 (setq sc-fill-line-prefix ""
2030 sc-fill-begin (line-beginning-position))
2031 (if (and sc-auto-fill-region-p
2032 (not (string= prefix sc-fill-line-prefix)))
2033 (let ((fill-prefix sc-fill-line-prefix))
2034 (unless (or (string= fill-prefix "")
2035 (save-excursion
2036 (goto-char sc-fill-begin)
2037 (or (looking-at ">+ +")
2038 (< (length
2039 (buffer-substring (point)
2040 (line-end-position)))
2041 65))))
2042 (fill-region sc-fill-begin (line-beginning-position)))
2043 (setq sc-fill-line-prefix prefix
2044 sc-fill-begin (line-beginning-position)))))
2045nil))
2046#+end_src
2047
ef8a092b
AB
2048** COMMENT gnus-alias :ARCHIVE:
2049
2050#+begin_src emacs-lisp
2051(use-package gnus-alias
2052 :commands (gnus-alias-determine-identity
2053 gnus-alias-select-identity)
2054 :bind (:map message-mode-map
2055 ("s-i" . gnus-alias-select-identity))
2056 :config
2057 (setq
2058 gnus-alias-default-identity "amin"
2059 gnus-alias-identity-alist
2060 '(("amin"
2061 nil ;; Does not refer to any other identity
2062 "Amin Bandali <amin@aminb.org>"
2063 nil ;; Organization
2064 nil ;; extra headers
2065 nil ;; extra body text
2066 nil) ;; signature file
2067 ("gnu"
2068 nil
2069 "Amin Bandali <bandali@gnu.org>"
2070 nil
2071 nil
2072 nil
2073 nil)
2074 ("uw"
2075 nil
2076 "Amin Bandali <abandali@uwaterloo.ca>"
2077 nil
2078 (("Gcc" . "\"nnimap+uwaterloo:Sent Items\""))
2079 nil
2080 nil))
2081 gnus-alias-identity-rules
2082 '(("amin" ("Delivered-To" "<amin\\@aminb\\.org" both) "amin")
2083 ("gnu" ("Delivered-To" "<gnu\\@aminb\\.org" both) "gnu")
2084 ("uw" ("any" "<\\(.+\\)\\@uwaterloo\\.ca" both) "uw"))
2085 gnus-alias-override-user-mail-address t)
2086 :hook (message-setup . gnus-alias-determine-identity))
2087#+end_src
2088
6b6a22a2 2089** COMMENT [[https://notmuchmail.org][notmuch]] :ARCHIVE:
6c5b745f
AB
2090
2091See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
2092
6b6a22a2 2093#+begin_src emacs-lisp
6f4c133d
AB
2094(defun amin/notmuch ()
2095 "Delete other windows, then launch `notmuch'."
a4a4b14a
AB
2096 (interactive
2097 (when (equal current-prefix-arg nil)
2098 (delete-other-windows)))
6f4c133d
AB
2099 (notmuch))
2100
51db62d8 2101(use-package notmuch
6f4c133d 2102 :commands notmuch
6c5b745f 2103 :bind ("C-c n" . amin/notmuch)
47112ed3 2104 :custom (notmuch-always-prompt-for-sender t)
51db62d8
AB
2105 :config
2106 (setq notmuch-hello-sections
2107 '(notmuch-hello-insert-header
2108 notmuch-hello-insert-saved-searches
2109 ;; notmuch-hello-insert-search
2110 notmuch-hello-insert-alltags)
2111 notmuch-search-oldest-first nil
2112 notmuch-show-all-tags-list t
9d5d55c5
AB
2113 notmuch-message-headers ; see bug follow-up above
2114 '("Subject" "To" "Cc" "Date" "List-Id" "X-RT-Originator")
51db62d8
AB
2115 notmuch-hello-thousands-separator ","
2116 notmuch-fcc-dirs
1e340324 2117 '(("amin@aminb.org" . "amin/Sent")
05675ca4 2118 ("bandali@gnu.org" . "gnu/Sent")
1e340324
AB
2119 ("abandali@uwaterloo.ca" . "\"uwaterloo/Sent Items\"")
2120 ("mab@gnu.org" . "gnu/Sent")
05675ca4 2121 ("amin@gnu.org" . "gnu/Sent")
1e340324
AB
2122 ("aminb@gnu.org" . "gnu/Sent")
2123 (".*" . "sent"))
f4636d6b 2124 notmuch-search-result-format
1e340324
AB
2125 '(("date" . "%12s ")
2126 ("count" . "%-7s ")
f4636d6b
AB
2127 ("authors" . "%-40s ")
2128 ("subject" . "%s ")
1e340324
AB
2129 ("tags" . "(%s)"))
2130 notmuch-saved-searches
2131 '((:name "inbox" :query "tag:inbox" :key "i")
2132 (:name "unread" :query "tag:unread" :key "u")
2133 (:name "latest" :query "tag:latest" :key "l")
2134 (:name "encrypted" :query "tag:encrypted" :key "e")
2135 (:name "flagged" :query "tag:flagged" :key "f")
2136 (:name "sent" :query "tag:sent" :key "s")
2137 (:name "drafts" :query "tag:draft" :key "d")
2138 (:name "all mail" :query "*" :key "a")))
51db62d8
AB
2139 ;; (add-hook 'visual-fill-column-mode-hook
2140 ;; (lambda ()
2141 ;; (when (string= major-mode 'notmuch-message-mode)
2142 ;; (setq visual-fill-column-width 70))))
2143 ;; (set! :evil-state 'notmuch-message-mode 'insert)
2144 ;; (advice-add #'notmuch-bury-or-kill-this-buffer
2145 ;; :override #'kill-this-buffer)
1278d522 2146 :hook (notmuch-message-mode . doom-modeline-set-special-modeline)
51db62d8 2147 :bind
56fd2611
AB
2148 (:map notmuch-hello-mode-map
2149 ("u" . (lambda ()
2150 "Search for `unread'-tagged messages"
2151 (interactive)
2152 (notmuch-hello-search "tag:unread")))
2153 ("i" . (lambda ()
2154 "Search for `inbox'-tagged messages"
2155 (interactive)
2156 (notmuch-hello-search "tag:inbox")))
2157 ("l" . (lambda ()
2158 "Search for `latest'-tagged messages"
2159 (interactive)
2160 (notmuch-hello-search "tag:latest")))
2161 ("e" . (lambda ()
2162 "Search for `encrypted'-tagged messages"
2163 (interactive)
2164 (notmuch-hello-search "tag:encrypted"))))
51db62d8 2165 (:map notmuch-search-mode-map
eb186a5a
AB
2166 ("k" . (lambda ()
2167 "Mark message read"
2168 (interactive)
2169 (notmuch-search-tag '("-unread"))
2170 ;; (notmuch-search-archive-thread)
2171 (notmuch-search-next-thread)))
2172 ("u" . (lambda ()
2173 "Mark message unread"
2174 (interactive)
2175 (notmuch-search-tag '("+unread"))
2176 (notmuch-search-next-thread)))
2177 ("K" . (lambda ()
2178 "Mark message deleted"
2179 (interactive)
2180 (notmuch-search-tag '("-unread" "-inbox" "+deleted"))
56fd2611 2181 (notmuch-search-next-thread)))
eb186a5a
AB
2182 ("S" . (lambda ()
2183 "Mark message as spam"
2184 (interactive)
2185 (notmuch-search-tag '("-unread" "-inbox" "-webmasters" "+spam"))
56fd2611
AB
2186 (notmuch-search-next-thread))))
2187 (:map notmuch-tree-mode-map
2188 ("k" . (lambda ()
2189 "Mark message read"
2190 (interactive)
2191 (notmuch-tree-tag '("-unread"))
2192 ;; (notmuch-tree-archive-thread)
2193 (notmuch-tree-next-message)))
2194 ("u" . (lambda ()
2195 "Mark message unread"
2196 (interactive)
2197 (notmuch-tree-tag '("+unread"))
2198 (notmuch-tree-next-message)))
2199 ("K" . (lambda ()
2200 "Mark message deleted"
2201 (interactive)
2202 (notmuch-tree-tag '("-unread" "-inbox" "+deleted"))
2203 (notmuch-tree-next-message)))
eb186a5a
AB
2204 ("S" . (lambda ()
2205 "Mark message as spam"
2206 (interactive)
2207 (notmuch-tree-tag '("-unread" "-inbox" "-webmasters" "+spam"))
1278d522
AB
2208 (notmuch-tree-next-message))))
2209 :custom-face
2210 (notmuch-search-unread-face ((t (:weight semi-bold))))
2211 (notmuch-tag-face ((t (:foreground "navy blue" :weight semi-bold)))))
51db62d8 2212
6f4c133d 2213(use-package counsel-notmuch
06e16600 2214 :bind ("C-c s m" . counsel-notmuch))
51db62d8
AB
2215
2216(after! notmuch-crypto
2217 (setq notmuch-crypto-process-mime t))
26172d91 2218
6b6a22a2
AB
2219(use-package org-notmuch
2220 :after (:any org notmuch))
26172d91
AB
2221#+end_src
2222
97934ec4
AB
2223* Blogging
2224** [[https://ox-hugo.scripter.co][ox-hugo]]
2225
2226#+begin_src emacs-lisp
2227(use-package ox-hugo
2228 :after ox)
4e88d051
AB
2229
2230(use-package ox-hugo-auto-export
2231 :load-path "lib/ox-hugo")
97934ec4
AB
2232#+end_src
2233
180cab37
AB
2234* Post initialization
2235:PROPERTIES:
967b0a82 2236:CUSTOM_ID: post-initialization
180cab37
AB
2237:END:
2238
2239Display how long it took to load the init file.
2240
2241#+begin_src emacs-lisp
2242(message "Loading %s...done (%.3fs)" user-init-file
2243 (float-time (time-subtract (current-time)
850dd012 2244 amin--before-user-init-time)))
180cab37
AB
2245#+end_src
2246
2247* Footer
2248:PROPERTIES:
2249:CUSTOM_ID: footer
2250:END:
2251
2252#+begin_src emacs-lisp :comments none
2253;;; init.el ends here
2254#+end_src
eb689aa4
AB
2255
2256* COMMENT Local Variables :ARCHIVE:
2257# Local Variables:
2258# eval: (add-hook 'after-save-hook #'amin/async-babel-tangle 'append 'local)
2259# End: