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

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