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