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/raxod502/straight.el][straight.el]]. Over the years, I've taken inspiration from
14 configurations of many different people. Some of the configurations
15 that I can remember off the top of my head are:
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 =straight.el=. I also used Borg for a
32 few months, but decided to try =straight.el= which allows direct use
33 of the various package archives.
35 * Contents :toc_1:noexport:
39 - [[#initial-setup][Initial setup]]
41 - [[#borg-essentials][Borg's =layer/essentials=]]
42 - [[#editing][Editing]]
43 - [[#syntax-spell-checking][Syntax and spell checking]]
44 - [[#programming-modes][Programming modes]]
45 - [[#emacs-enhancements][Emacs enhancements]]
47 - [[#blogging][Blogging]]
48 - [[#post-initialization][Post initialization]]
58 #+begin_src emacs-lisp :comments none
59 ;;; init.el --- Amin Bandali's Emacs config -*- lexical-binding: t; eval: (view-mode 1) -*-
62 Enable =view-mode=, which both makes the file read-only (as a reminder
63 that =init.el= is an auto-generated file, not supposed to be edited),
64 and provides some convenient key bindings for browsing through the
69 #+begin_src emacs-lisp :comments none
70 ;; Copyright (C) 2018 Amin Bandali <bandali@gnu.org>
72 ;; This program is free software: you can redistribute it and/or modify
73 ;; it under the terms of the GNU General Public License as published by
74 ;; the Free Software Foundation, either version 3 of the License, or
75 ;; (at your option) any later version.
77 ;; This program is distributed in the hope that it will be useful,
78 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
79 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
80 ;; GNU General Public License for more details.
82 ;; You should have received a copy of the GNU General Public License
83 ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
88 #+begin_src emacs-lisp :comments none
91 ;; Emacs configuration of Amin Bandali, computer scientist, functional
92 ;; programmer, and free software advocate.
94 ;; THIS FILE IS AUTO-GENERATED FROM `init.org'.
99 :CUSTOM_ID: initial-setup
102 ** Emacs initialization
104 I'd like to do a couple of measurements of Emacs' startup time. First,
105 let's see how long Emacs takes to start up, before even loading
106 =init.el=, i.e. =user-init-file=:
108 #+begin_src emacs-lisp
109 (defvar a/before-user-init-time (current-time)
110 "Value of `current-time' when Emacs begins loading `user-init-file'.")
111 (message "Loading Emacs...done (%.3fs)"
112 (float-time (time-subtract a/before-user-init-time
116 Also, temporarily increase ~gc-cons-threshhold~ and
117 ~gc-cons-percentage~ during startup to reduce garbage collection
118 frequency. Clearing the ~file-name-handler-alist~ seems to help reduce
119 startup time as well.
121 #+begin_src emacs-lisp
122 (defvar a/gc-cons-threshold gc-cons-threshold)
123 (defvar a/gc-cons-percentage gc-cons-percentage)
124 (defvar a/file-name-handler-alist file-name-handler-alist)
125 (setq gc-cons-threshold (* 400 1024 1024) ; 400 MiB
126 gc-cons-percentage 0.6
127 file-name-handler-alist nil
128 ;; sidesteps a bug when profiling with esup
129 esup-child-profile-require-level 0)
132 Of course, we'd like to set them back to their defaults once we're
135 #+begin_src emacs-lisp
139 (setq gc-cons-threshold a/gc-cons-threshold
140 gc-cons-percentage a/gc-cons-percentage
141 file-name-handler-alist a/file-name-handler-alist)))
144 Increase the number of lines kept in message logs (the =*Messages*=
147 #+begin_src emacs-lisp
148 (setq message-log-max 20000)
151 Optionally, we could suppress some byte compiler warnings like below,
152 but for now I've decided to keep them enabled. See documentation for
153 ~byte-compile-warnings~ for more details.
155 #+begin_src emacs-lisp
156 ;; (setq byte-compile-warnings
157 ;; '(not free-vars unresolved noruntime lexical make-local))
162 #+begin_src emacs-lisp
163 (setq user-full-name "Amin Bandali"
164 user-mail-address "amin@aminb.org")
167 ** Package management
171 I can do all my package management things with =straight.el=, and
172 don't need Emacs' built-in =package.el=. Emacs 27 lets us disable
173 =package.el= in the =early-init-file= (see [[https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=24acb31c04b4048b85311d794e600ecd7ce60d3b][here]]).
175 #+begin_src emacs-lisp :tangle early-init.el
176 (setq package-enable-at-startup nil)
179 But since Emacs 27 isn't out yet (Emacs 26 is just around the corner
180 right now), and even when released it'll be long before most distros
181 ship in their repos, I'll still put the old workaround with the
182 commented call to ~package-initialize~ here anyway.
184 #+begin_src emacs-lisp :tangle no
185 (setq package-enable-at-startup nil)
186 ;; (package-initialize)
189 Update: the above is not necessary, since =straight.el= automatically
190 does that (and more). See =straight-package-neutering-mode=.
195 Next-generation, purely functional package manager for the Emacs
199 =straight.el= allows me to have a fully reproducible Emacs setup.
201 #+begin_src emacs-lisp
202 ;; Main engine start...
204 (setq straight-repository-branch "develop"
205 straight-check-for-modifications '(check-on-save find-when-checking))
207 (defun a/bootstrap-straight ()
208 (defvar bootstrap-version)
209 (let ((bootstrap-file
210 (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
211 (bootstrap-version 5))
212 (unless (file-exists-p bootstrap-file)
214 (url-retrieve-synchronously
215 "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
216 'silent 'inhibit-cookies)
217 (goto-char (point-max))
218 (eval-print-last-sexp)))
219 (load bootstrap-file nil 'nomessage)))
221 ;; Solid rocket booster ignition...
223 (defun a/build-init ()
224 (a/bootstrap-straight)
225 (byte-compile-file "init.el"))
227 (a/bootstrap-straight)
231 (setq straight-use-package-by-default t)
234 Since we enable =straight.el='s =straight-use-package-by-default=
235 integration, we will define a =use-feature= for plain ole
236 =use-package= without any of the =straight.el= stuff.
238 #+begin_src emacs-lisp
239 (defmacro use-feature (name &rest args)
240 "Like `use-package', but with `straight-use-package-by-default' disabled."
241 (declare (indent defun))
250 A use-package declaration for simplifying your .emacs
253 [[https://github.com/jwiegley/use-package][use-package]] is an awesome utility for managing and configuring
254 packages (in our case especially the latter) in a neatly organized way
255 and without compromising on performance.
257 #+begin_src emacs-lisp
258 (straight-use-package 'use-package)
259 (if nil ; set to t when need to debug init
260 (setq use-package-verbose t
261 use-package-expand-minimally nil
262 use-package-compute-statistics t
264 (setq use-package-verbose nil
265 use-package-expand-minimally t))
267 (setq use-package-always-defer t)
273 Browse the Emacsmirror package database
276 Epkg provides access to a local copy of the [[https://emacsmirror.net][Emacsmirror]] package
277 database, low-level functions for querying the database, and a
278 =package.el=-like user interface for browsing the available packages.
280 #+begin_src emacs-lisp
283 :commands (epkg-list-packages epkg-describe-package)
285 (("C-c P e d" . epkg-describe-package)
286 ("C-c P e p" . epkg-list-packages))
288 (setq epkg-repository "~/.emacs.d/straight/repos/epkgs/")
289 (eval-when-compile (defvar ivy-initial-inputs-alist))
290 (with-eval-after-load 'ivy
292 'ivy-initial-inputs-alist '(epkg-describe-package . "^") t)))
295 ** No littering in =~/.emacs.d=
298 Help keeping ~/.emacs.d clean
301 By default, even for Emacs' built-in packages, the configuration files
302 and persistent data are all over the place. Use =no-littering= to help
305 #+begin_src emacs-lisp
306 (use-package no-littering
310 (add-to-list 'savehist-additional-variables 'kill-ring)
312 (setq auto-save-file-name-transforms
313 `((".*" ,(no-littering-expand-var-file-name "auto-save/") t))))
316 ** Custom file (=custom.el=)
318 I'm not planning on using the custom file much, but even so, I
319 definitely don't want it mixing with =init.el=. So, here; let's give
320 it it's own file. While at it, treat themes as safe.
322 #+begin_src emacs-lisp
326 (setq custom-file (no-littering-expand-etc-file-name "custom.el"))
327 (when (file-exists-p custom-file)
329 (setf custom-safe-themes t))
334 Load the secrets file if it exists, otherwise show a warning.
336 #+begin_src emacs-lisp
338 (load (no-littering-expand-etc-file-name "secrets")))
341 ** Better =$PATH= handling
343 Let's use [[https://github.com/purcell/exec-path-from-shell][exec-path-from-shell]] to make Emacs use the =$PATH= as set up
346 #+begin_src emacs-lisp
347 (use-package exec-path-from-shell
350 (setq exec-path-from-shell-check-startup-files nil)
352 (exec-path-from-shell-initialize)
353 ;; while we're at it, let's fix access to our running ssh-agent
354 (exec-path-from-shell-copy-env "SSH_AGENT_PID")
355 (exec-path-from-shell-copy-env "SSH_AUTH_SOCK"))
358 ** COMMENT Only one custom theme at a time
360 #+begin_src emacs-lisp
361 (defadvice load-theme (before clear-previous-themes activate)
362 "Clear existing theme settings instead of layering them"
363 (mapc #'disable-theme custom-enabled-themes))
368 Start server if not already running. Alternatively, can be done by
369 issuing =emacs --daemon= in the terminal, which can be automated with
370 a systemd service or using =brew services start emacs= on macOS. I use
371 Emacs as my window manager (via EXWM), so I always start Emacs on
372 login; so starting the server from inside Emacs is good enough for me.
374 See [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html#Emacs-Server][Using Emacs as a Server]].
376 #+begin_src emacs-lisp
379 :config (or (server-running-p) (server-mode)))
382 ** COMMENT Unicode support
384 Font stack with better unicode support, around =Ubuntu Mono= and
387 #+begin_src emacs-lisp
388 (dolist (ft (fontset-list))
392 (font-spec :name "Source Code Pro" :size 14))
396 (font-spec :name "DejaVu Sans Mono")
403 ;; :name "Symbola monospacified for DejaVu Sans Mono")
409 ;; (font-spec :name "DejaVu Sans Mono")
415 (font-spec :name "DejaVu Sans Mono" :size 14)
420 ** Gentler font resizing
422 #+begin_src emacs-lisp
423 (setq text-scale-mode-step 1.05)
426 ** Focus follows mouse
428 I’d like focus to follow the mouse when I move the cursor from one
431 #+begin_src emacs-lisp
432 (setq mouse-autoselect-window t)
435 Let’s define a function to conveniently disable this for certain
436 buffers and/or modes.
438 #+begin_src emacs-lisp
439 (defun a/no-mouse-autoselect-window ()
440 (make-local-variable 'mouse-autoselect-window)
441 (setq mouse-autoselect-window nil))
446 #+begin_src emacs-lisp
453 Convenience macro for =setq='ing multiple variables to the same value:
455 #+begin_src emacs-lisp
456 (defmacro a/setq-every (value &rest vars)
457 "Set all the variables from VARS to value VALUE."
458 (declare (indent defun) (debug t))
459 `(progn ,@(mapcar (lambda (x) (list 'setq x value)) vars)))
462 The following process-related stuff from [[https://github.com/alezost/emacs-config][alezost's emacs-config]].
464 #+begin_src emacs-lisp
465 (defun a/start-process (program &rest args)
466 "Same as `start-process', but doesn't bother about name and buffer."
467 (let ((process-name (concat program "_process"))
468 (buffer-name (generate-new-buffer-name
469 (concat program "_output"))))
470 (apply #'start-process
471 process-name buffer-name program args)))
473 (defun a/dired-start-process (program &optional args)
474 "Open current file with a PROGRAM."
475 ;; Shell command looks like this: "program [ARGS]... FILE" (ARGS can
476 ;; be nil, so remove it).
477 (apply #'a/start-process
479 (remove nil (list args (dired-get-file-for-visit)))))
489 *** Time and battery in mode-line
491 Enable displaying time and battery in the mode-line, since I'm not
492 using the Xfce panel anymore. Also, I don't need to see the load
493 average on a regular basis, so disable that.
495 Note: using =i3status= on sway at the moment, so disabling this.
497 #+begin_src emacs-lisp :tangle no
500 (setq display-time-default-load-average nil)
506 (display-battery-mode))
511 Might want to set the fringe to a smaller value, especially if using
512 EXWM. I'm fine with the default for now.
514 #+begin_src emacs-lisp
515 ;; (fringe-mode '(3 . 1))
519 *** Disable disabled commands
521 Emacs disables some commands by default that could persumably be
522 confusing for novice users. Let's disable that.
524 #+begin_src emacs-lisp
525 (setq disabled-command-function nil)
530 Save what I copy into clipboard from other applications into Emacs'
531 kill-ring, which would allow me to still be able to easily access it
532 in case I kill (cut or copy) something else inside Emacs before
533 yanking (pasting) what I'd originally intended to.
535 #+begin_src emacs-lisp
536 (setq save-interprogram-paste-before-kill t)
541 #+begin_src emacs-lisp
542 (setq enable-recursive-minibuffers t
543 resize-mini-windows t)
546 *** Lazy-person-friendly yes/no prompts
548 Lazy people would prefer to type fewer keystrokes, especially for yes
549 or no questions. I'm lazy.
551 #+begin_src emacs-lisp
552 (defalias 'yes-or-no-p #'y-or-n-p)
555 *** Startup screen and =*scratch*=
557 Firstly, let Emacs know that I'd like to have =*scratch*= as my
560 #+begin_src emacs-lisp
561 (setq initial-buffer-choice t)
564 Now let's customize the =*scratch*= buffer a bit. First off, I don't
565 need the default hint.
567 #+begin_src emacs-lisp
568 (setq initial-scratch-message nil)
571 Also, let's use Text mode as the major mode, in case I want to
572 customize it (=*scratch*='s default major mode, Fundamental mode,
573 can't really be customized).
575 #+begin_src emacs-lisp
576 (setq initial-major-mode 'text-mode)
579 Inhibit the buffer list when more than 2 files are loaded.
581 #+begin_src emacs-lisp
582 (setq inhibit-startup-buffer-menu t)
585 I don't really need to see the startup screen or echo area message
588 #+begin_src emacs-lisp
589 (advice-add #'display-startup-echo-area-message :override #'ignore)
590 (setq inhibit-startup-screen t
591 inhibit-startup-echo-area-message user-login-name)
594 *** More useful frame titles
596 Show either the file name or the buffer name (in case the buffer isn't
597 visiting a file). Borrowed from Emacs Prelude.
599 #+begin_src emacs-lisp
600 (setq frame-title-format
601 '("" invocation-name " - "
602 (:eval (if (buffer-file-name)
603 (abbreviate-file-name (buffer-file-name))
609 Emacs' default backup settings aren't that great. Let's use more
610 sensible options. See documentation for the ~make-backup-file~
613 #+begin_src emacs-lisp
614 (setq backup-by-copying t
616 delete-old-versions t)
621 Enable automatic reloading of changed buffers and files.
623 #+begin_src emacs-lisp
624 (global-auto-revert-mode 1)
625 (setq auto-revert-verbose nil
626 global-auto-revert-non-file-buffers nil)
629 *** Always use space for indentation
631 #+begin_src emacs-lisp
634 require-final-newline t
640 Enable =winner-mode=.
642 #+begin_src emacs-lisp
646 *** Don’t display =*compilation*= on success
648 Based on https://stackoverflow.com/a/17788551, with changes to use
649 =cl-letf= instead of the now obsolete =flet=.
651 #+begin_src emacs-lisp
652 (with-eval-after-load 'compile
653 (defun a/compilation-finish-function (buffer outstr)
654 (unless (string-match "finished" outstr)
655 (switch-to-buffer-other-window buffer))
658 (setq compilation-finish-functions #'a/compilation-finish-function)
662 (defadvice compilation-start
663 (around inhibit-display
664 (command &optional mode name-function highlight-regexp))
665 (if (not (string-match "^\\(find\\|grep\\)" command))
666 (cl-letf (((symbol-function 'display-buffer) #'ignore))
667 (save-window-excursion ad-do-it))
669 (ad-activate 'compilation-start))
672 *** Search for non-ASCII characters
674 I’d like non-ASCII characters such as ‘’“”«»‹›áⓐ𝒶 to be selected when
675 I search for their ASCII counterpart. Shoutout to [[http://endlessparentheses.com/new-in-emacs-25-1-easily-search-non-ascii-characters.html][endlessparentheses]]
678 #+begin_src emacs-lisp
679 (setq search-default-mode #'char-fold-to-regexp)
681 ;; uncomment to extend this behaviour to query-replace
682 ;; (setq replace-char-fold t)
687 #+begin_src emacs-lisp
688 (setq-default cursor-type 'bar)
691 *** Allow scrolling in Isearch
693 #+begin_src emacs-lisp
694 (setq isearch-allow-scroll t)
699 #+begin_src emacs-lisp
703 ("C-c e b" . eval-buffer)
704 ("C-c e r" . eval-region)
706 ("C-c F m" . make-frame-command)
707 ("C-c F d" . delete-frame)
708 ("C-c F D" . delete-other-frames)
710 ("C-c o" . other-window)
712 ("C-c Q" . save-buffers-kill-terminal)
714 ("C-S-h C" . describe-char)
715 ("C-S-h F" . describe-face)
717 ("C-x K" . kill-this-buffer)
719 ("s-p" . beginning-of-buffer)
720 ("s-n" . end-of-buffer))
725 The packages in this section are absolutely essential to my everyday
726 workflow, and they play key roles in how I do my computing. They
727 immensely enhance the Emacs experience for me; both using Emacs, and
730 *** [[https://github.com/emacscollective/auto-compile][auto-compile]]
732 #+begin_src emacs-lisp
733 (use-package auto-compile
736 (auto-compile-on-load-mode)
737 (auto-compile-on-save-mode)
738 (setq auto-compile-display-buffer nil
739 auto-compile-mode-line-counter t
740 auto-compile-source-recreate-deletes-dest t
741 auto-compile-toggle-deletes-nonlib-dest t
742 auto-compile-update-autoloads t)
743 (add-hook 'auto-compile-inhibit-compile-hook
744 'auto-compile-inhibit-compile-detached-git-head))
747 *** [[https://orgmode.org/][Org]]
750 Org mode is for keeping notes, maintaining TODO lists, planning
751 projects, and authoring documents with a fast and effective plain-text
755 In short, my favourite way of life.
757 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
758 latest version of Org from upstream.
760 #+begin_src emacs-lisp
763 (defun org-git-version ()
764 "The Git version of org-mode.
765 Inserted by installing org-mode or when a release is made."
767 (let ((git-repo (expand-file-name
768 "straight/repos/org/" user-emacs-directory)))
775 (defun org-release ()
776 "The release version of org-mode.
777 Inserted by installing org-mode or when a release is made."
779 (let ((git-repo (expand-file-name
780 "straight/repos/org/" user-emacs-directory)))
782 (string-remove-prefix
789 (provide 'org-version)
792 We will use the =org-plus-contrib= package to get the whole deal:
794 #+begin_src emacs-lisp
795 (straight-use-package 'org-plus-contrib)
798 And here's where my actual Org configurations begin:
800 #+begin_src emacs-lisp
804 (setq org-src-tab-acts-natively t
805 org-src-preserve-indentation nil
806 org-edit-src-content-indentation 0
807 org-email-link-description-format "Email %c: %s" ; %.30s
808 org-highlight-latex-and-related '(entities)
809 org-use-speed-commands t
810 org-startup-folded 'content
811 org-catch-invisible-edits 'show-and-error
813 (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
814 (font-lock-add-keywords
816 '(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)"
817 (1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive
818 (3 '(:foreground "#81a2be" :background "#292b2b") t) ; kind
819 (4 '(:foreground "#c5c8c6") t))) ; title
821 :bind (:map org-mode-map ("M-L" . org-insert-last-stored-link))
822 :hook ((org-mode . org-indent-mode)
823 (org-mode . auto-fill-mode)
824 (org-mode . flyspell-mode))
826 (org-latex-packages-alist '(("" "listings") ("" "color")))
828 '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21"))))
829 '(org-block ((t (:background "#1d1f21"))))
830 '(org-latex-and-related ((t (:foreground "#b294bb")))))
832 (use-feature ox-latex
835 (setq org-latex-listings 'listings
836 ;; org-latex-prefer-user-labels t
838 (add-to-list 'org-latex-packages-alist '("" "listings"))
839 (add-to-list 'org-latex-packages-alist '("" "color"))
840 (add-to-list 'org-latex-classes
841 '("IEEEtran" "\\documentclass[11pt]{IEEEtran}"
842 ("\\section{%s}" . "\\section*{%s}")
843 ("\\subsection{%s}" . "\\subsection*{%s}")
844 ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
845 ("\\paragraph{%s}" . "\\paragraph*{%s}")
846 ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
849 (use-feature ox-beamer
854 **** asynchronous tangle
856 =a/async-babel-tangle= is a function closely inspired by [[https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles][dieggsy's
857 d/async-babel-tangle]] which uses [[https://github.com/jwiegley/emacs-async][async]] to asynchronously tangle an org
860 #+begin_src emacs-lisp
861 (with-eval-after-load 'org
862 (defvar a/show-async-tangle-results nil
863 "Keep *emacs* async buffers around for later inspection.")
865 (defvar a/show-async-tangle-time nil
866 "Show the time spent tangling the file.")
868 (defvar a/async-tangle-post-compile "make bi"
869 "If non-nil, pass to `compile' after successful tangle.")
871 (defvar a/async-tangle-byte-recompile nil
872 "If non-nil, byte-recompile the file on successful tangle.")
874 (defun a/async-babel-tangle ()
875 "Tangle org file asynchronously."
877 (let* ((file-tangle-start-time (current-time))
878 (file (buffer-file-name))
879 (file-nodir (file-name-nondirectory file))
880 ;; (async-quiet-switch "-q")
881 (file-noext (file-name-sans-extension file)))
885 (org-babel-tangle-file ,file))
886 (unless a/show-async-tangle-results
890 (setq byte-compile-warnings '(not noruntime unresolved))
891 (message "Tangled %s%s"
893 (if a/show-async-tangle-time
895 (float-time (time-subtract (current-time)
896 ',file-tangle-start-time)))
898 (when a/async-tangle-post-compile
899 (compile a/async-tangle-post-compile))
900 (when a/async-tangle-byte-recompile
901 (byte-recompile-file (concat ,file-noext ".el"))))
902 (message "Tangling %s failed" ,file-nodir))))))))
905 'safe-local-variable-values
906 '(eval add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local))
909 *** [[https://magit.vc/][Magit]]
912 It's Magit! A Git porcelain inside Emacs.
915 Not just how I do git, but /the/ way to do git.
917 #+begin_src emacs-lisp
920 :bind (("C-x g" . magit-status)
921 ("s-g s" . magit-status)
922 ("s-g l" . magit-log-buffer-file))
924 (magit-add-section-hook 'magit-status-sections-hook
925 'magit-insert-modules
926 'magit-insert-stashes
929 magit-repository-directories '(("~/.emacs.d/" . 0)
931 (nconc magit-section-initial-visibility-alist
932 '(([unpulled status] . show)
933 ([unpushed status] . show)))
934 :custom-face (magit-diff-file-heading ((t (:weight normal)))))
939 Recently opened files.
941 #+begin_src emacs-lisp
945 (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
946 (setq recentf-max-saved-items 40))
952 A smart M-x enhancement for Emacs.
955 Mostly because =counsel= needs it to remember history.
957 #+begin_src emacs-lisp
961 *** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
964 Ivy - a generic completion frontend for Emacs, Swiper - isearch with
965 an overview, and more. Oh, man!
968 There's no way I could top that, so I won't attempt to.
972 #+begin_src emacs-lisp
976 (:map ivy-minibuffer-map
977 ([escape] . keyboard-escape-quit)
978 ([S-up] . ivy-previous-history-element)
979 ([S-down] . ivy-next-history-element)
980 ("DEL" . ivy-backward-delete-char))
985 ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
986 ;; (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
987 ;; (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold))))
993 #+begin_src emacs-lisp
996 :bind (("C-s" . swiper)
998 ("C-S-s" . isearch-forward)))
1003 #+begin_src emacs-lisp
1004 (use-package counsel
1006 :bind (([remap execute-extended-command] . counsel-M-x)
1007 ([remap find-file] . counsel-find-file)
1008 ("s-r" . counsel-recentf)
1009 ("C-c x" . counsel-M-x)
1010 ("C-c f ." . counsel-find-file)
1011 :map minibuffer-local-map
1012 ("C-r" . counsel-minibuffer-history))
1015 (defalias 'locate #'counsel-locate))
1020 #+begin_src emacs-lisp
1024 :bind ("C-c a s e" . eshell)
1026 (eval-when-compile (defvar eshell-prompt-regexp))
1027 (defun a/eshell-quit-or-delete-char (arg)
1029 (if (and (eolp) (looking-back eshell-prompt-regexp nil))
1030 (eshell-life-is-too-much)
1033 (defun a/eshell-clear ()
1035 (let ((inhibit-read-only t))
1037 (eshell-send-input))
1039 (defun a/eshell-setup ()
1040 (make-local-variable 'company-idle-delay)
1041 (defvar company-idle-delay)
1042 (setq company-idle-delay nil)
1043 (bind-keys :map eshell-mode-map
1044 ("C-d" . a/eshell-quit-or-delete-char)
1045 ("C-S-l" . a/eshell-clear)
1046 ("M-r" . counsel-esh-history)
1047 ([tab] . company-complete)))
1049 :hook (eshell-mode . a/eshell-setup)
1051 (eshell-hist-ignoredups t)
1052 (eshell-input-filter 'eshell-input-filter-initial-space))
1057 #+begin_src emacs-lisp
1058 (use-feature ibuffer
1060 (("C-x C-b" . ibuffer-other-window)
1061 :map ibuffer-mode-map
1062 ("P" . ibuffer-backward-filter-group)
1063 ("N" . ibuffer-forward-filter-group)
1064 ("M-p" . ibuffer-do-print)
1065 ("M-n" . ibuffer-do-shell-command-pipe-replace))
1067 ;; Use human readable Size column instead of original one
1068 (define-ibuffer-column size-h
1069 (:name "Size" :inline t)
1071 ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
1072 ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
1073 ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
1074 (t (format "%8d" (buffer-size)))))
1076 (ibuffer-saved-filter-groups
1078 ("dired" (mode . dired-mode))
1079 ("org" (mode . org-mode))
1082 (mode . gnus-group-mode)
1083 (mode . gnus-summary-mode)
1084 (mode . gnus-article-mode)
1085 ;; not really, but...
1086 (mode . message-mode)))
1095 (mode . eshell-mode)
1097 (mode . term-mode)))
1100 (mode . python-mode)
1103 (mode . emacs-lisp-mode)
1104 (mode . scheme-mode)
1105 (mode . haskell-mode)
1106 (mode . lean-mode)))
1109 (name . "^\\*scratch\\*$")
1110 (name . "^\\*Messages\\*$"))))))
1112 '((mark modified read-only locked " "
1113 (name 18 18 :left :elide)
1115 (size-h 9 -1 :right)
1117 (mode 16 16 :left :elide)
1118 " " filename-and-process)
1122 :hook (ibuffer . (lambda () (ibuffer-switch-to-saved-filter-groups "default"))))
1127 #+begin_src emacs-lisp
1128 (use-feature outline
1129 :hook (prog-mode . outline-minor-mode)
1132 outline-minor-mode-map
1133 ("<s-tab>" . outline-toggle-children)
1134 ("M-p" . outline-previous-visible-heading)
1135 ("M-n" . outline-next-visible-heading)
1136 :prefix-map a/outline-prefix-map
1138 ("TAB" . outline-toggle-children)
1139 ("a" . outline-hide-body)
1140 ("H" . outline-hide-body)
1141 ("S" . outline-show-all)
1142 ("h" . outline-hide-subtree)
1143 ("s" . outline-show-subtree)))
1148 #+begin_src emacs-lisp
1149 (use-feature ls-lisp
1150 :custom (ls-lisp-dirs-first t))
1154 (setq dired-listing-switches "-alh"
1155 ls-lisp-use-insert-directory-program nil)
1157 ;; easily diff 2 marked files
1158 ;; https://oremacs.com/2017/03/18/dired-ediff/
1159 (defun dired-ediff-files ()
1161 (require 'dired-aux)
1162 (defvar ediff-after-quit-hook-internal)
1163 (let ((files (dired-get-marked-files))
1164 (wnd (current-window-configuration)))
1165 (if (<= (length files) 2)
1166 (let ((file1 (car files))
1167 (file2 (if (cdr files)
1171 (dired-dwim-target-directory)))))
1172 (if (file-newer-than-file-p file1 file2)
1173 (ediff-files file2 file1)
1174 (ediff-files file1 file2))
1175 (add-hook 'ediff-after-quit-hook-internal
1177 (setq ediff-after-quit-hook-internal nil)
1178 (set-window-configuration wnd))))
1179 (error "no more than 2 files should be marked"))))
1180 :bind (:map dired-mode-map
1181 ("b" . dired-up-directory)
1182 ("e" . dired-ediff-files)
1183 ("E" . dired-toggle-read-only)
1184 ("\\" . dired-hide-details-mode)
1187 (a/dired-start-process "zathura"))))
1188 :hook (dired-mode . dired-hide-details-mode))
1193 #+begin_src emacs-lisp
1196 (temp-buffer-resize-mode)
1197 (setq help-window-select t))
1202 #+begin_src emacs-lisp
1205 (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
1206 (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
1207 (add-to-list 'tramp-default-proxies-alist
1208 (list (regexp-quote (system-name)) nil nil)))
1213 #+begin_src emacs-lisp
1215 :config (dash-enable-font-lock))
1225 Highlight uncommitted changes in the left fringe.
1227 #+begin_src emacs-lisp
1228 (use-package diff-hl
1230 (setq diff-hl-draw-borders nil)
1231 (global-diff-hl-mode)
1232 :hook (magit-post-refresh . diff-hl-magit-post-refresh))
1237 Display Lisp objects at point in the echo area.
1239 #+begin_src emacs-lisp
1241 :when (version< "25" emacs-version)
1242 :config (global-eldoc-mode))
1247 Highlight matching parens.
1249 #+begin_src emacs-lisp
1251 :config (show-paren-mode))
1254 ** simple (for column numbers)
1256 #+begin_src emacs-lisp
1258 :config (column-number-mode))
1263 Save minibuffer history.
1265 #+begin_src emacs-lisp
1266 (use-feature savehist
1267 :config (savehist-mode))
1272 Automatically save place in each file.
1274 #+begin_src emacs-lisp
1275 (use-feature saveplace
1276 :when (version< "25" emacs-version)
1277 :config (save-place-mode))
1282 #+begin_src emacs-lisp
1283 (use-feature prog-mode
1284 :config (global-prettify-symbols-mode)
1285 (defun indicate-buffer-boundaries-left ()
1286 (setq indicate-buffer-boundaries 'left))
1287 (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
1292 #+begin_src emacs-lisp
1293 (use-feature text-mode
1294 :hook ((text-mode . indicate-buffer-boundaries-left)
1295 (text-mode . abbrev-mode)))
1300 #+begin_src emacs-lisp
1301 (use-package company
1304 (:map company-active-map
1305 ([tab] . company-complete-common-or-cycle)
1306 ([escape] . company-abort))
1308 (company-minimum-prefix-length 1)
1309 (company-selection-wrap-around t)
1310 (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
1311 (company-dabbrev-downcase nil)
1312 (company-dabbrev-ignore-case nil)
1314 (global-company-mode t))
1319 #+begin_src emacs-lisp
1320 (use-package flycheck
1322 :hook (prog-mode . flycheck-mode)
1324 (:map flycheck-mode-map
1325 ("M-P" . flycheck-previous-error)
1326 ("M-N" . flycheck-next-error))
1328 ;; Use the load-path from running Emacs when checking elisp files
1329 (setq flycheck-emacs-lisp-load-path 'inherit)
1331 ;; Only flycheck when I actually save the buffer
1332 (setq flycheck-check-syntax-automatically '(mode-enabled save)))
1334 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
1338 ;; ’ can be part of a word
1339 (setq ispell-local-dictionary-alist
1340 `((nil "[[:alpha:]]" "[^[:alpha:]]"
1341 "['\x2019]" nil ("-B") nil utf-8)))
1342 ;; don't send ’ to the subprocess
1343 (defun endless/replace-apostrophe (args)
1344 (cons (replace-regexp-in-string
1347 (advice-add #'ispell-send-string :filter-args
1348 #'endless/replace-apostrophe)
1350 ;; convert ' back to ’ from the subprocess
1351 (defun endless/replace-quote (args)
1352 (if (not (derived-mode-p 'org-mode))
1354 (cons (replace-regexp-in-string
1357 (advice-add #'ispell-parse-output :filter-args
1358 #'endless/replace-quote))
1363 :CUSTOM_ID: programming-modes
1368 #+begin_src emacs-lisp
1369 (use-feature lisp-mode
1371 (add-hook 'emacs-lisp-mode-hook 'outline-minor-mode)
1372 (add-hook 'emacs-lisp-mode-hook 'reveal-mode)
1373 (defun indent-spaces-mode ()
1374 (setq indent-tabs-mode nil))
1375 (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
1378 ** [[http://alloytools.org][Alloy]] (with [[https://github.com/dwwmmn/alloy-mode][alloy-mode]])
1380 #+begin_src emacs-lisp
1381 (use-package alloy-mode
1382 :straight (:host github :repo "dwwmmn/alloy-mode")
1383 :config (setq alloy-basic-offset 2))
1386 ** [[https://coq.inria.fr][Coq]] (with [[https://github.com/ProofGeneral/PG][Proof General]])
1388 #+begin_src emacs-lisp
1389 (use-package proof-site
1390 :straight proof-general)
1393 ** [[https://leanprover.github.io][Lean]] (with [[https://github.com/leanprover/lean-mode][lean-mode]])
1395 #+begin_src emacs-lisp
1396 (eval-when-compile (defvar lean-mode-map))
1397 (use-package lean-mode
1399 :bind (:map lean-mode-map
1400 ("S-SPC" . company-complete))
1402 (require 'lean-input)
1403 (setq default-input-method "Lean"
1404 lean-input-tweak-all '(lean-input-compose
1405 (lean-input-prepend "/")
1406 (lean-input-nonempty))
1407 lean-input-user-translations '(("/" "/")))
1413 *** [[https://github.com/haskell/haskell-mode][haskell-mode]]
1415 #+begin_src emacs-lisp
1416 (use-package haskell-mode
1418 (setq haskell-indentation-layout-offset 4
1419 haskell-indentation-left-offset 4
1420 flycheck-checker 'haskell-hlint
1421 flycheck-disabled-checkers '(haskell-stack-ghc haskell-ghc)))
1424 *** [[https://github.com/jyp/dante][dante]]
1426 #+begin_src emacs-lisp
1429 :commands dante-mode
1430 :hook (haskell-mode . dante-mode))
1433 *** [[https://github.com/mpickering/hlint-refactor-mode][hlint-refactor]]
1435 Emacs bindings for [[https://github.com/ndmitchell/hlint][hlint]]'s refactor option. This requires the refact
1436 executable from [[https://github.com/mpickering/apply-refact][apply-refact]].
1438 #+begin_src emacs-lisp
1439 (use-package hlint-refactor
1441 :bind (:map hlint-refactor-mode-map
1442 ("C-c l b" . hlint-refactor-refactor-buffer)
1443 ("C-c l r" . hlint-refactor-refactor-at-point))
1444 :hook (haskell-mode . hlint-refactor-mode))
1447 *** [[https://github.com/flycheck/flycheck-haskell][flycheck-haskell]]
1449 #+begin_src emacs-lisp
1450 (use-package flycheck-haskell
1451 :after haskell-mode)
1454 *** [[https://github.com/ndmitchell/hlint/blob/20e116a043f2073c57b17b24ae6364b5e433ba7e/data/hs-lint.el][hs-lint.el]]
1456 :header-args+: :tangle lisp/hs-lint.el :mkdirp yes
1459 Currently using =flycheck-haskell= with the =haskell-hlint= checker
1462 #+begin_src emacs-lisp :tangle no
1463 ;;; hs-lint.el --- minor mode for HLint code checking
1465 ;; Copyright 2009 (C) Alex Ott
1467 ;; Author: Alex Ott <alexott@gmail.com>
1468 ;; Keywords: haskell, lint, HLint
1470 ;; Status: distributed under terms of GPL2 or above
1472 ;; Typical message from HLint looks like:
1474 ;; /Users/ott/projects/lang-exp/haskell/test.hs:52:1: Eta reduce
1476 ;; count1 p l = length (filter p l)
1478 ;; count1 p = length . filter p
1483 (defgroup hs-lint nil
1484 "Run HLint as inferior of Emacs, parse error messages."
1488 (defcustom hs-lint-command "hlint"
1489 "The default hs-lint command for \\[hlint]."
1493 (defcustom hs-lint-save-files t
1494 "Save modified files when run HLint or no (ask user)"
1498 (defcustom hs-lint-replace-with-suggestions nil
1499 "Replace user's code with suggested replacements"
1503 (defcustom hs-lint-replace-without-ask nil
1504 "Replace user's code with suggested replacements automatically"
1508 (defun hs-lint-process-setup ()
1509 "Setup compilation variables and buffer for `hlint'."
1510 (run-hooks 'hs-lint-setup-hook))
1512 ;; regex for replace suggestions
1514 ;; ^\(.*?\):\([0-9]+\):\([0-9]+\): .*
1520 (defvar hs-lint-regex
1521 "^\\(.*?\\):\\([0-9]+\\):\\([0-9]+\\): .*[\n\C-m]Found:[\n\C-m]\\s +\\(.*\\)[\n\C-m]Why not:[\n\C-m]\\s +\\(.*\\)[\n\C-m]"
1522 "Regex for HLint messages")
1524 (defun make-short-string (str maxlen)
1525 (if (< (length str) maxlen)
1527 (concat (substring str 0 (- maxlen 3)) "...")))
1529 (defun hs-lint-replace-suggestions ()
1530 "Perform actual replacement of suggestions"
1531 (goto-char (point-min))
1532 (while (re-search-forward hs-lint-regex nil t)
1533 (let* ((fname (match-string 1))
1534 (fline (string-to-number (match-string 2)))
1535 (old-code (match-string 4))
1536 (new-code (match-string 5))
1537 (msg (concat "Replace '" (make-short-string old-code 30)
1538 "' with '" (make-short-string new-code 30) "'"))
1544 (switch-to-buffer (get-file-buffer fname))
1545 (goto-char (point-min))
1546 (forward-line (1- fline))
1548 (setf bline (point))
1549 (when (or hs-lint-replace-without-ask
1552 (setf eline (point))
1554 (setf old-code (regexp-quote old-code))
1555 (while (string-match "\\\\ " old-code spos)
1556 (setf new-old-code (concat new-old-code
1557 (substring old-code spos (match-beginning 0))
1559 (setf spos (match-end 0)))
1560 (setf new-old-code (concat new-old-code (substring old-code spos)))
1561 (remove-text-properties bline eline '(composition nil))
1562 (when (re-search-forward new-old-code eline t)
1563 (replace-match new-code nil t)))))))
1565 (defun hs-lint-finish-hook (buf msg)
1566 "Function, that is executed at the end of HLint execution"
1567 (if hs-lint-replace-with-suggestions
1568 (hs-lint-replace-suggestions)
1571 (define-compilation-mode hs-lint-mode "HLint"
1572 "Mode for check Haskell source code."
1573 (set (make-local-variable 'compilation-process-setup-function)
1574 'hs-lint-process-setup)
1575 (set (make-local-variable 'compilation-disable-input) t)
1576 (set (make-local-variable 'compilation-scroll-output) nil)
1577 (set (make-local-variable 'compilation-finish-functions)
1578 (list 'hs-lint-finish-hook))
1582 "Run HLint for current buffer with haskell source"
1584 (save-some-buffers hs-lint-save-files)
1585 (compilation-start (concat hs-lint-command " \"" buffer-file-name "\"")
1589 ;;; hs-lint.el ends here
1592 #+begin_src emacs-lisp :tangle no
1593 (use-package hs-lint
1595 :bind (:map haskell-mode-map
1596 ("C-c l l" . hs-lint)))
1603 #+begin_src emacs-lisp
1604 (use-package sgml-mode
1606 (setq sgml-basic-offset 2))
1611 #+begin_src emacs-lisp
1612 (use-package css-mode
1614 (setq css-indent-offset 2))
1619 #+begin_src emacs-lisp
1620 (use-package web-mode
1624 web-mode-code-indent-offset
1625 web-mode-css-indent-offset
1626 web-mode-markup-indent-offset))
1631 #+begin_src emacs-lisp
1632 (use-package emmet-mode
1633 :after (:any web-mode css-mode sgml-mode)
1634 :bind* (("C-)" . emmet-next-edit-point)
1635 ("C-(" . emmet-prev-edit-point))
1637 (unbind-key "C-j" emmet-mode-keymap)
1638 (setq emmet-move-cursor-between-quotes t)
1639 :hook (web-mode css-mode html-mode sgml-mode))
1646 #+begin_src emacs-lisp
1647 (use-package meghanada
1649 (:map meghanada-mode-map
1650 (("C-M-o" . meghanada-optimize-import)
1651 ("C-M-t" . meghanada-import-all)))
1652 :hook (java-mode . meghanada-mode))
1673 #+begin_src emacs-lisp
1674 (use-package treemacs
1675 :config (setq treemacs-never-persist t))
1677 (use-package yasnippet
1679 ;; (yas-global-mode)
1682 (use-package lsp-mode
1683 :init (setq lsp-eldoc-render-all nil
1684 lsp-highlight-symbol-at-point nil)
1689 (use-package company-lsp
1692 (setq company-lsp-cache-candidates t
1693 company-lsp-async t))
1697 (setq lsp-ui-sideline-update-mode 'point))
1699 (use-package lsp-java
1701 (add-hook 'java-mode-hook
1703 (setq-local company-backends (list 'company-lsp))))
1705 (add-hook 'java-mode-hook 'lsp-java-enable)
1706 (add-hook 'java-mode-hook 'flycheck-mode)
1707 (add-hook 'java-mode-hook 'company-mode)
1708 (add-hook 'java-mode-hook 'lsp-ui-mode))
1710 (use-package dap-mode
1716 (use-package dap-java
1719 (use-package lsp-java-treemacs
1725 #+begin_src emacs-lisp
1726 (use-package geiser)
1728 (use-feature geiser-guile
1730 (setq geiser-guile-load-path "~/src/git/guix"))
1735 #+begin_src emacs-lisp
1739 * Emacs enhancements
1741 :CUSTOM_ID: emacs-enhancements
1746 #+begin_src emacs-lisp
1748 :config (setq Man-width 80))
1751 ** [[https://github.com/justbur/emacs-which-key][which-key]]
1754 Emacs package that displays available keybindings in popup
1757 #+begin_src emacs-lisp
1758 (use-package which-key
1761 (which-key-add-key-based-replacements
1762 ;; prefixes for global prefixes and minor modes
1766 "C-c 8 -" "typo/dashes"
1767 "C-c 8 <" "typo/left-brackets"
1768 "C-c 8 >" "typo/right-brackets"
1770 "C-x a" "abbrev/expand"
1771 "C-x r" "rectangle/register/bookmark"
1772 "C-x v" "version control"
1773 ;; prefixes for my personal bindings
1774 "C-c a" "applications"
1776 "C-c P" "package-management"
1777 "C-c P e" "package-management/epkg"
1778 "C-c P s" "package-management/straight.el"
1779 "C-c c" "compile-and-comments"
1784 "C-c m" "multiple-cursors"
1785 "C-c p" "projectile"
1786 "C-c p s" "projectile/search"
1787 "C-c p x" "projectile/execute"
1788 "C-c p 4" "projectile/other-window"
1794 ;; prefixes for major modes
1795 (which-key-add-major-mode-key-based-replacements 'message-mode
1797 (which-key-add-major-mode-key-based-replacements 'org-mode
1798 "C-c C-v" "org-babel")
1799 (which-key-add-major-mode-key-based-replacements 'web-mode
1800 "C-c C-a" "web/attributes"
1801 "C-c C-b" "web/blocks"
1803 "C-c C-e" "web/element"
1804 "C-c C-t" "web/tags")
1811 #+begin_src emacs-lisp
1812 (add-to-list 'custom-theme-load-path "~/.emacs.d/lisp")
1813 (load-theme 'tangomod t)
1818 #+begin_src emacs-lisp
1819 (use-package smart-mode-line
1820 :commands (sml/apply-theme)
1828 #+begin_src emacs-lisp
1829 (use-package doom-themes)
1832 ** theme helper functions
1834 #+begin_src emacs-lisp
1835 (defun a/lights-on ()
1836 "Enable my favourite light theme."
1838 (mapc #'disable-theme custom-enabled-themes)
1839 (load-theme 'tangomod t)
1840 (sml/apply-theme 'automatic))
1842 (defun a/lights-off ()
1845 (mapc #'disable-theme custom-enabled-themes)
1846 (load-theme 'doom-tomorrow-night t)
1847 (sml/apply-theme 'automatic))
1850 ("s-t d" . a/lights-off)
1851 ("s-t l" . a/lights-on))
1854 ** [[https://github.com/bbatsov/crux][crux]]
1856 #+begin_src emacs-lisp
1857 (use-package crux ; results in Waiting for git... [2 times]
1859 :bind (("C-c b k" . crux-kill-other-buffers)
1860 ("C-c d" . crux-duplicate-current-line-or-region)
1861 ("C-c D" . crux-duplicate-and-comment-current-line-or-region)
1862 ("C-c f c" . crux-copy-file-preserve-attributes)
1863 ("C-c f d" . crux-delete-file-and-buffer)
1864 ("C-c f r" . crux-rename-file-and-buffer)
1865 ("C-c j" . crux-top-join-line)
1866 ("C-S-j" . crux-top-join-line)))
1869 ** [[https://github.com/alezost/mwim.el][mwim]]
1871 #+begin_src emacs-lisp
1873 :bind (("C-a" . mwim-beginning-of-code-or-line)
1874 ("C-e" . mwim-end-of-code-or-line)
1875 ("<home>" . mwim-beginning-of-line-or-code)
1876 ("<end>" . mwim-end-of-line-or-code)))
1881 #+begin_src emacs-lisp
1882 (use-package projectile
1883 :bind-keymap ("C-c p" . projectile-command-map)
1887 (defun my-projectile-invalidate-cache (&rest _args)
1888 ;; ignore the args to `magit-checkout'
1889 (projectile-invalidate-cache nil))
1891 (eval-after-load 'magit-branch
1893 (advice-add 'magit-checkout
1894 :after #'my-projectile-invalidate-cache)
1895 (advice-add 'magit-branch-and-checkout
1896 :after #'my-projectile-invalidate-cache)))
1897 :custom (projectile-completion-system 'ivy))
1900 ** [[https://github.com/Wilfred/helpful][helpful]]
1902 #+begin_src emacs-lisp
1903 (use-package helpful
1906 (("C-S-h c" . helpful-command)
1907 ("C-S-h f" . helpful-callable) ; helpful-function
1908 ("C-S-h v" . helpful-variable)
1909 ("C-S-h k" . helpful-key)
1910 ("C-S-h p" . helpful-at-point)))
1913 ** [[https://github.com/EricCrosson/unkillable-scratch][unkillable-scratch]]
1915 Make =*scratch*= and =*Messages*= unkillable.
1917 #+begin_src emacs-lisp
1918 (use-package unkillable-scratch
1921 (unkillable-scratch 1)
1923 (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
1926 ** [[https://github.com/davep/boxquote.el][boxquote.el]]
1930 | make pretty boxed quotes like this
1934 #+begin_src emacs-lisp
1935 (use-package boxquote
1938 (:prefix-map a/boxquote-prefix-map
1940 ("b" . boxquote-buffer)
1941 ("B" . boxquote-insert-buffer)
1942 ("d" . boxquote-defun)
1943 ("F" . boxquote-insert-file)
1944 ("hf" . boxquote-describe-function)
1945 ("hk" . boxquote-describe-key)
1946 ("hv" . boxquote-describe-variable)
1947 ("hw" . boxquote-where-is)
1948 ("k" . boxquote-kill)
1949 ("p" . boxquote-paragraph)
1950 ("q" . boxquote-boxquote)
1951 ("r" . boxquote-region)
1952 ("s" . boxquote-shell-command)
1953 ("t" . boxquote-text)
1954 ("T" . boxquote-title)
1955 ("u" . boxquote-unbox)
1956 ("U" . boxquote-unbox-region)
1957 ("y" . boxquote-yank)
1958 ("M-q" . boxquote-fill-paragraph)
1959 ("M-w" . boxquote-kill-ring-save)))
1962 Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
1966 #+begin_src emacs-lisp
1967 (use-package orgalist
1969 :hook (message-mode . orgalist-mode))
1974 #+begin_src emacs-lisp
1978 (typo-global-mode 1)
1979 :hook (text-mode . typo-mode))
1984 #+begin_src emacs-lisp
1985 (use-package hl-todo
1988 (global-hl-todo-mode))
1993 #+begin_src emacs-lisp
1994 (use-package shrink-path
1997 (setq eshell-prompt-regexp "\\(.*\n\\)*λ "
1998 eshell-prompt-function #'+eshell/prompt)
2000 (defun +eshell/prompt ()
2001 (let ((base/dir (shrink-path-prompt default-directory)))
2002 (concat (propertize (car base/dir)
2003 'face 'font-lock-comment-face)
2004 (propertize (cdr base/dir)
2005 'face 'font-lock-constant-face)
2006 (propertize (+eshell--current-git-branch)
2007 'face 'font-lock-function-name-face)
2009 (propertize "λ" 'face 'eshell-prompt-face)
2010 ;; needed for the input text to not have prompt face
2011 (propertize " " 'face 'default))))
2013 (defun +eshell--current-git-branch ()
2014 (let ((branch (car (loop for match in (split-string (shell-command-to-string "git branch") "\n")
2015 when (string-match "^\*" match)
2017 (if (not (eq branch nil))
2018 (concat " " (substring branch 2))
2022 ** [[https://github.com/peterwvj/eshell-up][eshell-up]]
2024 #+begin_src emacs-lisp
2025 (use-package eshell-up
2032 #+begin_src emacs-lisp
2033 (use-package multi-term
2035 :bind (("C-c a s m" . multi-term-dedicated-toggle)
2037 ("C-c C-j" . term-char-mode)
2039 ("C-c C-j" . term-line-mode))
2041 (setq multi-term-program "/bin/screen"
2042 ;; TODO: add separate bindings for connecting to existing
2043 ;; session vs. always creating a new one
2044 multi-term-dedicated-select-after-open-p t
2045 multi-term-dedicated-window-height 20
2046 multi-term-dedicated-max-window-height 30
2048 '(("C-c C-c" . term-interrupt-subjob)
2049 ("C-c C-e" . term-send-esc)
2051 ("C-y" . term-paste)
2052 ("M-f" . term-send-forward-word)
2053 ("M-b" . term-send-backward-word)
2054 ("M-p" . term-send-up)
2055 ("M-n" . term-send-down)
2056 ("<C-backspace>" . term-send-backward-kill-word)
2057 ("<M-DEL>" . term-send-backward-kill-word)
2058 ("M-d" . term-send-delete-word)
2059 ("M-," . term-send-raw)
2060 ("M-." . comint-dynamic-complete))
2061 term-unbind-key-alist
2062 '("C-z" "C-x" "C-c" "C-h" "C-y" "<ESC>")))
2067 #+begin_src emacs-lisp
2068 (use-package page-break-lines
2070 (global-page-break-lines-mode))
2075 #+begin_src emacs-lisp
2076 (use-package expand-region
2077 :bind ("C-=" . er/expand-region))
2082 #+begin_src emacs-lisp
2083 (use-package multiple-cursors
2085 (("C-S-<mouse-1>" . mc/add-cursor-on-click)
2086 (:prefix-map a/mc-prefix-map
2088 ("c" . mc/edit-lines)
2089 ("n" . mc/mark-next-like-this)
2090 ("p" . mc/mark-previous-like-this)
2091 ("a" . mc/mark-all-like-this))))
2099 #+begin_src emacs-lisp
2100 (defvar a/maildir (expand-file-name "~/mail/"))
2101 (with-eval-after-load 'recentf
2102 (add-to-list 'recentf-exclude a/maildir))
2107 #+begin_src emacs-lisp
2109 a/gnus-init-file (no-littering-expand-etc-file-name "gnus")
2110 mail-user-agent 'gnus-user-agent
2111 read-mail-command 'gnus)
2114 :bind (("s-m" . gnus)
2115 ("s-M" . gnus-unplugged))
2118 gnus-select-method '(nnnil "")
2119 gnus-secondary-select-methods
2121 (nnimap-stream plain)
2122 (nnimap-address "127.0.0.1")
2123 (nnimap-server-port 143)
2124 (nnimap-authenticator plain)
2125 (nnimap-user "amin@aminb.org"))
2127 (nnimap-stream plain)
2128 (nnimap-address "127.0.0.1")
2129 (nnimap-server-port 143)
2130 (nnimap-authenticator plain)
2131 (nnimap-user "abandali@uwaterloo.ca")))
2132 gnus-message-archive-group "nnimap+amin:Sent"
2136 gnus-large-newsgroup 50
2137 gnus-home-directory (no-littering-expand-var-file-name "gnus/")
2138 gnus-directory (concat gnus-home-directory "news/")
2139 message-directory (concat gnus-home-directory "mail/")
2140 nndraft-directory (concat gnus-home-directory "drafts/")
2141 gnus-save-newsrc-file nil
2142 gnus-read-newsrc-file nil
2143 gnus-interactive-exit nil
2144 gnus-gcc-mark-as-read t))
2146 (use-feature gnus-art
2149 gnus-visible-headers
2150 (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
2151 gnus-sorted-header-list
2152 '("^From:" "^Subject:" "^Summary:" "^Keywords:"
2153 "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator"
2154 "^Newsgroups:" "List-Id:" "^Organization:"
2155 "^User-Agent:" "^Date:")
2156 ;; local-lapsed article dates
2157 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
2158 gnus-article-date-headers '(user-defined)
2159 gnus-article-time-format
2161 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
2162 (local (article-make-date-line date 'local))
2163 (combined-lapsed (article-make-date-line date
2166 (string-match " (.+" combined-lapsed)
2167 (match-string 0 combined-lapsed))))
2168 (concat local lapsed))))
2170 :map gnus-article-mode-map
2171 ("r" . gnus-article-reply-with-original)
2172 ("R" . gnus-article-wide-reply-with-original)
2173 ("M-L" . org-store-link)))
2175 (use-feature gnus-sum
2176 :bind (:map gnus-summary-mode-map
2177 :prefix-map a/gnus-summary-prefix-map
2179 ("r" . gnus-summary-reply)
2180 ("w" . gnus-summary-wide-reply)
2181 ("v" . gnus-summary-show-raw-article))
2184 :map gnus-summary-mode-map
2185 ("r" . gnus-summary-reply-with-original)
2186 ("R" . gnus-summary-wide-reply-with-original)
2187 ("M-L" . org-store-link))
2188 :hook (gnus-summary-mode . a/no-mouse-autoselect-window))
2190 (use-feature gnus-msg
2192 (setq gnus-posting-styles
2194 (address "amin@aminb.org")
2195 (body "\nBest,\namin\n")
2196 (eval (setq a/message-cite-say-hi t)))
2198 (address "bandali@gnu.org"))
2199 ((header "subject" "ThankCRM")
2200 (to "webmasters-comment@gnu.org")
2201 (body "\nAdded to 2018supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
2202 (eval (setq a/message-cite-say-hi nil)))
2203 ("nnimap\\+uwaterloo:.*"
2204 (address "abandali@uwaterloo.ca")
2205 (gcc "\"nnimap+uwaterloo:Sent Items\"")))))
2207 (use-feature gnus-topic
2208 :hook (gnus-group-mode . gnus-topic-mode))
2210 (use-feature gnus-agent
2212 (setq gnus-agent-synchronize-flags 'ask)
2213 :hook (gnus-group-mode . gnus-agent-mode))
2215 (use-feature gnus-group
2217 (setq gnus-permanently-visible-groups "\\((INBOX\\|gnu$\\)"))
2219 (use-feature mm-decode
2221 (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
2226 #+begin_src emacs-lisp
2227 (use-feature sendmail
2229 (setq sendmail-program "/usr/bin/msmtp"
2230 ;; message-sendmail-extra-arguments '("-v" "-d")
2231 mail-specify-envelope-from t
2232 mail-envelope-from 'header))
2237 #+begin_src emacs-lisp
2238 (use-feature message
2240 (defconst a/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
2241 (defconst message-cite-style-bandali
2242 '((message-cite-function 'message-cite-original)
2243 (message-citation-line-function 'message-insert-formatted-citation-line)
2244 (message-cite-reply-position 'traditional)
2245 (message-yank-prefix "> ")
2246 (message-yank-cited-prefix ">")
2247 (message-yank-empty-prefix ">")
2248 (message-citation-line-format
2249 (if a/message-cite-say-hi
2250 (concat "Hi %F,\n\n" a/message-cite-style-format)
2251 a/message-cite-style-format)))
2252 "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
2253 (setq message-cite-style 'message-cite-style-bandali
2254 message-kill-buffer-on-exit t
2255 message-send-mail-function 'message-send-mail-with-sendmail
2256 message-sendmail-envelope-from 'header
2257 message-dont-reply-to-names
2258 "\\(\\(.*@aminb\\.org\\)\\|\\(amin@bandali\\.me\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
2259 message-user-fqdn "aminb.org")
2260 :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
2261 (message-mode . flyspell-mode)
2262 (message-mode . (lambda ()
2263 ;; (setq fill-column 65
2264 ;; message-fill-column 65)
2265 (make-local-variable 'company-idle-delay)
2266 (setq company-idle-delay 0.2))))
2268 ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
2269 ;; (message-header-to ((t (:foreground "#111" :weight normal))))
2270 ;; (message-header-cc ((t (:foreground "#333" :weight normal))))
2273 (with-eval-after-load 'mml-sec
2274 (setq mml-secure-openpgp-encrypt-to-self t
2275 mml-secure-openpgp-sign-with-sender t))
2280 Convenient footnotes in =message-mode=.
2282 #+begin_src emacs-lisp
2283 (use-feature footnote
2286 (:map message-mode-map
2287 :prefix-map a/footnote-prefix-map
2289 ("a" . footnote-add-footnote)
2290 ("b" . footnote-back-to-message)
2291 ("c" . footnote-cycle-style)
2292 ("d" . footnote-delete-footnote)
2293 ("g" . footnote-goto-footnote)
2294 ("r" . footnote-renumber-footnotes)
2295 ("s" . footnote-set-style))
2297 (setq footnote-start-tag ""
2299 footnote-style 'unicode))
2304 #+begin_src emacs-lisp
2306 :straight (:host github :repo "girzel/ebdb")
2308 :bind (:map gnus-group-mode-map ("e" . ebdb))
2310 (setq ebdb-sources (no-littering-expand-var-file-name "ebdb"))
2311 (with-eval-after-load 'swiper
2312 (add-to-list 'swiper-font-lock-exclude 'ebdb-mode t)))
2314 (use-feature ebdb-com
2317 ;; (use-package ebdb-complete
2320 ;; (ebdb-complete-enable))
2322 (use-package company-ebdb
2323 :after (:all company message)
2325 (defun company-ebdb--post-complete (_) nil)
2327 (message-mode . (lambda ()
2328 (add-to-list (make-local-variable 'company-backends)
2331 (use-feature ebdb-gnus
2335 (ebdb-gnus-window-configuration
2338 (summary 0.25 point)
2341 (ebdb-gnus 0.3))))))
2343 (use-feature ebdb-mua
2346 ;; :custom (ebdb-mua-pop-up nil)
2349 ;; (use-package ebdb-message
2353 ;; (use-package ebdb-vcard
2357 ** COMMENT message-x
2359 #+begin_src emacs-lisp
2360 (use-package message-x
2362 (message-x-completion-alist
2364 (("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:" . gnus-harvest-find-address)
2367 (quote message-newgroups-header-regexp))
2368 message-newgroups-header-regexp message-newsgroups-header-regexp)
2369 . message-expand-group)))))
2372 ** COMMENT gnus-harvest
2374 #+begin_src emacs-lisp
2375 (use-package gnus-harvest
2376 :commands gnus-harvest-install
2379 (if (featurep 'message-x)
2380 (gnus-harvest-install 'message-x)
2381 (gnus-harvest-install)))
2386 :CUSTOM_ID: blogging
2389 ** [[https://ox-hugo.scripter.co][ox-hugo]]
2391 #+begin_src emacs-lisp
2392 (use-package ox-hugo
2395 (use-feature ox-hugo-auto-export
2399 * Post initialization
2401 :CUSTOM_ID: post-initialization
2404 Display how long it took to load the init file.
2406 #+begin_src emacs-lisp
2407 (message "Loading %s...done (%.3fs)" user-init-file
2408 (float-time (time-subtract (current-time)
2409 a/before-user-init-time)))
2417 #+begin_src emacs-lisp :comments none
2418 ;;; init.el ends here
2421 * COMMENT Local Variables :ARCHIVE:
2423 # eval: (add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local)
2424 # eval: (when (featurep 'typo (typo-mode -1)))