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