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