[emacs] try out ebdb
[~bandali/configs] / init.org
... / ...
CommitLineData
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
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]]
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
37** Installation
38
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
43#+begin_src sh :tangle no
44git clone https://github.com/aminb/dotfiles ~/.emacs.d
45cd ~/.emacs.d
46make bootstrap-borg
47make bootstrap
48make build
49#+end_src
50
51* Contents :toc_1:noexport:
52
53- [[#about][About]]
54- [[#header][Header]]
55- [[#initial-setup][Initial setup]]
56- [[#core][Core]]
57- [[#post-initialization][Post initialization]]
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
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]].
109
110#+begin_src emacs-lisp :comments none
111;; Naming conventions:
112;;
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
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
139(defvar amin--before-user-init-time (current-time)
140 "Value of `current-time' when Emacs begins loading `user-init-file'.")
141(message "Loading Emacs...done (%.3fs)"
142 (float-time (time-subtract amin--before-user-init-time
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
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)
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 ()
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)))
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
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
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)
236
237;; (require 'borg-nix-shell)
238;; (setq borg-build-shell-command 'borg-nix-shell-build-command)
239
240(with-eval-after-load 'bind-key
241 (bind-keys
242 :package borg
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)))
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)
261(if nil ; set to t when need to debug init
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
282 :defer t
283 :bind
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)))
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
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
327** Secrets file
328
329#+begin_src emacs-lisp
330(load (no-littering-expand-etc-file-name "secrets"))
331#+end_src
332
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
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"))
348#+end_src
349
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
358** COMMENT 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
370 :defer 1
371 :config (or (server-running-p) (server-mode)))
372#+end_src
373
374** COMMENT Unicode support
375
376Font stack with better unicode support, around =Ubuntu Mono= and
377=Hack=.
378
379#+begin_src emacs-lisp :tangle no
380(dolist (ft (fontset-list))
381 (set-fontset-font
382 ft
383 'unicode
384 (font-spec :name "Source Code Pro" :size 14))
385 (set-fontset-font
386 ft
387 'unicode
388 (font-spec :name "DejaVu Sans Mono")
389 nil
390 'append)
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)
404 (set-fontset-font
405 ft
406 (cons ?Α ?ω)
407 (font-spec :name "DejaVu Sans Mono" :size 14)
408 nil
409 'prepend))
410#+end_src
411
412** Gentler font resizing
413
414#+begin_src emacs-lisp
415(setq text-scale-mode-step 1.05)
416#+end_src
417
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
428(defun amin-enlist (exp)
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))
438 (dolist (next (amin-enlist features))
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)
457 `(after! (:all ,@features) ,@body)))))
458#+end_src
459
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
469* Core
470:PROPERTIES:
471:CUSTOM_ID: core
472:END:
473
474** Defaults
475
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
482Note: using =i3status= on sway at the moment, so disabling this.
483
484#+begin_src emacs-lisp :tangle no
485(use-package time
486 :init
487 (setq display-time-default-load-average nil)
488 :config
489 (display-time-mode))
490
491(use-package battery
492 :config
493 (display-battery-mode))
494#+end_src
495
496*** Smaller fringe
497
498Might want to set the fringe to a smaller value, especially if using
499EXWM. I'm fine with the default for now.
500
501#+begin_src emacs-lisp
502;; (fringe-mode '(3 . 1))
503(fringe-mode nil)
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
602 version-control t
603 delete-old-versions t)
604#+end_src
605
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
625*** Winner mode
626
627Enable =winner-mode=.
628
629#+begin_src emacs-lisp
630(winner-mode 1)
631#+end_src
632
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
647** Bindings
648
649#+begin_src emacs-lisp
650(bind-keys
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)
655 ("C-c q q" . save-buffers-kill-terminal)
656
657 ("C-c F m" . make-frame-command)
658 ("C-c F d" . delete-frame)
659 ("C-c F D" . delete-other-frames)
660
661 ("s-c e b" . eval-buffer)
662 ("s-c e r" . eval-region)
663
664 ("s-p" . beginning-of-buffer)
665 ("s-n" . end-of-buffer))
666#+end_src
667
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
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)
688 (add-hook 'auto-compile-inhibit-compile-hook
689 'auto-compile-inhibit-compile-detached-git-head))
690#+end_src
691
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
703(use-package org
704 :defer 3
705 :config
706 (setq org-src-tab-acts-natively t
707 org-src-preserve-indentation nil
708 org-edit-src-content-indentation 0
709 org-email-link-description-format "Email %c: %s" ; %.30s
710 org-log-done 'time)
711 (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
712 :bind (:map org-mode-map ("M-L" . org-insert-last-stored-link))
713 :hook ((org-mode . org-indent-mode)
714 (org-mode . auto-fill-mode)
715 (org-mode . flyspell-mode))
716 :custom
717 (org-latex-packages-alist '(("" "listings") ("" "color"))))
718
719(use-package ox-latex
720 :after ox
721 :config
722 (setq org-latex-listings 'listings
723 ;; org-latex-prefer-user-labels t
724 )
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))
735
736(use-package ox-beamer
737 :after ox)
738
739(use-package orgalist
740 :after message
741 :hook (message-mode . orgalist-mode))
742#+end_src
743
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
758 (defvar amin-async-tangle-post-compile "make ti"
759 "If non-nil, pass to `compile' after successful tangle.")
760
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
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)))
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
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
802 :defer 2
803 :bind
804 (("s-g" . magit-status)
805 :prefix-map amin--magit-prefix-map
806 :prefix "C-c g"
807 ("SPC" . magit-status)
808 ("s" . magit-status)
809 ("S" . magit-status-prefix)
810 ("B" . magit-blame-addition)
811 ("C" . magit-clone)
812 ("f" . magit-fetch-other)
813 ("F" . magit-pull-branch)
814 ("P" . magit-push-other)
815 ("p" . magit-dispatch-popup)
816 ("c c" . magit-commit-create)
817 ("c a" . magit-commit-amend)
818 ("b b" . magit-checkout)
819 ("b c" . magit-branch-create))
820 :config
821 (magit-add-section-hook 'magit-status-sections-hook
822 'magit-insert-modules
823 'magit-insert-stashes
824 'append)
825 :custom-face (magit-diff-file-heading ((t (:weight normal)))))
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
840(use-package ivy
841 :defer 1
842 :bind
843 (("C-c b b" . ivy-switch-buffer)
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))
849 :config
850 (setq ivy-wrap t)
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)))))
856#+end_src
857
858**** Swiper
859
860#+begin_src emacs-lisp
861(use-package swiper
862 :bind (("C-s" . swiper)
863 ("C-r" . swiper)))
864#+end_src
865
866**** Counsel
867
868#+begin_src emacs-lisp
869(use-package counsel
870 :defer 1
871 :bind (([remap execute-extended-command] . counsel-M-x)
872 ([remap find-file] . counsel-find-file)
873 ("s-r" . counsel-recentf)
874 ("C-c x" . counsel-M-x)
875 ("C-c f ." . counsel-find-file)
876 :map minibuffer-local-map
877 ("C-r" . counsel-minibuffer-history))
878 :config
879 (counsel-mode 1)
880 (defalias 'locate #'counsel-locate))
881#+end_src
882
883*** eshell
884
885#+begin_src emacs-lisp
886(use-package eshell
887 :defer t
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
897 (defun amin/eshell-clear ()
898 (interactive)
899 (let ((inhibit-read-only t))
900 (erase-buffer))
901 (eshell-send-input))
902
903 (defun amin|eshell-setup ()
904 (bind-keys :map eshell-mode-map
905 ("C-d" . amin/eshell-quit-or-delete-char)
906 ("C-l" . amin/eshell-clear)))
907
908 :hook (eshell-mode . amin|eshell-setup))
909#+end_src
910
911*** Ibuffer
912
913#+begin_src emacs-lisp
914(use-package ibuffer
915 :defer t
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))
937 ("org" (mode . org-mode))
938 ("web"
939 (or
940 (mode . web-mode)
941 (mode . css-mode)
942 (mode . scss-mode)
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\\*$")
957 (name . "^\\*Messages\\*$")))
958 ("slack"
959 (or
960 (name . "^\\*Slack*"))))))
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
975*** Outline
976
977#+begin_src emacs-lisp
978(use-package outline
979 :defer t
980 :hook (prog-mode . outline-minor-mode)
981 :bind
982 (:map
983 outline-minor-mode-map
984 ("<s-tab>" . outline-toggle-children)
985 ("M-p" . outline-previous-visible-heading)
986 ("M-n" . outline-next-visible-heading)
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
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
1048 :defer 0.5
1049 :config
1050 (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
1051 (setq recentf-max-saved-items 40))
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
1075 :bind (("C-?" . undo-tree-undo)
1076 ("M-_" . undo-tree-redo))
1077 :config
1078 (global-undo-tree-mode)
1079 (setq undo-tree-mode-lighter ""
1080 undo-tree-auto-save-history t))
1081#+end_src
1082
1083* Editing
1084
1085** Company
1086
1087#+begin_src emacs-lisp
1088(use-package company
1089 :defer 2
1090 :bind
1091 (:map company-active-map
1092 ([tab] . company-complete-common-or-cycle)
1093 ([escape] . company-abort))
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_\\|[-_]")
1099 (company-dabbrev-downcase nil)
1100 (company-dabbrev-ignore-case nil)
1101 :config
1102 (global-company-mode t))
1103#+end_src
1104
1105* Syntax and spell checking
1106#+begin_src emacs-lisp
1107(use-package flycheck
1108 :defer 3
1109 :hook (prog-mode . flycheck-mode)
1110 :bind
1111 (:map flycheck-mode-map
1112 ("M-P" . flycheck-previous-error)
1113 ("M-N" . flycheck-next-error))
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)))
1120
1121;; http://endlessparentheses.com/ispell-and-apostrophes.html
1122(use-package ispell
1123 :defer 3
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))
1146#+end_src
1147* Programming modes
1148
1149** [[http://alloytools.org][Alloy]] (with [[https://github.com/dwwmmn/alloy-mode][alloy-mode]])
1150
1151#+begin_src emacs-lisp
1152(use-package alloy-mode
1153 :defer t
1154 :config (setq alloy-basic-offset 2))
1155#+end_src
1156
1157** [[https://coq.inria.fr][Coq]] (with [[https://github.com/ProofGeneral/PG][Proof General]])
1158
1159#+begin_src emacs-lisp
1160(use-package proof-site ; Proof General
1161 :defer t
1162 :load-path "lib/proof-site/generic/")
1163#+end_src
1164
1165** [[https://leanprover.github.io][Lean]] (with [[https://github.com/leanprover/lean-mode][lean-mode]])
1166
1167#+begin_src emacs-lisp
1168(eval-when-compile (defvar lean-mode-map))
1169(use-package lean-mode
1170 :defer 1
1171 :bind (:map lean-mode-map
1172 ("S-SPC" . company-complete))
1173 :config
1174 (require 'lean-input)
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))
1181 #+end_src
1182
1183** Haskell
1184
1185*** [[https://github.com/haskell/haskell-mode][haskell-mode]]
1186
1187#+begin_src emacs-lisp
1188(use-package haskell-mode
1189 :defer t
1190 :config
1191 (setq haskell-indentation-layout-offset 4
1192 haskell-indentation-left-offset 4
1193 flycheck-checker 'haskell-hlint
1194 flycheck-disabled-checkers '(haskell-stack-ghc haskell-ghc)))
1195#+end_src
1196
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
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
1213 :after haskell-mode
1214 :bind (:map hlint-refactor-mode-map
1215 ("C-c l b" . hlint-refactor-refactor-buffer)
1216 ("C-c l r" . hlint-refactor-refactor-at-point))
1217 :hook (haskell-mode . hlint-refactor-mode))
1218#+end_src
1219
1220*** [[https://github.com/flycheck/flycheck-haskell][flycheck-haskell]]
1221
1222#+begin_src emacs-lisp
1223(use-package flycheck-haskell
1224 :after haskell-mode)
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))
1318 (goto-char (point-min))
1319 (forward-line (1- fline))
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
1371
1372** Web dev
1373
1374*** SGML and HTML
1375
1376#+begin_src emacs-lisp
1377(use-package sgml-mode
1378 :defer t
1379 :config
1380 (setq sgml-basic-offset 2))
1381#+end_src
1382
1383*** CSS and SCSS
1384
1385#+begin_src emacs-lisp
1386(use-package css-mode
1387 :defer t
1388 :config
1389 (setq css-indent-offset 2))
1390#+end_src
1391
1392*** Web mode
1393
1394#+begin_src emacs-lisp
1395(use-package web-mode
1396 :defer t
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))
1403#+end_src
1404
1405*** Emmet mode
1406
1407#+begin_src emacs-lisp
1408(use-package emmet-mode
1409 :after (:any web-mode css-mode sgml-mode)
1410 :bind* (("C-)" . emmet-next-edit-point)
1411 ("C-(" . emmet-prev-edit-point))
1412 :config
1413 (unbind-key "C-j" emmet-mode-keymap)
1414 (setq emmet-move-cursor-between-quotes t)
1415 :hook (web-mode css-mode html-mode sgml-mode))
1416#+end_src
1417
1418** Nix
1419
1420#+begin_src emacs-lisp
1421(use-package nix-mode
1422 :defer t
1423 :mode "\\.nix\\'")
1424#+end_src
1425
1426** Java
1427
1428*** meghanada
1429
1430#+begin_src emacs-lisp :tangle no
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
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
1457#+begin_src emacs-lisp :tangle no
1458(use-package treemacs
1459 :config (setq treemacs-never-persist t))
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
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
1520
1521** [[https://github.com/Malabarba/smart-mode-line][smart-mode-line]]
1522
1523#+begin_src emacs-lisp
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))
1529#+end_src
1530
1531** [[https://github.com/bbatsov/crux][crux]]
1532
1533#+begin_src emacs-lisp
1534(use-package crux
1535 :defer 1
1536 :bind (("C-c d" . crux-duplicate-current-line-or-region)
1537 ("C-c M-d" . crux-duplicate-and-comment-current-line-or-region)
1538 ("C-c b K" . crux-kill-other-buffers)
1539 ("C-c f C" . crux-copy-file-preserve-attributes)
1540 ("C-c f D" . crux-delete-file-and-buffer)
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)))
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)
1553 ("<end>" . mwim-end-of-line-or-code)))
1554#+end_src
1555
1556** projectile
1557
1558#+begin_src emacs-lisp
1559(use-package projectile
1560 :defer 2
1561 :bind-keymap ("C-c p" . projectile-command-map)
1562 :config
1563 (projectile-mode)
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
1577** [[https://github.com/Wilfred/helpful][helpful]]
1578
1579#+begin_src emacs-lisp
1580(use-package helpful
1581 :defer 1
1582 :bind
1583 (;; ("C-h F" . helpful-function)
1584 ("C-h f" . helpful-callable)
1585 ("C-h v" . helpful-variable)
1586 ("C-h k" . helpful-key)
1587 ("C-c C-d" . helpful-at-point)
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))
1600#+end_src
1601
1602** [[https://github.com/kyagi/shell-pop-el][shell-pop]]
1603
1604#+begin_src emacs-lisp
1605(use-package shell-pop
1606 :defer 1
1607 :init
1608 (setq shell-pop-universal-key "C-c e"
1609 shell-pop-shell-type '("eshell" "*eshell*" (lambda nil (eshell)))))
1610#+end_src
1611
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
1618 :defer 3
1619 :config
1620 (unkillable-scratch 1)
1621 :custom
1622 (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
1623#+end_src
1624
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
1635 :defer 3
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
1663** COMMENT [[https://github.com/DarthFennec/highlight-indent-guides][highlight-indent-guides]] :ARCHIVE:
1664
1665#+begin_src emacs-lisp
1666(use-package highlight-indent-guides
1667 :defer 3
1668 :hook ((prog-mode . highlight-indent-guides-mode)
1669 ;; (org-mode . highlight-indent-guides-mode)
1670 )
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
1680** pdf-tools
1681
1682#+begin_src emacs-lisp
1683(use-package pdf-tools
1684 :defer t
1685 :magic ("%PDF" . pdf-view-mode)
1686 :config
1687 (setq pdf-view-resize-factor 1.05)
1688 (pdf-tools-install)
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)
1694 ("k" . pdf-view-previous-line-or-previous-page)
1695 ("h" . image-backward-hscroll)
1696 ("l" . image-forward-hscroll)))
1697#+end_src
1698
1699** anzu
1700
1701#+begin_src emacs-lisp
1702(use-package anzu)
1703#+end_src
1704
1705** typo.el
1706
1707#+begin_src emacs-lisp
1708(use-package typo
1709 :defer 2
1710 :config
1711 (typo-global-mode 1)
1712 :hook (text-mode . typo-mode))
1713#+end_src
1714
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)
1748 :full-and-display-names t)
1749 (add-to-list 'swiper-font-lock-exclude 'slack-message-buffer-mode t)
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
1757 ("M-p" . slack-buffer-goto-prev-message)
1758 ("M-n" . slack-buffer-goto-next-message)
1759 ("C-c e" . slack-message-edit)
1760 ("C-c k" . slack-message-delete)
1761 ("C-c C-k" . slack-channel-leave)
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)
1768 ("@" . slack-message-embed-mention)
1769 ("#" . slack-message-embed-channel)))
1770
1771(use-package alert
1772 :commands (alert)
1773 :init
1774 (setq alert-default-style 'notifier))
1775#+end_src
1776
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
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
1817** magithub
1818
1819For when I /have to/ use GH.
1820
1821#+begin_src emacs-lisp
1822(use-package magithub
1823 :after magit
1824 :config
1825 (magithub-feature-autoinject t)
1826 (setq magithub-clone-default-directory "~/src/git"))
1827#+end_src
1828
1829* Email
1830
1831#+begin_src emacs-lisp
1832(defvar amin-maildir (expand-file-name "~/mail/"))
1833(after! recentf
1834 (add-to-list 'recentf-exclude amin-maildir))
1835#+end_src
1836
1837** Gnus
1838
1839#+begin_src emacs-lisp
1840(setq
1841 amin-gnus-init-file (no-littering-expand-etc-file-name "gnus")
1842 mail-user-agent 'gnus-user-agent
1843 read-mail-command 'gnus)
1844
1845(use-package gnus
1846 :bind (("s-m" . gnus)
1847 ("s-M" . gnus-unplugged))
1848 :init
1849 (setq
1850 gnus-select-method '(nnnil "")
1851 gnus-secondary-select-methods
1852 '((nnimap "amin"
1853 (nnimap-stream plain)
1854 (nnimap-address "127.0.0.1")
1855 (nnimap-server-port 143)
1856 (nnimap-authenticator plain)
1857 (nnimap-user "amin@aminb.org"))
1858 (nnimap "uwaterloo"
1859 (nnimap-stream plain)
1860 (nnimap-address "127.0.0.1")
1861 (nnimap-server-port 143)
1862 (nnimap-authenticator plain)
1863 (nnimap-user "abandali@uwaterloo.ca")))
1864 gnus-message-archive-group "nnimap:Sent"
1865 gnus-parameters
1866 '(("gnu.*"
1867 (gcc-self . t)))
1868 gnus-large-newsgroup 50
1869 gnus-home-directory (no-littering-expand-var-file-name "gnus/")
1870 gnus-directory (concat gnus-home-directory "news/")
1871 message-directory (concat gnus-home-directory "mail/")
1872 nndraft-directory (concat gnus-home-directory "drafts/")
1873 gnus-save-newsrc-file nil
1874 gnus-read-newsrc-file nil
1875 gnus-interactive-exit nil
1876 gnus-gcc-mark-as-read t))
1877
1878(use-package gnus-art
1879 :config
1880 (setq
1881 gnus-visible-headers
1882 (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
1883 gnus-sorted-header-list
1884 '("^From:" "^Subject:" "^Summary:" "^Keywords:"
1885 "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator"
1886 "^Newsgroups:" "List-Id:" "^Organization:"
1887 "^User-Agent:" "^Date:")
1888 ;; local-lapsed article dates
1889 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
1890 gnus-article-date-headers '(user-defined)
1891 gnus-article-time-format
1892 (lambda (time)
1893 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
1894 (local (article-make-date-line date 'local))
1895 (combined-lapsed (article-make-date-line date
1896 'combined-lapsed))
1897 (lapsed (progn
1898 (string-match " (.+" combined-lapsed)
1899 (match-string 0 combined-lapsed))))
1900 (concat local lapsed))))
1901 (bind-keys
1902 :map gnus-article-mode-map
1903 ("r" . gnus-article-reply-with-original)
1904 ("R" . gnus-article-wide-reply-with-original)
1905 ("M-L" . org-store-link)))
1906
1907(use-package gnus-sum
1908 :bind (:map gnus-summary-mode-map
1909 :prefix-map amin--gnus-summary-prefix-map
1910 :prefix "v"
1911 ("r" . gnus-summary-reply)
1912 ("w" . gnus-summary-wide-reply)
1913 ("v" . gnus-summary-show-raw-article))
1914 :config
1915 (bind-keys
1916 :map gnus-summary-mode-map
1917 ("r" . gnus-summary-reply-with-original)
1918 ("R" . gnus-summary-wide-reply-with-original)
1919 ("M-L" . org-store-link)))
1920
1921(use-package gnus-msg
1922 :config
1923 (setq gnus-posting-styles
1924 '((".*"
1925 (address "amin@aminb.org"))
1926 ("gnu.*"
1927 (address "bandali@gnu.org"))
1928 ("nnimap\\+uwaterloo:.*"
1929 (address "abandali@uwaterloo.ca")
1930 (gcc "\"nnimap+uwaterloo:Sent Items\"")))))
1931
1932(use-package gnus-topic
1933 :hook (gnus-group-mode . gnus-topic-mode))
1934
1935(use-package gnus-agent
1936 :config
1937 (setq gnus-agent-synchronize-flags 'ask)
1938 :hook (gnus-group-mode . gnus-agent-mode))
1939
1940(use-package gnus-group
1941 :config
1942 (setq gnus-permanently-visible-groups "\\((INBOX\\|gnu$\\)"))
1943
1944(use-package mm-decode
1945 :config
1946 (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
1947#+end_src
1948
1949** sendmail
1950
1951#+begin_src emacs-lisp
1952(use-package sendmail
1953 :config
1954 (setq sendmail-program "/usr/bin/msmtp"
1955 ;; message-sendmail-extra-arguments '("-v" "-d")
1956 mail-specify-envelope-from t
1957 mail-envelope-from 'header))
1958#+end_src
1959
1960** message
1961
1962#+begin_src emacs-lisp
1963(use-package message
1964 :config
1965 (setq message-kill-buffer-on-exit t
1966 message-send-mail-function 'message-send-mail-with-sendmail
1967 message-sendmail-envelope-from 'header
1968 message-dont-reply-to-names
1969 "\\(\\(.*@aminb\\.org\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
1970 message-user-fqdn "aminb.org")
1971 :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
1972 (message-mode . flyspell-mode)
1973 (message-mode . (lambda () (setq fill-column 65
1974 message-fill-column 65))))
1975 :custom-face
1976 (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
1977 (message-header-to ((t (:foreground "#111" :weight normal))))
1978 (message-header-cc ((t (:foreground "#333" :weight normal)))))
1979
1980(after! mml-sec
1981 (setq mml-secure-openpgp-encrypt-to-self t
1982 mml-secure-openpgp-sign-with-sender t))
1983#+end_src
1984
1985** footnote
1986
1987Convenient footnotes in =message-mode=.
1988
1989#+begin_src emacs-lisp
1990(use-package footnote
1991 :after message
1992 :bind
1993 (:map message-mode-map
1994 :prefix-map amin--footnote-prefix-map
1995 :prefix "C-c f"
1996 ("a" . footnote-add-footnote)
1997 ("b" . footnote-back-to-message)
1998 ("c" . footnote-cycle-style)
1999 ("d" . footnote-delete-footnote)
2000 ("g" . footnote-goto-footnote)
2001 ("r" . footnote-renumber-footnotes)
2002 ("s" . footnote-set-style))
2003 :config
2004 (setq footnote-start-tag ""
2005 footnote-end-tag ""
2006 footnote-style 'unicode))
2007#+end_src
2008
2009** supercite
2010
2011#+begin_src emacs-lisp
2012(use-package supercite
2013 :after message
2014 :init
2015 (setq sc-nested-citation-p t
2016 ;; sc-cite-blank-lines-p t
2017 sc-citation-leader ""
2018 sc-auto-fill-region-p t
2019 sc-confirm-always-p nil)
2020 :config
2021 (defun amin--sc-header ()
2022 "Hi <firstname>,\n\n <from> writes:"
2023 (let ((sc-mumble "")
2024 (whofrom (sc-whofrom)))
2025 (if whofrom
2026 (insert (sc-hdr "Hi " (sc-mail-field "sc-firstname") ", \n\n")
2027 sc-reference-tag-string
2028 whofrom
2029 " writes:\n"))))
2030 (add-to-list 'sc-rewrite-header-list '(amin--sc-header) t)
2031 (setq sc-preferred-header-style (1- (length sc-rewrite-header-list)))
2032 (add-hook 'mail-citation-hook 'sc-cite-original))
2033#+end_src
2034
2035** ebdb
2036
2037#+begin_src emacs-lisp
2038(use-package ebdb
2039 :defer 1
2040 :bind (:map gnus-group-mode-map ("e" . ebdb))
2041 :config
2042 (setq ebdb-sources (no-littering-expand-var-file-name "ebdb")))
2043
2044(use-package ebdb-com
2045 :after ebdb)
2046
2047(use-package ebdb-complete
2048 :after ebdb
2049 :config
2050 (ebdb-complete-enable))
2051
2052(use-package ebdb-gnus
2053 :after ebdb)
2054
2055(use-package ebdb-message
2056 :after ebdb)
2057
2058;; (use-package ebdb-vcard
2059;; :after ebdb)
2060#+end_src
2061
2062** COMMENT bbdb
2063
2064#+begin_comment
2065[submodule "bbdb"]
2066 path = lib/bbdb
2067 url = https://git.savannah.nongnu.org/git/bbdb.git
2068 load-path = lisp/elisp
2069 info-path = doc
2070 build-step = ./autogen.sh
2071 build-step = ./configure --with-lispdir=elisp
2072 build-step = make
2073 build-step = make install
2074#+end_comment
2075
2076#+begin_src emacs-lisp
2077(use-package bbdb
2078 :init
2079 (bbdb-mua-auto-update-init 'message)
2080 (setq bbdb-mua-auto-update-p 'query)
2081 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus))
2082#+end_src
2083
2084** COMMENT message-x
2085
2086#+begin_src emacs-lisp
2087(use-package message-x
2088 :custom
2089 (message-x-completion-alist
2090 (quote
2091 (("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:" . gnus-harvest-find-address)
2092 ((if
2093 (boundp
2094 (quote message-newgroups-header-regexp))
2095 message-newgroups-header-regexp message-newsgroups-header-regexp)
2096 . message-expand-group)))))
2097#+end_src
2098
2099** COMMENT gnus-harvest
2100
2101#+begin_src emacs-lisp
2102(use-package gnus-harvest
2103 :commands gnus-harvest-install
2104 :demand t
2105 :config
2106 (if (featurep 'message-x)
2107 (gnus-harvest-install 'message-x)
2108 (gnus-harvest-install)))
2109#+end_src
2110
2111** COMMENT gnus-alias :ARCHIVE:
2112
2113#+begin_src emacs-lisp
2114(use-package gnus-alias
2115 :commands (gnus-alias-determine-identity
2116 gnus-alias-select-identity)
2117 :bind (:map message-mode-map
2118 ("s-i" . gnus-alias-select-identity))
2119 :config
2120 (setq
2121 gnus-alias-default-identity "amin"
2122 gnus-alias-identity-alist
2123 '(("amin"
2124 nil ;; Does not refer to any other identity
2125 "Amin Bandali <amin@aminb.org>"
2126 nil ;; Organization
2127 nil ;; extra headers
2128 nil ;; extra body text
2129 nil) ;; signature file
2130 ("gnu"
2131 nil
2132 "Amin Bandali <bandali@gnu.org>"
2133 nil
2134 nil
2135 nil
2136 nil)
2137 ("uw"
2138 nil
2139 "Amin Bandali <abandali@uwaterloo.ca>"
2140 nil
2141 (("Gcc" . "\"nnimap+uwaterloo:Sent Items\""))
2142 nil
2143 nil))
2144 gnus-alias-identity-rules
2145 '(("amin" ("Delivered-To" "<amin\\@aminb\\.org" both) "amin")
2146 ("gnu" ("Delivered-To" "<gnu\\@aminb\\.org" both) "gnu")
2147 ("uw" ("any" "<\\(.+\\)\\@uwaterloo\\.ca" both) "uw"))
2148 gnus-alias-override-user-mail-address t)
2149 :hook (message-setup . gnus-alias-determine-identity))
2150#+end_src
2151
2152** COMMENT [[https://notmuchmail.org][notmuch]] :ARCHIVE:
2153
2154See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
2155
2156#+begin_src emacs-lisp
2157(defun amin/notmuch ()
2158 "Delete other windows, then launch `notmuch'."
2159 (interactive
2160 (when (equal current-prefix-arg nil)
2161 (delete-other-windows)))
2162 (notmuch))
2163
2164(use-package notmuch
2165 :commands notmuch
2166 :bind ("C-c n" . amin/notmuch)
2167 :custom (notmuch-always-prompt-for-sender t)
2168 :config
2169 (setq notmuch-hello-sections
2170 '(notmuch-hello-insert-header
2171 notmuch-hello-insert-saved-searches
2172 ;; notmuch-hello-insert-search
2173 notmuch-hello-insert-alltags)
2174 notmuch-search-oldest-first nil
2175 notmuch-show-all-tags-list t
2176 notmuch-message-headers ; see bug follow-up above
2177 '("Subject" "To" "Cc" "Date" "List-Id" "X-RT-Originator")
2178 notmuch-hello-thousands-separator ","
2179 notmuch-fcc-dirs
2180 '(("amin@aminb.org" . "amin/Sent")
2181 ("bandali@gnu.org" . "gnu/Sent")
2182 ("abandali@uwaterloo.ca" . "\"uwaterloo/Sent Items\"")
2183 ("mab@gnu.org" . "gnu/Sent")
2184 ("amin@gnu.org" . "gnu/Sent")
2185 ("aminb@gnu.org" . "gnu/Sent")
2186 (".*" . "sent"))
2187 notmuch-search-result-format
2188 '(("date" . "%12s ")
2189 ("count" . "%-7s ")
2190 ("authors" . "%-40s ")
2191 ("subject" . "%s ")
2192 ("tags" . "(%s)"))
2193 notmuch-saved-searches
2194 '((:name "inbox" :query "tag:inbox" :key "i")
2195 (:name "unread" :query "tag:unread" :key "u")
2196 (:name "latest" :query "tag:latest" :key "l")
2197 (:name "encrypted" :query "tag:encrypted" :key "e")
2198 (:name "flagged" :query "tag:flagged" :key "f")
2199 (:name "sent" :query "tag:sent" :key "s")
2200 (:name "drafts" :query "tag:draft" :key "d")
2201 (:name "all mail" :query "*" :key "a")))
2202 ;; (add-hook 'visual-fill-column-mode-hook
2203 ;; (lambda ()
2204 ;; (when (string= major-mode 'notmuch-message-mode)
2205 ;; (setq visual-fill-column-width 70))))
2206 ;; (set! :evil-state 'notmuch-message-mode 'insert)
2207 ;; (advice-add #'notmuch-bury-or-kill-this-buffer
2208 ;; :override #'kill-this-buffer)
2209 :hook (notmuch-message-mode . doom-modeline-set-special-modeline)
2210 :bind
2211 (:map notmuch-hello-mode-map
2212 ("u" . (lambda ()
2213 "Search for `unread'-tagged messages"
2214 (interactive)
2215 (notmuch-hello-search "tag:unread")))
2216 ("i" . (lambda ()
2217 "Search for `inbox'-tagged messages"
2218 (interactive)
2219 (notmuch-hello-search "tag:inbox")))
2220 ("l" . (lambda ()
2221 "Search for `latest'-tagged messages"
2222 (interactive)
2223 (notmuch-hello-search "tag:latest")))
2224 ("e" . (lambda ()
2225 "Search for `encrypted'-tagged messages"
2226 (interactive)
2227 (notmuch-hello-search "tag:encrypted"))))
2228 (:map notmuch-search-mode-map
2229 ("k" . (lambda ()
2230 "Mark message read"
2231 (interactive)
2232 (notmuch-search-tag '("-unread"))
2233 ;; (notmuch-search-archive-thread)
2234 (notmuch-search-next-thread)))
2235 ("u" . (lambda ()
2236 "Mark message unread"
2237 (interactive)
2238 (notmuch-search-tag '("+unread"))
2239 (notmuch-search-next-thread)))
2240 ("K" . (lambda ()
2241 "Mark message deleted"
2242 (interactive)
2243 (notmuch-search-tag '("-unread" "-inbox" "+deleted"))
2244 (notmuch-search-next-thread)))
2245 ("S" . (lambda ()
2246 "Mark message as spam"
2247 (interactive)
2248 (notmuch-search-tag '("-unread" "-inbox" "-webmasters" "+spam"))
2249 (notmuch-search-next-thread))))
2250 (:map notmuch-tree-mode-map
2251 ("k" . (lambda ()
2252 "Mark message read"
2253 (interactive)
2254 (notmuch-tree-tag '("-unread"))
2255 ;; (notmuch-tree-archive-thread)
2256 (notmuch-tree-next-message)))
2257 ("u" . (lambda ()
2258 "Mark message unread"
2259 (interactive)
2260 (notmuch-tree-tag '("+unread"))
2261 (notmuch-tree-next-message)))
2262 ("K" . (lambda ()
2263 "Mark message deleted"
2264 (interactive)
2265 (notmuch-tree-tag '("-unread" "-inbox" "+deleted"))
2266 (notmuch-tree-next-message)))
2267 ("S" . (lambda ()
2268 "Mark message as spam"
2269 (interactive)
2270 (notmuch-tree-tag '("-unread" "-inbox" "-webmasters" "+spam"))
2271 (notmuch-tree-next-message))))
2272 :custom-face
2273 (notmuch-search-unread-face ((t (:weight semi-bold))))
2274 (notmuch-tag-face ((t (:foreground "navy blue" :weight semi-bold)))))
2275
2276(use-package counsel-notmuch
2277 :bind ("C-c s m" . counsel-notmuch))
2278
2279(after! notmuch-crypto
2280 (setq notmuch-crypto-process-mime t))
2281
2282(use-package org-notmuch
2283 :after (:any org notmuch))
2284#+end_src
2285
2286* Blogging
2287** [[https://ox-hugo.scripter.co][ox-hugo]]
2288
2289#+begin_src emacs-lisp
2290(use-package ox-hugo
2291 :after ox)
2292
2293(use-package ox-hugo-auto-export
2294 :load-path "lib/ox-hugo")
2295#+end_src
2296
2297* Post initialization
2298:PROPERTIES:
2299:CUSTOM_ID: post-initialization
2300:END:
2301
2302Display how long it took to load the init file.
2303
2304#+begin_src emacs-lisp
2305(message "Loading %s...done (%.3fs)" user-init-file
2306 (float-time (time-subtract (current-time)
2307 amin--before-user-init-time)))
2308#+end_src
2309
2310* Footer
2311:PROPERTIES:
2312:CUSTOM_ID: footer
2313:END:
2314
2315#+begin_src emacs-lisp :comments none
2316;;; init.el ends here
2317#+end_src
2318
2319* COMMENT Local Variables :ARCHIVE:
2320# Local Variables:
2321# eval: (add-hook 'after-save-hook #'amin/async-babel-tangle 'append 'local)
2322# End: