1 #+title: Literate Emacs Configuration of Amin Bandali
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.
37 :CUSTOM_ID: installation
40 To use this config for your Emacs, first you need to clone this repo,
41 then tangle =init.org= into =init.el=, and optionally byte-compile
44 First, clone the repository and =cd= into it:
46 #+begin_src sh :tangle no
47 git clone https://git.sr.ht/~bandali/dotfiles ~/.emacs.d
51 Then, decide if you would like to use a byte-compiled init file, and
52 set the [[#byte-compiled-init][a/byte-compiled-init]] variable accordingly.
54 Now, first tangle =init.org=, and only if you chose to have a
55 byte-compiled init, build init as well:
57 #+begin_src sh :tangle no
62 If you'd like to use a byte-compiled init, it's important that it be
63 recompiled whenever =init.el= is generated from an updated =init.org=.
64 Not only does my setup automatically and asynchronously tangle
65 =init.org= to =init.el= every time you edit and save =init.org= in GNU
66 Emacs, it will also invoke =make build-init= if you set
67 =a/byte-compiled-init= to =t= above, so you wouldn't have to worry
68 about manually tangling and compiling your init file whenever you
69 change it. The output of the last byte-compilation in the current
70 session is kept in a =*compilation*= buffer, which will automatically
71 be displayed if compilation fails.
73 * Contents :toc_1:noexport:
77 - [[#initial-setup][Initial setup]]
79 - [[#borg-essentials][Borg's =layer/essentials=]]
80 - [[#editing][Editing]]
81 - [[#syntax-spell-checking][Syntax and spell checking]]
82 - [[#programming-modes][Programming modes]]
83 - [[#emacs-enhancements][Emacs enhancements]]
85 - [[#blogging][Blogging]]
86 - [[#post-initialization][Post initialization]]
96 #+begin_src emacs-lisp :comments none
97 ;;; init.el --- Amin Bandali's Emacs config -*- lexical-binding: t; eval: (view-mode 1) -*-
100 Enable =view-mode=, which both makes the file read-only (as a reminder
101 that =init.el= is an auto-generated file, not supposed to be edited),
102 and provides some convenient key bindings for browsing through the
107 #+begin_src emacs-lisp :comments none
108 ;; Copyright (C) 2018-2019 Amin Bandali <bandali@gnu.org>
110 ;; This program is free software: you can redistribute it and/or modify
111 ;; it under the terms of the GNU General Public License as published by
112 ;; the Free Software Foundation, either version 3 of the License, or
113 ;; (at your option) any later version.
115 ;; This program is distributed in the hope that it will be useful,
116 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
117 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
118 ;; GNU General Public License for more details.
120 ;; You should have received a copy of the GNU General Public License
121 ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
126 #+begin_src emacs-lisp :comments none
129 ;; Emacs configuration of Amin Bandali, computer scientist, functional
130 ;; programmer, and free software advocate.
132 ;; THIS FILE IS AUTO-GENERATED FROM `init.org'.
137 :CUSTOM_ID: initial-setup
140 ** Byte-compiled init preference
142 :CUSTOM_ID: byte-compiled-init
145 If you would like a byte-compiled init file, set the following
146 variable to ~t~, otherwise set it to ~nil~.
148 #+begin_src emacs-lisp
149 (defvar a/byte-compiled-init nil
150 "If non-nil, byte-(re)compile init.el on successful tangles.")
153 You can click on [[#installation][Installation]] to jump back up there if you like :)
155 ** Emacs initialization
157 I'd like to do a couple of measurements of Emacs' startup time. First,
158 let's see how long Emacs takes to start up, before even loading
159 =init.el=, i.e. =user-init-file=:
161 #+begin_src emacs-lisp
162 (defvar a/before-user-init-time (current-time)
163 "Value of `current-time' when Emacs begins loading `user-init-file'.")
164 (message "Loading Emacs...done (%.3fs)"
165 (float-time (time-subtract a/before-user-init-time
169 Also, temporarily increase ~gc-cons-threshhold~ and
170 ~gc-cons-percentage~ during startup to reduce garbage collection
171 frequency. Clearing the ~file-name-handler-alist~ seems to help reduce
172 startup time as well.
174 #+begin_src emacs-lisp
175 (defvar a/gc-cons-threshold gc-cons-threshold)
176 (defvar a/gc-cons-percentage gc-cons-percentage)
177 (defvar a/file-name-handler-alist file-name-handler-alist)
178 (setq gc-cons-threshold (* 400 1024 1024) ; 400 MiB
179 gc-cons-percentage 0.6
180 file-name-handler-alist nil
181 ;; sidesteps a bug when profiling with esup
182 esup-child-profile-require-level 0)
185 Of course, we'd like to set them back to their defaults once we're
188 #+begin_src emacs-lisp
192 (setq gc-cons-threshold a/gc-cons-threshold
193 gc-cons-percentage a/gc-cons-percentage
194 file-name-handler-alist a/file-name-handler-alist)))
197 Increase the number of lines kept in message logs (the =*Messages*=
200 #+begin_src emacs-lisp
201 (setq message-log-max 20000)
204 Optionally, we could suppress some byte compiler warnings like below,
205 but for now I've decided to keep them enabled. See documentation for
206 ~byte-compile-warnings~ for more details.
208 #+begin_src emacs-lisp
209 ;; (setq byte-compile-warnings
210 ;; '(not free-vars unresolved noruntime lexical make-local))
215 #+begin_src emacs-lisp
216 (setq user-full-name "Amin Bandali"
217 user-mail-address "amin@bndl.org")
220 ** Package management
224 I can do all my package management things with =straight.el=, and
225 don't need Emacs' built-in =package.el=. Emacs 27 lets us disable
226 =package.el= in the =early-init-file= (see [[https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=24acb31c04b4048b85311d794e600ecd7ce60d3b][here]]).
228 #+begin_src emacs-lisp :tangle early-init.el
229 (setq package-enable-at-startup nil)
232 But since Emacs 27 isn't out yet (Emacs 26 is just around the corner
233 right now), and even when released it'll be long before most distros
234 ship in their repos, I'll still put the old workaround with the
235 commented call to ~package-initialize~ here anyway.
237 #+begin_src emacs-lisp :tangle no
238 (setq package-enable-at-startup nil)
239 ;; (package-initialize)
242 Update: the above is not necessary, since =straight.el= automatically
243 does that (and more). See =straight-package-neutering-mode=.
248 Next-generation, purely functional package manager for the Emacs
252 =straight.el= allows me to have a fully reproducible Emacs setup.
254 #+begin_src emacs-lisp
255 ;; Main engine start...
257 (setq straight-repository-branch "develop"
258 straight-check-for-modifications '(check-on-save find-when-checking))
260 (defun a/bootstrap-straight ()
261 (defvar bootstrap-version)
262 (let ((bootstrap-file
263 (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
264 (bootstrap-version 5))
265 (unless (file-exists-p bootstrap-file)
267 (url-retrieve-synchronously
268 "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
269 'silent 'inhibit-cookies)
270 (goto-char (point-max))
271 (eval-print-last-sexp)))
272 (load bootstrap-file nil 'nomessage)))
274 ;; Solid rocket booster ignition...
276 (defun a/build-init ()
277 (a/bootstrap-straight)
278 (byte-compile-file "init.el"))
280 (a/bootstrap-straight)
284 (setq straight-use-package-by-default t)
287 Since we enable =straight.el='s =straight-use-package-by-default=
288 integration, we will define a =use-feature= for plain ole
289 =use-package= without any of the =straight.el= stuff.
291 #+begin_src emacs-lisp
292 (defmacro use-feature (name &rest args)
293 "Like `use-package', but with `straight-use-package-by-default' disabled."
294 (declare (indent defun))
300 While at it, let's exclude =straight.el='s build from recentf:
302 #+begin_src emacs-lisp
303 (with-eval-after-load 'recentf
304 (add-to-list 'recentf-exclude
305 (expand-file-name "~/.emacs.d/straight/build/")))
308 Also, here's a useful function for reloading the init file (useful
309 after running =straight-check-all=:
311 #+begin_src emacs-lisp
312 (defun a/reload-init ()
315 (straight-transaction
316 (straight-mark-transaction-as-init)
317 (load (if a/byte-compiled-init
318 (concat (file-name-sans-extension user-init-file) ".elc")
325 A use-package declaration for simplifying your .emacs
328 [[https://github.com/jwiegley/use-package][use-package]] is an awesome utility for managing and configuring
329 packages (in our case especially the latter) in a neatly organized way
330 and without compromising on performance.
332 #+begin_src emacs-lisp
333 (straight-use-package 'use-package)
334 (if nil ; set to t when need to debug init
336 (setq use-package-verbose t
337 use-package-expand-minimally nil
338 use-package-compute-statistics t
340 (require 'use-package))
341 (setq use-package-verbose nil
342 use-package-expand-minimally t))
344 (setq use-package-always-defer t)
351 Browse the Emacsmirror package database
354 Epkg provides access to a local copy of the [[https://emacsmirror.net][Emacsmirror]] package
355 database, low-level functions for querying the database, and a
356 =package.el=-like user interface for browsing the available packages.
358 #+begin_src emacs-lisp
360 :commands (epkg-list-packages epkg-describe-package)
362 (("C-c p e d" . epkg-describe-package)
363 ("C-c p e p" . epkg-list-packages))
365 (setq epkg-repository "~/.emacs.d/straight/repos/epkgs/")
366 (eval-when-compile (defvar ivy-initial-inputs-alist))
367 (with-eval-after-load 'ivy
369 'ivy-initial-inputs-alist '(epkg-describe-package . "^") t)))
372 ** No littering in =~/.emacs.d=
375 Help keeping ~/.emacs.d clean
378 By default, even for Emacs' built-in packages, the configuration files
379 and persistent data are all over the place. Use =no-littering= to help
382 #+begin_src emacs-lisp
383 (use-package no-littering
387 (add-to-list 'savehist-additional-variables 'kill-ring)
389 (setq auto-save-file-name-transforms
390 `((".*" ,(no-littering-expand-var-file-name "auto-save/") t))))
393 ** Custom file (=custom.el=)
395 I'm not planning on using the custom file much, but even so, I
396 definitely don't want it mixing with =init.el=. So, here; let's give
397 it it's own file. While at it, treat themes as safe.
399 #+begin_src emacs-lisp
403 (setq custom-file (no-littering-expand-etc-file-name "custom.el"))
404 (when (file-exists-p custom-file)
406 (setf custom-safe-themes t))
411 Load the secrets file if it exists, otherwise show a warning.
413 #+begin_src emacs-lisp
415 (load (no-littering-expand-etc-file-name "secrets")))
418 ** Better =$PATH= handling
420 Let's use [[https://github.com/purcell/exec-path-from-shell][exec-path-from-shell]] to make Emacs use the =$PATH= as set up
423 #+begin_src emacs-lisp
424 (use-package exec-path-from-shell
427 (setq exec-path-from-shell-arguments nil
428 exec-path-from-shell-check-startup-files nil)
430 (exec-path-from-shell-initialize)
431 ;; while we're at it, let's fix access to our running ssh-agent
432 (exec-path-from-shell-copy-env "SSH_AGENT_PID")
433 (exec-path-from-shell-copy-env "SSH_AUTH_SOCK"))
436 ** COMMENT Only one custom theme at a time
438 #+begin_src emacs-lisp
439 (defadvice load-theme (before clear-previous-themes activate)
440 "Clear existing theme settings instead of layering them"
441 (mapc #'disable-theme custom-enabled-themes))
446 Start server if not already running. Alternatively, can be done by
447 issuing =emacs --daemon= in the terminal, which can be automated with
448 a systemd service or using =brew services start emacs= on macOS. I use
449 Emacs as my window manager (via EXWM), so I always start Emacs on
450 login; so starting the server from inside Emacs is good enough for me.
452 See [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html#Emacs-Server][Using Emacs as a Server]].
454 #+begin_src emacs-lisp
457 :config (or (server-running-p) (server-mode)))
460 ** COMMENT Unicode support
462 Font stack with better unicode support, around =Ubuntu Mono= and
465 #+begin_src emacs-lisp
466 (dolist (ft (fontset-list))
470 (font-spec :name "Source Code Pro" :size 14))
474 (font-spec :name "DejaVu Sans Mono")
481 ;; :name "Symbola monospacified for DejaVu Sans Mono")
487 ;; (font-spec :name "DejaVu Sans Mono")
493 (font-spec :name "DejaVu Sans Mono" :size 14)
498 ** Gentler font resizing
500 #+begin_src emacs-lisp
501 (setq text-scale-mode-step 1.05)
504 ** Focus follows mouse
506 I’d like focus to follow the mouse when I move the cursor from one
509 #+begin_src emacs-lisp
510 (setq mouse-autoselect-window t)
513 Let’s define a function to conveniently disable this for certain
514 buffers and/or modes.
516 #+begin_src emacs-lisp
517 (defun a/no-mouse-autoselect-window ()
518 (make-local-variable 'mouse-autoselect-window)
519 (setq mouse-autoselect-window nil))
522 ** Better scrolling (arguably)
524 #+begin_src emacs-lisp
525 (setq ;; scroll-margin 1
526 ;; scroll-conservatively 10000
528 scroll-conservatively 10
529 scroll-preserve-screen-position 1)
534 (setq mouse-wheel-scroll-amount '(1 ((shift) . 1)) ; one line at a time
535 mouse-wheel-progressive-speed nil ; don't accelerate scrolling
536 mouse-wheel-follow-mouse t)) ; scroll window under mouse
538 (use-feature pixel-scroll
540 :config (pixel-scroll-mode 1))
543 ** Ask for GPG passphrase in minibuffer
545 #+begin_src emacs-lisp
546 (setq epg-pinentry-mode 'loopback)
551 #+begin_src emacs-lisp
558 Convenience macro for =setq='ing multiple variables to the same value:
560 #+begin_src emacs-lisp
561 (defmacro a/setq-every (value &rest vars)
562 "Set all the variables from VARS to value VALUE."
563 (declare (indent defun) (debug t))
564 `(progn ,@(mapcar (lambda (x) (list 'setq x value)) vars)))
567 The following process-related stuff from [[https://github.com/alezost/emacs-config][alezost's emacs-config]].
569 #+begin_src emacs-lisp
570 (defun a/start-process (program &rest args)
571 "Same as `start-process', but doesn't bother about name and buffer."
572 (let ((process-name (concat program "_process"))
573 (buffer-name (generate-new-buffer-name
574 (concat program "_output"))))
575 (apply #'start-process
576 process-name buffer-name program args)))
578 (defun a/dired-start-process (program &optional args)
579 "Open current file with a PROGRAM."
580 ;; Shell command looks like this: "program [ARGS]... FILE" (ARGS can
581 ;; be nil, so remove it).
582 (apply #'a/start-process
584 (remove nil (list args (dired-get-file-for-visit)))))
594 *** Time and battery in mode-line
596 Enable displaying time and battery in the mode-line, since I'm not
597 using the Xfce panel anymore. Also, I don't need to see the load
598 average on a regular basis, so disable that.
600 Note: using =i3status= on sway at the moment, so disabling this.
602 #+begin_src emacs-lisp :tangle no
605 (setq display-time-default-load-average nil)
611 (display-battery-mode))
616 Might want to set the fringe to a smaller value, especially if using
617 EXWM. I'm fine with the default for now.
619 #+begin_src emacs-lisp
620 ;; (fringe-mode '(3 . 1))
624 *** Disable disabled commands
626 Emacs disables some commands by default that could persumably be
627 confusing for novice users. Let's disable that.
629 #+begin_src emacs-lisp
630 (setq disabled-command-function nil)
635 Save what I copy into clipboard from other applications into Emacs'
636 kill-ring, which would allow me to still be able to easily access it
637 in case I kill (cut or copy) something else inside Emacs before
638 yanking (pasting) what I'd originally intended to.
640 #+begin_src emacs-lisp
641 (setq save-interprogram-paste-before-kill t)
646 #+begin_src emacs-lisp
647 (setq enable-recursive-minibuffers t
648 resize-mini-windows t)
651 *** Lazy-person-friendly yes/no prompts
653 Lazy people would prefer to type fewer keystrokes, especially for yes
654 or no questions. I'm lazy.
656 #+begin_src emacs-lisp
657 (defalias 'yes-or-no-p #'y-or-n-p)
660 *** Startup screen and =*scratch*=
662 Firstly, let Emacs know that I'd like to have =*scratch*= as my
665 #+begin_src emacs-lisp
666 (setq initial-buffer-choice t)
669 Now let's customize the =*scratch*= buffer a bit. First off, I don't
670 need the default hint.
672 #+begin_src emacs-lisp
673 (setq initial-scratch-message nil)
676 Also, let's use Text mode as the major mode, in case I want to
677 customize it (=*scratch*='s default major mode, Fundamental mode,
678 can't really be customized).
680 #+begin_src emacs-lisp
681 (setq initial-major-mode 'text-mode)
684 Inhibit the buffer list when more than 2 files are loaded.
686 #+begin_src emacs-lisp
687 (setq inhibit-startup-buffer-menu t)
690 I don't really need to see the startup screen or echo area message
693 #+begin_src emacs-lisp
694 (advice-add #'display-startup-echo-area-message :override #'ignore)
695 (setq inhibit-startup-screen t
696 inhibit-startup-echo-area-message user-login-name)
699 *** More useful frame titles
701 Show either the file name or the buffer name (in case the buffer isn't
702 visiting a file). Borrowed from Emacs Prelude.
704 #+begin_src emacs-lisp
705 (setq frame-title-format
706 '("" invocation-name " - "
707 (:eval (if (buffer-file-name)
708 (abbreviate-file-name (buffer-file-name))
714 Emacs' default backup settings aren't that great. Let's use more
715 sensible options. See documentation for the ~make-backup-file~
718 #+begin_src emacs-lisp
719 (setq backup-by-copying t
721 delete-old-versions t)
726 Enable automatic reloading of changed buffers and files.
728 #+begin_src emacs-lisp
729 (global-auto-revert-mode 1)
730 (setq auto-revert-verbose nil
731 global-auto-revert-non-file-buffers nil)
734 *** Always use space for indentation
736 #+begin_src emacs-lisp
739 require-final-newline t
745 Enable =winner-mode=.
747 #+begin_src emacs-lisp
751 *** Don’t display =*compilation*= on success
753 Based on https://stackoverflow.com/a/17788551, with changes to use
754 =cl-letf= instead of the now obsolete =flet=.
756 #+begin_src emacs-lisp
757 (with-eval-after-load 'compile
758 (defun a/compilation-finish-function (buffer outstr)
759 (unless (string-match "finished" outstr)
760 (switch-to-buffer-other-window buffer))
763 (setq compilation-finish-functions #'a/compilation-finish-function)
767 (defadvice compilation-start
768 (around inhibit-display
769 (command &optional mode name-function highlight-regexp))
770 (if (not (string-match "^\\(find\\|grep\\)" command))
771 (cl-letf (((symbol-function 'display-buffer) #'ignore))
772 (save-window-excursion ad-do-it))
774 (ad-activate 'compilation-start))
777 *** Search for non-ASCII characters
779 I’d like non-ASCII characters such as ‘’“”«»‹›áⓐ𝒶 to be selected when
780 I search for their ASCII counterpart. Shoutout to [[http://endlessparentheses.com/new-in-emacs-25-1-easily-search-non-ascii-characters.html][endlessparentheses]]
783 #+begin_src emacs-lisp
784 (setq search-default-mode #'char-fold-to-regexp)
786 ;; uncomment to extend this behaviour to query-replace
787 ;; (setq replace-char-fold t)
792 #+begin_src emacs-lisp
793 (setq-default cursor-type 'bar)
796 *** Allow scrolling in Isearch
798 #+begin_src emacs-lisp
799 (setq isearch-allow-scroll t)
804 Some bindings for functions from built-in GNU Emacs packages:
806 #+begin_src emacs-lisp
810 ("C-c e b" . eval-buffer)
811 ("C-c e r" . eval-region)
813 ("C-c e i" . emacs-init-time)
814 ("C-c e u" . emacs-uptime)
816 ("C-c F m" . make-frame-command)
817 ("C-c F d" . delete-frame)
818 ("C-c F D" . delete-other-frames)
820 ("C-c o" . other-window)
822 ("C-S-h C" . describe-char)
823 ("C-S-h F" . describe-face)
825 ("C-x k" . kill-this-buffer)
826 ("C-x K" . kill-buffer)
828 ("s-p" . beginning-of-buffer)
829 ("s-n" . end-of-buffer))
831 (when (display-graphic-p)
832 (unbind-key "C-z" global-map))
835 While at it, let's bind a few for some =straight-*= functions too:
837 #+begin_src emacs-lisp
839 :prefix-map a/straight-prefix-map
841 ("u" . straight-use-package)
842 ("f" . straight-freeze-versions)
843 ("t" . straight-thaw-versions)
844 ("P" . straight-prune-build)
845 ("g" . straight-get-recipe)
846 ("r" . a/reload-init)
847 ;; M-x ^straight-.*-all$
848 ("a c" . straight-check-all)
849 ("a f" . straight-fetch-all)
850 ("a m" . straight-merge-all)
851 ("a n" . straight-normalize-all)
852 ("a F" . straight-pull-all)
853 ("a P" . straight-push-all)
854 ("a r" . straight-rebuild-all)
855 ;; M-x ^straight-.*-package$
856 ("p c" . straight-check-package)
857 ("p f" . straight-fetch-package)
858 ("p m" . straight-merge-package)
859 ("p n" . straight-normalize-package)
860 ("p F" . straight-pull-package)
861 ("p P" . straight-push-package)
862 ("p r" . straight-rebuild-package))
867 The packages in this section are absolutely essential to my everyday
868 workflow, and they play key roles in how I do my computing. They
869 immensely enhance the Emacs experience for me; both using Emacs, and
872 *** [[https://github.com/emacscollective/auto-compile][auto-compile]]
874 #+begin_src emacs-lisp
875 (use-package auto-compile
878 (auto-compile-on-load-mode)
879 (auto-compile-on-save-mode)
880 (setq auto-compile-display-buffer nil
881 auto-compile-mode-line-counter t
882 auto-compile-source-recreate-deletes-dest t
883 auto-compile-toggle-deletes-nonlib-dest t
884 auto-compile-update-autoloads t)
885 (add-hook 'auto-compile-inhibit-compile-hook
886 'auto-compile-inhibit-compile-detached-git-head))
889 *** [[https://orgmode.org/][Org]]
892 Org mode is for keeping notes, maintaining TODO lists, planning
893 projects, and authoring documents with a fast and effective plain-text
897 In short, my favourite way of life.
899 We will use the =org-plus-contrib= package to get the whole deal:
901 #+begin_src emacs-lisp
902 (straight-use-package 'org-plus-contrib)
905 And here's where my actual Org configurations begin:
907 #+begin_src emacs-lisp
911 (setq org-src-tab-acts-natively t
912 org-src-preserve-indentation nil
913 org-edit-src-content-indentation 0
914 org-link-email-description-format "Email %c: %s" ; %.30s
915 org-highlight-latex-and-related '(entities)
916 org-use-speed-commands t
917 org-startup-folded 'content
918 org-catch-invisible-edits 'show-and-error
920 (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
922 (("C-c a o a" . org-agenda)
924 ("M-L" . org-insert-last-stored-link)
926 :hook ((org-mode . org-indent-mode)
927 (org-mode . auto-fill-mode)
928 (org-mode . flyspell-mode))
930 (org-agenda-files '("~/usr/org/todos/personal.org"
931 "~/usr/org/todos/masters.org"))
932 (org-agenda-start-on-weekday 0)
933 (org-latex-packages-alist '(("" "listings") ("" "color")))
935 '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21"))))
936 '(org-block ((t (:background "#1d1f21"))))
937 '(org-latex-and-related ((t (:foreground "#b294bb")))))
939 (use-feature ox-latex
942 (setq org-latex-listings 'listings
943 ;; org-latex-prefer-user-labels t
945 (add-to-list 'org-latex-classes
946 '("IEEEtran" "\\documentclass[11pt]{IEEEtran}"
947 ("\\section{%s}" . "\\section*{%s}")
948 ("\\subsection{%s}" . "\\subsection*{%s}")
949 ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
950 ("\\paragraph{%s}" . "\\paragraph*{%s}")
951 ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
953 (require 'ox-beamer))
956 **** asynchronous tangle
958 =a/async-babel-tangle= is a function closely inspired by [[https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles][dieggsy's
959 d/async-babel-tangle]] which uses [[https://github.com/jwiegley/emacs-async][async]] to asynchronously tangle an org
962 #+begin_src emacs-lisp
963 (with-eval-after-load 'org
964 (defvar a/show-async-tangle-results nil
965 "Keep *emacs* async buffers around for later inspection.")
967 (defvar a/show-async-tangle-time nil
968 "Show the time spent tangling the file.")
970 (defvar a/async-tangle-post-compile
971 (when a/byte-compiled-init "make build-init")
972 "If non-nil, pass to `compile' after successful tangle.")
974 ;; TODO: look into why directly byte-compiling init.el causes a
975 ;; number of problems, including magit-status not loading (busy
977 (defvar a/async-tangle-byte-recompile nil
978 "If non-nil, byte-recompile the file on successful tangle.")
980 (defun a/async-babel-tangle ()
981 "Tangle org file asynchronously."
983 (let* ((file-tangle-start-time (current-time))
984 (file (buffer-file-name))
985 (file-nodir (file-name-nondirectory file))
986 ;; (async-quiet-switch "-q")
987 (file-noext (file-name-sans-extension file)))
991 (org-babel-tangle-file ,file))
992 (unless a/show-async-tangle-results
996 ;; (setq byte-compile-warnings '(not noruntime unresolved))
997 (message "Tangled %s%s"
999 (if a/show-async-tangle-time
1001 (float-time (time-subtract (current-time)
1002 ',file-tangle-start-time)))
1004 (when a/async-tangle-post-compile
1005 (compile a/async-tangle-post-compile))
1006 (when a/async-tangle-byte-recompile
1007 (byte-recompile-file (concat ,file-noext ".el"))))
1008 (message "Tangling %s failed" ,file-nodir))))))))
1011 'safe-local-variable-values
1012 '(eval add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local))
1015 *** [[https://magit.vc/][Magit]]
1018 It's Magit! A Git porcelain inside Emacs.
1021 Not just how I do git, but /the/ way to do git.
1023 #+begin_src emacs-lisp
1026 :bind (("C-x g" . magit-status)
1027 ("s-g s" . magit-status)
1028 ("s-g l" . magit-log-buffer-file))
1030 (magit-add-section-hook 'magit-status-sections-hook
1031 'magit-insert-modules
1032 'magit-insert-stashes
1034 (setq magit-repository-directories '(("~/" . 0)
1035 ("~/src/git/" . 1)))
1036 (nconc magit-section-initial-visibility-alist
1037 '(([unpulled status] . show)
1038 ([unpushed status] . show)))
1039 :custom-face (magit-diff-file-heading ((t (:weight normal)))))
1044 Recently opened files.
1046 #+begin_src emacs-lisp
1047 (use-feature recentf
1050 (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
1051 (setq recentf-max-saved-items 40))
1057 A smart M-x enhancement for Emacs.
1060 Mostly because =counsel= needs it to remember history.
1062 #+begin_src emacs-lisp
1066 *** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
1069 Ivy - a generic completion frontend for Emacs, Swiper - isearch with
1070 an overview, and more. Oh, man!
1073 There's no way I could top that, so I won't attempt to.
1077 #+begin_src emacs-lisp
1081 (:map ivy-minibuffer-map
1082 ([escape] . keyboard-escape-quit)
1083 ([S-up] . ivy-previous-history-element)
1084 ([S-down] . ivy-next-history-element)
1085 ("DEL" . ivy-backward-delete-char))
1090 ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
1091 ;; (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
1092 ;; (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold))))
1098 #+begin_src emacs-lisp
1101 :bind (("C-s" . swiper-isearch)
1103 ("C-S-s" . isearch-forward)))
1108 #+begin_src emacs-lisp
1109 (use-package counsel
1111 :bind (([remap execute-extended-command] . counsel-M-x)
1112 ([remap find-file] . counsel-find-file)
1113 ("s-r" . counsel-recentf)
1114 ("C-c x" . counsel-M-x)
1115 ("C-c f ." . counsel-find-file)
1116 :map minibuffer-local-map
1117 ("C-r" . counsel-minibuffer-history))
1120 (defalias 'locate #'counsel-locate))
1125 #+begin_src emacs-lisp
1127 :commands (helm-M-x helm-mini helm-resume)
1128 :bind (("M-x" . helm-M-x)
1129 ("M-y" . helm-show-kill-ring)
1130 ("C-x b" . helm-mini)
1131 ("C-x C-b" . helm-buffers-list)
1132 ("C-x C-f" . helm-find-files)
1133 ("C-h r" . helm-info-emacs)
1134 ("s-r" . helm-recentf)
1135 ("C-s-r" . helm-resume)
1137 ("<tab>" . helm-execute-persistent-action)
1138 ("C-i" . helm-execute-persistent-action) ; Make TAB work in terminals
1139 ("C-z" . helm-select-action)) ; List actions
1140 :config (helm-mode 1))
1145 #+begin_src emacs-lisp
1149 :bind ("C-c a s e" . eshell)
1151 (eval-when-compile (defvar eshell-prompt-regexp))
1152 (defun a/eshell-quit-or-delete-char (arg)
1154 (if (and (eolp) (looking-back eshell-prompt-regexp nil))
1155 (eshell-life-is-too-much)
1158 (defun a/eshell-clear ()
1160 (let ((inhibit-read-only t))
1162 (eshell-send-input))
1164 (defun a/eshell-setup ()
1165 (make-local-variable 'company-idle-delay)
1166 (defvar company-idle-delay)
1167 (setq company-idle-delay nil)
1168 (bind-keys :map eshell-mode-map
1169 ("C-d" . a/eshell-quit-or-delete-char)
1170 ("C-S-l" . a/eshell-clear)
1171 ("M-r" . counsel-esh-history)
1172 ([tab] . company-complete)))
1174 :hook (eshell-mode . a/eshell-setup)
1176 (eshell-hist-ignoredups t)
1177 (eshell-input-filter 'eshell-input-filter-initial-space))
1182 #+begin_src emacs-lisp
1183 (use-feature ibuffer
1185 (("C-x C-b" . ibuffer-other-window)
1186 :map ibuffer-mode-map
1187 ("P" . ibuffer-backward-filter-group)
1188 ("N" . ibuffer-forward-filter-group)
1189 ("M-p" . ibuffer-do-print)
1190 ("M-n" . ibuffer-do-shell-command-pipe-replace))
1192 ;; Use human readable Size column instead of original one
1193 (define-ibuffer-column size-h
1194 (:name "Size" :inline t)
1196 ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
1197 ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
1198 ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
1199 (t (format "%8d" (buffer-size)))))
1201 (ibuffer-saved-filter-groups
1203 ("dired" (mode . dired-mode))
1204 ("org" (mode . org-mode))
1207 (mode . gnus-group-mode)
1208 (mode . gnus-summary-mode)
1209 (mode . gnus-article-mode)
1210 ;; not really, but...
1211 (mode . message-mode)))
1220 (mode . eshell-mode)
1222 (mode . term-mode)))
1225 (mode . python-mode)
1229 (mode . emacs-lisp-mode)
1230 (mode . scheme-mode)
1231 (mode . haskell-mode)
1233 (mode . alloy-mode)))
1236 (mode . bibtex-mode)
1237 (mode . latex-mode)))
1240 (name . "^\\*scratch\\*$")
1241 (name . "^\\*Messages\\*$")))
1242 ("erc" (mode . erc-mode)))))
1244 '((mark modified read-only locked " "
1245 (name 18 18 :left :elide)
1247 (size-h 9 -1 :right)
1249 (mode 16 16 :left :elide)
1250 " " filename-and-process)
1254 :hook (ibuffer . (lambda () (ibuffer-switch-to-saved-filter-groups "default"))))
1259 #+begin_src emacs-lisp
1260 (use-feature outline
1261 :hook (prog-mode . outline-minor-mode)
1264 outline-minor-mode-map
1265 ("<s-tab>" . outline-toggle-children)
1266 ("M-p" . outline-previous-visible-heading)
1267 ("M-n" . outline-next-visible-heading)
1268 :prefix-map a/outline-prefix-map
1270 ("TAB" . outline-toggle-children)
1271 ("a" . outline-hide-body)
1272 ("H" . outline-hide-body)
1273 ("S" . outline-show-all)
1274 ("h" . outline-hide-subtree)
1275 ("s" . outline-show-subtree)))
1280 #+begin_src emacs-lisp
1281 (use-feature ls-lisp
1282 :custom (ls-lisp-dirs-first t))
1286 (setq dired-listing-switches "-alh"
1287 ls-lisp-use-insert-directory-program nil)
1289 ;; easily diff 2 marked files
1290 ;; https://oremacs.com/2017/03/18/dired-ediff/
1291 (defun dired-ediff-files ()
1293 (require 'dired-aux)
1294 (defvar ediff-after-quit-hook-internal)
1295 (let ((files (dired-get-marked-files))
1296 (wnd (current-window-configuration)))
1297 (if (<= (length files) 2)
1298 (let ((file1 (car files))
1299 (file2 (if (cdr files)
1303 (dired-dwim-target-directory)))))
1304 (if (file-newer-than-file-p file1 file2)
1305 (ediff-files file2 file1)
1306 (ediff-files file1 file2))
1307 (add-hook 'ediff-after-quit-hook-internal
1309 (setq ediff-after-quit-hook-internal nil)
1310 (set-window-configuration wnd))))
1311 (error "no more than 2 files should be marked"))))
1312 :bind (:map dired-mode-map
1313 ("b" . dired-up-directory)
1314 ("e" . dired-ediff-files)
1315 ("E" . dired-toggle-read-only)
1316 ("\\" . dired-hide-details-mode)
1319 (a/dired-start-process "zathura"))))
1320 :hook (dired-mode . dired-hide-details-mode))
1325 #+begin_src emacs-lisp
1328 (temp-buffer-resize-mode)
1329 (setq help-window-select t))
1334 #+begin_src emacs-lisp
1337 (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
1338 (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
1339 (add-to-list 'tramp-default-proxies-alist
1340 (list (regexp-quote (system-name)) nil nil)))
1345 #+begin_src emacs-lisp
1347 :config (dash-enable-font-lock))
1352 #+begin_src emacs-lisp
1353 (use-package doc-view
1354 :bind (:map doc-view-mode-map
1355 ("M-RET" . image-previous-line)))
1365 Highlight uncommitted changes in the left fringe.
1367 #+begin_src emacs-lisp
1368 (use-package diff-hl
1370 (setq diff-hl-draw-borders nil)
1371 (global-diff-hl-mode)
1372 :hook (magit-post-refresh . diff-hl-magit-post-refresh))
1377 Display Lisp objects at point in the echo area.
1379 #+begin_src emacs-lisp
1381 :when (version< "25" emacs-version)
1382 :config (global-eldoc-mode))
1387 Highlight matching parens.
1389 #+begin_src emacs-lisp
1392 :config (show-paren-mode))
1395 ** simple (for column numbers)
1397 #+begin_src emacs-lisp
1399 :config (column-number-mode))
1404 Save minibuffer history.
1406 #+begin_src emacs-lisp
1407 (use-feature savehist
1408 :config (savehist-mode))
1413 Automatically save place in each file.
1415 #+begin_src emacs-lisp
1416 (use-feature saveplace
1417 :when (version< "25" emacs-version)
1418 :config (save-place-mode))
1423 #+begin_src emacs-lisp
1424 (use-feature prog-mode
1425 :config (global-prettify-symbols-mode)
1426 (defun indicate-buffer-boundaries-left ()
1427 (setq indicate-buffer-boundaries 'left))
1428 (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
1433 #+begin_src emacs-lisp
1434 (use-feature text-mode
1435 :hook ((text-mode . indicate-buffer-boundaries-left)
1436 (text-mode . abbrev-mode)))
1441 #+begin_src emacs-lisp
1442 (use-package company
1445 (:map company-active-map
1446 ([tab] . company-complete-common-or-cycle)
1447 ([escape] . company-abort))
1449 (company-minimum-prefix-length 1)
1450 (company-selection-wrap-around t)
1451 (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
1452 (company-dabbrev-downcase nil)
1453 (company-dabbrev-ignore-case nil)
1455 (global-company-mode t))
1460 #+begin_src emacs-lisp
1461 (use-package flycheck
1463 :hook (prog-mode . flycheck-mode)
1465 (:map flycheck-mode-map
1466 ("M-P" . flycheck-previous-error)
1467 ("M-N" . flycheck-next-error))
1469 ;; Use the load-path from running Emacs when checking elisp files
1470 (setq flycheck-emacs-lisp-load-path 'inherit)
1472 ;; Only flycheck when I actually save the buffer
1473 (setq flycheck-check-syntax-automatically '(mode-enabled save)))
1475 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
1479 ;; ’ can be part of a word
1480 (setq ispell-local-dictionary-alist
1481 `((nil "[[:alpha:]]" "[^[:alpha:]]"
1482 "['\x2019]" nil ("-B") nil utf-8)))
1483 ;; don't send ’ to the subprocess
1484 (defun endless/replace-apostrophe (args)
1485 (cons (replace-regexp-in-string
1488 (advice-add #'ispell-send-string :filter-args
1489 #'endless/replace-apostrophe)
1491 ;; convert ' back to ’ from the subprocess
1492 (defun endless/replace-quote (args)
1493 (if (not (derived-mode-p 'org-mode))
1495 (cons (replace-regexp-in-string
1498 (advice-add #'ispell-parse-output :filter-args
1499 #'endless/replace-quote))
1504 :CUSTOM_ID: programming-modes
1509 #+begin_src emacs-lisp
1510 (use-feature lisp-mode
1512 (add-hook 'emacs-lisp-mode-hook 'outline-minor-mode)
1513 (add-hook 'emacs-lisp-mode-hook 'reveal-mode)
1514 (defun indent-spaces-mode ()
1515 (setq indent-tabs-mode nil))
1516 (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
1519 ** [[http://alloytools.org][Alloy]] (with [[https://github.com/dwwmmn/alloy-mode][alloy-mode]])
1521 #+begin_src emacs-lisp
1522 (use-package alloy-mode
1523 :straight (:host github :repo "dwwmmn/alloy-mode")
1525 :config (setq alloy-basic-offset 2))
1528 ** [[https://coq.inria.fr][Coq]] (with [[https://github.com/ProofGeneral/PG][Proof General]])
1530 #+begin_src emacs-lisp
1531 (use-package proof-site ; Proof General
1532 :straight proof-general)
1535 ** [[https://leanprover.github.io][Lean]] (with [[https://github.com/leanprover/lean-mode][lean-mode]])
1537 #+begin_src emacs-lisp
1538 (eval-when-compile (defvar lean-mode-map))
1539 (use-package lean-mode
1541 :bind (:map lean-mode-map
1542 ("S-SPC" . company-complete))
1544 (require 'lean-input)
1545 (setq default-input-method "Lean"
1546 lean-input-tweak-all '(lean-input-compose
1547 (lean-input-prepend "/")
1548 (lean-input-nonempty))
1549 lean-input-user-translations '(("/" "/")))
1555 *** [[https://github.com/haskell/haskell-mode][haskell-mode]]
1557 #+begin_src emacs-lisp
1558 (use-package haskell-mode
1560 (setq haskell-indentation-layout-offset 4
1561 haskell-indentation-left-offset 4
1562 flycheck-checker 'haskell-hlint
1563 flycheck-disabled-checkers '(haskell-stack-ghc haskell-ghc)))
1566 *** [[https://github.com/jyp/dante][dante]]
1568 #+begin_src emacs-lisp
1571 :commands dante-mode
1572 :hook (haskell-mode . dante-mode))
1575 *** [[https://github.com/mpickering/hlint-refactor-mode][hlint-refactor]]
1577 Emacs bindings for [[https://github.com/ndmitchell/hlint][hlint]]'s refactor option. This requires the refact
1578 executable from [[https://github.com/mpickering/apply-refact][apply-refact]].
1580 #+begin_src emacs-lisp
1581 (use-package hlint-refactor
1583 :bind (:map hlint-refactor-mode-map
1584 ("C-c l b" . hlint-refactor-refactor-buffer)
1585 ("C-c l r" . hlint-refactor-refactor-at-point))
1586 :hook (haskell-mode . hlint-refactor-mode))
1589 *** [[https://github.com/flycheck/flycheck-haskell][flycheck-haskell]]
1591 #+begin_src emacs-lisp
1592 (use-package flycheck-haskell
1593 :after haskell-mode)
1596 *** [[https://github.com/ndmitchell/hlint/blob/20e116a043f2073c57b17b24ae6364b5e433ba7e/data/hs-lint.el][hs-lint.el]]
1598 :header-args+: :tangle lisp/hs-lint.el :mkdirp yes
1601 Currently using =flycheck-haskell= with the =haskell-hlint= checker
1604 #+begin_src emacs-lisp :tangle no
1605 ;;; hs-lint.el --- minor mode for HLint code checking
1607 ;; Copyright 2009 (C) Alex Ott
1609 ;; Author: Alex Ott <alexott@gmail.com>
1610 ;; Keywords: haskell, lint, HLint
1612 ;; Status: distributed under terms of GPL2 or above
1614 ;; Typical message from HLint looks like:
1616 ;; /Users/ott/projects/lang-exp/haskell/test.hs:52:1: Eta reduce
1618 ;; count1 p l = length (filter p l)
1620 ;; count1 p = length . filter p
1625 (defgroup hs-lint nil
1626 "Run HLint as inferior of Emacs, parse error messages."
1630 (defcustom hs-lint-command "hlint"
1631 "The default hs-lint command for \\[hlint]."
1635 (defcustom hs-lint-save-files t
1636 "Save modified files when run HLint or no (ask user)"
1640 (defcustom hs-lint-replace-with-suggestions nil
1641 "Replace user's code with suggested replacements"
1645 (defcustom hs-lint-replace-without-ask nil
1646 "Replace user's code with suggested replacements automatically"
1650 (defun hs-lint-process-setup ()
1651 "Setup compilation variables and buffer for `hlint'."
1652 (run-hooks 'hs-lint-setup-hook))
1654 ;; regex for replace suggestions
1656 ;; ^\(.*?\):\([0-9]+\):\([0-9]+\): .*
1662 (defvar hs-lint-regex
1663 "^\\(.*?\\):\\([0-9]+\\):\\([0-9]+\\): .*[\n\C-m]Found:[\n\C-m]\\s +\\(.*\\)[\n\C-m]Why not:[\n\C-m]\\s +\\(.*\\)[\n\C-m]"
1664 "Regex for HLint messages")
1666 (defun make-short-string (str maxlen)
1667 (if (< (length str) maxlen)
1669 (concat (substring str 0 (- maxlen 3)) "...")))
1671 (defun hs-lint-replace-suggestions ()
1672 "Perform actual replacement of suggestions"
1673 (goto-char (point-min))
1674 (while (re-search-forward hs-lint-regex nil t)
1675 (let* ((fname (match-string 1))
1676 (fline (string-to-number (match-string 2)))
1677 (old-code (match-string 4))
1678 (new-code (match-string 5))
1679 (msg (concat "Replace '" (make-short-string old-code 30)
1680 "' with '" (make-short-string new-code 30) "'"))
1686 (switch-to-buffer (get-file-buffer fname))
1687 (goto-char (point-min))
1688 (forward-line (1- fline))
1690 (setf bline (point))
1691 (when (or hs-lint-replace-without-ask
1694 (setf eline (point))
1696 (setf old-code (regexp-quote old-code))
1697 (while (string-match "\\\\ " old-code spos)
1698 (setf new-old-code (concat new-old-code
1699 (substring old-code spos (match-beginning 0))
1701 (setf spos (match-end 0)))
1702 (setf new-old-code (concat new-old-code (substring old-code spos)))
1703 (remove-text-properties bline eline '(composition nil))
1704 (when (re-search-forward new-old-code eline t)
1705 (replace-match new-code nil t)))))))
1707 (defun hs-lint-finish-hook (buf msg)
1708 "Function, that is executed at the end of HLint execution"
1709 (if hs-lint-replace-with-suggestions
1710 (hs-lint-replace-suggestions)
1713 (define-compilation-mode hs-lint-mode "HLint"
1714 "Mode for check Haskell source code."
1715 (set (make-local-variable 'compilation-process-setup-function)
1716 'hs-lint-process-setup)
1717 (set (make-local-variable 'compilation-disable-input) t)
1718 (set (make-local-variable 'compilation-scroll-output) nil)
1719 (set (make-local-variable 'compilation-finish-functions)
1720 (list 'hs-lint-finish-hook))
1724 "Run HLint for current buffer with haskell source"
1726 (save-some-buffers hs-lint-save-files)
1727 (compilation-start (concat hs-lint-command " \"" buffer-file-name "\"")
1731 ;;; hs-lint.el ends here
1734 #+begin_src emacs-lisp :tangle no
1735 (use-package hs-lint
1737 :bind (:map haskell-mode-map
1738 ("C-c l l" . hs-lint)))
1745 #+begin_src emacs-lisp
1746 (use-package sgml-mode
1748 (setq sgml-basic-offset 2))
1753 #+begin_src emacs-lisp
1754 (use-package css-mode
1756 (setq css-indent-offset 2))
1761 #+begin_src emacs-lisp
1762 (use-package web-mode
1766 web-mode-code-indent-offset
1767 web-mode-css-indent-offset
1768 web-mode-markup-indent-offset))
1773 #+begin_src emacs-lisp
1774 (use-package emmet-mode
1775 :after (:any web-mode css-mode sgml-mode)
1776 :bind* (("C-)" . emmet-next-edit-point)
1777 ("C-(" . emmet-prev-edit-point))
1779 (unbind-key "C-j" emmet-mode-keymap)
1780 (setq emmet-move-cursor-between-quotes t)
1781 :hook (web-mode css-mode html-mode sgml-mode))
1786 *** COMMENT meghanada
1788 #+begin_src emacs-lisp
1789 (use-package meghanada
1791 (:map meghanada-mode-map
1792 (("C-M-o" . meghanada-optimize-import)
1793 ("C-M-t" . meghanada-import-all)))
1794 :hook (java-mode . meghanada-mode))
1797 *** COMMENT lsp-java
1815 #+begin_src emacs-lisp
1816 (use-package treemacs
1817 :config (setq treemacs-never-persist t))
1819 (use-package yasnippet
1821 ;; (yas-global-mode)
1824 (use-package lsp-mode
1825 :init (setq lsp-eldoc-render-all nil
1826 lsp-highlight-symbol-at-point nil)
1831 (use-package company-lsp
1834 (setq company-lsp-cache-candidates t
1835 company-lsp-async t))
1839 (setq lsp-ui-sideline-update-mode 'point))
1841 (use-package lsp-java
1843 (add-hook 'java-mode-hook
1845 (setq-local company-backends (list 'company-lsp))))
1847 (add-hook 'java-mode-hook 'lsp-java-enable)
1848 (add-hook 'java-mode-hook 'flycheck-mode)
1849 (add-hook 'java-mode-hook 'company-mode)
1850 (add-hook 'java-mode-hook 'lsp-ui-mode))
1852 (use-package dap-mode
1858 (use-package dap-java
1861 (use-package lsp-java-treemacs
1867 #+begin_src emacs-lisp
1869 :bind (:map eclim-mode-map ("S-SPC" . company-complete))
1870 :hook ((java-mode . eclim-mode)
1871 (eclim-mode . (lambda ()
1872 (make-local-variable 'company-idle-delay)
1873 (defvar company-idle-delay)
1874 ;; (setq company-idle-delay 0.7)
1875 (setq company-idle-delay nil))))
1877 (eclim-auto-save nil)
1878 ;; (eclimd-default-workspace "~/src/eclipse-workspace-exp")
1879 (eclim-executable "~/.p2/pool/plugins/org.eclim_2.8.0/bin/eclim")
1880 (eclim-eclipse-dirs '("~/usr/eclipse/dsl-2018-09/eclipse")))
1885 #+begin_src emacs-lisp
1886 (use-package geiser)
1888 (use-feature geiser-guile
1890 (setq geiser-guile-load-path "~/src/git/guix"))
1895 #+begin_src emacs-lisp
1901 #+begin_src emacs-lisp
1904 (font-latex-fontify-sectioning 'color))
1907 * Emacs enhancements
1909 :CUSTOM_ID: emacs-enhancements
1914 #+begin_src emacs-lisp
1916 :config (setq Man-width 80))
1919 ** [[https://github.com/justbur/emacs-which-key][which-key]]
1922 Emacs package that displays available keybindings in popup
1925 #+begin_src emacs-lisp
1926 (use-package which-key
1929 (which-key-add-key-based-replacements
1930 ;; prefixes for global prefixes and minor modes
1934 "C-c 8 -" "typo/dashes"
1935 "C-c 8 <" "typo/left-brackets"
1936 "C-c 8 >" "typo/right-brackets"
1938 "C-x a" "abbrev/expand"
1939 "C-x r" "rectangle/register/bookmark"
1940 "C-x v" "version control"
1941 ;; prefixes for my personal bindings
1942 "C-c a" "applications"
1946 "C-c p" "package-management"
1947 ;; "C-c p e" "package-management/epkg"
1948 "C-c p s" "straight.el"
1951 "C-c c" "compile-and-comments"
1956 "C-c m" "multiple-cursors"
1957 "C-c P" "projectile"
1958 "C-c P s" "projectile/search"
1959 "C-c P x" "projectile/execute"
1960 "C-c P 4" "projectile/other-window"
1966 ;; prefixes for major modes
1967 (which-key-add-major-mode-key-based-replacements 'message-mode
1969 (which-key-add-major-mode-key-based-replacements 'org-mode
1970 "C-c C-v" "org-babel")
1971 (which-key-add-major-mode-key-based-replacements 'web-mode
1972 "C-c C-a" "web/attributes"
1973 "C-c C-b" "web/blocks"
1975 "C-c C-e" "web/element"
1976 "C-c C-t" "web/tags")
1980 (which-key-add-column-padding 5)
1981 (which-key-max-description-length 32))
1986 #+begin_src emacs-lisp
1987 (add-to-list 'custom-theme-load-path "~/.emacs.d/lisp")
1988 (load-theme 'tangomod t)
1993 #+begin_src emacs-lisp
1994 (use-package smart-mode-line
1995 :commands (sml/apply-theme)
2003 #+begin_src emacs-lisp
2004 (use-package doom-themes)
2007 ** theme helper functions
2009 #+begin_src emacs-lisp
2010 (defvar a/org-mode-font-lock-keywords
2011 '(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)"
2012 (1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive
2013 (3 '(:foreground "#81a2be" :background "#292b2b") t) ; kind
2014 (4 '(:foreground "#c5c8c6") t)))) ; title
2016 (defun a/lights-on ()
2017 "Enable my favourite light theme."
2019 (mapc #'disable-theme custom-enabled-themes)
2020 (load-theme 'tangomod t)
2021 (sml/apply-theme 'automatic)
2022 (font-lock-remove-keywords
2023 'org-mode a/org-mode-font-lock-keywords))
2025 (defun a/lights-off ()
2028 (mapc #'disable-theme custom-enabled-themes)
2029 (load-theme 'doom-tomorrow-night t)
2030 (sml/apply-theme 'automatic)
2031 (font-lock-add-keywords
2032 'org-mode a/org-mode-font-lock-keywords t))
2035 ("s-t d" . a/lights-off)
2036 ("s-t l" . a/lights-on))
2039 ** [[https://github.com/bbatsov/crux][crux]]
2041 #+begin_src emacs-lisp
2042 (use-package crux ; results in Waiting for git... [2 times]
2044 :bind (("C-c b k" . crux-kill-other-buffers)
2045 ("C-c d" . crux-duplicate-current-line-or-region)
2046 ("C-c D" . crux-duplicate-and-comment-current-line-or-region)
2047 ("C-c f c" . crux-copy-file-preserve-attributes)
2048 ("C-c f d" . crux-delete-file-and-buffer)
2049 ("C-c f r" . crux-rename-file-and-buffer)
2050 ("C-c j" . crux-top-join-line)
2051 ("C-S-j" . crux-top-join-line)))
2054 ** [[https://github.com/alezost/mwim.el][mwim]]
2056 #+begin_src emacs-lisp
2058 :bind (("C-a" . mwim-beginning-of-code-or-line)
2059 ("C-e" . mwim-end-of-code-or-line)
2060 ("<home>" . mwim-beginning-of-line-or-code)
2061 ("<end>" . mwim-end-of-line-or-code)))
2066 #+begin_src emacs-lisp
2067 (use-package projectile
2068 :bind-keymap ("C-c P" . projectile-command-map)
2072 (defun my-projectile-invalidate-cache (&rest _args)
2073 ;; ignore the args to `magit-checkout'
2074 (projectile-invalidate-cache nil))
2076 (eval-after-load 'magit-branch
2078 (advice-add 'magit-checkout
2079 :after #'my-projectile-invalidate-cache)
2080 (advice-add 'magit-branch-and-checkout
2081 :after #'my-projectile-invalidate-cache)))
2082 :custom (projectile-completion-system 'ivy))
2085 ** [[https://github.com/Wilfred/helpful][helpful]]
2087 #+begin_src emacs-lisp
2088 (use-package helpful
2091 (("C-S-h c" . helpful-command)
2092 ("C-S-h f" . helpful-callable) ; helpful-function
2093 ("C-S-h v" . helpful-variable)
2094 ("C-S-h k" . helpful-key)
2095 ("C-S-h p" . helpful-at-point)))
2098 ** [[https://github.com/EricCrosson/unkillable-scratch][unkillable-scratch]]
2100 Make =*scratch*= and =*Messages*= unkillable.
2102 #+begin_src emacs-lisp
2103 (use-package unkillable-scratch
2106 (unkillable-scratch 1)
2108 (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
2111 ** [[https://github.com/davep/boxquote.el][boxquote.el]]
2115 | make pretty boxed quotes like this
2119 #+begin_src emacs-lisp
2120 (use-package boxquote
2123 (:prefix-map a/boxquote-prefix-map
2125 ("b" . boxquote-buffer)
2126 ("B" . boxquote-insert-buffer)
2127 ("d" . boxquote-defun)
2128 ("F" . boxquote-insert-file)
2129 ("hf" . boxquote-describe-function)
2130 ("hk" . boxquote-describe-key)
2131 ("hv" . boxquote-describe-variable)
2132 ("hw" . boxquote-where-is)
2133 ("k" . boxquote-kill)
2134 ("p" . boxquote-paragraph)
2135 ("q" . boxquote-boxquote)
2136 ("r" . boxquote-region)
2137 ("s" . boxquote-shell-command)
2138 ("t" . boxquote-text)
2139 ("T" . boxquote-title)
2140 ("u" . boxquote-unbox)
2141 ("U" . boxquote-unbox-region)
2142 ("y" . boxquote-yank)
2143 ("M-q" . boxquote-fill-paragraph)
2144 ("M-w" . boxquote-kill-ring-save)))
2147 Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
2151 #+begin_src emacs-lisp
2152 (use-package orgalist
2155 :hook (message-mode . orgalist-mode))
2160 #+begin_src emacs-lisp
2164 (typo-global-mode 1)
2165 :hook (text-mode . typo-mode))
2170 #+begin_src emacs-lisp
2171 (use-package hl-todo
2174 (global-hl-todo-mode))
2179 #+begin_src emacs-lisp
2180 (use-package shrink-path
2184 (defvar user-@-host (concat (user-login-name) "@" (system-name) " "))
2185 (defun +eshell/prompt ()
2186 (let ((base/dir (shrink-path-prompt default-directory)))
2187 (concat (propertize user-@-host 'face 'default)
2188 (propertize (car base/dir)
2189 'face 'font-lock-comment-face)
2190 (propertize (cdr base/dir)
2191 'face 'font-lock-constant-face)
2192 (propertize "> " 'face 'default))))
2193 (setq eshell-prompt-regexp (concat user-@-host ".*> ")
2194 eshell-prompt-function #'+eshell/prompt))
2197 ** [[https://github.com/peterwvj/eshell-up][eshell-up]]
2199 #+begin_src emacs-lisp
2200 (use-package eshell-up
2202 :commands eshell-up)
2207 #+begin_src emacs-lisp
2208 (use-package multi-term
2210 :bind (("C-c a s m" . multi-term-dedicated-toggle)
2212 ("C-c C-j" . term-char-mode)
2214 ("C-c C-j" . term-line-mode))
2216 (setq multi-term-program "/bin/screen"
2217 ;; TODO: add separate bindings for connecting to existing
2218 ;; session vs. always creating a new one
2219 multi-term-dedicated-select-after-open-p t
2220 multi-term-dedicated-window-height 20
2221 multi-term-dedicated-max-window-height 30
2223 '(("C-c C-c" . term-interrupt-subjob)
2224 ("C-c C-e" . term-send-esc)
2226 ("C-y" . term-paste)
2227 ("M-f" . term-send-forward-word)
2228 ("M-b" . term-send-backward-word)
2229 ("M-p" . term-send-up)
2230 ("M-n" . term-send-down)
2231 ("<C-backspace>" . term-send-backward-kill-word)
2232 ("<M-DEL>" . term-send-backward-kill-word)
2233 ("M-d" . term-send-delete-word)
2234 ("M-," . term-send-raw)
2235 ("M-." . comint-dynamic-complete))
2236 term-unbind-key-alist
2237 '("C-z" "C-x" "C-c" "C-h" "C-y" "<ESC>")))
2242 #+begin_src emacs-lisp
2243 (use-package page-break-lines
2245 (global-page-break-lines-mode))
2250 #+begin_src emacs-lisp
2251 (use-package expand-region
2252 :bind ("C-=" . er/expand-region))
2257 #+begin_src emacs-lisp
2258 (use-package multiple-cursors
2260 (("C-S-<mouse-1>" . mc/add-cursor-on-click)
2261 (:prefix-map a/mc-prefix-map
2263 ("c" . mc/edit-lines)
2264 ("n" . mc/mark-next-like-this)
2265 ("p" . mc/mark-previous-like-this)
2266 ("a" . mc/mark-all-like-this))))
2271 #+begin_src emacs-lisp
2279 #+begin_src emacs-lisp
2280 (use-package yasnippet
2283 (defconst yas-verbosity-cur yas-verbosity)
2284 (setq yas-verbosity 2)
2285 (add-to-list 'yas-snippet-dirs "~/src/git/guix/etc/snippets")
2287 (setq yas-verbosity yas-verbosity-cur)
2289 (text-mode . yas-minor-mode))
2294 #+begin_src emacs-lisp
2295 (use-package debbugs
2298 :repo "emacs-straight/debbugs"
2299 :files (:defaults "Debbugs.wsdl")))
2304 #+begin_src emacs-lisp
2305 (use-package org-ref
2307 (a/setq-every '("~/usr/org/references.bib")
2308 reftex-default-bibliography
2309 org-ref-default-bibliography)
2311 org-ref-bibliography-notes "~/usr/org/notes.org"
2312 org-ref-pdf-directory "~/usr/org/bibtex-pdfs/"))
2317 Not an "Emacs enhancement", but just so that I don't have to use the
2318 proprietary web interface. Needed for interacting with the URA(s)
2321 #+begin_src emacs-lisp
2323 :commands (slack-start)
2325 (eval-when-compile ; silence the byte-compiler
2326 (defvar url-http-data nil)
2327 (defvar url-http-extra-headers nil)
2328 (defvar url-http-method nil)
2329 (defvar url-callback-function nil)
2330 (defvar url-callback-arguments nil)
2331 (defvar oauth--token-data nil))
2332 (setq slack-buffer-emojify t
2333 slack-prefer-current-team t)
2335 (slack-register-team
2336 :name "nday-students"
2338 :token nday-students-token
2339 :subscribed-channels '(general)
2340 :full-and-display-names t)
2341 (add-to-list 'swiper-font-lock-exclude 'slack-message-buffer-mode t)
2342 (setq lui-time-stamp-format "[%Y-%m-%d %H:%M:%S]"
2343 lui-time-stamp-only-when-changed-p t
2344 lui-time-stamp-position 'right)
2346 (("C-c s s" . slack-start)
2347 ("C-c s u" . slack-select-unread-rooms)
2348 ("C-c s b" . slack-select-rooms)
2349 ("C-c s t" . slack-change-current-team)
2350 ("C-c s c" . slack-ws-close)
2352 ("M-p" . slack-buffer-goto-prev-message)
2353 ("M-n" . slack-buffer-goto-next-message)
2354 ("C-c e" . slack-message-edit)
2355 ("C-c k" . slack-message-delete)
2356 ("C-c C-k" . slack-channel-leave)
2357 ("C-c r a" . slack-message-add-reaction)
2358 ("C-c r r" . slack-message-remove-reaction)
2359 ("C-c r s" . slack-message-show-reaction-users)
2360 ("C-c p l" . slack-room-pins-list)
2361 ("C-c p a" . slack-message-pins-add)
2362 ("C-c p r" . slack-message-pins-remove)
2363 ("@" . slack-message-embed-mention)
2364 ("#" . slack-message-embed-channel)))
2369 (setq alert-default-style 'notifier))
2377 #+begin_src emacs-lisp
2378 (defvar a/maildir (expand-file-name "~/mail/"))
2379 (with-eval-after-load 'recentf
2380 (add-to-list 'recentf-exclude a/maildir))
2385 #+begin_src emacs-lisp
2387 a/gnus-init-file (no-littering-expand-etc-file-name "gnus")
2388 mail-user-agent 'gnus-user-agent
2389 read-mail-command 'gnus)
2392 :bind (("s-m" . gnus)
2393 ("s-M" . gnus-unplugged))
2396 gnus-select-method '(nnnil "")
2397 gnus-secondary-select-methods
2399 (nnimap-stream plain)
2400 (nnimap-address "127.0.0.1")
2401 (nnimap-server-port 143)
2402 (nnimap-authenticator plain)
2403 (nnimap-user "amin@bndl.org"))
2405 (nnimap-stream plain)
2406 (nnimap-address "127.0.0.1")
2407 (nnimap-server-port 143)
2408 (nnimap-authenticator plain)
2409 (nnimap-user "abandali@uwaterloo.ca"))
2411 (nnimap-stream plain)
2412 (nnimap-address "127.0.0.1")
2413 (nnimap-server-port 143)
2414 (nnimap-authenticator plain)
2415 (nnimap-user "abandali@csclub.uw")))
2416 gnus-message-archive-group "nnimap+amin:Sent"
2419 (to-address . "deepspec@lists.cs.princeton.edu")
2420 (to-list . "deepspec@lists.cs.princeton.edu"))
2421 ("gnu\\.emacs-devel"
2422 (to-address . "emacs-devel@gnu.org")
2423 (to-list . "emacs-devel@gnu.org"))
2424 ("gnu\\.emacs-orgmode"
2425 (to-address . "emacs-orgmode@gnu.org")
2426 (to-list . "emacs-orgmode@gnu.org"))
2427 ("gnu\\.emacsconf-discuss"
2428 (to-address . "emacsconf-discuss@gnu.org")
2429 (to-list . "emacsconf-discuss@gnu.org"))
2430 ("gnu\\.fencepost-users"
2431 (to-address . "fencepost-users@gnu.org")
2432 (to-list . "fencepost-users@gnu.org"))
2433 ("gnu\\.gnunet-developers"
2434 (to-address . "gnunet-developers@gnu.org")
2435 (to-list . "gnunet-developers@gnu.org"))
2436 ("gnu\\.guile-devel"
2437 (to-address . "guile-devel@gnu.org")
2438 (to-list . "guile-devel@gnu.org"))
2440 (to-address . "guix-devel@gnu.org")
2441 (to-list . "guix-devel@gnu.org"))
2442 ("gnu\\.haskell-art"
2443 (to-address . "haskell-art@we.lurk.org")
2444 (to-list . "haskell-art@we.lurk.org"))
2445 ("gnu\\.haskell-cafe"
2446 (to-address . "haskell-cafe@haskell.org")
2447 (to-list . "haskell-cafe@haskell.org"))
2448 ("gnu\\.help-gnu-emacs"
2449 (to-address . "help-gnu-emacs@gnu.org")
2450 (to-list . "help-gnu-emacs@gnu.org"))
2451 ("gnu\\.info-gnu-emacs"
2452 (to-address . "info-gnu-emacs@gnu.org")
2453 (to-list . "info-gnu-emacs@gnu.org"))
2455 (to-address . "info-guix@gnu.org")
2456 (to-list . "info-guix@gnu.org"))
2458 (to-address . "notmuch@notmuchmail.org")
2459 (to-list . "notmuch@notmuchmail.org"))
2460 ("gnu\\.parabola-dev"
2461 (to-address . "dev@lists.parabola.nu")
2462 (to-list . "dev@lists.parabola.nu"))
2464 (to-address . "webmasters@gnu.org")
2465 (to-list . "webmasters@gnu.org"))
2466 ("gnu\\.www-commits"
2467 (to-address . "www-commits@gnu.org")
2468 (to-list . "www-commits@gnu.org"))
2469 ("gnu\\.www-discuss"
2470 (to-address . "www-discuss@gnu.org")
2471 (to-list . "www-discuss@gnu.org"))
2472 ("gnu\\.~bandali\\.public-inbox"
2473 (to-address . "~bandali/public-inbox@lists.sr.ht")
2474 (to-list . "~bandali/public-inbox@lists.sr.ht"))
2475 ("gnu\\.~sircmpwn\\.srht-admins"
2476 (to-address . "~sircmpwn/sr.ht-admins@lists.sr.ht")
2477 (to-list . "~sircmpwn/sr.ht-admins@lists.sr.ht"))
2478 ("gnu\\.~sircmpwn\\.srht-announce"
2479 (to-address . "~sircmpwn/sr.ht-announce@lists.sr.ht")
2480 (to-list . "~sircmpwn/sr.ht-announce@lists.sr.ht"))
2481 ("gnu\\.~sircmpwn\\.srht-dev"
2482 (to-address . "~sircmpwn/sr.ht-dev@lists.sr.ht")
2483 (to-list . "~sircmpwn/sr.ht-dev@lists.sr.ht"))
2484 ("gnu\\.~sircmpwn\\.srht-discuss"
2485 (to-address . "~sircmpwn/sr.ht-discuss@lists.sr.ht")
2486 (to-list . "~sircmpwn/sr.ht-discuss@lists.sr.ht"))
2491 gnus-large-newsgroup 50
2492 gnus-home-directory (no-littering-expand-var-file-name "gnus/")
2493 gnus-directory (concat gnus-home-directory "news/")
2494 message-directory (concat gnus-home-directory "mail/")
2495 nndraft-directory (concat gnus-home-directory "drafts/")
2496 gnus-save-newsrc-file nil
2497 gnus-read-newsrc-file nil
2498 gnus-interactive-exit nil
2499 gnus-gcc-mark-as-read t)
2503 (require 'ebdb-gnus)
2505 (with-eval-after-load 'recentf
2506 (add-to-list 'recentf-exclude gnus-home-directory)))
2508 (use-feature gnus-art
2511 gnus-visible-headers
2512 (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
2513 gnus-sorted-header-list
2514 '("^From:" "^Subject:" "^Summary:" "^Keywords:"
2515 "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator"
2516 "^Newsgroups:" "List-Id:" "^Organization:"
2517 "^User-Agent:" "^Date:")
2518 ;; local-lapsed article dates
2519 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
2520 gnus-article-date-headers '(user-defined)
2521 gnus-article-time-format
2523 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
2524 (local (article-make-date-line date 'local))
2525 (combined-lapsed (article-make-date-line date
2528 (string-match " (.+" combined-lapsed)
2529 (match-string 0 combined-lapsed))))
2530 (concat local lapsed))))
2532 :map gnus-article-mode-map
2533 ("M-L" . org-store-link)))
2535 (use-feature gnus-sum
2536 :bind (:map gnus-summary-mode-map
2537 :prefix-map a/gnus-summary-prefix-map
2539 ("r" . gnus-summary-reply)
2540 ("w" . gnus-summary-wide-reply)
2541 ("v" . gnus-summary-show-raw-article))
2544 :map gnus-summary-mode-map
2545 ("M-L" . org-store-link))
2546 :hook (gnus-summary-mode . a/no-mouse-autoselect-window))
2548 (use-feature gnus-msg
2550 (setq gnus-posting-styles
2552 (address "amin@bndl.org")
2554 (eval (setq a/message-cite-say-hi t)))
2556 (address "bandali@gnu.org")
2557 (eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org")))
2558 ((header "subject" "ThankCRM")
2559 (to "webmasters-comment@gnu.org")
2560 (body "Added to 2019supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
2561 (eval (setq a/message-cite-say-hi nil)))
2562 ("nnimap\\+uwaterloo:.*"
2563 (address "abandali@uwaterloo.ca")
2564 (gcc "\"nnimap+uwaterloo:Sent Items\""))
2565 ("nnimap\\+csclub:.*"
2566 (address "abandali@csclub.uwaterloo.ca")
2567 (gcc "nnimap+csclub:Sent")))))
2569 (use-feature gnus-topic
2570 :hook (gnus-group-mode . gnus-topic-mode)
2571 :config (setq gnus-topic-line-format "%i[ %A: %(%{%n%}%) ]%v\n"))
2573 (use-feature gnus-agent
2575 (setq gnus-agent-synchronize-flags 'ask)
2576 :hook (gnus-group-mode . gnus-agent-mode))
2578 (use-feature gnus-group
2580 (setq gnus-permanently-visible-groups "\\(:INBOX$\\|:gnu$\\)"))
2582 (use-feature mm-decode
2584 (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
2589 #+begin_src emacs-lisp
2590 (use-feature sendmail
2592 (setq sendmail-program "/usr/bin/msmtp"
2593 ;; message-sendmail-extra-arguments '("-v" "-d")
2594 mail-specify-envelope-from t
2595 mail-envelope-from 'header))
2600 #+begin_src emacs-lisp
2601 (use-feature message
2603 ;; redefine for a simplified In-Reply-To header
2604 ;; (see https://todo.sr.ht/~sircmpwn/lists.sr.ht/67)
2605 (defun message-make-in-reply-to ()
2606 "Return the In-Reply-To header for this message."
2607 (when message-reply-headers
2608 (let ((from (mail-header-from message-reply-headers))
2609 (msg-id (mail-header-id message-reply-headers)))
2613 (defconst a/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
2614 (defconst message-cite-style-bandali
2615 '((message-cite-function 'message-cite-original)
2616 (message-citation-line-function 'message-insert-formatted-citation-line)
2617 (message-cite-reply-position 'traditional)
2618 (message-yank-prefix "> ")
2619 (message-yank-cited-prefix ">")
2620 (message-yank-empty-prefix ">")
2621 (message-citation-line-format
2622 (if a/message-cite-say-hi
2623 (concat "Hi %F,\n\n" a/message-cite-style-format)
2624 a/message-cite-style-format)))
2625 "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
2626 (setq ;; message-cite-style 'message-cite-style-bandali
2627 message-kill-buffer-on-exit t
2628 message-send-mail-function 'message-send-mail-with-sendmail
2629 message-sendmail-envelope-from 'header
2630 message-subscribed-address-functions
2631 '(gnus-find-subscribed-addresses)
2632 message-dont-reply-to-names
2633 "\\(\\(amin@bndl\\.org\\)\\|\\(.*@\\(aminb\\|amin\\.bndl\\)\\.org\\)\\|\\(\\(bandali\\|aminb?\\|mab\\)@gnu\\.org\\)\\|\\(a\\(min\\.\\)?bandali@uwaterloo\\.ca\\)\\|\\(abandali@csclub\\.uwaterloo\\.ca\\)\\)")
2634 (require 'company-ebdb)
2635 :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
2636 (message-mode . flyspell-mode)
2637 (message-mode . (lambda ()
2638 ;; (setq fill-column 65
2639 ;; message-fill-column 65)
2640 (make-local-variable 'company-idle-delay)
2641 (setq company-idle-delay 0.2))))
2643 ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
2644 ;; (message-header-to ((t (:foreground "#111" :weight normal))))
2645 ;; (message-header-cc ((t (:foreground "#333" :weight normal))))
2648 (with-eval-after-load 'mml-sec
2649 (setq mml-secure-openpgp-encrypt-to-self t
2650 mml-secure-openpgp-sign-with-sender t))
2655 Convenient footnotes in =message-mode=.
2657 #+begin_src emacs-lisp
2658 (use-feature footnote
2661 ;; (setq footnote-start-tag ""
2662 ;; footnote-end-tag ""
2663 ;; footnote-style 'unicode)
2665 (:map message-mode-map
2666 :prefix-map a/footnote-prefix-map
2668 ("a" . footnote-add-footnote)
2669 ("b" . footnote-back-to-message)
2670 ("c" . footnote-cycle-style)
2671 ("d" . footnote-delete-footnote)
2672 ("g" . footnote-goto-footnote)
2673 ("r" . footnote-renumber-footnotes)
2674 ("s" . footnote-set-style)))
2679 #+begin_src emacs-lisp
2681 :straight (:host github :repo "girzel/ebdb")
2683 :bind (:map gnus-group-mode-map ("e" . ebdb))
2685 (setq ebdb-sources (no-littering-expand-var-file-name "ebdb"))
2686 (with-eval-after-load 'swiper
2687 (add-to-list 'swiper-font-lock-exclude 'ebdb-mode t)))
2689 (use-feature ebdb-com
2692 ;; (use-package ebdb-complete
2695 ;; (ebdb-complete-enable))
2697 (use-package company-ebdb
2699 (defun company-ebdb--post-complete (_) nil))
2701 (use-feature ebdb-gnus
2704 (ebdb-gnus-window-configuration
2707 (summary 0.25 point)
2710 (ebdb-gnus 0.3))))))
2712 (use-feature ebdb-mua
2714 ;; :custom (ebdb-mua-pop-up nil)
2717 ;; (use-package ebdb-message
2721 ;; (use-package ebdb-vcard
2727 #+begin_src emacs-lisp
2728 (use-package message-x)
2731 #+begin_src emacs-lisp :tangle no
2732 (use-package message-x
2734 (message-x-completion-alist
2736 (("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:" . gnus-harvest-find-address)
2739 (quote message-newgroups-header-regexp))
2740 message-newgroups-header-regexp message-newsgroups-header-regexp)
2741 . message-expand-group)))))
2744 ** COMMENT gnus-harvest
2746 #+begin_src emacs-lisp
2747 (use-package gnus-harvest
2748 :commands gnus-harvest-install
2751 (if (featurep 'message-x)
2752 (gnus-harvest-install 'message-x)
2753 (gnus-harvest-install)))
2763 #+begin_src emacs-lisp
2765 :straight (:host nil :repo "https://git.bndl.org/amin/znc.el")
2766 :bind (("C-c a e e" . znc-erc)
2767 ("C-c a e a" . znc-all))
2769 (let ((pwd (let ((auth (auth-source-search :host "znca")))
2771 ((null auth) (error "Couldn't find znca's authinfo"))
2772 (t (funcall (plist-get (car auth) :secret)))))))
2774 `(("znc.bndl.org" 1337 t
2775 ((freenode "amin/freenode" ,pwd)))
2776 ("znc.bndl.org" 1337 t
2777 ((moznet "amin/moznet" ,pwd)))))))
2780 * Post initialization
2782 :CUSTOM_ID: post-initialization
2785 Display how long it took to load the init file.
2787 #+begin_src emacs-lisp
2788 (message "Loading %s...done (%.3fs)" user-init-file
2789 (float-time (time-subtract (current-time)
2790 a/before-user-init-time)))
2798 #+begin_src emacs-lisp :comments none
2799 ;;; init.el ends here
2802 * COMMENT Local Variables :ARCHIVE:
2804 # eval: (add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local)
2805 # eval: (when (featurep 'typo (typo-mode -1)))