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