projects / ~bandali / configs / blob
? search:


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