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