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