git.shemshak.org - ~bandali/configs/blob - init.org

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