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