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