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)))))
954 *** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
957 Ivy - a generic completion frontend for Emacs, Swiper - isearch with
958 an overview, and more. Oh, man!
961 There's no way I could top that, so I won't attempt to.
965 #+begin_src emacs-lisp
969 (:map ivy-minibuffer-map
970 ([escape] . keyboard-escape-quit)
971 ([S-up] . ivy-previous-history-element)
972 ([S-down] . ivy-next-history-element)
973 ("DEL" . ivy-backward-delete-char))
978 ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
979 ;; (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
980 ;; (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold))))
986 #+begin_src emacs-lisp
989 :bind (("C-s" . swiper)
991 ("C-S-s" . isearch-forward)))
996 #+begin_src emacs-lisp
999 :bind (([remap execute-extended-command] . counsel-M-x)
1000 ([remap find-file] . counsel-find-file)
1001 ("s-r" . counsel-recentf)
1002 ("C-c x" . counsel-M-x)
1003 ("C-c f ." . counsel-find-file)
1004 :map minibuffer-local-map
1005 ("C-r" . counsel-minibuffer-history))
1008 (defalias 'locate #'counsel-locate))
1013 #+begin_src emacs-lisp
1017 :bind ("C-c a s e" . eshell)
1019 (eval-when-compile (defvar eshell-prompt-regexp))
1020 (defun a/eshell-quit-or-delete-char (arg)
1022 (if (and (eolp) (looking-back eshell-prompt-regexp nil))
1023 (eshell-life-is-too-much)
1026 (defun a/eshell-clear ()
1028 (let ((inhibit-read-only t))
1030 (eshell-send-input))
1032 (defun a/eshell-setup ()
1033 (make-local-variable 'company-idle-delay)
1034 (defvar company-idle-delay)
1035 (setq company-idle-delay nil)
1036 (bind-keys :map eshell-mode-map
1037 ("C-d" . a/eshell-quit-or-delete-char)
1038 ("C-S-l" . a/eshell-clear)
1039 ("M-r" . counsel-esh-history)
1040 ([tab] . company-complete)))
1042 :hook (eshell-mode . a/eshell-setup)
1044 (eshell-hist-ignoredups t)
1045 (eshell-input-filter 'eshell-input-filter-initial-space))
1050 #+begin_src emacs-lisp
1051 (use-feature ibuffer
1054 (("C-x C-b" . ibuffer-other-window)
1055 :map ibuffer-mode-map
1056 ("P" . ibuffer-backward-filter-group)
1057 ("N" . ibuffer-forward-filter-group)
1058 ("M-p" . ibuffer-do-print)
1059 ("M-n" . ibuffer-do-shell-command-pipe-replace))
1061 ;; Use human readable Size column instead of original one
1062 (define-ibuffer-column size-h
1063 (:name "Size" :inline t)
1065 ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
1066 ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
1067 ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
1068 (t (format "%8d" (buffer-size)))))
1070 (ibuffer-saved-filter-groups
1072 ("dired" (mode . dired-mode))
1073 ("org" (mode . org-mode))
1076 (mode . gnus-group-mode)
1077 (mode . gnus-summary-mode)
1078 (mode . gnus-article-mode)
1079 ;; not really, but...
1080 (mode . message-mode)))
1089 (mode . eshell-mode)
1091 (mode . term-mode)))
1094 (mode . python-mode)
1097 (mode . emacs-lisp-mode)
1098 (mode . scheme-mode)
1099 (mode . haskell-mode)
1100 (mode . lean-mode)))
1103 (name . "^\\*scratch\\*$")
1104 (name . "^\\*Messages\\*$"))))))
1106 '((mark modified read-only locked " "
1107 (name 18 18 :left :elide)
1109 (size-h 9 -1 :right)
1111 (mode 16 16 :left :elide)
1112 " " filename-and-process)
1116 :hook (ibuffer . (lambda () (ibuffer-switch-to-saved-filter-groups "default"))))
1121 #+begin_src emacs-lisp
1122 (use-feature outline
1124 :hook (prog-mode . outline-minor-mode)
1127 outline-minor-mode-map
1128 ("<s-tab>" . outline-toggle-children)
1129 ("M-p" . outline-previous-visible-heading)
1130 ("M-n" . outline-next-visible-heading)
1131 :prefix-map a/outline-prefix-map
1133 ("TAB" . outline-toggle-children)
1134 ("a" . outline-hide-body)
1135 ("H" . outline-hide-body)
1136 ("S" . outline-show-all)
1137 ("h" . outline-hide-subtree)
1138 ("s" . outline-show-subtree)))
1141 * Borg's =layer/essentials=
1143 :CUSTOM_ID: borg-essentials
1146 TODO: break this giant source block down into individual org sections.
1148 #+begin_src emacs-lisp
1150 :config (dash-enable-font-lock))
1152 (use-package diff-hl
1154 (setq diff-hl-draw-borders nil)
1155 (global-diff-hl-mode)
1156 (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh t))
1158 (use-feature ls-lisp
1159 :custom (ls-lisp-dirs-first t))
1164 (setq dired-listing-switches "-alh"
1165 ls-lisp-use-insert-directory-program nil)
1167 ;; easily diff 2 marked files
1168 ;; https://oremacs.com/2017/03/18/dired-ediff/
1169 (defun dired-ediff-files ()
1171 (defvar ediff-after-quit-hook-internal)
1172 (let ((files (dired-get-marked-files))
1173 (wnd (current-window-configuration)))
1174 (if (<= (length files) 2)
1175 (let ((file1 (car files))
1176 (file2 (if (cdr files)
1180 (dired-dwim-target-directory)))))
1181 (if (file-newer-than-file-p file1 file2)
1182 (ediff-files file2 file1)
1183 (ediff-files file1 file2))
1184 (add-hook 'ediff-after-quit-hook-internal
1186 (setq ediff-after-quit-hook-internal nil)
1187 (set-window-configuration wnd))))
1188 (error "no more than 2 files should be marked"))))
1189 :bind (:map dired-mode-map
1190 ("e" . dired-ediff-files)
1191 ("E" . dired-toggle-read-only)
1192 ("\\" . dired-hide-details-mode)
1195 (a/dired-start-process "zathura"))))
1196 :hook (dired-mode . dired-hide-details-mode))
1199 :when (version< "25" emacs-version)
1200 :config (global-eldoc-mode))
1205 (temp-buffer-resize-mode)
1206 (setq help-window-select t))
1209 (setq isearch-allow-scroll t))
1211 (use-feature lisp-mode
1213 (add-hook 'emacs-lisp-mode-hook 'outline-minor-mode)
1214 (add-hook 'emacs-lisp-mode-hook 'reveal-mode)
1215 (defun indent-spaces-mode ()
1216 (setq indent-tabs-mode nil))
1217 (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
1221 :config (setq Man-width 80))
1224 :config (show-paren-mode))
1226 (use-feature prog-mode
1227 :config (global-prettify-symbols-mode)
1228 (defun indicate-buffer-boundaries-left ()
1229 (setq indicate-buffer-boundaries 'left))
1230 (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
1232 (use-feature recentf
1235 (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
1236 (setq recentf-max-saved-items 40))
1238 (use-feature savehist
1239 :config (savehist-mode))
1241 (use-feature saveplace
1242 :when (version< "25" emacs-version)
1243 :config (save-place-mode))
1246 :config (column-number-mode))
1248 (progn ; `text-mode'
1249 (add-hook 'text-mode-hook #'indicate-buffer-boundaries-left)
1250 (add-hook 'text-mode-hook #'abbrev-mode))
1255 (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
1256 (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
1257 (add-to-list 'tramp-default-proxies-alist
1258 (list (regexp-quote (system-name)) nil nil)))
1269 #+begin_src emacs-lisp
1270 (use-package company
1273 (:map company-active-map
1274 ([tab] . company-complete-common-or-cycle)
1275 ([escape] . company-abort))
1277 (company-minimum-prefix-length 1)
1278 (company-selection-wrap-around t)
1279 (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
1280 (company-dabbrev-downcase nil)
1281 (company-dabbrev-ignore-case nil)
1283 (global-company-mode t))
1286 * COMMENT Syntax and spell checking
1288 :CUSTOM_ID: syntax-spell-checking
1291 #+begin_src emacs-lisp
1292 (use-package flycheck
1294 :hook (prog-mode . flycheck-mode)
1296 (:map flycheck-mode-map
1297 ("M-P" . flycheck-previous-error)
1298 ("M-N" . flycheck-next-error))
1300 ;; Use the load-path from running Emacs when checking elisp files
1301 (setq flycheck-emacs-lisp-load-path 'inherit)
1303 ;; Only flycheck when I actually save the buffer
1304 (setq flycheck-check-syntax-automatically '(mode-enabled save)))
1306 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
1310 ;; ’ can be part of a word
1311 (setq ispell-local-dictionary-alist
1312 `((nil "[[:alpha:]]" "[^[:alpha:]]"
1313 "['\x2019]" nil ("-B") nil utf-8)))
1314 ;; don't send ’ to the subprocess
1315 (defun endless/replace-apostrophe (args)
1316 (cons (replace-regexp-in-string
1319 (advice-add #'ispell-send-string :filter-args
1320 #'endless/replace-apostrophe)
1322 ;; convert ' back to ’ from the subprocess
1323 (defun endless/replace-quote (args)
1324 (if (not (derived-mode-p 'org-mode))
1326 (cons (replace-regexp-in-string
1329 (advice-add #'ispell-parse-output :filter-args
1330 #'endless/replace-quote))
1333 * COMMENT Programming modes
1335 :CUSTOM_ID: programming-modes
1338 ** [[http://alloytools.org][Alloy]] (with [[https://github.com/dwwmmn/alloy-mode][alloy-mode]])
1340 #+begin_src emacs-lisp
1341 (use-package alloy-mode
1343 :config (setq alloy-basic-offset 2))
1346 ** [[https://coq.inria.fr][Coq]] (with [[https://github.com/ProofGeneral/PG][Proof General]])
1348 #+begin_src emacs-lisp
1349 (use-package proof-site ; Proof General
1351 :load-path "lib/proof-site/generic/")
1354 ** [[https://leanprover.github.io][Lean]] (with [[https://github.com/leanprover/lean-mode][lean-mode]])
1356 #+begin_src emacs-lisp
1357 (eval-when-compile (defvar lean-mode-map))
1358 (use-package lean-mode
1360 :bind (:map lean-mode-map
1361 ("S-SPC" . company-complete))
1363 (require 'lean-input)
1364 (setq default-input-method "Lean"
1365 lean-input-tweak-all '(lean-input-compose
1366 (lean-input-prepend "/")
1367 (lean-input-nonempty))
1368 lean-input-user-translations '(("/" "/")))
1374 *** [[https://github.com/haskell/haskell-mode][haskell-mode]]
1376 #+begin_src emacs-lisp
1377 (use-package haskell-mode
1380 (setq haskell-indentation-layout-offset 4
1381 haskell-indentation-left-offset 4
1382 flycheck-checker 'haskell-hlint
1383 flycheck-disabled-checkers '(haskell-stack-ghc haskell-ghc)))
1386 *** [[https://github.com/jyp/dante][dante]]
1388 #+begin_src emacs-lisp
1391 :commands dante-mode
1392 :hook (haskell-mode . dante-mode))
1395 *** [[https://github.com/mpickering/hlint-refactor-mode][hlint-refactor]]
1397 Emacs bindings for [[https://github.com/ndmitchell/hlint][hlint]]'s refactor option. This requires the refact
1398 executable from [[https://github.com/mpickering/apply-refact][apply-refact]].
1400 #+begin_src emacs-lisp
1401 (use-package hlint-refactor
1403 :bind (:map hlint-refactor-mode-map
1404 ("C-c l b" . hlint-refactor-refactor-buffer)
1405 ("C-c l r" . hlint-refactor-refactor-at-point))
1406 :hook (haskell-mode . hlint-refactor-mode))
1409 *** [[https://github.com/flycheck/flycheck-haskell][flycheck-haskell]]
1411 #+begin_src emacs-lisp
1412 (use-package flycheck-haskell
1413 :after haskell-mode)
1416 *** [[https://github.com/ndmitchell/hlint/blob/20e116a043f2073c57b17b24ae6364b5e433ba7e/data/hs-lint.el][hs-lint.el]]
1418 :header-args+: :tangle lisp/hs-lint.el :mkdirp yes
1421 Currently using =flycheck-haskell= with the =haskell-hlint= checker
1424 #+begin_src emacs-lisp :tangle no
1425 ;;; hs-lint.el --- minor mode for HLint code checking
1427 ;; Copyright 2009 (C) Alex Ott
1429 ;; Author: Alex Ott <alexott@gmail.com>
1430 ;; Keywords: haskell, lint, HLint
1432 ;; Status: distributed under terms of GPL2 or above
1434 ;; Typical message from HLint looks like:
1436 ;; /Users/ott/projects/lang-exp/haskell/test.hs:52:1: Eta reduce
1438 ;; count1 p l = length (filter p l)
1440 ;; count1 p = length . filter p
1445 (defgroup hs-lint nil
1446 "Run HLint as inferior of Emacs, parse error messages."
1450 (defcustom hs-lint-command "hlint"
1451 "The default hs-lint command for \\[hlint]."
1455 (defcustom hs-lint-save-files t
1456 "Save modified files when run HLint or no (ask user)"
1460 (defcustom hs-lint-replace-with-suggestions nil
1461 "Replace user's code with suggested replacements"
1465 (defcustom hs-lint-replace-without-ask nil
1466 "Replace user's code with suggested replacements automatically"
1470 (defun hs-lint-process-setup ()
1471 "Setup compilation variables and buffer for `hlint'."
1472 (run-hooks 'hs-lint-setup-hook))
1474 ;; regex for replace suggestions
1476 ;; ^\(.*?\):\([0-9]+\):\([0-9]+\): .*
1482 (defvar hs-lint-regex
1483 "^\\(.*?\\):\\([0-9]+\\):\\([0-9]+\\): .*[\n\C-m]Found:[\n\C-m]\\s +\\(.*\\)[\n\C-m]Why not:[\n\C-m]\\s +\\(.*\\)[\n\C-m]"
1484 "Regex for HLint messages")
1486 (defun make-short-string (str maxlen)
1487 (if (< (length str) maxlen)
1489 (concat (substring str 0 (- maxlen 3)) "...")))
1491 (defun hs-lint-replace-suggestions ()
1492 "Perform actual replacement of suggestions"
1493 (goto-char (point-min))
1494 (while (re-search-forward hs-lint-regex nil t)
1495 (let* ((fname (match-string 1))
1496 (fline (string-to-number (match-string 2)))
1497 (old-code (match-string 4))
1498 (new-code (match-string 5))
1499 (msg (concat "Replace '" (make-short-string old-code 30)
1500 "' with '" (make-short-string new-code 30) "'"))
1506 (switch-to-buffer (get-file-buffer fname))
1507 (goto-char (point-min))
1508 (forward-line (1- fline))
1510 (setf bline (point))
1511 (when (or hs-lint-replace-without-ask
1514 (setf eline (point))
1516 (setf old-code (regexp-quote old-code))
1517 (while (string-match "\\\\ " old-code spos)
1518 (setf new-old-code (concat new-old-code
1519 (substring old-code spos (match-beginning 0))
1521 (setf spos (match-end 0)))
1522 (setf new-old-code (concat new-old-code (substring old-code spos)))
1523 (remove-text-properties bline eline '(composition nil))
1524 (when (re-search-forward new-old-code eline t)
1525 (replace-match new-code nil t)))))))
1527 (defun hs-lint-finish-hook (buf msg)
1528 "Function, that is executed at the end of HLint execution"
1529 (if hs-lint-replace-with-suggestions
1530 (hs-lint-replace-suggestions)
1533 (define-compilation-mode hs-lint-mode "HLint"
1534 "Mode for check Haskell source code."
1535 (set (make-local-variable 'compilation-process-setup-function)
1536 'hs-lint-process-setup)
1537 (set (make-local-variable 'compilation-disable-input) t)
1538 (set (make-local-variable 'compilation-scroll-output) nil)
1539 (set (make-local-variable 'compilation-finish-functions)
1540 (list 'hs-lint-finish-hook))
1544 "Run HLint for current buffer with haskell source"
1546 (save-some-buffers hs-lint-save-files)
1547 (compilation-start (concat hs-lint-command " \"" buffer-file-name "\"")
1551 ;;; hs-lint.el ends here
1554 #+begin_src emacs-lisp :tangle no
1555 (use-package hs-lint
1557 :bind (:map haskell-mode-map
1558 ("C-c l l" . hs-lint)))
1565 #+begin_src emacs-lisp
1566 (use-package sgml-mode
1569 (setq sgml-basic-offset 2))
1574 #+begin_src emacs-lisp
1575 (use-package css-mode
1578 (setq css-indent-offset 2))
1583 #+begin_src emacs-lisp
1584 (use-package web-mode
1589 web-mode-code-indent-offset
1590 web-mode-css-indent-offset
1591 web-mode-markup-indent-offset))
1596 #+begin_src emacs-lisp
1597 (use-package emmet-mode
1598 :after (:any web-mode css-mode sgml-mode)
1599 :bind* (("C-)" . emmet-next-edit-point)
1600 ("C-(" . emmet-prev-edit-point))
1602 (unbind-key "C-j" emmet-mode-keymap)
1603 (setq emmet-move-cursor-between-quotes t)
1604 :hook (web-mode css-mode html-mode sgml-mode))
1611 #+begin_src emacs-lisp
1612 (use-package meghanada
1614 (:map meghanada-mode-map
1615 (("C-M-o" . meghanada-optimize-import)
1616 ("C-M-t" . meghanada-import-all)))
1617 :hook (java-mode . meghanada-mode))
1638 #+begin_src emacs-lisp
1639 (use-package treemacs
1640 :config (setq treemacs-never-persist t))
1642 (use-package yasnippet
1644 ;; (yas-global-mode)
1647 (use-package lsp-mode
1648 :init (setq lsp-eldoc-render-all nil
1649 lsp-highlight-symbol-at-point nil)
1654 (use-package company-lsp
1657 (setq company-lsp-cache-candidates t
1658 company-lsp-async t))
1662 (setq lsp-ui-sideline-update-mode 'point))
1664 (use-package lsp-java
1666 (add-hook 'java-mode-hook
1668 (setq-local company-backends (list 'company-lsp))))
1670 (add-hook 'java-mode-hook 'lsp-java-enable)
1671 (add-hook 'java-mode-hook 'flycheck-mode)
1672 (add-hook 'java-mode-hook 'company-mode)
1673 (add-hook 'java-mode-hook 'lsp-ui-mode))
1675 (use-package dap-mode
1681 (use-package dap-java
1684 (use-package lsp-java-treemacs
1690 #+begin_src emacs-lisp
1691 (use-package geiser)
1693 (use-package geiser-guile
1695 (setq geiser-guile-load-path "~/src/git/guix"))
1700 #+begin_src emacs-lisp
1702 :load-path "lib/guix/elisp")
1705 * COMMENT Emacs enhancements
1707 :CUSTOM_ID: emacs-enhancements
1710 ** [[https://github.com/justbur/emacs-which-key][which-key]]
1713 Emacs package that displays available keybindings in popup
1716 #+begin_src emacs-lisp
1717 (use-package which-key
1720 (which-key-add-key-based-replacements
1721 ;; prefixes for global prefixes and minor modes
1725 "C-c 8 -" "typo/dashes"
1726 "C-c 8 <" "typo/left-brackets"
1727 "C-c 8 >" "typo/right-brackets"
1729 "C-x a" "abbrev/expand"
1730 "C-x r" "rectangle/register/bookmark"
1731 "C-x v" "version control"
1732 ;; prefixes for my personal bindings
1733 "C-c a" "applications"
1736 "C-c c" "compile-and-comments"
1741 "C-c m" "multiple-cursors"
1742 "C-c p" "projectile"
1743 "C-c p s" "projectile/search"
1744 "C-c p x" "projectile/execute"
1745 "C-c p 4" "projectile/other-window"
1751 ;; prefixes for major modes
1752 (which-key-add-major-mode-key-based-replacements 'message-mode
1754 (which-key-add-major-mode-key-based-replacements 'org-mode
1755 "C-c C-v" "org-babel")
1756 (which-key-add-major-mode-key-based-replacements 'web-mode
1757 "C-c C-a" "web/attributes"
1758 "C-c C-b" "web/blocks"
1760 "C-c C-e" "web/element"
1761 "C-c C-t" "web/tags")
1768 #+begin_src emacs-lisp
1769 (add-to-list 'custom-theme-load-path "~/.emacs.d/lisp")
1770 (load-theme 'tangomod t)
1775 #+begin_src emacs-lisp
1776 (use-package smart-mode-line
1783 #+begin_src emacs-lisp
1784 (use-package doom-themes)
1787 ** theme helper functions
1789 #+begin_src emacs-lisp
1790 (defun a/lights-on ()
1791 "Enable my favourite light theme."
1793 (mapc #'disable-theme custom-enabled-themes)
1794 (load-theme 'tangomod t)
1795 (sml/apply-theme 'automatic))
1797 (defun a/lights-off ()
1800 (mapc #'disable-theme custom-enabled-themes)
1801 (load-theme 'doom-tomorrow-night t)
1802 (sml/apply-theme 'automatic))
1805 ("s-t d" . a/lights-off)
1806 ("s-t l" . a/lights-on))
1809 ** [[https://github.com/bbatsov/crux][crux]]
1811 #+begin_src emacs-lisp
1814 :bind (("C-c b k" . crux-kill-other-buffers)
1815 ("C-c d" . crux-duplicate-current-line-or-region)
1816 ("C-c D" . crux-duplicate-and-comment-current-line-or-region)
1817 ("C-c f c" . crux-copy-file-preserve-attributes)
1818 ("C-c f d" . crux-delete-file-and-buffer)
1819 ("C-c f r" . crux-rename-file-and-buffer)
1820 ("C-c j" . crux-top-join-line)
1821 ("C-S-j" . crux-top-join-line)))
1824 ** [[https://github.com/alezost/mwim.el][mwim]]
1826 #+begin_src emacs-lisp
1828 :bind (("C-a" . mwim-beginning-of-code-or-line)
1829 ("C-e" . mwim-end-of-code-or-line)
1830 ("<home>" . mwim-beginning-of-line-or-code)
1831 ("<end>" . mwim-end-of-line-or-code)))
1836 #+begin_src emacs-lisp
1837 (use-package projectile
1839 :bind-keymap ("C-c p" . projectile-command-map)
1843 (defun my-projectile-invalidate-cache (&rest _args)
1844 ;; ignore the args to `magit-checkout'
1845 (projectile-invalidate-cache nil))
1847 (eval-after-load 'magit-branch
1849 (advice-add 'magit-checkout
1850 :after #'my-projectile-invalidate-cache)
1851 (advice-add 'magit-branch-and-checkout
1852 :after #'my-projectile-invalidate-cache)))
1853 :custom (projectile-completion-system 'ivy))
1856 ** [[https://github.com/Wilfred/helpful][helpful]]
1858 #+begin_src emacs-lisp
1859 (use-package helpful
1862 (("C-S-h c" . helpful-command)
1863 ("C-S-h f" . helpful-callable) ; helpful-function
1864 ("C-S-h v" . helpful-variable)
1865 ("C-S-h k" . helpful-key)
1866 ("C-S-h p" . helpful-at-point)))
1869 ** [[https://github.com/EricCrosson/unkillable-scratch][unkillable-scratch]]
1871 Make =*scratch*= and =*Messages*= unkillable.
1873 #+begin_src emacs-lisp
1874 (use-package unkillable-scratch
1877 (unkillable-scratch 1)
1879 (unkillable-scratch-behavior 'do-nothing)
1880 (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
1883 ** [[https://github.com/davep/boxquote.el][boxquote.el]]
1887 | make pretty boxed quotes like this
1891 #+begin_src emacs-lisp
1892 (use-package boxquote
1895 (:prefix-map a/boxquote-prefix-map
1897 ("b" . boxquote-buffer)
1898 ("B" . boxquote-insert-buffer)
1899 ("d" . boxquote-defun)
1900 ("F" . boxquote-insert-file)
1901 ("hf" . boxquote-describe-function)
1902 ("hk" . boxquote-describe-key)
1903 ("hv" . boxquote-describe-variable)
1904 ("hw" . boxquote-where-is)
1905 ("k" . boxquote-kill)
1906 ("p" . boxquote-paragraph)
1907 ("q" . boxquote-boxquote)
1908 ("r" . boxquote-region)
1909 ("s" . boxquote-shell-command)
1910 ("t" . boxquote-text)
1911 ("T" . boxquote-title)
1912 ("u" . boxquote-unbox)
1913 ("U" . boxquote-unbox-region)
1914 ("y" . boxquote-yank)
1915 ("M-q" . boxquote-fill-paragraph)
1916 ("M-w" . boxquote-kill-ring-save)))
1919 Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
1923 #+begin_src emacs-lisp
1924 (use-package orgalist
1926 :hook (message-mode . orgalist-mode))
1931 #+begin_src emacs-lisp
1935 (typo-global-mode 1)
1936 :hook (text-mode . typo-mode))
1941 #+begin_src emacs-lisp
1942 (use-package hl-todo
1945 (global-hl-todo-mode))
1950 #+begin_src emacs-lisp
1951 (use-package shrink-path
1954 (setq eshell-prompt-regexp "\\(.*\n\\)*λ "
1955 eshell-prompt-function #'+eshell/prompt)
1957 (defun +eshell/prompt ()
1958 (let ((base/dir (shrink-path-prompt default-directory)))
1959 (concat (propertize (car base/dir)
1960 'face 'font-lock-comment-face)
1961 (propertize (cdr base/dir)
1962 'face 'font-lock-constant-face)
1963 (propertize (+eshell--current-git-branch)
1964 'face 'font-lock-function-name-face)
1966 (propertize "λ" 'face 'eshell-prompt-face)
1967 ;; needed for the input text to not have prompt face
1968 (propertize " " 'face 'default))))
1970 (defun +eshell--current-git-branch ()
1971 (let ((branch (car (loop for match in (split-string (shell-command-to-string "git branch") "\n")
1972 when (string-match "^\*" match)
1974 (if (not (eq branch nil))
1975 (concat " " (substring branch 2))
1979 ** [[https://github.com/peterwvj/eshell-up][eshell-up]]
1981 #+begin_src emacs-lisp
1982 (use-package eshell-up
1988 #+begin_src emacs-lisp
1989 (use-package multi-term
1991 :bind (("C-c a s m" . multi-term-dedicated-toggle)
1993 ("C-c C-j" . term-char-mode)
1995 ("C-c C-j" . term-line-mode))
1997 (setq multi-term-program "/bin/screen"
1998 ;; TODO: add separate bindings for connecting to existing
1999 ;; session vs. always creating a new one
2000 multi-term-dedicated-select-after-open-p t
2001 multi-term-dedicated-window-height 20
2002 multi-term-dedicated-max-window-height 30
2004 '(("C-c C-c" . term-interrupt-subjob)
2005 ("C-c C-e" . term-send-esc)
2007 ("C-y" . term-paste)
2008 ("M-f" . term-send-forward-word)
2009 ("M-b" . term-send-backward-word)
2010 ("M-p" . term-send-up)
2011 ("M-n" . term-send-down)
2012 ("<C-backspace>" . term-send-backward-kill-word)
2013 ("<M-DEL>" . term-send-backward-kill-word)
2014 ("M-d" . term-send-delete-word)
2015 ("M-," . term-send-raw)
2016 ("M-." . comint-dynamic-complete))
2017 term-unbind-key-alist
2018 '("C-z" "C-x" "C-c" "C-h" "C-y" "<ESC>")))
2023 #+begin_src emacs-lisp
2024 (use-package page-break-lines
2026 (global-page-break-lines-mode))
2031 #+begin_src emacs-lisp
2032 (use-package expand-region
2033 :bind ("C-=" . er/expand-region))
2038 #+begin_src emacs-lisp
2039 (use-package multiple-cursors
2041 (("C-S-<mouse-1>" . mc/add-cursor-on-click)
2042 (:prefix-map a/mc-prefix-map
2044 ("c" . mc/edit-lines)
2045 ("n" . mc/mark-next-like-this)
2046 ("p" . mc/mark-previous-like-this)
2047 ("a" . mc/mark-all-like-this))))
2055 #+begin_src emacs-lisp
2056 (defvar a/maildir (expand-file-name "~/mail/"))
2057 (with-eval-after-load 'recentf
2058 (add-to-list 'recentf-exclude a/maildir))
2063 #+begin_src emacs-lisp
2065 a/gnus-init-file (no-littering-expand-etc-file-name "gnus")
2066 mail-user-agent 'gnus-user-agent
2067 read-mail-command 'gnus)
2070 :bind (("s-m" . gnus)
2071 ("s-M" . gnus-unplugged))
2074 gnus-select-method '(nnnil "")
2075 gnus-secondary-select-methods
2077 (nnimap-stream plain)
2078 (nnimap-address "127.0.0.1")
2079 (nnimap-server-port 143)
2080 (nnimap-authenticator plain)
2081 (nnimap-user "amin@aminb.org"))
2083 (nnimap-stream plain)
2084 (nnimap-address "127.0.0.1")
2085 (nnimap-server-port 143)
2086 (nnimap-authenticator plain)
2087 (nnimap-user "abandali@uwaterloo.ca")))
2088 gnus-message-archive-group "nnimap+amin:Sent"
2092 gnus-large-newsgroup 50
2093 gnus-home-directory (no-littering-expand-var-file-name "gnus/")
2094 gnus-directory (concat gnus-home-directory "news/")
2095 message-directory (concat gnus-home-directory "mail/")
2096 nndraft-directory (concat gnus-home-directory "drafts/")
2097 gnus-save-newsrc-file nil
2098 gnus-read-newsrc-file nil
2099 gnus-interactive-exit nil
2100 gnus-gcc-mark-as-read t))
2102 (use-package gnus-art
2105 gnus-visible-headers
2106 (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
2107 gnus-sorted-header-list
2108 '("^From:" "^Subject:" "^Summary:" "^Keywords:"
2109 "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator"
2110 "^Newsgroups:" "List-Id:" "^Organization:"
2111 "^User-Agent:" "^Date:")
2112 ;; local-lapsed article dates
2113 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
2114 gnus-article-date-headers '(user-defined)
2115 gnus-article-time-format
2117 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
2118 (local (article-make-date-line date 'local))
2119 (combined-lapsed (article-make-date-line date
2122 (string-match " (.+" combined-lapsed)
2123 (match-string 0 combined-lapsed))))
2124 (concat local lapsed))))
2126 :map gnus-article-mode-map
2127 ("r" . gnus-article-reply-with-original)
2128 ("R" . gnus-article-wide-reply-with-original)
2129 ("M-L" . org-store-link)))
2131 (use-package gnus-sum
2132 :bind (:map gnus-summary-mode-map
2133 :prefix-map a/gnus-summary-prefix-map
2135 ("r" . gnus-summary-reply)
2136 ("w" . gnus-summary-wide-reply)
2137 ("v" . gnus-summary-show-raw-article))
2140 :map gnus-summary-mode-map
2141 ("r" . gnus-summary-reply-with-original)
2142 ("R" . gnus-summary-wide-reply-with-original)
2143 ("M-L" . org-store-link))
2144 :hook (gnus-summary-mode . a/no-mouse-autoselect-window))
2146 (use-package gnus-msg
2148 (setq gnus-posting-styles
2150 (address "amin@aminb.org")
2151 (body "\nBest,\namin\n")
2152 (eval (setq a/message-cite-say-hi t)))
2154 (address "bandali@gnu.org"))
2155 ((header "subject" "ThankCRM")
2156 (to "webmasters-comment@gnu.org")
2157 (body "\nAdded to 2018supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
2158 (eval (setq a/message-cite-say-hi nil)))
2159 ("nnimap\\+uwaterloo:.*"
2160 (address "abandali@uwaterloo.ca")
2161 (gcc "\"nnimap+uwaterloo:Sent Items\"")))))
2163 (use-package gnus-topic
2164 :hook (gnus-group-mode . gnus-topic-mode))
2166 (use-package gnus-agent
2168 (setq gnus-agent-synchronize-flags 'ask)
2169 :hook (gnus-group-mode . gnus-agent-mode))
2171 (use-package gnus-group
2173 (setq gnus-permanently-visible-groups "\\((INBOX\\|gnu$\\)"))
2175 (use-package mm-decode
2177 (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
2182 #+begin_src emacs-lisp
2183 (use-package sendmail
2185 (setq sendmail-program "/usr/bin/msmtp"
2186 ;; message-sendmail-extra-arguments '("-v" "-d")
2187 mail-specify-envelope-from t
2188 mail-envelope-from 'header))
2193 #+begin_src emacs-lisp
2194 (use-package message
2196 (defconst a/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
2197 (defconst message-cite-style-bandali
2198 '((message-cite-function 'message-cite-original)
2199 (message-citation-line-function 'message-insert-formatted-citation-line)
2200 (message-cite-reply-position 'traditional)
2201 (message-yank-prefix "> ")
2202 (message-yank-cited-prefix ">")
2203 (message-yank-empty-prefix ">")
2204 (message-citation-line-format
2205 (if a/message-cite-say-hi
2206 (concat "Hi %F,\n\n" a/message-cite-style-format)
2207 a/message-cite-style-format)))
2208 "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
2209 (setq message-cite-style 'message-cite-style-bandali
2210 message-kill-buffer-on-exit t
2211 message-send-mail-function 'message-send-mail-with-sendmail
2212 message-sendmail-envelope-from 'header
2213 message-dont-reply-to-names
2214 "\\(\\(.*@aminb\\.org\\)\\|\\(amin@bandali\\.me\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
2215 message-user-fqdn "aminb.org")
2216 :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
2217 (message-mode . flyspell-mode)
2218 (message-mode . (lambda ()
2219 ;; (setq fill-column 65
2220 ;; message-fill-column 65)
2221 (make-local-variable 'company-idle-delay)
2222 (setq company-idle-delay 0.2))))
2224 ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
2225 ;; (message-header-to ((t (:foreground "#111" :weight normal))))
2226 ;; (message-header-cc ((t (:foreground "#333" :weight normal))))
2229 (with-eval-after-load 'mml-sec
2230 (setq mml-secure-openpgp-encrypt-to-self t
2231 mml-secure-openpgp-sign-with-sender t))
2236 Convenient footnotes in =message-mode=.
2238 #+begin_src emacs-lisp
2239 (use-package footnote
2242 (:map message-mode-map
2243 :prefix-map a/footnote-prefix-map
2245 ("a" . footnote-add-footnote)
2246 ("b" . footnote-back-to-message)
2247 ("c" . footnote-cycle-style)
2248 ("d" . footnote-delete-footnote)
2249 ("g" . footnote-goto-footnote)
2250 ("r" . footnote-renumber-footnotes)
2251 ("s" . footnote-set-style))
2253 (setq footnote-start-tag ""
2255 footnote-style 'unicode))
2260 #+begin_src emacs-lisp
2263 :bind (:map gnus-group-mode-map ("e" . ebdb))
2265 (setq ebdb-sources (no-littering-expand-var-file-name "ebdb"))
2266 (with-eval-after-load 'swiper
2267 (add-to-list 'swiper-font-lock-exclude 'ebdb-mode t)))
2269 (use-package ebdb-com
2272 ;; (use-package ebdb-complete
2275 ;; (ebdb-complete-enable))
2277 (use-package company-ebdb
2278 :after (:all company message)
2280 (defun company-ebdb--post-complete (_) nil)
2282 (message-mode . (lambda ()
2283 (add-to-list (make-local-variable 'company-backends)
2286 (use-package ebdb-gnus
2289 (ebdb-gnus-window-configuration
2292 (summary 0.25 point)
2295 (ebdb-gnus 0.3))))))
2297 (use-package ebdb-mua
2299 ;; :custom (ebdb-mua-pop-up nil)
2302 ;; (use-package ebdb-message
2306 ;; (use-package ebdb-vcard
2310 ** COMMENT message-x
2312 #+begin_src emacs-lisp
2313 (use-package message-x
2315 (message-x-completion-alist
2317 (("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:" . gnus-harvest-find-address)
2320 (quote message-newgroups-header-regexp))
2321 message-newgroups-header-regexp message-newsgroups-header-regexp)
2322 . message-expand-group)))))
2325 ** COMMENT gnus-harvest
2327 #+begin_src emacs-lisp
2328 (use-package gnus-harvest
2329 :commands gnus-harvest-install
2332 (if (featurep 'message-x)
2333 (gnus-harvest-install 'message-x)
2334 (gnus-harvest-install)))
2339 :CUSTOM_ID: blogging
2342 ** [[https://ox-hugo.scripter.co][ox-hugo]]
2344 #+begin_src emacs-lisp
2345 (use-package ox-hugo
2348 (use-package ox-hugo-auto-export
2349 :load-path "lib/ox-hugo")
2352 * Post initialization
2354 :CUSTOM_ID: post-initialization
2357 Display how long it took to load the init file.
2359 #+begin_src emacs-lisp
2360 (message "Loading %s...done (%.3fs)" user-init-file
2361 (float-time (time-subtract (current-time)
2362 a/before-user-init-time)))
2370 #+begin_src emacs-lisp :comments none
2371 ;;; init.el ends here
2374 * COMMENT Local Variables :ARCHIVE:
2376 # eval: ;; (add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local)
2377 # eval: (typo-mode -1)