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