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))
955 (use-feature ox-extra
957 (ox-extras-activate '(latex-header-blocks ignore-headlines)))
960 **** asynchronous tangle
962 =a/async-babel-tangle= is a function closely inspired by [[https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles][dieggsy's
963 d/async-babel-tangle]] which uses [[https://github.com/jwiegley/emacs-async][async]] to asynchronously tangle an org
966 #+begin_src emacs-lisp
967 (with-eval-after-load 'org
968 (defvar a/show-async-tangle-results nil
969 "Keep *emacs* async buffers around for later inspection.")
971 (defvar a/show-async-tangle-time nil
972 "Show the time spent tangling the file.")
974 (defvar a/async-tangle-post-compile
975 (when a/byte-compiled-init "make build-init")
976 "If non-nil, pass to `compile' after successful tangle.")
978 ;; TODO: look into why directly byte-compiling init.el causes a
979 ;; number of problems, including magit-status not loading (busy
981 (defvar a/async-tangle-byte-recompile nil
982 "If non-nil, byte-recompile the file on successful tangle.")
984 (defun a/async-babel-tangle ()
985 "Tangle org file asynchronously."
987 (let* ((file-tangle-start-time (current-time))
988 (file (buffer-file-name))
989 (file-nodir (file-name-nondirectory file))
990 ;; (async-quiet-switch "-q")
991 (file-noext (file-name-sans-extension file)))
995 (org-babel-tangle-file ,file))
996 (unless a/show-async-tangle-results
1000 ;; (setq byte-compile-warnings '(not noruntime unresolved))
1001 (message "Tangled %s%s"
1003 (if a/show-async-tangle-time
1005 (float-time (time-subtract (current-time)
1006 ',file-tangle-start-time)))
1008 (when a/async-tangle-post-compile
1009 (compile a/async-tangle-post-compile))
1010 (when a/async-tangle-byte-recompile
1011 (byte-recompile-file (concat ,file-noext ".el"))))
1012 (message "Tangling %s failed" ,file-nodir))))))))
1015 'safe-local-variable-values
1016 '(eval add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local))
1019 *** [[https://magit.vc/][Magit]]
1022 It's Magit! A Git porcelain inside Emacs.
1025 Not just how I do git, but /the/ way to do git.
1027 #+begin_src emacs-lisp
1030 :bind (("C-x g" . magit-status)
1031 ("s-g s" . magit-status)
1032 ("s-g l" . magit-log-buffer-file))
1034 (magit-add-section-hook 'magit-status-sections-hook
1035 'magit-insert-modules
1036 'magit-insert-stashes
1038 (setq magit-repository-directories '(("~/" . 0)
1039 ("~/src/git/" . 1)))
1040 (nconc magit-section-initial-visibility-alist
1041 '(([unpulled status] . show)
1042 ([unpushed status] . show)))
1043 :custom-face (magit-diff-file-heading ((t (:weight normal)))))
1048 Recently opened files.
1050 #+begin_src emacs-lisp
1051 (use-feature recentf
1054 (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
1055 (setq recentf-max-saved-items 40))
1061 A smart M-x enhancement for Emacs.
1064 Mostly because =counsel= needs it to remember history.
1066 #+begin_src emacs-lisp
1070 *** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
1073 Ivy - a generic completion frontend for Emacs, Swiper - isearch with
1074 an overview, and more. Oh, man!
1077 There's no way I could top that, so I won't attempt to.
1081 #+begin_src emacs-lisp
1085 (:map ivy-minibuffer-map
1086 ([escape] . keyboard-escape-quit)
1087 ([S-up] . ivy-previous-history-element)
1088 ([S-down] . ivy-next-history-element)
1089 ("DEL" . ivy-backward-delete-char))
1093 ivy-use-virtual-buffers t
1094 ivy-virtual-abbreviate 'abbreviate
1095 ivy-count-format "%d/%d ")
1098 ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
1099 ;; (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
1100 ;; (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold))))
1106 #+begin_src emacs-lisp
1109 :bind (("C-s" . swiper-isearch)
1111 ("C-S-s" . isearch-forward)))
1116 #+begin_src emacs-lisp
1117 (use-package counsel
1119 :bind (([remap execute-extended-command] . counsel-M-x)
1120 ([remap find-file] . counsel-find-file)
1121 ("C-c x" . counsel-M-x)
1122 ("C-c f ." . counsel-find-file)
1123 ("C-c f l" . counsel-find-library)
1124 :map minibuffer-local-map
1125 ("C-r" . counsel-minibuffer-history))
1128 (defalias 'locate #'counsel-locate))
1133 #+begin_src emacs-lisp
1135 :commands (helm-M-x helm-mini helm-resume)
1136 :bind (("M-x" . helm-M-x)
1137 ("M-y" . helm-show-kill-ring)
1138 ("C-x b" . helm-mini)
1139 ("C-x C-b" . helm-buffers-list)
1140 ("C-x C-f" . helm-find-files)
1141 ("C-h r" . helm-info-emacs)
1142 ("s-r" . helm-recentf)
1143 ("C-s-r" . helm-resume)
1145 ("<tab>" . helm-execute-persistent-action)
1146 ("C-i" . helm-execute-persistent-action) ; Make TAB work in terminals
1147 ("C-z" . helm-select-action)) ; List actions
1148 :config (helm-mode 1))
1153 #+begin_src emacs-lisp
1157 :bind ("C-c a s e" . eshell)
1159 (eval-when-compile (defvar eshell-prompt-regexp))
1160 (defun a/eshell-quit-or-delete-char (arg)
1162 (if (and (eolp) (looking-back eshell-prompt-regexp nil))
1163 (eshell-life-is-too-much)
1166 (defun a/eshell-clear ()
1168 (let ((inhibit-read-only t))
1170 (eshell-send-input))
1172 (defun a/eshell-setup ()
1173 (make-local-variable 'company-idle-delay)
1174 (defvar company-idle-delay)
1175 (setq company-idle-delay nil)
1176 (bind-keys :map eshell-mode-map
1177 ("C-d" . a/eshell-quit-or-delete-char)
1178 ("C-S-l" . a/eshell-clear)
1179 ("M-r" . counsel-esh-history)
1180 ([tab] . company-complete)))
1182 :hook (eshell-mode . a/eshell-setup)
1184 (eshell-hist-ignoredups t)
1185 (eshell-input-filter 'eshell-input-filter-initial-space))
1190 #+begin_src emacs-lisp
1191 (use-feature ibuffer
1193 (("C-x C-b" . ibuffer-other-window)
1194 :map ibuffer-mode-map
1195 ("P" . ibuffer-backward-filter-group)
1196 ("N" . ibuffer-forward-filter-group)
1197 ("M-p" . ibuffer-do-print)
1198 ("M-n" . ibuffer-do-shell-command-pipe-replace))
1200 ;; Use human readable Size column instead of original one
1201 (define-ibuffer-column size-h
1202 (:name "Size" :inline t)
1204 ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
1205 ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
1206 ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
1207 (t (format "%8d" (buffer-size)))))
1209 (ibuffer-saved-filter-groups
1211 ("dired" (mode . dired-mode))
1212 ("org" (mode . org-mode))
1215 (mode . gnus-group-mode)
1216 (mode . gnus-summary-mode)
1217 (mode . gnus-article-mode)
1218 ;; not really, but...
1219 (mode . message-mode)))
1228 (mode . eshell-mode)
1230 (mode . term-mode)))
1233 (mode . python-mode)
1237 (mode . emacs-lisp-mode)
1238 (mode . scheme-mode)
1239 (mode . haskell-mode)
1241 (mode . alloy-mode)))
1244 (mode . bibtex-mode)
1245 (mode . latex-mode)))
1248 (name . "^\\*scratch\\*$")
1249 (name . "^\\*Messages\\*$")))
1250 ("erc" (mode . erc-mode)))))
1252 '((mark modified read-only locked " "
1253 (name 18 18 :left :elide)
1255 (size-h 9 -1 :right)
1257 (mode 16 16 :left :elide)
1258 " " filename-and-process)
1262 :hook (ibuffer . (lambda () (ibuffer-switch-to-saved-filter-groups "default"))))
1267 #+begin_src emacs-lisp
1268 (use-feature outline
1269 :hook (prog-mode . outline-minor-mode)
1272 outline-minor-mode-map
1273 ("<s-tab>" . outline-toggle-children)
1274 ("M-p" . outline-previous-visible-heading)
1275 ("M-n" . outline-next-visible-heading)
1276 :prefix-map a/outline-prefix-map
1278 ("TAB" . outline-toggle-children)
1279 ("a" . outline-hide-body)
1280 ("H" . outline-hide-body)
1281 ("S" . outline-show-all)
1282 ("h" . outline-hide-subtree)
1283 ("s" . outline-show-subtree)))
1288 #+begin_src emacs-lisp
1289 (use-feature ls-lisp
1290 :custom (ls-lisp-dirs-first t))
1294 (setq dired-listing-switches "-alh"
1295 ls-lisp-use-insert-directory-program nil)
1297 ;; easily diff 2 marked files
1298 ;; https://oremacs.com/2017/03/18/dired-ediff/
1299 (defun dired-ediff-files ()
1301 (require 'dired-aux)
1302 (defvar ediff-after-quit-hook-internal)
1303 (let ((files (dired-get-marked-files))
1304 (wnd (current-window-configuration)))
1305 (if (<= (length files) 2)
1306 (let ((file1 (car files))
1307 (file2 (if (cdr files)
1311 (dired-dwim-target-directory)))))
1312 (if (file-newer-than-file-p file1 file2)
1313 (ediff-files file2 file1)
1314 (ediff-files file1 file2))
1315 (add-hook 'ediff-after-quit-hook-internal
1317 (setq ediff-after-quit-hook-internal nil)
1318 (set-window-configuration wnd))))
1319 (error "no more than 2 files should be marked"))))
1320 :bind (:map dired-mode-map
1321 ("b" . dired-up-directory)
1322 ("e" . dired-ediff-files)
1323 ("E" . dired-toggle-read-only)
1324 ("\\" . dired-hide-details-mode)
1327 (a/dired-start-process "zathura"))))
1328 :hook (dired-mode . dired-hide-details-mode))
1333 #+begin_src emacs-lisp
1336 (temp-buffer-resize-mode)
1337 (setq help-window-select t))
1342 #+begin_src emacs-lisp
1345 (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
1346 (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
1347 (add-to-list 'tramp-default-proxies-alist
1348 (list (regexp-quote (system-name)) nil nil)))
1353 #+begin_src emacs-lisp
1355 :config (dash-enable-font-lock))
1360 #+begin_src emacs-lisp
1361 (use-package doc-view
1362 :bind (:map doc-view-mode-map
1363 ("M-RET" . image-previous-line)))
1373 Highlight uncommitted changes in the left fringe.
1375 #+begin_src emacs-lisp
1376 (use-package diff-hl
1378 (setq diff-hl-draw-borders nil)
1379 (global-diff-hl-mode)
1380 :hook (magit-post-refresh . diff-hl-magit-post-refresh))
1385 Display Lisp objects at point in the echo area.
1387 #+begin_src emacs-lisp
1389 :when (version< "25" emacs-version)
1390 :config (global-eldoc-mode))
1395 Highlight matching parens.
1397 #+begin_src emacs-lisp
1400 :config (show-paren-mode))
1403 ** simple (for column numbers)
1405 #+begin_src emacs-lisp
1407 :config (column-number-mode))
1412 Save minibuffer history.
1414 #+begin_src emacs-lisp
1415 (use-feature savehist
1416 :config (savehist-mode))
1421 Automatically save place in each file.
1423 #+begin_src emacs-lisp
1424 (use-feature saveplace
1425 :when (version< "25" emacs-version)
1426 :config (save-place-mode))
1431 #+begin_src emacs-lisp
1432 (use-feature prog-mode
1433 :config (global-prettify-symbols-mode)
1434 (defun indicate-buffer-boundaries-left ()
1435 (setq indicate-buffer-boundaries 'left))
1436 (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
1441 #+begin_src emacs-lisp
1442 (use-feature text-mode
1443 :hook ((text-mode . indicate-buffer-boundaries-left)
1444 (text-mode . abbrev-mode)))
1449 #+begin_src emacs-lisp
1450 (use-package company
1453 (:map company-active-map
1454 ([tab] . company-complete-common-or-cycle)
1455 ([escape] . company-abort))
1457 (company-minimum-prefix-length 1)
1458 (company-selection-wrap-around t)
1459 (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
1460 (company-dabbrev-downcase nil)
1461 (company-dabbrev-ignore-case nil)
1463 (global-company-mode t))
1468 #+begin_src emacs-lisp
1469 (use-package flycheck
1471 :hook (prog-mode . flycheck-mode)
1473 (:map flycheck-mode-map
1474 ("M-P" . flycheck-previous-error)
1475 ("M-N" . flycheck-next-error))
1477 ;; Use the load-path from running Emacs when checking elisp files
1478 (setq flycheck-emacs-lisp-load-path 'inherit)
1480 ;; Only flycheck when I actually save the buffer
1481 (setq flycheck-check-syntax-automatically '(mode-enabled save)))
1483 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
1487 ;; ’ can be part of a word
1488 (setq ispell-local-dictionary-alist
1489 `((nil "[[:alpha:]]" "[^[:alpha:]]"
1490 "['\x2019]" nil ("-B") nil utf-8)))
1491 ;; don't send ’ to the subprocess
1492 (defun endless/replace-apostrophe (args)
1493 (cons (replace-regexp-in-string
1496 (advice-add #'ispell-send-string :filter-args
1497 #'endless/replace-apostrophe)
1499 ;; convert ' back to ’ from the subprocess
1500 (defun endless/replace-quote (args)
1501 (if (not (derived-mode-p 'org-mode))
1503 (cons (replace-regexp-in-string
1506 (advice-add #'ispell-parse-output :filter-args
1507 #'endless/replace-quote))
1512 :CUSTOM_ID: programming-modes
1517 #+begin_src emacs-lisp
1518 (use-feature lisp-mode
1520 (add-hook 'emacs-lisp-mode-hook 'outline-minor-mode)
1521 (add-hook 'emacs-lisp-mode-hook 'reveal-mode)
1522 (defun indent-spaces-mode ()
1523 (setq indent-tabs-mode nil))
1524 (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
1527 ** [[http://alloytools.org][Alloy]] (with [[https://github.com/dwwmmn/alloy-mode][alloy-mode]])
1529 #+begin_src emacs-lisp
1530 (use-package alloy-mode
1531 :straight (:host github :repo "dwwmmn/alloy-mode")
1533 :config (setq alloy-basic-offset 2))
1536 ** [[https://coq.inria.fr][Coq]] (with [[https://github.com/ProofGeneral/PG][Proof General]])
1538 #+begin_src emacs-lisp
1539 (use-package proof-site ; Proof General
1540 :straight proof-general)
1543 ** [[https://leanprover.github.io][Lean]] (with [[https://github.com/leanprover/lean-mode][lean-mode]])
1545 #+begin_src emacs-lisp
1546 (eval-when-compile (defvar lean-mode-map))
1547 (use-package lean-mode
1549 :bind (:map lean-mode-map
1550 ("S-SPC" . company-complete))
1552 (require 'lean-input)
1553 (setq default-input-method "Lean"
1554 lean-input-tweak-all '(lean-input-compose
1555 (lean-input-prepend "/")
1556 (lean-input-nonempty))
1557 lean-input-user-translations '(("/" "/")))
1563 *** [[https://github.com/haskell/haskell-mode][haskell-mode]]
1565 #+begin_src emacs-lisp
1566 (use-package haskell-mode
1568 (setq haskell-indentation-layout-offset 4
1569 haskell-indentation-left-offset 4
1570 flycheck-checker 'haskell-hlint
1571 flycheck-disabled-checkers '(haskell-stack-ghc haskell-ghc)))
1574 *** [[https://github.com/jyp/dante][dante]]
1576 #+begin_src emacs-lisp
1579 :commands dante-mode
1580 :hook (haskell-mode . dante-mode))
1583 *** [[https://github.com/mpickering/hlint-refactor-mode][hlint-refactor]]
1585 Emacs bindings for [[https://github.com/ndmitchell/hlint][hlint]]'s refactor option. This requires the refact
1586 executable from [[https://github.com/mpickering/apply-refact][apply-refact]].
1588 #+begin_src emacs-lisp
1589 (use-package hlint-refactor
1591 :bind (:map hlint-refactor-mode-map
1592 ("C-c l b" . hlint-refactor-refactor-buffer)
1593 ("C-c l r" . hlint-refactor-refactor-at-point))
1594 :hook (haskell-mode . hlint-refactor-mode))
1597 *** [[https://github.com/flycheck/flycheck-haskell][flycheck-haskell]]
1599 #+begin_src emacs-lisp
1600 (use-package flycheck-haskell
1601 :after haskell-mode)
1604 *** [[https://github.com/ndmitchell/hlint/blob/20e116a043f2073c57b17b24ae6364b5e433ba7e/data/hs-lint.el][hs-lint.el]]
1606 :header-args+: :tangle lisp/hs-lint.el :mkdirp yes
1609 Currently using =flycheck-haskell= with the =haskell-hlint= checker
1612 #+begin_src emacs-lisp :tangle no
1613 ;;; hs-lint.el --- minor mode for HLint code checking
1615 ;; Copyright 2009 (C) Alex Ott
1617 ;; Author: Alex Ott <alexott@gmail.com>
1618 ;; Keywords: haskell, lint, HLint
1620 ;; Status: distributed under terms of GPL2 or above
1622 ;; Typical message from HLint looks like:
1624 ;; /Users/ott/projects/lang-exp/haskell/test.hs:52:1: Eta reduce
1626 ;; count1 p l = length (filter p l)
1628 ;; count1 p = length . filter p
1633 (defgroup hs-lint nil
1634 "Run HLint as inferior of Emacs, parse error messages."
1638 (defcustom hs-lint-command "hlint"
1639 "The default hs-lint command for \\[hlint]."
1643 (defcustom hs-lint-save-files t
1644 "Save modified files when run HLint or no (ask user)"
1648 (defcustom hs-lint-replace-with-suggestions nil
1649 "Replace user's code with suggested replacements"
1653 (defcustom hs-lint-replace-without-ask nil
1654 "Replace user's code with suggested replacements automatically"
1658 (defun hs-lint-process-setup ()
1659 "Setup compilation variables and buffer for `hlint'."
1660 (run-hooks 'hs-lint-setup-hook))
1662 ;; regex for replace suggestions
1664 ;; ^\(.*?\):\([0-9]+\):\([0-9]+\): .*
1670 (defvar hs-lint-regex
1671 "^\\(.*?\\):\\([0-9]+\\):\\([0-9]+\\): .*[\n\C-m]Found:[\n\C-m]\\s +\\(.*\\)[\n\C-m]Why not:[\n\C-m]\\s +\\(.*\\)[\n\C-m]"
1672 "Regex for HLint messages")
1674 (defun make-short-string (str maxlen)
1675 (if (< (length str) maxlen)
1677 (concat (substring str 0 (- maxlen 3)) "...")))
1679 (defun hs-lint-replace-suggestions ()
1680 "Perform actual replacement of suggestions"
1681 (goto-char (point-min))
1682 (while (re-search-forward hs-lint-regex nil t)
1683 (let* ((fname (match-string 1))
1684 (fline (string-to-number (match-string 2)))
1685 (old-code (match-string 4))
1686 (new-code (match-string 5))
1687 (msg (concat "Replace '" (make-short-string old-code 30)
1688 "' with '" (make-short-string new-code 30) "'"))
1694 (switch-to-buffer (get-file-buffer fname))
1695 (goto-char (point-min))
1696 (forward-line (1- fline))
1698 (setf bline (point))
1699 (when (or hs-lint-replace-without-ask
1702 (setf eline (point))
1704 (setf old-code (regexp-quote old-code))
1705 (while (string-match "\\\\ " old-code spos)
1706 (setf new-old-code (concat new-old-code
1707 (substring old-code spos (match-beginning 0))
1709 (setf spos (match-end 0)))
1710 (setf new-old-code (concat new-old-code (substring old-code spos)))
1711 (remove-text-properties bline eline '(composition nil))
1712 (when (re-search-forward new-old-code eline t)
1713 (replace-match new-code nil t)))))))
1715 (defun hs-lint-finish-hook (buf msg)
1716 "Function, that is executed at the end of HLint execution"
1717 (if hs-lint-replace-with-suggestions
1718 (hs-lint-replace-suggestions)
1721 (define-compilation-mode hs-lint-mode "HLint"
1722 "Mode for check Haskell source code."
1723 (set (make-local-variable 'compilation-process-setup-function)
1724 'hs-lint-process-setup)
1725 (set (make-local-variable 'compilation-disable-input) t)
1726 (set (make-local-variable 'compilation-scroll-output) nil)
1727 (set (make-local-variable 'compilation-finish-functions)
1728 (list 'hs-lint-finish-hook))
1732 "Run HLint for current buffer with haskell source"
1734 (save-some-buffers hs-lint-save-files)
1735 (compilation-start (concat hs-lint-command " \"" buffer-file-name "\"")
1739 ;;; hs-lint.el ends here
1742 #+begin_src emacs-lisp :tangle no
1743 (use-package hs-lint
1745 :bind (:map haskell-mode-map
1746 ("C-c l l" . hs-lint)))
1753 #+begin_src emacs-lisp
1754 (use-package sgml-mode
1756 (setq sgml-basic-offset 2))
1761 #+begin_src emacs-lisp
1762 (use-package css-mode
1764 (setq css-indent-offset 2))
1769 #+begin_src emacs-lisp
1770 (use-package web-mode
1774 web-mode-code-indent-offset
1775 web-mode-css-indent-offset
1776 web-mode-markup-indent-offset))
1781 #+begin_src emacs-lisp
1782 (use-package emmet-mode
1783 :after (:any web-mode css-mode sgml-mode)
1784 :bind* (("C-)" . emmet-next-edit-point)
1785 ("C-(" . emmet-prev-edit-point))
1787 (unbind-key "C-j" emmet-mode-keymap)
1788 (setq emmet-move-cursor-between-quotes t)
1789 :hook (web-mode css-mode html-mode sgml-mode))
1794 *** COMMENT meghanada
1796 #+begin_src emacs-lisp
1797 (use-package meghanada
1799 (:map meghanada-mode-map
1800 (("C-M-o" . meghanada-optimize-import)
1801 ("C-M-t" . meghanada-import-all)))
1802 :hook (java-mode . meghanada-mode))
1805 *** COMMENT lsp-java
1823 #+begin_src emacs-lisp
1824 (use-package treemacs
1825 :config (setq treemacs-never-persist t))
1827 (use-package yasnippet
1829 ;; (yas-global-mode)
1832 (use-package lsp-mode
1833 :init (setq lsp-eldoc-render-all nil
1834 lsp-highlight-symbol-at-point nil)
1839 (use-package company-lsp
1842 (setq company-lsp-cache-candidates t
1843 company-lsp-async t))
1847 (setq lsp-ui-sideline-update-mode 'point))
1849 (use-package lsp-java
1851 (add-hook 'java-mode-hook
1853 (setq-local company-backends (list 'company-lsp))))
1855 (add-hook 'java-mode-hook 'lsp-java-enable)
1856 (add-hook 'java-mode-hook 'flycheck-mode)
1857 (add-hook 'java-mode-hook 'company-mode)
1858 (add-hook 'java-mode-hook 'lsp-ui-mode))
1860 (use-package dap-mode
1866 (use-package dap-java
1869 (use-package lsp-java-treemacs
1875 #+begin_src emacs-lisp
1877 :bind (:map eclim-mode-map ("S-SPC" . company-complete))
1878 :hook ((java-mode . eclim-mode)
1879 (eclim-mode . (lambda ()
1880 (make-local-variable 'company-idle-delay)
1881 (defvar company-idle-delay)
1882 ;; (setq company-idle-delay 0.7)
1883 (setq company-idle-delay nil))))
1885 (eclim-auto-save nil)
1886 ;; (eclimd-default-workspace "~/src/eclipse-workspace-exp")
1887 (eclim-executable "~/.p2/pool/plugins/org.eclim_2.8.0/bin/eclim")
1888 (eclim-eclipse-dirs '("~/usr/eclipse/dsl-2018-09/eclipse")))
1893 #+begin_src emacs-lisp
1894 (use-package geiser)
1896 (use-feature geiser-guile
1898 (setq geiser-guile-load-path "~/src/git/guix"))
1903 #+begin_src emacs-lisp
1909 #+begin_src emacs-lisp
1912 (font-latex-fontify-sectioning 'color))
1915 * Emacs enhancements
1917 :CUSTOM_ID: emacs-enhancements
1922 #+begin_src emacs-lisp
1924 :config (setq Man-width 80))
1927 ** [[https://github.com/justbur/emacs-which-key][which-key]]
1930 Emacs package that displays available keybindings in popup
1933 #+begin_src emacs-lisp
1934 (use-package which-key
1937 (which-key-add-key-based-replacements
1938 ;; prefixes for global prefixes and minor modes
1942 "C-c 8 -" "typo/dashes"
1943 "C-c 8 <" "typo/left-brackets"
1944 "C-c 8 >" "typo/right-brackets"
1946 "C-x a" "abbrev/expand"
1947 "C-x r" "rectangle/register/bookmark"
1948 "C-x v" "version control"
1949 ;; prefixes for my personal bindings
1950 "C-c a" "applications"
1954 "C-c p" "package-management"
1955 ;; "C-c p e" "package-management/epkg"
1956 "C-c p s" "straight.el"
1959 "C-c c" "compile-and-comments"
1964 "C-c m" "multiple-cursors"
1965 "C-c P" "projectile"
1966 "C-c P s" "projectile/search"
1967 "C-c P x" "projectile/execute"
1968 "C-c P 4" "projectile/other-window"
1974 ;; prefixes for major modes
1975 (which-key-add-major-mode-key-based-replacements 'message-mode
1977 (which-key-add-major-mode-key-based-replacements 'org-mode
1978 "C-c C-v" "org-babel")
1979 (which-key-add-major-mode-key-based-replacements 'web-mode
1980 "C-c C-a" "web/attributes"
1981 "C-c C-b" "web/blocks"
1983 "C-c C-e" "web/element"
1984 "C-c C-t" "web/tags")
1988 (which-key-add-column-padding 5)
1989 (which-key-max-description-length 32))
1994 #+begin_src emacs-lisp
1995 (add-to-list 'custom-theme-load-path "~/.emacs.d/lisp")
1996 (load-theme 'tangomod t)
2001 #+begin_src emacs-lisp
2002 (use-package smart-mode-line
2003 :commands (sml/apply-theme)
2011 #+begin_src emacs-lisp
2012 (use-package doom-themes)
2015 ** theme helper functions
2017 #+begin_src emacs-lisp
2018 (defvar a/org-mode-font-lock-keywords
2019 '(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)"
2020 (1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive
2021 (3 '(:foreground "#81a2be" :background "#292b2b") t) ; kind
2022 (4 '(:foreground "#c5c8c6") t)))) ; title
2024 (defun a/lights-on ()
2025 "Enable my favourite light theme."
2027 (mapc #'disable-theme custom-enabled-themes)
2028 (load-theme 'tangomod t)
2029 (sml/apply-theme 'automatic)
2030 (font-lock-remove-keywords
2031 'org-mode a/org-mode-font-lock-keywords))
2033 (defun a/lights-off ()
2036 (mapc #'disable-theme custom-enabled-themes)
2037 (load-theme 'doom-tomorrow-night t)
2038 (sml/apply-theme 'automatic)
2039 (font-lock-add-keywords
2040 'org-mode a/org-mode-font-lock-keywords t))
2043 ("s-t d" . a/lights-off)
2044 ("s-t l" . a/lights-on))
2047 ** [[https://github.com/bbatsov/crux][crux]]
2049 #+begin_src emacs-lisp
2050 (use-package crux ; results in Waiting for git... [2 times]
2052 :bind (("C-c b k" . crux-kill-other-buffers)
2053 ("C-c d" . crux-duplicate-current-line-or-region)
2054 ("C-c D" . crux-duplicate-and-comment-current-line-or-region)
2055 ("C-c f c" . crux-copy-file-preserve-attributes)
2056 ("C-c f d" . crux-delete-file-and-buffer)
2057 ("C-c f r" . crux-rename-file-and-buffer)
2058 ("C-c j" . crux-top-join-line)
2059 ("C-S-j" . crux-top-join-line)))
2062 ** [[https://github.com/alezost/mwim.el][mwim]]
2064 #+begin_src emacs-lisp
2066 :bind (("C-a" . mwim-beginning-of-code-or-line)
2067 ("C-e" . mwim-end-of-code-or-line)
2068 ("<home>" . mwim-beginning-of-line-or-code)
2069 ("<end>" . mwim-end-of-line-or-code)))
2074 #+begin_src emacs-lisp
2075 (use-package projectile
2076 :bind-keymap ("C-c P" . projectile-command-map)
2080 (defun my-projectile-invalidate-cache (&rest _args)
2081 ;; ignore the args to `magit-checkout'
2082 (projectile-invalidate-cache nil))
2084 (eval-after-load 'magit-branch
2086 (advice-add 'magit-checkout
2087 :after #'my-projectile-invalidate-cache)
2088 (advice-add 'magit-branch-and-checkout
2089 :after #'my-projectile-invalidate-cache)))
2090 :custom (projectile-completion-system 'ivy))
2093 ** [[https://github.com/Wilfred/helpful][helpful]]
2095 #+begin_src emacs-lisp
2096 (use-package helpful
2099 (("C-S-h c" . helpful-command)
2100 ("C-S-h f" . helpful-callable) ; helpful-function
2101 ("C-S-h v" . helpful-variable)
2102 ("C-S-h k" . helpful-key)
2103 ("C-S-h p" . helpful-at-point)))
2106 ** [[https://github.com/EricCrosson/unkillable-scratch][unkillable-scratch]]
2108 Make =*scratch*= and =*Messages*= unkillable.
2110 #+begin_src emacs-lisp
2111 (use-package unkillable-scratch
2114 (unkillable-scratch 1)
2116 (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
2119 ** [[https://github.com/davep/boxquote.el][boxquote.el]]
2123 | make pretty boxed quotes like this
2127 #+begin_src emacs-lisp
2128 (use-package boxquote
2131 (:prefix-map a/boxquote-prefix-map
2133 ("b" . boxquote-buffer)
2134 ("B" . boxquote-insert-buffer)
2135 ("d" . boxquote-defun)
2136 ("F" . boxquote-insert-file)
2137 ("hf" . boxquote-describe-function)
2138 ("hk" . boxquote-describe-key)
2139 ("hv" . boxquote-describe-variable)
2140 ("hw" . boxquote-where-is)
2141 ("k" . boxquote-kill)
2142 ("p" . boxquote-paragraph)
2143 ("q" . boxquote-boxquote)
2144 ("r" . boxquote-region)
2145 ("s" . boxquote-shell-command)
2146 ("t" . boxquote-text)
2147 ("T" . boxquote-title)
2148 ("u" . boxquote-unbox)
2149 ("U" . boxquote-unbox-region)
2150 ("y" . boxquote-yank)
2151 ("M-q" . boxquote-fill-paragraph)
2152 ("M-w" . boxquote-kill-ring-save)))
2155 Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
2159 #+begin_src emacs-lisp
2160 (use-package orgalist
2163 :hook (message-mode . orgalist-mode))
2168 #+begin_src emacs-lisp
2172 (typo-global-mode 1)
2173 :hook (text-mode . typo-mode))
2178 #+begin_src emacs-lisp
2179 (use-package hl-todo
2182 (global-hl-todo-mode))
2187 #+begin_src emacs-lisp
2188 (use-package shrink-path
2192 (defvar user-@-host (concat (user-login-name) "@" (system-name) " "))
2193 (defun +eshell/prompt ()
2194 (let ((base/dir (shrink-path-prompt default-directory)))
2195 (concat (propertize user-@-host 'face 'default)
2196 (propertize (car base/dir)
2197 'face 'font-lock-comment-face)
2198 (propertize (cdr base/dir)
2199 'face 'font-lock-constant-face)
2200 (propertize "> " 'face 'default))))
2201 (setq eshell-prompt-regexp (concat user-@-host ".*> ")
2202 eshell-prompt-function #'+eshell/prompt))
2205 ** [[https://github.com/peterwvj/eshell-up][eshell-up]]
2207 #+begin_src emacs-lisp
2208 (use-package eshell-up
2210 :commands eshell-up)
2215 #+begin_src emacs-lisp
2216 (use-package multi-term
2218 :bind (("C-c a s m" . multi-term-dedicated-toggle)
2220 ("C-c C-j" . term-char-mode)
2222 ("C-c C-j" . term-line-mode))
2224 (setq multi-term-program "/bin/screen"
2225 ;; TODO: add separate bindings for connecting to existing
2226 ;; session vs. always creating a new one
2227 multi-term-dedicated-select-after-open-p t
2228 multi-term-dedicated-window-height 20
2229 multi-term-dedicated-max-window-height 30
2231 '(("C-c C-c" . term-interrupt-subjob)
2232 ("C-c C-e" . term-send-esc)
2234 ("C-y" . term-paste)
2235 ("M-f" . term-send-forward-word)
2236 ("M-b" . term-send-backward-word)
2237 ("M-p" . term-send-up)
2238 ("M-n" . term-send-down)
2239 ("<C-backspace>" . term-send-backward-kill-word)
2240 ("<M-DEL>" . term-send-backward-kill-word)
2241 ("M-d" . term-send-delete-word)
2242 ("M-," . term-send-raw)
2243 ("M-." . comint-dynamic-complete))
2244 term-unbind-key-alist
2245 '("C-z" "C-x" "C-c" "C-h" "C-y" "<ESC>")))
2250 #+begin_src emacs-lisp
2251 (use-package page-break-lines
2253 (global-page-break-lines-mode))
2258 #+begin_src emacs-lisp
2259 (use-package expand-region
2260 :bind ("C-=" . er/expand-region))
2265 #+begin_src emacs-lisp
2266 (use-package multiple-cursors
2268 (("C-S-<mouse-1>" . mc/add-cursor-on-click)
2269 (:prefix-map a/mc-prefix-map
2271 ("c" . mc/edit-lines)
2272 ("n" . mc/mark-next-like-this)
2273 ("p" . mc/mark-previous-like-this)
2274 ("a" . mc/mark-all-like-this))))
2279 #+begin_src emacs-lisp
2287 #+begin_src emacs-lisp
2288 (use-package yasnippet
2291 (defconst yas-verbosity-cur yas-verbosity)
2292 (setq yas-verbosity 2)
2293 (add-to-list 'yas-snippet-dirs "~/src/git/guix/etc/snippets")
2295 (setq yas-verbosity yas-verbosity-cur)
2297 (text-mode . yas-minor-mode))
2302 #+begin_src emacs-lisp
2303 (use-package debbugs
2306 :repo "emacs-straight/debbugs"
2307 :files (:defaults "Debbugs.wsdl")))
2312 #+begin_src emacs-lisp
2313 (use-package org-ref
2315 (a/setq-every '("~/usr/org/references.bib")
2316 reftex-default-bibliography
2317 org-ref-default-bibliography)
2319 org-ref-bibliography-notes "~/usr/org/notes.org"
2320 org-ref-pdf-directory "~/usr/org/bibtex-pdfs/"))
2325 Not an "Emacs enhancement", but just so that I don't have to use the
2326 proprietary web interface. Needed for interacting with the URA(s)
2329 #+begin_src emacs-lisp
2331 :commands (slack-start)
2333 (eval-when-compile ; silence the byte-compiler
2334 (defvar url-http-data nil)
2335 (defvar url-http-extra-headers nil)
2336 (defvar url-http-method nil)
2337 (defvar url-callback-function nil)
2338 (defvar url-callback-arguments nil)
2339 (defvar oauth--token-data nil))
2340 (setq slack-buffer-emojify t
2341 slack-prefer-current-team t)
2343 (slack-register-team
2344 :name "nday-students"
2346 :token nday-students-token
2347 :subscribed-channels '(general)
2348 :full-and-display-names t)
2349 (add-to-list 'swiper-font-lock-exclude 'slack-message-buffer-mode t)
2350 (setq lui-time-stamp-format "[%Y-%m-%d %H:%M:%S]"
2351 lui-time-stamp-only-when-changed-p t
2352 lui-time-stamp-position 'right)
2354 (("C-c s s" . slack-start)
2355 ("C-c s u" . slack-select-unread-rooms)
2356 ("C-c s b" . slack-select-rooms)
2357 ("C-c s t" . slack-change-current-team)
2358 ("C-c s c" . slack-ws-close)
2360 ("M-p" . slack-buffer-goto-prev-message)
2361 ("M-n" . slack-buffer-goto-next-message)
2362 ("C-c e" . slack-message-edit)
2363 ("C-c k" . slack-message-delete)
2364 ("C-c C-k" . slack-channel-leave)
2365 ("C-c r a" . slack-message-add-reaction)
2366 ("C-c r r" . slack-message-remove-reaction)
2367 ("C-c r s" . slack-message-show-reaction-users)
2368 ("C-c p l" . slack-room-pins-list)
2369 ("C-c p a" . slack-message-pins-add)
2370 ("C-c p r" . slack-message-pins-remove)
2371 ("@" . slack-message-embed-mention)
2372 ("#" . slack-message-embed-channel)))
2377 (setq alert-default-style 'notifier))
2385 #+begin_src emacs-lisp
2386 (defvar a/maildir (expand-file-name "~/mail/"))
2387 (with-eval-after-load 'recentf
2388 (add-to-list 'recentf-exclude a/maildir))
2393 #+begin_src emacs-lisp
2395 a/gnus-init-file (no-littering-expand-etc-file-name "gnus")
2396 mail-user-agent 'gnus-user-agent
2397 read-mail-command 'gnus)
2400 :bind (("s-m" . gnus)
2401 ("s-M" . gnus-unplugged))
2404 gnus-select-method '(nnnil "")
2405 gnus-secondary-select-methods
2407 (nnimap-stream plain)
2408 (nnimap-address "127.0.0.1")
2409 (nnimap-server-port 143)
2410 (nnimap-authenticator plain)
2411 (nnimap-user "amin@bndl.org"))
2413 (nnimap-stream plain)
2414 (nnimap-address "127.0.0.1")
2415 (nnimap-server-port 143)
2416 (nnimap-authenticator plain)
2417 (nnimap-user "abandali@uwaterloo.ca"))
2419 (nnimap-stream plain)
2420 (nnimap-address "127.0.0.1")
2421 (nnimap-server-port 143)
2422 (nnimap-authenticator plain)
2423 (nnimap-user "abandali@csclub.uw")))
2424 gnus-message-archive-group "nnimap+amin:Sent"
2427 (to-address . "deepspec@lists.cs.princeton.edu")
2428 (to-list . "deepspec@lists.cs.princeton.edu"))
2429 ("gnu\\.emacs-devel"
2430 (to-address . "emacs-devel@gnu.org")
2431 (to-list . "emacs-devel@gnu.org"))
2432 ("gnu\\.emacs-orgmode"
2433 (to-address . "emacs-orgmode@gnu.org")
2434 (to-list . "emacs-orgmode@gnu.org"))
2435 ("gnu\\.emacsconf-discuss"
2436 (to-address . "emacsconf-discuss@gnu.org")
2437 (to-list . "emacsconf-discuss@gnu.org"))
2438 ("gnu\\.fencepost-users"
2439 (to-address . "fencepost-users@gnu.org")
2440 (to-list . "fencepost-users@gnu.org"))
2441 ("gnu\\.gnunet-developers"
2442 (to-address . "gnunet-developers@gnu.org")
2443 (to-list . "gnunet-developers@gnu.org"))
2444 ("gnu\\.guile-devel"
2445 (to-address . "guile-devel@gnu.org")
2446 (to-list . "guile-devel@gnu.org"))
2448 (to-address . "guix-devel@gnu.org")
2449 (to-list . "guix-devel@gnu.org"))
2450 ("gnu\\.haskell-art"
2451 (to-address . "haskell-art@we.lurk.org")
2452 (to-list . "haskell-art@we.lurk.org"))
2453 ("gnu\\.haskell-cafe"
2454 (to-address . "haskell-cafe@haskell.org")
2455 (to-list . "haskell-cafe@haskell.org"))
2456 ("gnu\\.help-gnu-emacs"
2457 (to-address . "help-gnu-emacs@gnu.org")
2458 (to-list . "help-gnu-emacs@gnu.org"))
2459 ("gnu\\.info-gnu-emacs"
2460 (to-address . "info-gnu-emacs@gnu.org")
2461 (to-list . "info-gnu-emacs@gnu.org"))
2463 (to-address . "info-guix@gnu.org")
2464 (to-list . "info-guix@gnu.org"))
2466 (to-address . "notmuch@notmuchmail.org")
2467 (to-list . "notmuch@notmuchmail.org"))
2468 ("gnu\\.parabola-dev"
2469 (to-address . "dev@lists.parabola.nu")
2470 (to-list . "dev@lists.parabola.nu"))
2472 (to-address . "webmasters@gnu.org")
2473 (to-list . "webmasters@gnu.org"))
2474 ("gnu\\.www-commits"
2475 (to-address . "www-commits@gnu.org")
2476 (to-list . "www-commits@gnu.org"))
2477 ("gnu\\.www-discuss"
2478 (to-address . "www-discuss@gnu.org")
2479 (to-list . "www-discuss@gnu.org"))
2480 ("gnu\\.~bandali\\.public-inbox"
2481 (to-address . "~bandali/public-inbox@lists.sr.ht")
2482 (to-list . "~bandali/public-inbox@lists.sr.ht"))
2483 ("gnu\\.~sircmpwn\\.srht-admins"
2484 (to-address . "~sircmpwn/sr.ht-admins@lists.sr.ht")
2485 (to-list . "~sircmpwn/sr.ht-admins@lists.sr.ht"))
2486 ("gnu\\.~sircmpwn\\.srht-announce"
2487 (to-address . "~sircmpwn/sr.ht-announce@lists.sr.ht")
2488 (to-list . "~sircmpwn/sr.ht-announce@lists.sr.ht"))
2489 ("gnu\\.~sircmpwn\\.srht-dev"
2490 (to-address . "~sircmpwn/sr.ht-dev@lists.sr.ht")
2491 (to-list . "~sircmpwn/sr.ht-dev@lists.sr.ht"))
2492 ("gnu\\.~sircmpwn\\.srht-discuss"
2493 (to-address . "~sircmpwn/sr.ht-discuss@lists.sr.ht")
2494 (to-list . "~sircmpwn/sr.ht-discuss@lists.sr.ht"))
2499 gnus-large-newsgroup 50
2500 gnus-home-directory (no-littering-expand-var-file-name "gnus/")
2501 gnus-directory (concat gnus-home-directory "news/")
2502 message-directory (concat gnus-home-directory "mail/")
2503 nndraft-directory (concat gnus-home-directory "drafts/")
2504 gnus-save-newsrc-file nil
2505 gnus-read-newsrc-file nil
2506 gnus-interactive-exit nil
2507 gnus-gcc-mark-as-read t)
2511 (require 'ebdb-gnus)
2513 (with-eval-after-load 'recentf
2514 (add-to-list 'recentf-exclude gnus-home-directory)))
2516 (use-feature gnus-art
2519 gnus-visible-headers
2520 (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
2521 gnus-sorted-header-list
2522 '("^From:" "^Subject:" "^Summary:" "^Keywords:"
2523 "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator"
2524 "^Newsgroups:" "List-Id:" "^Organization:"
2525 "^User-Agent:" "^Date:")
2526 ;; local-lapsed article dates
2527 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
2528 gnus-article-date-headers '(user-defined)
2529 gnus-article-time-format
2531 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
2532 (local (article-make-date-line date 'local))
2533 (combined-lapsed (article-make-date-line date
2536 (string-match " (.+" combined-lapsed)
2537 (match-string 0 combined-lapsed))))
2538 (concat local lapsed))))
2540 :map gnus-article-mode-map
2541 ("M-L" . org-store-link)))
2543 (use-feature gnus-sum
2544 :bind (:map gnus-summary-mode-map
2545 :prefix-map a/gnus-summary-prefix-map
2547 ("r" . gnus-summary-reply)
2548 ("w" . gnus-summary-wide-reply)
2549 ("v" . gnus-summary-show-raw-article))
2552 :map gnus-summary-mode-map
2553 ("M-L" . org-store-link))
2554 :hook (gnus-summary-mode . a/no-mouse-autoselect-window))
2556 (use-feature gnus-msg
2558 (setq gnus-posting-styles
2560 (address "amin@bndl.org")
2562 (eval (setq a/message-cite-say-hi t)))
2564 (address "bandali@gnu.org")
2565 (eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org")))
2566 ((header "subject" "ThankCRM")
2567 (to "webmasters-comment@gnu.org")
2568 (body "Added to 2019supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
2569 (eval (setq a/message-cite-say-hi nil)))
2570 ("nnimap\\+uwaterloo:.*"
2571 (address "abandali@uwaterloo.ca")
2572 (gcc "\"nnimap+uwaterloo:Sent Items\""))
2573 ("nnimap\\+csclub:.*"
2574 (address "abandali@csclub.uwaterloo.ca")
2575 (gcc "nnimap+csclub:Sent")))))
2577 (use-feature gnus-topic
2578 :hook (gnus-group-mode . gnus-topic-mode)
2579 :config (setq gnus-topic-line-format "%i[ %A: %(%{%n%}%) ]%v\n"))
2581 (use-feature gnus-agent
2583 (setq gnus-agent-synchronize-flags 'ask)
2584 :hook (gnus-group-mode . gnus-agent-mode))
2586 (use-feature gnus-group
2588 (setq gnus-permanently-visible-groups "\\(:INBOX$\\|:gnu$\\)"))
2590 (use-feature mm-decode
2592 (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
2597 #+begin_src emacs-lisp
2598 (use-feature sendmail
2600 (setq sendmail-program "/usr/bin/msmtp"
2601 ;; message-sendmail-extra-arguments '("-v" "-d")
2602 mail-specify-envelope-from t
2603 mail-envelope-from 'header))
2608 #+begin_src emacs-lisp
2609 (use-feature message
2611 ;; redefine for a simplified In-Reply-To header
2612 ;; (see https://todo.sr.ht/~sircmpwn/lists.sr.ht/67)
2613 (defun message-make-in-reply-to ()
2614 "Return the In-Reply-To header for this message."
2615 (when message-reply-headers
2616 (let ((from (mail-header-from message-reply-headers))
2617 (msg-id (mail-header-id message-reply-headers)))
2621 (defconst a/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
2622 (defconst message-cite-style-bandali
2623 '((message-cite-function 'message-cite-original)
2624 (message-citation-line-function 'message-insert-formatted-citation-line)
2625 (message-cite-reply-position 'traditional)
2626 (message-yank-prefix "> ")
2627 (message-yank-cited-prefix ">")
2628 (message-yank-empty-prefix ">")
2629 (message-citation-line-format
2630 (if a/message-cite-say-hi
2631 (concat "Hi %F,\n\n" a/message-cite-style-format)
2632 a/message-cite-style-format)))
2633 "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
2634 (setq ;; message-cite-style 'message-cite-style-bandali
2635 message-kill-buffer-on-exit t
2636 message-send-mail-function 'message-send-mail-with-sendmail
2637 message-sendmail-envelope-from 'header
2638 message-subscribed-address-functions
2639 '(gnus-find-subscribed-addresses)
2640 message-dont-reply-to-names
2641 "\\(\\(amin@bndl\\.org\\)\\|\\(.*@\\(aminb\\|amin\\.bndl\\)\\.org\\)\\|\\(\\(bandali\\|aminb?\\|mab\\)@gnu\\.org\\)\\|\\(a\\(min\\.\\)?bandali@uwaterloo\\.ca\\)\\|\\(abandali@csclub\\.uwaterloo\\.ca\\)\\)")
2642 (require 'company-ebdb)
2643 :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
2644 (message-mode . flyspell-mode)
2645 (message-mode . (lambda ()
2646 ;; (setq fill-column 65
2647 ;; message-fill-column 65)
2648 (make-local-variable 'company-idle-delay)
2649 (setq company-idle-delay 0.2))))
2651 ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
2652 ;; (message-header-to ((t (:foreground "#111" :weight normal))))
2653 ;; (message-header-cc ((t (:foreground "#333" :weight normal))))
2656 (with-eval-after-load 'mml-sec
2657 (setq mml-secure-openpgp-encrypt-to-self t
2658 mml-secure-openpgp-sign-with-sender t))
2663 Convenient footnotes in =message-mode=.
2665 #+begin_src emacs-lisp
2666 (use-feature footnote
2669 ;; (setq footnote-start-tag ""
2670 ;; footnote-end-tag ""
2671 ;; footnote-style 'unicode)
2673 (:map message-mode-map
2674 :prefix-map a/footnote-prefix-map
2676 ("a" . footnote-add-footnote)
2677 ("b" . footnote-back-to-message)
2678 ("c" . footnote-cycle-style)
2679 ("d" . footnote-delete-footnote)
2680 ("g" . footnote-goto-footnote)
2681 ("r" . footnote-renumber-footnotes)
2682 ("s" . footnote-set-style)))
2687 #+begin_src emacs-lisp
2689 :straight (:host github :repo "girzel/ebdb")
2691 :bind (:map gnus-group-mode-map ("e" . ebdb))
2693 (setq ebdb-sources (no-littering-expand-var-file-name "ebdb"))
2694 (with-eval-after-load 'swiper
2695 (add-to-list 'swiper-font-lock-exclude 'ebdb-mode t)))
2697 (use-feature ebdb-com
2700 ;; (use-package ebdb-complete
2703 ;; (ebdb-complete-enable))
2705 (use-package company-ebdb
2707 (defun company-ebdb--post-complete (_) nil))
2709 (use-feature ebdb-gnus
2712 (ebdb-gnus-window-configuration
2715 (summary 0.25 point)
2718 (ebdb-gnus 0.3))))))
2720 (use-feature ebdb-mua
2722 ;; :custom (ebdb-mua-pop-up nil)
2725 ;; (use-package ebdb-message
2729 ;; (use-package ebdb-vcard
2735 #+begin_src emacs-lisp
2736 (use-package message-x)
2739 #+begin_src emacs-lisp :tangle no
2740 (use-package message-x
2742 (message-x-completion-alist
2744 (("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:" . gnus-harvest-find-address)
2747 (quote message-newgroups-header-regexp))
2748 message-newgroups-header-regexp message-newsgroups-header-regexp)
2749 . message-expand-group)))))
2752 ** COMMENT gnus-harvest
2754 #+begin_src emacs-lisp
2755 (use-package gnus-harvest
2756 :commands gnus-harvest-install
2759 (if (featurep 'message-x)
2760 (gnus-harvest-install 'message-x)
2761 (gnus-harvest-install)))
2771 #+begin_src emacs-lisp
2773 :straight (:host nil :repo "https://git.bndl.org/amin/znc.el")
2774 :bind (("C-c a e e" . znc-erc)
2775 ("C-c a e a" . znc-all))
2777 (let ((pwd (let ((auth (auth-source-search :host "znca")))
2779 ((null auth) (error "Couldn't find znca's authinfo"))
2780 (t (funcall (plist-get (car auth) :secret)))))))
2782 `(("znc.bndl.org" 1337 t
2783 ((freenode "amin/freenode" ,pwd)))
2784 ("znc.bndl.org" 1337 t
2785 ((moznet "amin/moznet" ,pwd)))))))
2788 * Post initialization
2790 :CUSTOM_ID: post-initialization
2793 Display how long it took to load the init file.
2795 #+begin_src emacs-lisp
2796 (message "Loading %s...done (%.3fs)" user-init-file
2797 (float-time (time-subtract (current-time)
2798 a/before-user-init-time)))
2806 #+begin_src emacs-lisp :comments none
2807 ;;; init.el ends here
2810 * COMMENT Local Variables :ARCHIVE:
2812 # eval: (add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local)
2813 # eval: (when (featurep 'typo (typo-mode -1)))