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