1 #+title: =aminb='s Literate Emacs Configuration
4 #+property: header-args :tangle yes
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:
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
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]]
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.
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:
43 #+begin_src sh :tangle no
44 git clone https://github.com/aminb/dotfiles ~/.emacs.d
51 * Contents :toc_1:noexport:
55 - [[#initial-setup][Initial setup]]
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]]
63 - [[#blogging][Blogging]]
64 - [[#post-initialization][Post initialization]]
74 #+begin_src emacs-lisp :comments none
75 ;;; init.el --- Amin Bandali's Emacs config -*- lexical-binding: t; eval: (view-mode 1) -*-
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
85 #+begin_src emacs-lisp :comments none
86 ;; Copyright (C) 2018 Amin Bandali <bandali@gnu.org>
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.
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.
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/>.
104 #+begin_src emacs-lisp :comments none
107 ;; Emacs configuration of Amin Bandali, computer scientist, functional
108 ;; programmer, and free software advocate.
110 ;; THIS FILE IS AUTO-GENERATED FROM `init.org'.
115 :CUSTOM_ID: initial-setup
118 ** Emacs initialization
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=:
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
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.
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)
148 Of course, we'd like to set them back to their defaults once we're
151 #+begin_src emacs-lisp
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)))
160 Increase the number of lines kept in message logs (the =*Messages*=
163 #+begin_src emacs-lisp
164 (setq message-log-max 20000)
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.
171 #+begin_src emacs-lisp
172 ;; (setq byte-compile-warnings
173 ;; '(not free-vars unresolved noruntime lexical make-local))
178 #+begin_src emacs-lisp
179 (setq user-full-name "Amin Bandali"
180 user-mail-address "amin@aminb.org")
183 ** Package management
187 I can do all my package management things with =straight.el=, and
188 don't need Emacs' built-in =package.el=. Emacs 27 lets us disable
189 =package.el= in the =early-init-file= (see [[https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=24acb31c04b4048b85311d794e600ecd7ce60d3b][here]]).
191 #+begin_src emacs-lisp :tangle early-init.el
192 (setq package-enable-at-startup nil)
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.
200 #+begin_src emacs-lisp :tangle no
201 (setq package-enable-at-startup nil)
202 ;; (package-initialize)
205 Update: the above is not necessary, since =straight.el= automatically
206 does that (and more). See =straight-package-neutering-mode=.
211 Next-generation, purely functional package manager for the Emacs
215 =straight.el= allows me to have a fully reproducible Emacs setup.
217 #+begin_src emacs-lisp
218 (setq straight-repository-branch "develop")
220 (defvar bootstrap-version)
221 (let ((bootstrap-file
222 (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
223 (bootstrap-version 5))
224 (unless (file-exists-p bootstrap-file)
226 (url-retrieve-synchronously
227 "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
228 'silent 'inhibit-cookies)
229 (goto-char (point-max))
230 (eval-print-last-sexp)))
231 (load bootstrap-file nil 'nomessage))
233 (setq straight-use-package-by-default t)
236 Since we enable =straight.el='s =straight-use-package-by-default=
237 integration, we will define a =use-feature= for plain ole
238 =use-package= without any of the =straight.el= stuff.
240 #+begin_src emacs-lisp
241 (defmacro use-feature (name &rest args)
242 "Like `use-package', but with `straight-use-package-by-default' disabled."
243 (declare (indent defun))
252 Assimilate Emacs packages as Git submodules
255 [[https://github.com/emacscollective/borg][Borg]] is at the heart of package management of my Emacs setup. In
256 short, it creates a git submodule in =lib/= for each package, which
257 can then be managed with the help of Magit or other tools.
259 #+begin_src emacs-lisp
260 (setq user-init-file (or load-file-name buffer-file-name)
261 user-emacs-directory (file-name-directory user-init-file))
262 (add-to-list 'load-path
263 (expand-file-name "lib/borg" user-emacs-directory))
267 ;; (require 'borg-nix-shell)
268 ;; (setq borg-build-shell-command 'borg-nix-shell-build-command)
270 (with-eval-after-load 'bind-key
273 ("C-c b A" . borg-activate)
274 ("C-c b a" . borg-assimilate)
275 ("C-c b b" . borg-build)
276 ("C-c b c" . borg-clone)
277 ("C-c b r" . borg-remove)))
283 A use-package declaration for simplifying your .emacs
286 [[https://github.com/jwiegley/use-package][use-package]] is an awesome utility for managing and configuring
287 packages (in our case especially the latter) in a neatly organized way
288 and without compromising on performance.
290 #+begin_src emacs-lisp
291 (straight-use-package 'use-package)
292 (if nil ; set to t when need to debug init
293 (setq use-package-verbose t
294 use-package-expand-minimally nil
295 use-package-compute-statistics t
297 (setq use-package-verbose nil
298 use-package-expand-minimally t))
304 Browse the Emacsmirror package database
307 Epkg provides access to a local copy of the [[https://emacsmirror.net][Emacsmirror]] package
308 database, low-level functions for querying the database, and a
309 =package.el=-like user interface for browsing the available packages.
311 #+begin_src emacs-lisp
315 (("C-c b d" . epkg-describe-package)
316 ("C-c b p" . epkg-list-packages)
317 ("C-c b u" . epkg-update))
319 (eval-when-compile (defvar ivy-initial-inputs-alist))
320 (with-eval-after-load 'ivy
322 'ivy-initial-inputs-alist '(epkg-describe-package . "^") t)))
325 ** No littering in =~/.emacs.d=
328 Help keeping ~/.emacs.d clean
331 By default, even for Emacs' built-in packages, the configuration files
332 and persistent data are all over the place. Use =no-littering= to help
335 #+begin_src emacs-lisp
336 (use-package no-littering
340 (add-to-list 'savehist-additional-variables 'kill-ring)
342 (setq auto-save-file-name-transforms
343 `((".*" ,(no-littering-expand-var-file-name "auto-save/") t))))
346 ** Custom file (=custom.el=)
348 I'm not planning on using the custom file much, but even so, I
349 definitely don't want it mixing with =init.el=. So, here; let's give
350 it it's own file. While at it, treat themes as safe.
352 #+begin_src emacs-lisp
356 (setq custom-file (no-littering-expand-etc-file-name "custom.el"))
357 (when (file-exists-p custom-file)
359 (setf custom-safe-themes t))
364 Load the secrets file if it exists, otherwise show a warning.
366 #+begin_src emacs-lisp
368 (load (no-littering-expand-etc-file-name "secrets")))
371 ** Better =$PATH= handling
373 Let's use [[https://github.com/purcell/exec-path-from-shell][exec-path-from-shell]] to make Emacs use the =$PATH= as set up
376 #+begin_src emacs-lisp
377 (use-package exec-path-from-shell
380 (setq exec-path-from-shell-check-startup-files nil)
382 (exec-path-from-shell-initialize)
383 ;; while we're at it, let's fix access to our running ssh-agent
384 (exec-path-from-shell-copy-env "SSH_AGENT_PID")
385 (exec-path-from-shell-copy-env "SSH_AUTH_SOCK"))
388 ** COMMENT Only one custom theme at a time
390 #+begin_src emacs-lisp
391 (defadvice load-theme (before clear-previous-themes activate)
392 "Clear existing theme settings instead of layering them"
393 (mapc #'disable-theme custom-enabled-themes))
398 Start server if not already running. Alternatively, can be done by
399 issuing =emacs --daemon= in the terminal, which can be automated with
400 a systemd service or using =brew services start emacs= on macOS. I use
401 Emacs as my window manager (via EXWM), so I always start Emacs on
402 login; so starting the server from inside Emacs is good enough for me.
404 See [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html#Emacs-Server][Using Emacs as a Server]].
406 #+begin_src emacs-lisp
409 :config (or (server-running-p) (server-mode)))
412 ** COMMENT Unicode support
414 Font stack with better unicode support, around =Ubuntu Mono= and
417 #+begin_src emacs-lisp
418 (dolist (ft (fontset-list))
422 (font-spec :name "Source Code Pro" :size 14))
426 (font-spec :name "DejaVu Sans Mono")
433 ;; :name "Symbola monospacified for DejaVu Sans Mono")
439 ;; (font-spec :name "DejaVu Sans Mono")
445 (font-spec :name "DejaVu Sans Mono" :size 14)
450 ** Gentler font resizing
452 #+begin_src emacs-lisp
453 (setq text-scale-mode-step 1.05)
456 ** Focus follows mouse
458 I’d like focus to follow the mouse when I move the cursor from one
461 #+begin_src emacs-lisp
462 (setq mouse-autoselect-window t)
465 Let’s define a function to conveniently disable this for certain
466 buffers and/or modes.
468 #+begin_src emacs-lisp
469 (defun a/no-mouse-autoselect-window ()
470 (make-local-variable 'mouse-autoselect-window)
471 (setq mouse-autoselect-window nil))
476 #+begin_src emacs-lisp
483 Convenience macro for =setq='ing multiple variables to the same value:
485 #+begin_src emacs-lisp
486 (defmacro a/setq-every (value &rest vars)
487 "Set all the variables from VARS to value VALUE."
488 (declare (indent defun) (debug t))
489 `(progn ,@(mapcar (lambda (x) (list 'setq x value)) vars)))
492 The following process-related stuff from [[https://github.com/alezost/emacs-config][alezost's emacs-config]].
494 #+begin_src emacs-lisp
495 (defun a/start-process (program &rest args)
496 "Same as `start-process', but doesn't bother about name and buffer."
497 (let ((process-name (concat program "_process"))
498 (buffer-name (generate-new-buffer-name
499 (concat program "_output"))))
500 (apply #'start-process
501 process-name buffer-name program args)))
503 (defun a/dired-start-process (program &optional args)
504 "Open current file with a PROGRAM."
505 ;; Shell command looks like this: "program [ARGS]... FILE" (ARGS can
506 ;; be nil, so remove it).
507 (apply #'a/start-process
509 (remove nil (list args (dired-get-file-for-visit)))))
519 *** Time and battery in mode-line
521 Enable displaying time and battery in the mode-line, since I'm not
522 using the Xfce panel anymore. Also, I don't need to see the load
523 average on a regular basis, so disable that.
525 Note: using =i3status= on sway at the moment, so disabling this.
527 #+begin_src emacs-lisp :tangle no
530 (setq display-time-default-load-average nil)
536 (display-battery-mode))
541 Might want to set the fringe to a smaller value, especially if using
542 EXWM. I'm fine with the default for now.
544 #+begin_src emacs-lisp
545 ;; (fringe-mode '(3 . 1))
549 *** Disable disabled commands
551 Emacs disables some commands by default that could persumably be
552 confusing for novice users. Let's disable that.
554 #+begin_src emacs-lisp
555 (setq disabled-command-function nil)
560 Save what I copy into clipboard from other applications into Emacs'
561 kill-ring, which would allow me to still be able to easily access it
562 in case I kill (cut or copy) something else inside Emacs before
563 yanking (pasting) what I'd originally intended to.
565 #+begin_src emacs-lisp
566 (setq save-interprogram-paste-before-kill t)
571 #+begin_src emacs-lisp
572 (setq enable-recursive-minibuffers t
573 resize-mini-windows t)
576 *** Lazy-person-friendly yes/no prompts
578 Lazy people would prefer to type fewer keystrokes, especially for yes
579 or no questions. I'm lazy.
581 #+begin_src emacs-lisp
582 (defalias 'yes-or-no-p #'y-or-n-p)
585 *** Startup screen and =*scratch*=
587 Firstly, let Emacs know that I'd like to have =*scratch*= as my
590 #+begin_src emacs-lisp
591 (setq initial-buffer-choice t)
594 Now let's customize the =*scratch*= buffer a bit. First off, I don't
595 need the default hint.
597 #+begin_src emacs-lisp
598 (setq initial-scratch-message nil)
601 Also, let's use Text mode as the major mode, in case I want to
602 customize it (=*scratch*='s default major mode, Fundamental mode,
603 can't really be customized).
605 #+begin_src emacs-lisp
606 (setq initial-major-mode 'text-mode)
609 Inhibit the buffer list when more than 2 files are loaded.
611 #+begin_src emacs-lisp
612 (setq inhibit-startup-buffer-menu t)
615 I don't really need to see the startup screen or echo area message
618 #+begin_src emacs-lisp
619 (advice-add #'display-startup-echo-area-message :override #'ignore)
620 (setq inhibit-startup-screen t
621 inhibit-startup-echo-area-message user-login-name)
624 *** More useful frame titles
626 Show either the file name or the buffer name (in case the buffer isn't
627 visiting a file). Borrowed from Emacs Prelude.
629 #+begin_src emacs-lisp
630 (setq frame-title-format
631 '("" invocation-name " - "
632 (:eval (if (buffer-file-name)
633 (abbreviate-file-name (buffer-file-name))
639 Emacs' default backup settings aren't that great. Let's use more
640 sensible options. See documentation for the ~make-backup-file~
643 #+begin_src emacs-lisp
644 (setq backup-by-copying t
646 delete-old-versions t)
651 Enable automatic reloading of changed buffers and files.
653 #+begin_src emacs-lisp
654 (global-auto-revert-mode 1)
655 (setq auto-revert-verbose nil
656 global-auto-revert-non-file-buffers nil)
659 *** Always use space for indentation
661 #+begin_src emacs-lisp
664 require-final-newline t
670 Enable =winner-mode=.
672 #+begin_src emacs-lisp
676 *** Don’t display =*compilation*= on success
678 Based on https://stackoverflow.com/a/17788551, with changes to use
679 =cl-letf= instead of the now obsolete =flet=.
681 #+begin_src emacs-lisp
682 (with-eval-after-load 'compile
683 (defun a/compilation-finish-function (buffer outstr)
684 (unless (string-match "finished" outstr)
685 (switch-to-buffer-other-window buffer))
688 (setq compilation-finish-functions #'a/compilation-finish-function)
692 (defadvice compilation-start
693 (around inhibit-display
694 (command &optional mode name-function highlight-regexp))
695 (if (not (string-match "^\\(find\\|grep\\)" command))
696 (cl-letf (((symbol-function 'display-buffer) #'ignore))
697 (save-window-excursion ad-do-it))
699 (ad-activate 'compilation-start))
702 *** Search for non-ASCII characters
704 I’d like non-ASCII characters such as ‘’“”«»‹›áⓐ𝒶 to be selected when
705 I search for their ASCII counterpart. Shoutout to [[http://endlessparentheses.com/new-in-emacs-25-1-easily-search-non-ascii-characters.html][endlessparentheses]]
708 #+begin_src emacs-lisp
709 (setq search-default-mode #'char-fold-to-regexp)
711 ;; uncomment to extend this behaviour to query-replace
712 ;; (setq replace-char-fold t)
717 #+begin_src emacs-lisp
718 (setq-default cursor-type 'bar)
723 #+begin_src emacs-lisp
727 ("C-c e b" . eval-buffer)
728 ("C-c e r" . eval-region)
730 ("C-c F m" . make-frame-command)
731 ("C-c F d" . delete-frame)
732 ("C-c F D" . delete-other-frames)
734 ("C-c o" . other-window)
736 ("C-c Q" . save-buffers-kill-terminal)
738 ("C-S-h C" . describe-char)
739 ("C-S-h F" . describe-face)
741 ("C-x K" . kill-this-buffer)
743 ("s-p" . beginning-of-buffer)
744 ("s-n" . end-of-buffer))
749 The packages in this section are absolutely essential to my everyday
750 workflow, and they play key roles in how I do my computing. They
751 immensely enhance the Emacs experience for me; both using Emacs, and
754 *** [[https://github.com/emacscollective/auto-compile][auto-compile]]
756 #+begin_src emacs-lisp
757 (use-package auto-compile
760 (auto-compile-on-load-mode)
761 (auto-compile-on-save-mode)
762 (setq auto-compile-display-buffer nil
763 auto-compile-mode-line-counter t
764 auto-compile-source-recreate-deletes-dest t
765 auto-compile-toggle-deletes-nonlib-dest t
766 auto-compile-update-autoloads t)
767 (add-hook 'auto-compile-inhibit-compile-hook
768 'auto-compile-inhibit-compile-detached-git-head))
771 *** [[https://orgmode.org/][Org]]
774 Org mode is for keeping notes, maintaining TODO lists, planning
775 projects, and authoring documents with a fast and effective plain-text
779 In short, my favourite way of life.
781 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
782 latest version of Org from upstream.
784 #+begin_src emacs-lisp
787 (defun org-git-version ()
788 "The Git version of org-mode.
789 Inserted by installing org-mode or when a release is made."
791 (let ((git-repo (expand-file-name
792 "straight/repos/org/" user-emacs-directory)))
799 (defun org-release ()
800 "The release version of org-mode.
801 Inserted by installing org-mode or when a release is made."
803 (let ((git-repo (expand-file-name
804 "straight/repos/org/" user-emacs-directory)))
806 (string-remove-prefix
813 (provide 'org-version)
816 We will use the =org-plus-contrib= package to get the whole deal:
818 #+begin_src emacs-lisp
819 (straight-use-package 'org-plus-contrib)
822 And here's where my actual Org configurations begin:
824 #+begin_src emacs-lisp
828 (setq org-src-tab-acts-natively t
829 org-src-preserve-indentation nil
830 org-edit-src-content-indentation 0
831 org-email-link-description-format "Email %c: %s" ; %.30s
832 org-highlight-latex-and-related '(entities)
833 org-use-speed-commands t
834 org-startup-folded 'content
835 org-catch-invisible-edits 'show-and-error
837 (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
838 (font-lock-add-keywords
840 '(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)"
841 (1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive
842 (3 '(:foreground "#81a2be" :background "#292b2b") t) ; kind
843 (4 '(:foreground "#c5c8c6") t))) ; title
845 :bind (:map org-mode-map ("M-L" . org-insert-last-stored-link))
846 :hook ((org-mode . org-indent-mode)
847 (org-mode . auto-fill-mode)
848 (org-mode . flyspell-mode))
850 (org-latex-packages-alist '(("" "listings") ("" "color")))
852 '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21"))))
853 '(org-block ((t (:background "#1d1f21"))))
854 '(org-latex-and-related ((t (:foreground "#b294bb")))))
856 (use-feature ox-latex
859 (setq org-latex-listings 'listings
860 ;; org-latex-prefer-user-labels t
862 (add-to-list 'org-latex-packages-alist '("" "listings"))
863 (add-to-list 'org-latex-packages-alist '("" "color"))
864 (add-to-list 'org-latex-classes
865 '("IEEEtran" "\\documentclass[11pt]{IEEEtran}"
866 ("\\section{%s}" . "\\section*{%s}")
867 ("\\subsection{%s}" . "\\subsection*{%s}")
868 ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
869 ("\\paragraph{%s}" . "\\paragraph*{%s}")
870 ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
873 (use-feature ox-beamer
877 **** asynchronous tangle
879 =a/async-babel-tangle= is a function closely inspired by [[https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles][dieggsy's
880 d/async-babel-tangle]] which uses [[https://github.com/jwiegley/emacs-async][async]] to asynchronously tangle an org
883 #+begin_src emacs-lisp
884 (with-eval-after-load 'org
885 (defvar a/show-async-tangle-results nil
886 "Keep *emacs* async buffers around for later inspection.")
888 (defvar a/show-async-tangle-time nil
889 "Show the time spent tangling the file.")
891 (defvar a/async-tangle-post-compile "make ti"
892 "If non-nil, pass to `compile' after successful tangle.")
894 (defun a/async-babel-tangle ()
895 "Tangle org file asynchronously."
897 (let* ((file-tangle-start-time (current-time))
898 (file (buffer-file-name))
899 (file-nodir (file-name-nondirectory file))
900 ;; (async-quiet-switch "-q")
905 (org-babel-tangle-file ,file))
906 (unless a/show-async-tangle-results
910 (message "Tangled %s%s"
912 (if a/show-async-tangle-time
914 (float-time (time-subtract (current-time)
915 ',file-tangle-start-time)))
917 (when a/async-tangle-post-compile
918 (compile a/async-tangle-post-compile)))
919 (message "Tangling %s failed" ,file-nodir))))))))
922 'safe-local-variable-values
923 '(eval add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local))
926 *** [[https://magit.vc/][Magit]]
929 It's Magit! A Git porcelain inside Emacs.
932 Not just how I do git, but /the/ way to do git.
934 #+begin_src emacs-lisp
937 :bind (("C-x g" . magit-status)
938 ("s-g s" . magit-status)
939 ("s-g l" . magit-log-buffer-file))
941 (magit-add-section-hook 'magit-status-sections-hook
942 'magit-insert-modules
943 'magit-insert-stashes
946 magit-repository-directories '(("~/.emacs.d/" . 0)
948 (nconc magit-section-initial-visibility-alist
949 '(([unpulled status] . show)
950 ([unpushed status] . show)))
951 :custom-face (magit-diff-file-heading ((t (:weight normal)))))
956 Recently opened files.
958 #+begin_src emacs-lisp
962 (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
963 (setq recentf-max-saved-items 40))
966 *** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
969 Ivy - a generic completion frontend for Emacs, Swiper - isearch with
970 an overview, and more. Oh, man!
973 There's no way I could top that, so I won't attempt to.
977 #+begin_src emacs-lisp
981 (:map ivy-minibuffer-map
982 ([escape] . keyboard-escape-quit)
983 ([S-up] . ivy-previous-history-element)
984 ([S-down] . ivy-next-history-element)
985 ("DEL" . ivy-backward-delete-char))
990 ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
991 ;; (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
992 ;; (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold))))
998 #+begin_src emacs-lisp
1001 :bind (("C-s" . swiper)
1003 ("C-S-s" . isearch-forward)))
1008 #+begin_src emacs-lisp
1009 (use-package counsel
1011 :bind (([remap execute-extended-command] . counsel-M-x)
1012 ([remap find-file] . counsel-find-file)
1013 ("s-r" . counsel-recentf)
1014 ("C-c x" . counsel-M-x)
1015 ("C-c f ." . counsel-find-file)
1016 :map minibuffer-local-map
1017 ("C-r" . counsel-minibuffer-history))
1020 (defalias 'locate #'counsel-locate))
1025 #+begin_src emacs-lisp
1029 :bind ("C-c a s e" . eshell)
1031 (eval-when-compile (defvar eshell-prompt-regexp))
1032 (defun a/eshell-quit-or-delete-char (arg)
1034 (if (and (eolp) (looking-back eshell-prompt-regexp nil))
1035 (eshell-life-is-too-much)
1038 (defun a/eshell-clear ()
1040 (let ((inhibit-read-only t))
1042 (eshell-send-input))
1044 (defun a/eshell-setup ()
1045 (make-local-variable 'company-idle-delay)
1046 (defvar company-idle-delay)
1047 (setq company-idle-delay nil)
1048 (bind-keys :map eshell-mode-map
1049 ("C-d" . a/eshell-quit-or-delete-char)
1050 ("C-S-l" . a/eshell-clear)
1051 ("M-r" . counsel-esh-history)
1052 ([tab] . company-complete)))
1054 :hook (eshell-mode . a/eshell-setup)
1056 (eshell-hist-ignoredups t)
1057 (eshell-input-filter 'eshell-input-filter-initial-space))
1062 #+begin_src emacs-lisp
1063 (use-feature ibuffer
1066 (("C-x C-b" . ibuffer-other-window)
1067 :map ibuffer-mode-map
1068 ("P" . ibuffer-backward-filter-group)
1069 ("N" . ibuffer-forward-filter-group)
1070 ("M-p" . ibuffer-do-print)
1071 ("M-n" . ibuffer-do-shell-command-pipe-replace))
1073 ;; Use human readable Size column instead of original one
1074 (define-ibuffer-column size-h
1075 (:name "Size" :inline t)
1077 ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
1078 ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
1079 ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
1080 (t (format "%8d" (buffer-size)))))
1082 (ibuffer-saved-filter-groups
1084 ("dired" (mode . dired-mode))
1085 ("org" (mode . org-mode))
1088 (mode . gnus-group-mode)
1089 (mode . gnus-summary-mode)
1090 (mode . gnus-article-mode)
1091 ;; not really, but...
1092 (mode . message-mode)))
1101 (mode . eshell-mode)
1103 (mode . term-mode)))
1106 (mode . python-mode)
1109 (mode . emacs-lisp-mode)
1110 (mode . scheme-mode)
1111 (mode . haskell-mode)
1112 (mode . lean-mode)))
1115 (name . "^\\*scratch\\*$")
1116 (name . "^\\*Messages\\*$"))))))
1118 '((mark modified read-only locked " "
1119 (name 18 18 :left :elide)
1121 (size-h 9 -1 :right)
1123 (mode 16 16 :left :elide)
1124 " " filename-and-process)
1128 :hook (ibuffer . (lambda () (ibuffer-switch-to-saved-filter-groups "default"))))
1133 #+begin_src emacs-lisp
1134 (use-feature outline
1136 :hook (prog-mode . outline-minor-mode)
1139 outline-minor-mode-map
1140 ("<s-tab>" . outline-toggle-children)
1141 ("M-p" . outline-previous-visible-heading)
1142 ("M-n" . outline-next-visible-heading)
1143 :prefix-map a/outline-prefix-map
1145 ("TAB" . outline-toggle-children)
1146 ("a" . outline-hide-body)
1147 ("H" . outline-hide-body)
1148 ("S" . outline-show-all)
1149 ("h" . outline-hide-subtree)
1150 ("s" . outline-show-subtree)))
1155 #+begin_src emacs-lisp
1156 (use-feature ls-lisp
1157 :custom (ls-lisp-dirs-first t))
1162 (setq dired-listing-switches "-alh"
1163 ls-lisp-use-insert-directory-program nil)
1165 ;; easily diff 2 marked files
1166 ;; https://oremacs.com/2017/03/18/dired-ediff/
1167 (defun dired-ediff-files ()
1169 (defvar ediff-after-quit-hook-internal)
1170 (let ((files (dired-get-marked-files))
1171 (wnd (current-window-configuration)))
1172 (if (<= (length files) 2)
1173 (let ((file1 (car files))
1174 (file2 (if (cdr files)
1178 (dired-dwim-target-directory)))))
1179 (if (file-newer-than-file-p file1 file2)
1180 (ediff-files file2 file1)
1181 (ediff-files file1 file2))
1182 (add-hook 'ediff-after-quit-hook-internal
1184 (setq ediff-after-quit-hook-internal nil)
1185 (set-window-configuration wnd))))
1186 (error "no more than 2 files should be marked"))))
1187 :bind (:map dired-mode-map
1188 ("e" . dired-ediff-files)
1189 ("E" . dired-toggle-read-only)
1190 ("\\" . dired-hide-details-mode)
1193 (a/dired-start-process "zathura"))))
1194 :hook (dired-mode . dired-hide-details-mode))
1199 Highlight uncommitted changes in the left fringe.
1201 #+begin_src emacs-lisp
1202 (use-package diff-hl
1204 (setq diff-hl-draw-borders nil)
1205 (global-diff-hl-mode)
1206 (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh t))
1209 *** Borg's =layer/essentials=
1211 :CUSTOM_ID: borg-essentials
1214 TODO: break this giant source block down into individual org sections.
1216 #+begin_src emacs-lisp
1218 :config (dash-enable-font-lock))
1221 :when (version< "25" emacs-version)
1222 :config (global-eldoc-mode))
1227 (temp-buffer-resize-mode)
1228 (setq help-window-select t))
1231 (setq isearch-allow-scroll t))
1233 (use-feature lisp-mode
1235 (add-hook 'emacs-lisp-mode-hook 'outline-minor-mode)
1236 (add-hook 'emacs-lisp-mode-hook 'reveal-mode)
1237 (defun indent-spaces-mode ()
1238 (setq indent-tabs-mode nil))
1239 (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
1243 :config (setq Man-width 80))
1246 :config (show-paren-mode))
1248 (use-feature prog-mode
1249 :config (global-prettify-symbols-mode)
1250 (defun indicate-buffer-boundaries-left ()
1251 (setq indicate-buffer-boundaries 'left))
1252 (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
1254 (use-feature savehist
1255 :config (savehist-mode))
1257 (use-feature saveplace
1258 :when (version< "25" emacs-version)
1259 :config (save-place-mode))
1262 :config (column-number-mode))
1264 (progn ; `text-mode'
1265 (add-hook 'text-mode-hook #'indicate-buffer-boundaries-left)
1266 (add-hook 'text-mode-hook #'abbrev-mode))
1271 (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
1272 (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
1273 (add-to-list 'tramp-default-proxies-alist
1274 (list (regexp-quote (system-name)) nil nil)))
1285 #+begin_src emacs-lisp
1286 (use-package company
1289 (:map company-active-map
1290 ([tab] . company-complete-common-or-cycle)
1291 ([escape] . company-abort))
1293 (company-minimum-prefix-length 1)
1294 (company-selection-wrap-around t)
1295 (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
1296 (company-dabbrev-downcase nil)
1297 (company-dabbrev-ignore-case nil)
1299 (global-company-mode t))
1302 * COMMENT Syntax and spell checking
1304 :CUSTOM_ID: syntax-spell-checking
1307 #+begin_src emacs-lisp
1308 (use-package flycheck
1310 :hook (prog-mode . flycheck-mode)
1312 (:map flycheck-mode-map
1313 ("M-P" . flycheck-previous-error)
1314 ("M-N" . flycheck-next-error))
1316 ;; Use the load-path from running Emacs when checking elisp files
1317 (setq flycheck-emacs-lisp-load-path 'inherit)
1319 ;; Only flycheck when I actually save the buffer
1320 (setq flycheck-check-syntax-automatically '(mode-enabled save)))
1322 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
1326 ;; ’ can be part of a word
1327 (setq ispell-local-dictionary-alist
1328 `((nil "[[:alpha:]]" "[^[:alpha:]]"
1329 "['\x2019]" nil ("-B") nil utf-8)))
1330 ;; don't send ’ to the subprocess
1331 (defun endless/replace-apostrophe (args)
1332 (cons (replace-regexp-in-string
1335 (advice-add #'ispell-send-string :filter-args
1336 #'endless/replace-apostrophe)
1338 ;; convert ' back to ’ from the subprocess
1339 (defun endless/replace-quote (args)
1340 (if (not (derived-mode-p 'org-mode))
1342 (cons (replace-regexp-in-string
1345 (advice-add #'ispell-parse-output :filter-args
1346 #'endless/replace-quote))
1349 * COMMENT Programming modes
1351 :CUSTOM_ID: programming-modes
1354 ** [[http://alloytools.org][Alloy]] (with [[https://github.com/dwwmmn/alloy-mode][alloy-mode]])
1356 #+begin_src emacs-lisp
1357 (use-package alloy-mode
1359 :config (setq alloy-basic-offset 2))
1362 ** [[https://coq.inria.fr][Coq]] (with [[https://github.com/ProofGeneral/PG][Proof General]])
1364 #+begin_src emacs-lisp
1365 (use-package proof-site ; Proof General
1367 :load-path "lib/proof-site/generic/")
1370 ** [[https://leanprover.github.io][Lean]] (with [[https://github.com/leanprover/lean-mode][lean-mode]])
1372 #+begin_src emacs-lisp
1373 (eval-when-compile (defvar lean-mode-map))
1374 (use-package lean-mode
1376 :bind (:map lean-mode-map
1377 ("S-SPC" . company-complete))
1379 (require 'lean-input)
1380 (setq default-input-method "Lean"
1381 lean-input-tweak-all '(lean-input-compose
1382 (lean-input-prepend "/")
1383 (lean-input-nonempty))
1384 lean-input-user-translations '(("/" "/")))
1390 *** [[https://github.com/haskell/haskell-mode][haskell-mode]]
1392 #+begin_src emacs-lisp
1393 (use-package haskell-mode
1396 (setq haskell-indentation-layout-offset 4
1397 haskell-indentation-left-offset 4
1398 flycheck-checker 'haskell-hlint
1399 flycheck-disabled-checkers '(haskell-stack-ghc haskell-ghc)))
1402 *** [[https://github.com/jyp/dante][dante]]
1404 #+begin_src emacs-lisp
1407 :commands dante-mode
1408 :hook (haskell-mode . dante-mode))
1411 *** [[https://github.com/mpickering/hlint-refactor-mode][hlint-refactor]]
1413 Emacs bindings for [[https://github.com/ndmitchell/hlint][hlint]]'s refactor option. This requires the refact
1414 executable from [[https://github.com/mpickering/apply-refact][apply-refact]].
1416 #+begin_src emacs-lisp
1417 (use-package hlint-refactor
1419 :bind (:map hlint-refactor-mode-map
1420 ("C-c l b" . hlint-refactor-refactor-buffer)
1421 ("C-c l r" . hlint-refactor-refactor-at-point))
1422 :hook (haskell-mode . hlint-refactor-mode))
1425 *** [[https://github.com/flycheck/flycheck-haskell][flycheck-haskell]]
1427 #+begin_src emacs-lisp
1428 (use-package flycheck-haskell
1429 :after haskell-mode)
1432 *** [[https://github.com/ndmitchell/hlint/blob/20e116a043f2073c57b17b24ae6364b5e433ba7e/data/hs-lint.el][hs-lint.el]]
1434 :header-args+: :tangle lisp/hs-lint.el :mkdirp yes
1437 Currently using =flycheck-haskell= with the =haskell-hlint= checker
1440 #+begin_src emacs-lisp :tangle no
1441 ;;; hs-lint.el --- minor mode for HLint code checking
1443 ;; Copyright 2009 (C) Alex Ott
1445 ;; Author: Alex Ott <alexott@gmail.com>
1446 ;; Keywords: haskell, lint, HLint
1448 ;; Status: distributed under terms of GPL2 or above
1450 ;; Typical message from HLint looks like:
1452 ;; /Users/ott/projects/lang-exp/haskell/test.hs:52:1: Eta reduce
1454 ;; count1 p l = length (filter p l)
1456 ;; count1 p = length . filter p
1461 (defgroup hs-lint nil
1462 "Run HLint as inferior of Emacs, parse error messages."
1466 (defcustom hs-lint-command "hlint"
1467 "The default hs-lint command for \\[hlint]."
1471 (defcustom hs-lint-save-files t
1472 "Save modified files when run HLint or no (ask user)"
1476 (defcustom hs-lint-replace-with-suggestions nil
1477 "Replace user's code with suggested replacements"
1481 (defcustom hs-lint-replace-without-ask nil
1482 "Replace user's code with suggested replacements automatically"
1486 (defun hs-lint-process-setup ()
1487 "Setup compilation variables and buffer for `hlint'."
1488 (run-hooks 'hs-lint-setup-hook))
1490 ;; regex for replace suggestions
1492 ;; ^\(.*?\):\([0-9]+\):\([0-9]+\): .*
1498 (defvar hs-lint-regex
1499 "^\\(.*?\\):\\([0-9]+\\):\\([0-9]+\\): .*[\n\C-m]Found:[\n\C-m]\\s +\\(.*\\)[\n\C-m]Why not:[\n\C-m]\\s +\\(.*\\)[\n\C-m]"
1500 "Regex for HLint messages")
1502 (defun make-short-string (str maxlen)
1503 (if (< (length str) maxlen)
1505 (concat (substring str 0 (- maxlen 3)) "...")))
1507 (defun hs-lint-replace-suggestions ()
1508 "Perform actual replacement of suggestions"
1509 (goto-char (point-min))
1510 (while (re-search-forward hs-lint-regex nil t)
1511 (let* ((fname (match-string 1))
1512 (fline (string-to-number (match-string 2)))
1513 (old-code (match-string 4))
1514 (new-code (match-string 5))
1515 (msg (concat "Replace '" (make-short-string old-code 30)
1516 "' with '" (make-short-string new-code 30) "'"))
1522 (switch-to-buffer (get-file-buffer fname))
1523 (goto-char (point-min))
1524 (forward-line (1- fline))
1526 (setf bline (point))
1527 (when (or hs-lint-replace-without-ask
1530 (setf eline (point))
1532 (setf old-code (regexp-quote old-code))
1533 (while (string-match "\\\\ " old-code spos)
1534 (setf new-old-code (concat new-old-code
1535 (substring old-code spos (match-beginning 0))
1537 (setf spos (match-end 0)))
1538 (setf new-old-code (concat new-old-code (substring old-code spos)))
1539 (remove-text-properties bline eline '(composition nil))
1540 (when (re-search-forward new-old-code eline t)
1541 (replace-match new-code nil t)))))))
1543 (defun hs-lint-finish-hook (buf msg)
1544 "Function, that is executed at the end of HLint execution"
1545 (if hs-lint-replace-with-suggestions
1546 (hs-lint-replace-suggestions)
1549 (define-compilation-mode hs-lint-mode "HLint"
1550 "Mode for check Haskell source code."
1551 (set (make-local-variable 'compilation-process-setup-function)
1552 'hs-lint-process-setup)
1553 (set (make-local-variable 'compilation-disable-input) t)
1554 (set (make-local-variable 'compilation-scroll-output) nil)
1555 (set (make-local-variable 'compilation-finish-functions)
1556 (list 'hs-lint-finish-hook))
1560 "Run HLint for current buffer with haskell source"
1562 (save-some-buffers hs-lint-save-files)
1563 (compilation-start (concat hs-lint-command " \"" buffer-file-name "\"")
1567 ;;; hs-lint.el ends here
1570 #+begin_src emacs-lisp :tangle no
1571 (use-package hs-lint
1573 :bind (:map haskell-mode-map
1574 ("C-c l l" . hs-lint)))
1581 #+begin_src emacs-lisp
1582 (use-package sgml-mode
1585 (setq sgml-basic-offset 2))
1590 #+begin_src emacs-lisp
1591 (use-package css-mode
1594 (setq css-indent-offset 2))
1599 #+begin_src emacs-lisp
1600 (use-package web-mode
1605 web-mode-code-indent-offset
1606 web-mode-css-indent-offset
1607 web-mode-markup-indent-offset))
1612 #+begin_src emacs-lisp
1613 (use-package emmet-mode
1614 :after (:any web-mode css-mode sgml-mode)
1615 :bind* (("C-)" . emmet-next-edit-point)
1616 ("C-(" . emmet-prev-edit-point))
1618 (unbind-key "C-j" emmet-mode-keymap)
1619 (setq emmet-move-cursor-between-quotes t)
1620 :hook (web-mode css-mode html-mode sgml-mode))
1627 #+begin_src emacs-lisp
1628 (use-package meghanada
1630 (:map meghanada-mode-map
1631 (("C-M-o" . meghanada-optimize-import)
1632 ("C-M-t" . meghanada-import-all)))
1633 :hook (java-mode . meghanada-mode))
1654 #+begin_src emacs-lisp
1655 (use-package treemacs
1656 :config (setq treemacs-never-persist t))
1658 (use-package yasnippet
1660 ;; (yas-global-mode)
1663 (use-package lsp-mode
1664 :init (setq lsp-eldoc-render-all nil
1665 lsp-highlight-symbol-at-point nil)
1670 (use-package company-lsp
1673 (setq company-lsp-cache-candidates t
1674 company-lsp-async t))
1678 (setq lsp-ui-sideline-update-mode 'point))
1680 (use-package lsp-java
1682 (add-hook 'java-mode-hook
1684 (setq-local company-backends (list 'company-lsp))))
1686 (add-hook 'java-mode-hook 'lsp-java-enable)
1687 (add-hook 'java-mode-hook 'flycheck-mode)
1688 (add-hook 'java-mode-hook 'company-mode)
1689 (add-hook 'java-mode-hook 'lsp-ui-mode))
1691 (use-package dap-mode
1697 (use-package dap-java
1700 (use-package lsp-java-treemacs
1706 #+begin_src emacs-lisp
1707 (use-package geiser)
1709 (use-package geiser-guile
1711 (setq geiser-guile-load-path "~/src/git/guix"))
1716 #+begin_src emacs-lisp
1718 :load-path "lib/guix/elisp")
1721 * COMMENT Emacs enhancements
1723 :CUSTOM_ID: emacs-enhancements
1726 ** [[https://github.com/justbur/emacs-which-key][which-key]]
1729 Emacs package that displays available keybindings in popup
1732 #+begin_src emacs-lisp
1733 (use-package which-key
1736 (which-key-add-key-based-replacements
1737 ;; prefixes for global prefixes and minor modes
1741 "C-c 8 -" "typo/dashes"
1742 "C-c 8 <" "typo/left-brackets"
1743 "C-c 8 >" "typo/right-brackets"
1745 "C-x a" "abbrev/expand"
1746 "C-x r" "rectangle/register/bookmark"
1747 "C-x v" "version control"
1748 ;; prefixes for my personal bindings
1749 "C-c a" "applications"
1752 "C-c c" "compile-and-comments"
1757 "C-c m" "multiple-cursors"
1758 "C-c p" "projectile"
1759 "C-c p s" "projectile/search"
1760 "C-c p x" "projectile/execute"
1761 "C-c p 4" "projectile/other-window"
1767 ;; prefixes for major modes
1768 (which-key-add-major-mode-key-based-replacements 'message-mode
1770 (which-key-add-major-mode-key-based-replacements 'org-mode
1771 "C-c C-v" "org-babel")
1772 (which-key-add-major-mode-key-based-replacements 'web-mode
1773 "C-c C-a" "web/attributes"
1774 "C-c C-b" "web/blocks"
1776 "C-c C-e" "web/element"
1777 "C-c C-t" "web/tags")
1784 #+begin_src emacs-lisp
1785 (add-to-list 'custom-theme-load-path "~/.emacs.d/lisp")
1786 (load-theme 'tangomod t)
1791 #+begin_src emacs-lisp
1792 (use-package smart-mode-line
1799 #+begin_src emacs-lisp
1800 (use-package doom-themes)
1803 ** theme helper functions
1805 #+begin_src emacs-lisp
1806 (defun a/lights-on ()
1807 "Enable my favourite light theme."
1809 (mapc #'disable-theme custom-enabled-themes)
1810 (load-theme 'tangomod t)
1811 (sml/apply-theme 'automatic))
1813 (defun a/lights-off ()
1816 (mapc #'disable-theme custom-enabled-themes)
1817 (load-theme 'doom-tomorrow-night t)
1818 (sml/apply-theme 'automatic))
1821 ("s-t d" . a/lights-off)
1822 ("s-t l" . a/lights-on))
1825 ** [[https://github.com/bbatsov/crux][crux]]
1827 #+begin_src emacs-lisp
1830 :bind (("C-c b k" . crux-kill-other-buffers)
1831 ("C-c d" . crux-duplicate-current-line-or-region)
1832 ("C-c D" . crux-duplicate-and-comment-current-line-or-region)
1833 ("C-c f c" . crux-copy-file-preserve-attributes)
1834 ("C-c f d" . crux-delete-file-and-buffer)
1835 ("C-c f r" . crux-rename-file-and-buffer)
1836 ("C-c j" . crux-top-join-line)
1837 ("C-S-j" . crux-top-join-line)))
1840 ** [[https://github.com/alezost/mwim.el][mwim]]
1842 #+begin_src emacs-lisp
1844 :bind (("C-a" . mwim-beginning-of-code-or-line)
1845 ("C-e" . mwim-end-of-code-or-line)
1846 ("<home>" . mwim-beginning-of-line-or-code)
1847 ("<end>" . mwim-end-of-line-or-code)))
1852 #+begin_src emacs-lisp
1853 (use-package projectile
1855 :bind-keymap ("C-c p" . projectile-command-map)
1859 (defun my-projectile-invalidate-cache (&rest _args)
1860 ;; ignore the args to `magit-checkout'
1861 (projectile-invalidate-cache nil))
1863 (eval-after-load 'magit-branch
1865 (advice-add 'magit-checkout
1866 :after #'my-projectile-invalidate-cache)
1867 (advice-add 'magit-branch-and-checkout
1868 :after #'my-projectile-invalidate-cache)))
1869 :custom (projectile-completion-system 'ivy))
1872 ** [[https://github.com/Wilfred/helpful][helpful]]
1874 #+begin_src emacs-lisp
1875 (use-package helpful
1878 (("C-S-h c" . helpful-command)
1879 ("C-S-h f" . helpful-callable) ; helpful-function
1880 ("C-S-h v" . helpful-variable)
1881 ("C-S-h k" . helpful-key)
1882 ("C-S-h p" . helpful-at-point)))
1885 ** [[https://github.com/EricCrosson/unkillable-scratch][unkillable-scratch]]
1887 Make =*scratch*= and =*Messages*= unkillable.
1889 #+begin_src emacs-lisp
1890 (use-package unkillable-scratch
1893 (unkillable-scratch 1)
1895 (unkillable-scratch-behavior 'do-nothing)
1896 (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
1899 ** [[https://github.com/davep/boxquote.el][boxquote.el]]
1903 | make pretty boxed quotes like this
1907 #+begin_src emacs-lisp
1908 (use-package boxquote
1911 (:prefix-map a/boxquote-prefix-map
1913 ("b" . boxquote-buffer)
1914 ("B" . boxquote-insert-buffer)
1915 ("d" . boxquote-defun)
1916 ("F" . boxquote-insert-file)
1917 ("hf" . boxquote-describe-function)
1918 ("hk" . boxquote-describe-key)
1919 ("hv" . boxquote-describe-variable)
1920 ("hw" . boxquote-where-is)
1921 ("k" . boxquote-kill)
1922 ("p" . boxquote-paragraph)
1923 ("q" . boxquote-boxquote)
1924 ("r" . boxquote-region)
1925 ("s" . boxquote-shell-command)
1926 ("t" . boxquote-text)
1927 ("T" . boxquote-title)
1928 ("u" . boxquote-unbox)
1929 ("U" . boxquote-unbox-region)
1930 ("y" . boxquote-yank)
1931 ("M-q" . boxquote-fill-paragraph)
1932 ("M-w" . boxquote-kill-ring-save)))
1935 Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
1939 #+begin_src emacs-lisp
1940 (use-package orgalist
1942 :hook (message-mode . orgalist-mode))
1947 #+begin_src emacs-lisp
1951 (typo-global-mode 1)
1952 :hook (text-mode . typo-mode))
1957 #+begin_src emacs-lisp
1958 (use-package hl-todo
1961 (global-hl-todo-mode))
1966 #+begin_src emacs-lisp
1967 (use-package shrink-path
1970 (setq eshell-prompt-regexp "\\(.*\n\\)*λ "
1971 eshell-prompt-function #'+eshell/prompt)
1973 (defun +eshell/prompt ()
1974 (let ((base/dir (shrink-path-prompt default-directory)))
1975 (concat (propertize (car base/dir)
1976 'face 'font-lock-comment-face)
1977 (propertize (cdr base/dir)
1978 'face 'font-lock-constant-face)
1979 (propertize (+eshell--current-git-branch)
1980 'face 'font-lock-function-name-face)
1982 (propertize "λ" 'face 'eshell-prompt-face)
1983 ;; needed for the input text to not have prompt face
1984 (propertize " " 'face 'default))))
1986 (defun +eshell--current-git-branch ()
1987 (let ((branch (car (loop for match in (split-string (shell-command-to-string "git branch") "\n")
1988 when (string-match "^\*" match)
1990 (if (not (eq branch nil))
1991 (concat " " (substring branch 2))
1995 ** [[https://github.com/peterwvj/eshell-up][eshell-up]]
1997 #+begin_src emacs-lisp
1998 (use-package eshell-up
2004 #+begin_src emacs-lisp
2005 (use-package multi-term
2007 :bind (("C-c a s m" . multi-term-dedicated-toggle)
2009 ("C-c C-j" . term-char-mode)
2011 ("C-c C-j" . term-line-mode))
2013 (setq multi-term-program "/bin/screen"
2014 ;; TODO: add separate bindings for connecting to existing
2015 ;; session vs. always creating a new one
2016 multi-term-dedicated-select-after-open-p t
2017 multi-term-dedicated-window-height 20
2018 multi-term-dedicated-max-window-height 30
2020 '(("C-c C-c" . term-interrupt-subjob)
2021 ("C-c C-e" . term-send-esc)
2023 ("C-y" . term-paste)
2024 ("M-f" . term-send-forward-word)
2025 ("M-b" . term-send-backward-word)
2026 ("M-p" . term-send-up)
2027 ("M-n" . term-send-down)
2028 ("<C-backspace>" . term-send-backward-kill-word)
2029 ("<M-DEL>" . term-send-backward-kill-word)
2030 ("M-d" . term-send-delete-word)
2031 ("M-," . term-send-raw)
2032 ("M-." . comint-dynamic-complete))
2033 term-unbind-key-alist
2034 '("C-z" "C-x" "C-c" "C-h" "C-y" "<ESC>")))
2039 #+begin_src emacs-lisp
2040 (use-package page-break-lines
2042 (global-page-break-lines-mode))
2047 #+begin_src emacs-lisp
2048 (use-package expand-region
2049 :bind ("C-=" . er/expand-region))
2054 #+begin_src emacs-lisp
2055 (use-package multiple-cursors
2057 (("C-S-<mouse-1>" . mc/add-cursor-on-click)
2058 (:prefix-map a/mc-prefix-map
2060 ("c" . mc/edit-lines)
2061 ("n" . mc/mark-next-like-this)
2062 ("p" . mc/mark-previous-like-this)
2063 ("a" . mc/mark-all-like-this))))
2071 #+begin_src emacs-lisp
2072 (defvar a/maildir (expand-file-name "~/mail/"))
2073 (with-eval-after-load 'recentf
2074 (add-to-list 'recentf-exclude a/maildir))
2079 #+begin_src emacs-lisp
2081 a/gnus-init-file (no-littering-expand-etc-file-name "gnus")
2082 mail-user-agent 'gnus-user-agent
2083 read-mail-command 'gnus)
2086 :bind (("s-m" . gnus)
2087 ("s-M" . gnus-unplugged))
2090 gnus-select-method '(nnnil "")
2091 gnus-secondary-select-methods
2093 (nnimap-stream plain)
2094 (nnimap-address "127.0.0.1")
2095 (nnimap-server-port 143)
2096 (nnimap-authenticator plain)
2097 (nnimap-user "amin@aminb.org"))
2099 (nnimap-stream plain)
2100 (nnimap-address "127.0.0.1")
2101 (nnimap-server-port 143)
2102 (nnimap-authenticator plain)
2103 (nnimap-user "abandali@uwaterloo.ca")))
2104 gnus-message-archive-group "nnimap+amin:Sent"
2108 gnus-large-newsgroup 50
2109 gnus-home-directory (no-littering-expand-var-file-name "gnus/")
2110 gnus-directory (concat gnus-home-directory "news/")
2111 message-directory (concat gnus-home-directory "mail/")
2112 nndraft-directory (concat gnus-home-directory "drafts/")
2113 gnus-save-newsrc-file nil
2114 gnus-read-newsrc-file nil
2115 gnus-interactive-exit nil
2116 gnus-gcc-mark-as-read t))
2118 (use-package gnus-art
2121 gnus-visible-headers
2122 (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
2123 gnus-sorted-header-list
2124 '("^From:" "^Subject:" "^Summary:" "^Keywords:"
2125 "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator"
2126 "^Newsgroups:" "List-Id:" "^Organization:"
2127 "^User-Agent:" "^Date:")
2128 ;; local-lapsed article dates
2129 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
2130 gnus-article-date-headers '(user-defined)
2131 gnus-article-time-format
2133 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
2134 (local (article-make-date-line date 'local))
2135 (combined-lapsed (article-make-date-line date
2138 (string-match " (.+" combined-lapsed)
2139 (match-string 0 combined-lapsed))))
2140 (concat local lapsed))))
2142 :map gnus-article-mode-map
2143 ("r" . gnus-article-reply-with-original)
2144 ("R" . gnus-article-wide-reply-with-original)
2145 ("M-L" . org-store-link)))
2147 (use-package gnus-sum
2148 :bind (:map gnus-summary-mode-map
2149 :prefix-map a/gnus-summary-prefix-map
2151 ("r" . gnus-summary-reply)
2152 ("w" . gnus-summary-wide-reply)
2153 ("v" . gnus-summary-show-raw-article))
2156 :map gnus-summary-mode-map
2157 ("r" . gnus-summary-reply-with-original)
2158 ("R" . gnus-summary-wide-reply-with-original)
2159 ("M-L" . org-store-link))
2160 :hook (gnus-summary-mode . a/no-mouse-autoselect-window))
2162 (use-package gnus-msg
2164 (setq gnus-posting-styles
2166 (address "amin@aminb.org")
2167 (body "\nBest,\namin\n")
2168 (eval (setq a/message-cite-say-hi t)))
2170 (address "bandali@gnu.org"))
2171 ((header "subject" "ThankCRM")
2172 (to "webmasters-comment@gnu.org")
2173 (body "\nAdded to 2018supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
2174 (eval (setq a/message-cite-say-hi nil)))
2175 ("nnimap\\+uwaterloo:.*"
2176 (address "abandali@uwaterloo.ca")
2177 (gcc "\"nnimap+uwaterloo:Sent Items\"")))))
2179 (use-package gnus-topic
2180 :hook (gnus-group-mode . gnus-topic-mode))
2182 (use-package gnus-agent
2184 (setq gnus-agent-synchronize-flags 'ask)
2185 :hook (gnus-group-mode . gnus-agent-mode))
2187 (use-package gnus-group
2189 (setq gnus-permanently-visible-groups "\\((INBOX\\|gnu$\\)"))
2191 (use-package mm-decode
2193 (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
2198 #+begin_src emacs-lisp
2199 (use-package sendmail
2201 (setq sendmail-program "/usr/bin/msmtp"
2202 ;; message-sendmail-extra-arguments '("-v" "-d")
2203 mail-specify-envelope-from t
2204 mail-envelope-from 'header))
2209 #+begin_src emacs-lisp
2210 (use-package message
2212 (defconst a/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
2213 (defconst message-cite-style-bandali
2214 '((message-cite-function 'message-cite-original)
2215 (message-citation-line-function 'message-insert-formatted-citation-line)
2216 (message-cite-reply-position 'traditional)
2217 (message-yank-prefix "> ")
2218 (message-yank-cited-prefix ">")
2219 (message-yank-empty-prefix ">")
2220 (message-citation-line-format
2221 (if a/message-cite-say-hi
2222 (concat "Hi %F,\n\n" a/message-cite-style-format)
2223 a/message-cite-style-format)))
2224 "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
2225 (setq message-cite-style 'message-cite-style-bandali
2226 message-kill-buffer-on-exit t
2227 message-send-mail-function 'message-send-mail-with-sendmail
2228 message-sendmail-envelope-from 'header
2229 message-dont-reply-to-names
2230 "\\(\\(.*@aminb\\.org\\)\\|\\(amin@bandali\\.me\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
2231 message-user-fqdn "aminb.org")
2232 :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
2233 (message-mode . flyspell-mode)
2234 (message-mode . (lambda ()
2235 ;; (setq fill-column 65
2236 ;; message-fill-column 65)
2237 (make-local-variable 'company-idle-delay)
2238 (setq company-idle-delay 0.2))))
2240 ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
2241 ;; (message-header-to ((t (:foreground "#111" :weight normal))))
2242 ;; (message-header-cc ((t (:foreground "#333" :weight normal))))
2245 (with-eval-after-load 'mml-sec
2246 (setq mml-secure-openpgp-encrypt-to-self t
2247 mml-secure-openpgp-sign-with-sender t))
2252 Convenient footnotes in =message-mode=.
2254 #+begin_src emacs-lisp
2255 (use-package footnote
2258 (:map message-mode-map
2259 :prefix-map a/footnote-prefix-map
2261 ("a" . footnote-add-footnote)
2262 ("b" . footnote-back-to-message)
2263 ("c" . footnote-cycle-style)
2264 ("d" . footnote-delete-footnote)
2265 ("g" . footnote-goto-footnote)
2266 ("r" . footnote-renumber-footnotes)
2267 ("s" . footnote-set-style))
2269 (setq footnote-start-tag ""
2271 footnote-style 'unicode))
2276 #+begin_src emacs-lisp
2279 :bind (:map gnus-group-mode-map ("e" . ebdb))
2281 (setq ebdb-sources (no-littering-expand-var-file-name "ebdb"))
2282 (with-eval-after-load 'swiper
2283 (add-to-list 'swiper-font-lock-exclude 'ebdb-mode t)))
2285 (use-package ebdb-com
2288 ;; (use-package ebdb-complete
2291 ;; (ebdb-complete-enable))
2293 (use-package company-ebdb
2294 :after (:all company message)
2296 (defun company-ebdb--post-complete (_) nil)
2298 (message-mode . (lambda ()
2299 (add-to-list (make-local-variable 'company-backends)
2302 (use-package ebdb-gnus
2305 (ebdb-gnus-window-configuration
2308 (summary 0.25 point)
2311 (ebdb-gnus 0.3))))))
2313 (use-package ebdb-mua
2315 ;; :custom (ebdb-mua-pop-up nil)
2318 ;; (use-package ebdb-message
2322 ;; (use-package ebdb-vcard
2326 ** COMMENT message-x
2328 #+begin_src emacs-lisp
2329 (use-package message-x
2331 (message-x-completion-alist
2333 (("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:" . gnus-harvest-find-address)
2336 (quote message-newgroups-header-regexp))
2337 message-newgroups-header-regexp message-newsgroups-header-regexp)
2338 . message-expand-group)))))
2341 ** COMMENT gnus-harvest
2343 #+begin_src emacs-lisp
2344 (use-package gnus-harvest
2345 :commands gnus-harvest-install
2348 (if (featurep 'message-x)
2349 (gnus-harvest-install 'message-x)
2350 (gnus-harvest-install)))
2355 :CUSTOM_ID: blogging
2358 ** [[https://ox-hugo.scripter.co][ox-hugo]]
2360 #+begin_src emacs-lisp
2361 (use-package ox-hugo
2364 (use-package ox-hugo-auto-export
2365 :load-path "lib/ox-hugo")
2368 * Post initialization
2370 :CUSTOM_ID: post-initialization
2373 Display how long it took to load the init file.
2375 #+begin_src emacs-lisp
2376 (message "Loading %s...done (%.3fs)" user-init-file
2377 (float-time (time-subtract (current-time)
2378 a/before-user-init-time)))
2386 #+begin_src emacs-lisp :comments none
2387 ;;; init.el ends here
2390 * COMMENT Local Variables :ARCHIVE:
2392 # eval: ;; (add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local)
2393 # eval: (typo-mode -1)