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 t
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))
303 A use-package declaration for simplifying your .emacs
306 [[https://github.com/jwiegley/use-package][use-package]] is an awesome utility for managing and configuring
307 packages (in our case especially the latter) in a neatly organized way
308 and without compromising on performance.
310 #+begin_src emacs-lisp
311 (straight-use-package 'use-package)
312 (if nil ; set to t when need to debug init
314 (setq use-package-verbose t
315 use-package-expand-minimally nil
316 use-package-compute-statistics t
318 (require 'use-package))
319 (setq use-package-verbose nil
320 use-package-expand-minimally t))
322 (setq use-package-always-defer t)
328 Browse the Emacsmirror package database
331 Epkg provides access to a local copy of the [[https://emacsmirror.net][Emacsmirror]] package
332 database, low-level functions for querying the database, and a
333 =package.el=-like user interface for browsing the available packages.
335 #+begin_src emacs-lisp
338 :commands (epkg-list-packages epkg-describe-package)
340 (("C-c p e d" . epkg-describe-package)
341 ("C-c p e p" . epkg-list-packages))
343 (setq epkg-repository "~/.emacs.d/straight/repos/epkgs/")
344 (eval-when-compile (defvar ivy-initial-inputs-alist))
345 (with-eval-after-load 'ivy
347 'ivy-initial-inputs-alist '(epkg-describe-package . "^") t)))
350 ** No littering in =~/.emacs.d=
353 Help keeping ~/.emacs.d clean
356 By default, even for Emacs' built-in packages, the configuration files
357 and persistent data are all over the place. Use =no-littering= to help
360 #+begin_src emacs-lisp
361 (use-package no-littering
365 (add-to-list 'savehist-additional-variables 'kill-ring)
367 (setq auto-save-file-name-transforms
368 `((".*" ,(no-littering-expand-var-file-name "auto-save/") t))))
371 ** Custom file (=custom.el=)
373 I'm not planning on using the custom file much, but even so, I
374 definitely don't want it mixing with =init.el=. So, here; let's give
375 it it's own file. While at it, treat themes as safe.
377 #+begin_src emacs-lisp
381 (setq custom-file (no-littering-expand-etc-file-name "custom.el"))
382 (when (file-exists-p custom-file)
384 (setf custom-safe-themes t))
389 Load the secrets file if it exists, otherwise show a warning.
391 #+begin_src emacs-lisp
393 (load (no-littering-expand-etc-file-name "secrets")))
396 ** Better =$PATH= handling
398 Let's use [[https://github.com/purcell/exec-path-from-shell][exec-path-from-shell]] to make Emacs use the =$PATH= as set up
401 #+begin_src emacs-lisp
402 (use-package exec-path-from-shell
405 (setq exec-path-from-shell-arguments nil
406 exec-path-from-shell-check-startup-files nil)
408 (exec-path-from-shell-initialize)
409 ;; while we're at it, let's fix access to our running ssh-agent
410 (exec-path-from-shell-copy-env "SSH_AGENT_PID")
411 (exec-path-from-shell-copy-env "SSH_AUTH_SOCK"))
414 ** COMMENT Only one custom theme at a time
416 #+begin_src emacs-lisp
417 (defadvice load-theme (before clear-previous-themes activate)
418 "Clear existing theme settings instead of layering them"
419 (mapc #'disable-theme custom-enabled-themes))
424 Start server if not already running. Alternatively, can be done by
425 issuing =emacs --daemon= in the terminal, which can be automated with
426 a systemd service or using =brew services start emacs= on macOS. I use
427 Emacs as my window manager (via EXWM), so I always start Emacs on
428 login; so starting the server from inside Emacs is good enough for me.
430 See [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html#Emacs-Server][Using Emacs as a Server]].
432 #+begin_src emacs-lisp
435 :config (or (server-running-p) (server-mode)))
438 ** COMMENT Unicode support
440 Font stack with better unicode support, around =Ubuntu Mono= and
443 #+begin_src emacs-lisp
444 (dolist (ft (fontset-list))
448 (font-spec :name "Source Code Pro" :size 14))
452 (font-spec :name "DejaVu Sans Mono")
459 ;; :name "Symbola monospacified for DejaVu Sans Mono")
465 ;; (font-spec :name "DejaVu Sans Mono")
471 (font-spec :name "DejaVu Sans Mono" :size 14)
476 ** Gentler font resizing
478 #+begin_src emacs-lisp
479 (setq text-scale-mode-step 1.05)
482 ** Focus follows mouse
484 I’d like focus to follow the mouse when I move the cursor from one
487 #+begin_src emacs-lisp
488 (setq mouse-autoselect-window t)
491 Let’s define a function to conveniently disable this for certain
492 buffers and/or modes.
494 #+begin_src emacs-lisp
495 (defun a/no-mouse-autoselect-window ()
496 (make-local-variable 'mouse-autoselect-window)
497 (setq mouse-autoselect-window nil))
500 ** Better scrolling (arguably)
502 #+begin_src emacs-lisp
503 (setq ;; scroll-margin 1
504 ;; scroll-conservatively 10000
506 scroll-conservatively 10
507 scroll-preserve-screen-position 1)
512 (setq mouse-wheel-scroll-amount '(1 ((shift) . 1)) ; one line at a time
513 mouse-wheel-progressive-speed nil ; don't accelerate scrolling
514 mouse-wheel-follow-mouse t)) ; scroll window under mouse
516 (use-feature pixel-scroll
518 :config (pixel-scroll-mode 1))
521 ** Ask for GPG passphrase in minibuffer
523 #+begin_src emacs-lisp
524 (setq epg-pinentry-mode 'loopback)
529 #+begin_src emacs-lisp
536 Convenience macro for =setq='ing multiple variables to the same value:
538 #+begin_src emacs-lisp
539 (defmacro a/setq-every (value &rest vars)
540 "Set all the variables from VARS to value VALUE."
541 (declare (indent defun) (debug t))
542 `(progn ,@(mapcar (lambda (x) (list 'setq x value)) vars)))
545 The following process-related stuff from [[https://github.com/alezost/emacs-config][alezost's emacs-config]].
547 #+begin_src emacs-lisp
548 (defun a/start-process (program &rest args)
549 "Same as `start-process', but doesn't bother about name and buffer."
550 (let ((process-name (concat program "_process"))
551 (buffer-name (generate-new-buffer-name
552 (concat program "_output"))))
553 (apply #'start-process
554 process-name buffer-name program args)))
556 (defun a/dired-start-process (program &optional args)
557 "Open current file with a PROGRAM."
558 ;; Shell command looks like this: "program [ARGS]... FILE" (ARGS can
559 ;; be nil, so remove it).
560 (apply #'a/start-process
562 (remove nil (list args (dired-get-file-for-visit)))))
572 *** Time and battery in mode-line
574 Enable displaying time and battery in the mode-line, since I'm not
575 using the Xfce panel anymore. Also, I don't need to see the load
576 average on a regular basis, so disable that.
578 Note: using =i3status= on sway at the moment, so disabling this.
580 #+begin_src emacs-lisp :tangle no
583 (setq display-time-default-load-average nil)
589 (display-battery-mode))
594 Might want to set the fringe to a smaller value, especially if using
595 EXWM. I'm fine with the default for now.
597 #+begin_src emacs-lisp
598 ;; (fringe-mode '(3 . 1))
602 *** Disable disabled commands
604 Emacs disables some commands by default that could persumably be
605 confusing for novice users. Let's disable that.
607 #+begin_src emacs-lisp
608 (setq disabled-command-function nil)
613 Save what I copy into clipboard from other applications into Emacs'
614 kill-ring, which would allow me to still be able to easily access it
615 in case I kill (cut or copy) something else inside Emacs before
616 yanking (pasting) what I'd originally intended to.
618 #+begin_src emacs-lisp
619 (setq save-interprogram-paste-before-kill t)
624 #+begin_src emacs-lisp
625 (setq enable-recursive-minibuffers t
626 resize-mini-windows t)
629 *** Lazy-person-friendly yes/no prompts
631 Lazy people would prefer to type fewer keystrokes, especially for yes
632 or no questions. I'm lazy.
634 #+begin_src emacs-lisp
635 (defalias 'yes-or-no-p #'y-or-n-p)
638 *** Startup screen and =*scratch*=
640 Firstly, let Emacs know that I'd like to have =*scratch*= as my
643 #+begin_src emacs-lisp
644 (setq initial-buffer-choice t)
647 Now let's customize the =*scratch*= buffer a bit. First off, I don't
648 need the default hint.
650 #+begin_src emacs-lisp
651 (setq initial-scratch-message nil)
654 Also, let's use Text mode as the major mode, in case I want to
655 customize it (=*scratch*='s default major mode, Fundamental mode,
656 can't really be customized).
658 #+begin_src emacs-lisp
659 (setq initial-major-mode 'text-mode)
662 Inhibit the buffer list when more than 2 files are loaded.
664 #+begin_src emacs-lisp
665 (setq inhibit-startup-buffer-menu t)
668 I don't really need to see the startup screen or echo area message
671 #+begin_src emacs-lisp
672 (advice-add #'display-startup-echo-area-message :override #'ignore)
673 (setq inhibit-startup-screen t
674 inhibit-startup-echo-area-message user-login-name)
677 *** More useful frame titles
679 Show either the file name or the buffer name (in case the buffer isn't
680 visiting a file). Borrowed from Emacs Prelude.
682 #+begin_src emacs-lisp
683 (setq frame-title-format
684 '("" invocation-name " - "
685 (:eval (if (buffer-file-name)
686 (abbreviate-file-name (buffer-file-name))
692 Emacs' default backup settings aren't that great. Let's use more
693 sensible options. See documentation for the ~make-backup-file~
696 #+begin_src emacs-lisp
697 (setq backup-by-copying t
699 delete-old-versions t)
704 Enable automatic reloading of changed buffers and files.
706 #+begin_src emacs-lisp
707 (global-auto-revert-mode 1)
708 (setq auto-revert-verbose nil
709 global-auto-revert-non-file-buffers nil)
712 *** Always use space for indentation
714 #+begin_src emacs-lisp
717 require-final-newline t
723 Enable =winner-mode=.
725 #+begin_src emacs-lisp
729 *** Don’t display =*compilation*= on success
731 Based on https://stackoverflow.com/a/17788551, with changes to use
732 =cl-letf= instead of the now obsolete =flet=.
734 #+begin_src emacs-lisp
735 (with-eval-after-load 'compile
736 (defun a/compilation-finish-function (buffer outstr)
737 (unless (string-match "finished" outstr)
738 (switch-to-buffer-other-window buffer))
741 (setq compilation-finish-functions #'a/compilation-finish-function)
745 (defadvice compilation-start
746 (around inhibit-display
747 (command &optional mode name-function highlight-regexp))
748 (if (not (string-match "^\\(find\\|grep\\)" command))
749 (cl-letf (((symbol-function 'display-buffer) #'ignore))
750 (save-window-excursion ad-do-it))
752 (ad-activate 'compilation-start))
755 *** Search for non-ASCII characters
757 I’d like non-ASCII characters such as ‘’“”«»‹›áⓐ𝒶 to be selected when
758 I search for their ASCII counterpart. Shoutout to [[http://endlessparentheses.com/new-in-emacs-25-1-easily-search-non-ascii-characters.html][endlessparentheses]]
761 #+begin_src emacs-lisp
762 (setq search-default-mode #'char-fold-to-regexp)
764 ;; uncomment to extend this behaviour to query-replace
765 ;; (setq replace-char-fold t)
770 #+begin_src emacs-lisp
771 (setq-default cursor-type 'bar)
774 *** Allow scrolling in Isearch
776 #+begin_src emacs-lisp
777 (setq isearch-allow-scroll t)
782 Some bindings for functions from built-in GNU Emacs packages:
784 #+begin_src emacs-lisp
788 ("C-c e b" . eval-buffer)
789 ("C-c e r" . eval-region)
791 ("C-c e i" . emacs-init-time)
792 ("C-c e u" . emacs-uptime)
794 ("C-c F m" . make-frame-command)
795 ("C-c F d" . delete-frame)
796 ("C-c F D" . delete-other-frames)
798 ("C-c o" . other-window)
800 ("C-S-h C" . describe-char)
801 ("C-S-h F" . describe-face)
803 ("C-x k" . kill-this-buffer)
804 ("C-x K" . kill-buffer)
806 ("s-p" . beginning-of-buffer)
807 ("s-n" . end-of-buffer))
810 While at it, let's bind a few for some =straight-*= functions too:
812 #+begin_src emacs-lisp
814 :prefix-map a/straight-prefix-map
816 ("u" . straight-use-package)
817 ("f" . straight-freeze-versions)
818 ("t" . straight-thaw-versions)
819 ("P" . straight-prune-build)
820 ("r" . straight-get-recipe)
821 ;; M-x ^straight-.*-all$
822 ("a c" . straight-check-all)
823 ("a f" . straight-fetch-all)
824 ("a m" . straight-merge-all)
825 ("a n" . straight-normalize-all)
826 ("a F" . straight-pull-all)
827 ("a P" . straight-push-all)
828 ("a r" . straight-rebuild-all)
829 ;; M-x ^straight-.*-package$
830 ("p c" . straight-check-package)
831 ("p f" . straight-fetch-package)
832 ("p m" . straight-merge-package)
833 ("p n" . straight-normalize-package)
834 ("p F" . straight-pull-package)
835 ("p P" . straight-push-package)
836 ("p r" . straight-rebuild-package))
841 The packages in this section are absolutely essential to my everyday
842 workflow, and they play key roles in how I do my computing. They
843 immensely enhance the Emacs experience for me; both using Emacs, and
846 *** [[https://github.com/emacscollective/auto-compile][auto-compile]]
848 #+begin_src emacs-lisp
849 (use-package auto-compile
852 (auto-compile-on-load-mode)
853 (auto-compile-on-save-mode)
854 (setq auto-compile-display-buffer nil
855 auto-compile-mode-line-counter t
856 auto-compile-source-recreate-deletes-dest t
857 auto-compile-toggle-deletes-nonlib-dest t
858 auto-compile-update-autoloads t)
859 (add-hook 'auto-compile-inhibit-compile-hook
860 'auto-compile-inhibit-compile-detached-git-head))
863 *** [[https://orgmode.org/][Org]]
866 Org mode is for keeping notes, maintaining TODO lists, planning
867 projects, and authoring documents with a fast and effective plain-text
871 In short, my favourite way of life.
873 First, we have to resort to a [[https://github.com/raxod502/straight.el#installing-org-with-straightel][hack]] to be able to use the correct
874 latest version of Org from upstream.
876 #+begin_src emacs-lisp
879 (defun org-git-version ()
880 "The Git version of org-mode.
881 Inserted by installing org-mode or when a release is made."
883 (let ((git-repo (expand-file-name
884 "straight/repos/org/" user-emacs-directory)))
891 (defun org-release ()
892 "The release version of org-mode.
893 Inserted by installing org-mode or when a release is made."
895 (let ((git-repo (expand-file-name
896 "straight/repos/org/" user-emacs-directory)))
898 (string-remove-prefix
905 (provide 'org-version)
908 We will use the =org-plus-contrib= package to get the whole deal:
910 #+begin_src emacs-lisp
911 (straight-use-package 'org-plus-contrib)
914 And here's where my actual Org configurations begin:
916 #+begin_src emacs-lisp
920 (setq org-src-tab-acts-natively t
921 org-src-preserve-indentation nil
922 org-edit-src-content-indentation 0
923 org-email-link-description-format "Email %c: %s" ; %.30s
924 org-highlight-latex-and-related '(entities)
925 org-use-speed-commands t
926 org-startup-folded 'content
927 org-catch-invisible-edits 'show-and-error
929 (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
930 :bind (:map org-mode-map ("M-L" . org-insert-last-stored-link))
931 :hook ((org-mode . org-indent-mode)
932 (org-mode . auto-fill-mode)
933 (org-mode . flyspell-mode))
935 (org-latex-packages-alist '(("" "listings") ("" "color")))
937 '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21"))))
938 '(org-block ((t (:background "#1d1f21"))))
939 '(org-latex-and-related ((t (:foreground "#b294bb")))))
941 (use-feature ox-latex
944 (setq org-latex-listings 'listings
945 ;; org-latex-prefer-user-labels t
947 (add-to-list 'org-latex-classes
948 '("IEEEtran" "\\documentclass[11pt]{IEEEtran}"
949 ("\\section{%s}" . "\\section*{%s}")
950 ("\\subsection{%s}" . "\\subsection*{%s}")
951 ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
952 ("\\paragraph{%s}" . "\\paragraph*{%s}")
953 ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
955 (require 'ox-beamer))
958 **** asynchronous tangle
960 =a/async-babel-tangle= is a function closely inspired by [[https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles][dieggsy's
961 d/async-babel-tangle]] which uses [[https://github.com/jwiegley/emacs-async][async]] to asynchronously tangle an org
964 #+begin_src emacs-lisp
965 (with-eval-after-load 'org
966 (defvar a/show-async-tangle-results nil
967 "Keep *emacs* async buffers around for later inspection.")
969 (defvar a/show-async-tangle-time nil
970 "Show the time spent tangling the file.")
972 (defvar a/async-tangle-post-compile
973 (when a/byte-compiled-init "make build-init")
974 "If non-nil, pass to `compile' after successful tangle.")
976 ;; TODO: look into why directly byte-compiling init.el causes a
977 ;; number of problems, including magit-status not loading (busy
979 (defvar a/async-tangle-byte-recompile nil
980 "If non-nil, byte-recompile the file on successful tangle.")
982 (defun a/async-babel-tangle ()
983 "Tangle org file asynchronously."
985 (let* ((file-tangle-start-time (current-time))
986 (file (buffer-file-name))
987 (file-nodir (file-name-nondirectory file))
988 ;; (async-quiet-switch "-q")
989 (file-noext (file-name-sans-extension file)))
993 (org-babel-tangle-file ,file))
994 (unless a/show-async-tangle-results
998 ;; (setq byte-compile-warnings '(not noruntime unresolved))
999 (message "Tangled %s%s"
1001 (if a/show-async-tangle-time
1003 (float-time (time-subtract (current-time)
1004 ',file-tangle-start-time)))
1006 (when a/async-tangle-post-compile
1007 (compile a/async-tangle-post-compile))
1008 (when a/async-tangle-byte-recompile
1009 (byte-recompile-file (concat ,file-noext ".el"))))
1010 (message "Tangling %s failed" ,file-nodir))))))))
1013 'safe-local-variable-values
1014 '(eval add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local))
1017 *** [[https://magit.vc/][Magit]]
1020 It's Magit! A Git porcelain inside Emacs.
1023 Not just how I do git, but /the/ way to do git.
1025 #+begin_src emacs-lisp
1028 :bind (("C-x g" . magit-status)
1029 ("s-g s" . magit-status)
1030 ("s-g l" . magit-log-buffer-file))
1032 (magit-add-section-hook 'magit-status-sections-hook
1033 'magit-insert-modules
1034 'magit-insert-stashes
1037 magit-repository-directories '(("~/.emacs.d/" . 0)
1038 ("~/src/git/" . 1)))
1039 (nconc magit-section-initial-visibility-alist
1040 '(([unpulled status] . show)
1041 ([unpushed status] . show)))
1042 :custom-face (magit-diff-file-heading ((t (:weight normal)))))
1047 Recently opened files.
1049 #+begin_src emacs-lisp
1050 (use-feature recentf
1053 (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
1054 (setq recentf-max-saved-items 40))
1060 A smart M-x enhancement for Emacs.
1063 Mostly because =counsel= needs it to remember history.
1065 #+begin_src emacs-lisp
1069 *** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
1072 Ivy - a generic completion frontend for Emacs, Swiper - isearch with
1073 an overview, and more. Oh, man!
1076 There's no way I could top that, so I won't attempt to.
1080 #+begin_src emacs-lisp
1084 (:map ivy-minibuffer-map
1085 ([escape] . keyboard-escape-quit)
1086 ([S-up] . ivy-previous-history-element)
1087 ([S-down] . ivy-next-history-element)
1088 ("DEL" . ivy-backward-delete-char))
1093 ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
1094 ;; (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
1095 ;; (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold))))
1101 #+begin_src emacs-lisp
1104 :bind (("C-s" . swiper)
1106 ("C-S-s" . isearch-forward)))
1111 #+begin_src emacs-lisp
1112 (use-package counsel
1114 :bind (([remap execute-extended-command] . counsel-M-x)
1115 ([remap find-file] . counsel-find-file)
1116 ("s-r" . counsel-recentf)
1117 ("C-c x" . counsel-M-x)
1118 ("C-c f ." . counsel-find-file)
1119 :map minibuffer-local-map
1120 ("C-r" . counsel-minibuffer-history))
1123 (defalias 'locate #'counsel-locate))
1128 #+begin_src emacs-lisp
1132 :bind ("C-c a s e" . eshell)
1134 (eval-when-compile (defvar eshell-prompt-regexp))
1135 (defun a/eshell-quit-or-delete-char (arg)
1137 (if (and (eolp) (looking-back eshell-prompt-regexp nil))
1138 (eshell-life-is-too-much)
1141 (defun a/eshell-clear ()
1143 (let ((inhibit-read-only t))
1145 (eshell-send-input))
1147 (defun a/eshell-setup ()
1148 (make-local-variable 'company-idle-delay)
1149 (defvar company-idle-delay)
1150 (setq company-idle-delay nil)
1151 (bind-keys :map eshell-mode-map
1152 ("C-d" . a/eshell-quit-or-delete-char)
1153 ("C-S-l" . a/eshell-clear)
1154 ("M-r" . counsel-esh-history)
1155 ([tab] . company-complete)))
1157 :hook (eshell-mode . a/eshell-setup)
1159 (eshell-hist-ignoredups t)
1160 (eshell-input-filter 'eshell-input-filter-initial-space))
1165 #+begin_src emacs-lisp
1166 (use-feature ibuffer
1168 (("C-x C-b" . ibuffer-other-window)
1169 :map ibuffer-mode-map
1170 ("P" . ibuffer-backward-filter-group)
1171 ("N" . ibuffer-forward-filter-group)
1172 ("M-p" . ibuffer-do-print)
1173 ("M-n" . ibuffer-do-shell-command-pipe-replace))
1175 ;; Use human readable Size column instead of original one
1176 (define-ibuffer-column size-h
1177 (:name "Size" :inline t)
1179 ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
1180 ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
1181 ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
1182 (t (format "%8d" (buffer-size)))))
1184 (ibuffer-saved-filter-groups
1186 ("dired" (mode . dired-mode))
1187 ("org" (mode . org-mode))
1190 (mode . gnus-group-mode)
1191 (mode . gnus-summary-mode)
1192 (mode . gnus-article-mode)
1193 ;; not really, but...
1194 (mode . message-mode)))
1203 (mode . eshell-mode)
1205 (mode . term-mode)))
1208 (mode . python-mode)
1212 (mode . emacs-lisp-mode)
1213 (mode . scheme-mode)
1214 (mode . haskell-mode)
1215 (mode . lean-mode)))
1218 (name . "^\\*scratch\\*$")
1219 (name . "^\\*Messages\\*$"))))))
1221 '((mark modified read-only locked " "
1222 (name 18 18 :left :elide)
1224 (size-h 9 -1 :right)
1226 (mode 16 16 :left :elide)
1227 " " filename-and-process)
1231 :hook (ibuffer . (lambda () (ibuffer-switch-to-saved-filter-groups "default"))))
1236 #+begin_src emacs-lisp
1237 (use-feature outline
1238 :hook (prog-mode . outline-minor-mode)
1241 outline-minor-mode-map
1242 ("<s-tab>" . outline-toggle-children)
1243 ("M-p" . outline-previous-visible-heading)
1244 ("M-n" . outline-next-visible-heading)
1245 :prefix-map a/outline-prefix-map
1247 ("TAB" . outline-toggle-children)
1248 ("a" . outline-hide-body)
1249 ("H" . outline-hide-body)
1250 ("S" . outline-show-all)
1251 ("h" . outline-hide-subtree)
1252 ("s" . outline-show-subtree)))
1257 #+begin_src emacs-lisp
1258 (use-feature ls-lisp
1259 :custom (ls-lisp-dirs-first t))
1263 (setq dired-listing-switches "-alh"
1264 ls-lisp-use-insert-directory-program nil)
1266 ;; easily diff 2 marked files
1267 ;; https://oremacs.com/2017/03/18/dired-ediff/
1268 (defun dired-ediff-files ()
1270 (require 'dired-aux)
1271 (defvar ediff-after-quit-hook-internal)
1272 (let ((files (dired-get-marked-files))
1273 (wnd (current-window-configuration)))
1274 (if (<= (length files) 2)
1275 (let ((file1 (car files))
1276 (file2 (if (cdr files)
1280 (dired-dwim-target-directory)))))
1281 (if (file-newer-than-file-p file1 file2)
1282 (ediff-files file2 file1)
1283 (ediff-files file1 file2))
1284 (add-hook 'ediff-after-quit-hook-internal
1286 (setq ediff-after-quit-hook-internal nil)
1287 (set-window-configuration wnd))))
1288 (error "no more than 2 files should be marked"))))
1289 :bind (:map dired-mode-map
1290 ("b" . dired-up-directory)
1291 ("e" . dired-ediff-files)
1292 ("E" . dired-toggle-read-only)
1293 ("\\" . dired-hide-details-mode)
1296 (a/dired-start-process "zathura"))))
1297 :hook (dired-mode . dired-hide-details-mode))
1302 #+begin_src emacs-lisp
1305 (temp-buffer-resize-mode)
1306 (setq help-window-select t))
1311 #+begin_src emacs-lisp
1314 (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
1315 (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
1316 (add-to-list 'tramp-default-proxies-alist
1317 (list (regexp-quote (system-name)) nil nil)))
1322 #+begin_src emacs-lisp
1324 :config (dash-enable-font-lock))
1334 Highlight uncommitted changes in the left fringe.
1336 #+begin_src emacs-lisp
1337 (use-package diff-hl
1339 (setq diff-hl-draw-borders nil)
1340 (global-diff-hl-mode)
1341 :hook (magit-post-refresh . diff-hl-magit-post-refresh))
1346 Display Lisp objects at point in the echo area.
1348 #+begin_src emacs-lisp
1350 :when (version< "25" emacs-version)
1351 :config (global-eldoc-mode))
1356 Highlight matching parens.
1358 #+begin_src emacs-lisp
1361 :config (show-paren-mode))
1364 ** simple (for column numbers)
1366 #+begin_src emacs-lisp
1368 :config (column-number-mode))
1373 Save minibuffer history.
1375 #+begin_src emacs-lisp
1376 (use-feature savehist
1377 :config (savehist-mode))
1382 Automatically save place in each file.
1384 #+begin_src emacs-lisp
1385 (use-feature saveplace
1386 :when (version< "25" emacs-version)
1387 :config (save-place-mode))
1392 #+begin_src emacs-lisp
1393 (use-feature prog-mode
1394 :config (global-prettify-symbols-mode)
1395 (defun indicate-buffer-boundaries-left ()
1396 (setq indicate-buffer-boundaries 'left))
1397 (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
1402 #+begin_src emacs-lisp
1403 (use-feature text-mode
1404 :hook ((text-mode . indicate-buffer-boundaries-left)
1405 (text-mode . abbrev-mode)))
1410 #+begin_src emacs-lisp
1411 (use-package company
1414 (:map company-active-map
1415 ([tab] . company-complete-common-or-cycle)
1416 ([escape] . company-abort))
1418 (company-minimum-prefix-length 1)
1419 (company-selection-wrap-around t)
1420 (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
1421 (company-dabbrev-downcase nil)
1422 (company-dabbrev-ignore-case nil)
1424 (global-company-mode t))
1429 #+begin_src emacs-lisp
1430 (use-package flycheck
1432 :hook (prog-mode . flycheck-mode)
1434 (:map flycheck-mode-map
1435 ("M-P" . flycheck-previous-error)
1436 ("M-N" . flycheck-next-error))
1438 ;; Use the load-path from running Emacs when checking elisp files
1439 (setq flycheck-emacs-lisp-load-path 'inherit)
1441 ;; Only flycheck when I actually save the buffer
1442 (setq flycheck-check-syntax-automatically '(mode-enabled save)))
1444 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
1448 ;; ’ can be part of a word
1449 (setq ispell-local-dictionary-alist
1450 `((nil "[[:alpha:]]" "[^[:alpha:]]"
1451 "['\x2019]" nil ("-B") nil utf-8)))
1452 ;; don't send ’ to the subprocess
1453 (defun endless/replace-apostrophe (args)
1454 (cons (replace-regexp-in-string
1457 (advice-add #'ispell-send-string :filter-args
1458 #'endless/replace-apostrophe)
1460 ;; convert ' back to ’ from the subprocess
1461 (defun endless/replace-quote (args)
1462 (if (not (derived-mode-p 'org-mode))
1464 (cons (replace-regexp-in-string
1467 (advice-add #'ispell-parse-output :filter-args
1468 #'endless/replace-quote))
1473 :CUSTOM_ID: programming-modes
1478 #+begin_src emacs-lisp
1479 (use-feature lisp-mode
1481 (add-hook 'emacs-lisp-mode-hook 'outline-minor-mode)
1482 (add-hook 'emacs-lisp-mode-hook 'reveal-mode)
1483 (defun indent-spaces-mode ()
1484 (setq indent-tabs-mode nil))
1485 (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
1488 ** [[http://alloytools.org][Alloy]] (with [[https://github.com/dwwmmn/alloy-mode][alloy-mode]])
1490 #+begin_src emacs-lisp
1491 (use-package alloy-mode
1492 :straight (:host github :repo "dwwmmn/alloy-mode")
1493 :config (setq alloy-basic-offset 2))
1496 ** [[https://coq.inria.fr][Coq]] (with [[https://github.com/ProofGeneral/PG][Proof General]])
1498 #+begin_src emacs-lisp
1499 (use-package proof-site ; Proof General
1500 :straight proof-general)
1503 ** [[https://leanprover.github.io][Lean]] (with [[https://github.com/leanprover/lean-mode][lean-mode]])
1505 #+begin_src emacs-lisp
1506 (eval-when-compile (defvar lean-mode-map))
1507 (use-package lean-mode
1509 :bind (:map lean-mode-map
1510 ("S-SPC" . company-complete))
1512 (require 'lean-input)
1513 (setq default-input-method "Lean"
1514 lean-input-tweak-all '(lean-input-compose
1515 (lean-input-prepend "/")
1516 (lean-input-nonempty))
1517 lean-input-user-translations '(("/" "/")))
1523 *** [[https://github.com/haskell/haskell-mode][haskell-mode]]
1525 #+begin_src emacs-lisp
1526 (use-package haskell-mode
1528 (setq haskell-indentation-layout-offset 4
1529 haskell-indentation-left-offset 4
1530 flycheck-checker 'haskell-hlint
1531 flycheck-disabled-checkers '(haskell-stack-ghc haskell-ghc)))
1534 *** [[https://github.com/jyp/dante][dante]]
1536 #+begin_src emacs-lisp
1539 :commands dante-mode
1540 :hook (haskell-mode . dante-mode))
1543 *** [[https://github.com/mpickering/hlint-refactor-mode][hlint-refactor]]
1545 Emacs bindings for [[https://github.com/ndmitchell/hlint][hlint]]'s refactor option. This requires the refact
1546 executable from [[https://github.com/mpickering/apply-refact][apply-refact]].
1548 #+begin_src emacs-lisp
1549 (use-package hlint-refactor
1551 :bind (:map hlint-refactor-mode-map
1552 ("C-c l b" . hlint-refactor-refactor-buffer)
1553 ("C-c l r" . hlint-refactor-refactor-at-point))
1554 :hook (haskell-mode . hlint-refactor-mode))
1557 *** [[https://github.com/flycheck/flycheck-haskell][flycheck-haskell]]
1559 #+begin_src emacs-lisp
1560 (use-package flycheck-haskell
1561 :after haskell-mode)
1564 *** [[https://github.com/ndmitchell/hlint/blob/20e116a043f2073c57b17b24ae6364b5e433ba7e/data/hs-lint.el][hs-lint.el]]
1566 :header-args+: :tangle lisp/hs-lint.el :mkdirp yes
1569 Currently using =flycheck-haskell= with the =haskell-hlint= checker
1572 #+begin_src emacs-lisp :tangle no
1573 ;;; hs-lint.el --- minor mode for HLint code checking
1575 ;; Copyright 2009 (C) Alex Ott
1577 ;; Author: Alex Ott <alexott@gmail.com>
1578 ;; Keywords: haskell, lint, HLint
1580 ;; Status: distributed under terms of GPL2 or above
1582 ;; Typical message from HLint looks like:
1584 ;; /Users/ott/projects/lang-exp/haskell/test.hs:52:1: Eta reduce
1586 ;; count1 p l = length (filter p l)
1588 ;; count1 p = length . filter p
1593 (defgroup hs-lint nil
1594 "Run HLint as inferior of Emacs, parse error messages."
1598 (defcustom hs-lint-command "hlint"
1599 "The default hs-lint command for \\[hlint]."
1603 (defcustom hs-lint-save-files t
1604 "Save modified files when run HLint or no (ask user)"
1608 (defcustom hs-lint-replace-with-suggestions nil
1609 "Replace user's code with suggested replacements"
1613 (defcustom hs-lint-replace-without-ask nil
1614 "Replace user's code with suggested replacements automatically"
1618 (defun hs-lint-process-setup ()
1619 "Setup compilation variables and buffer for `hlint'."
1620 (run-hooks 'hs-lint-setup-hook))
1622 ;; regex for replace suggestions
1624 ;; ^\(.*?\):\([0-9]+\):\([0-9]+\): .*
1630 (defvar hs-lint-regex
1631 "^\\(.*?\\):\\([0-9]+\\):\\([0-9]+\\): .*[\n\C-m]Found:[\n\C-m]\\s +\\(.*\\)[\n\C-m]Why not:[\n\C-m]\\s +\\(.*\\)[\n\C-m]"
1632 "Regex for HLint messages")
1634 (defun make-short-string (str maxlen)
1635 (if (< (length str) maxlen)
1637 (concat (substring str 0 (- maxlen 3)) "...")))
1639 (defun hs-lint-replace-suggestions ()
1640 "Perform actual replacement of suggestions"
1641 (goto-char (point-min))
1642 (while (re-search-forward hs-lint-regex nil t)
1643 (let* ((fname (match-string 1))
1644 (fline (string-to-number (match-string 2)))
1645 (old-code (match-string 4))
1646 (new-code (match-string 5))
1647 (msg (concat "Replace '" (make-short-string old-code 30)
1648 "' with '" (make-short-string new-code 30) "'"))
1654 (switch-to-buffer (get-file-buffer fname))
1655 (goto-char (point-min))
1656 (forward-line (1- fline))
1658 (setf bline (point))
1659 (when (or hs-lint-replace-without-ask
1662 (setf eline (point))
1664 (setf old-code (regexp-quote old-code))
1665 (while (string-match "\\\\ " old-code spos)
1666 (setf new-old-code (concat new-old-code
1667 (substring old-code spos (match-beginning 0))
1669 (setf spos (match-end 0)))
1670 (setf new-old-code (concat new-old-code (substring old-code spos)))
1671 (remove-text-properties bline eline '(composition nil))
1672 (when (re-search-forward new-old-code eline t)
1673 (replace-match new-code nil t)))))))
1675 (defun hs-lint-finish-hook (buf msg)
1676 "Function, that is executed at the end of HLint execution"
1677 (if hs-lint-replace-with-suggestions
1678 (hs-lint-replace-suggestions)
1681 (define-compilation-mode hs-lint-mode "HLint"
1682 "Mode for check Haskell source code."
1683 (set (make-local-variable 'compilation-process-setup-function)
1684 'hs-lint-process-setup)
1685 (set (make-local-variable 'compilation-disable-input) t)
1686 (set (make-local-variable 'compilation-scroll-output) nil)
1687 (set (make-local-variable 'compilation-finish-functions)
1688 (list 'hs-lint-finish-hook))
1692 "Run HLint for current buffer with haskell source"
1694 (save-some-buffers hs-lint-save-files)
1695 (compilation-start (concat hs-lint-command " \"" buffer-file-name "\"")
1699 ;;; hs-lint.el ends here
1702 #+begin_src emacs-lisp :tangle no
1703 (use-package hs-lint
1705 :bind (:map haskell-mode-map
1706 ("C-c l l" . hs-lint)))
1713 #+begin_src emacs-lisp
1714 (use-package sgml-mode
1716 (setq sgml-basic-offset 2))
1721 #+begin_src emacs-lisp
1722 (use-package css-mode
1724 (setq css-indent-offset 2))
1729 #+begin_src emacs-lisp
1730 (use-package web-mode
1734 web-mode-code-indent-offset
1735 web-mode-css-indent-offset
1736 web-mode-markup-indent-offset))
1741 #+begin_src emacs-lisp
1742 (use-package emmet-mode
1743 :after (:any web-mode css-mode sgml-mode)
1744 :bind* (("C-)" . emmet-next-edit-point)
1745 ("C-(" . emmet-prev-edit-point))
1747 (unbind-key "C-j" emmet-mode-keymap)
1748 (setq emmet-move-cursor-between-quotes t)
1749 :hook (web-mode css-mode html-mode sgml-mode))
1754 *** COMMENT meghanada
1756 #+begin_src emacs-lisp
1757 (use-package meghanada
1759 (:map meghanada-mode-map
1760 (("C-M-o" . meghanada-optimize-import)
1761 ("C-M-t" . meghanada-import-all)))
1762 :hook (java-mode . meghanada-mode))
1765 *** COMMENT lsp-java
1783 #+begin_src emacs-lisp
1784 (use-package treemacs
1785 :config (setq treemacs-never-persist t))
1787 (use-package yasnippet
1789 ;; (yas-global-mode)
1792 (use-package lsp-mode
1793 :init (setq lsp-eldoc-render-all nil
1794 lsp-highlight-symbol-at-point nil)
1799 (use-package company-lsp
1802 (setq company-lsp-cache-candidates t
1803 company-lsp-async t))
1807 (setq lsp-ui-sideline-update-mode 'point))
1809 (use-package lsp-java
1811 (add-hook 'java-mode-hook
1813 (setq-local company-backends (list 'company-lsp))))
1815 (add-hook 'java-mode-hook 'lsp-java-enable)
1816 (add-hook 'java-mode-hook 'flycheck-mode)
1817 (add-hook 'java-mode-hook 'company-mode)
1818 (add-hook 'java-mode-hook 'lsp-ui-mode))
1820 (use-package dap-mode
1826 (use-package dap-java
1829 (use-package lsp-java-treemacs
1835 #+begin_src emacs-lisp
1837 :bind (:map eclim-mode-map ("S-SPC" . company-complete))
1838 :hook ((java-mode . eclim-mode)
1839 (eclim-mode . (lambda ()
1840 (make-local-variable 'company-idle-delay)
1841 (defvar company-idle-delay)
1842 ;; (setq company-idle-delay 0.7)
1843 (setq company-idle-delay nil))))
1845 (eclim-auto-save nil)
1846 ;; (eclimd-default-workspace "~/src/eclipse-workspace-exp")
1847 (eclim-executable "~/.p2/pool/plugins/org.eclim_2.8.0/bin/eclim")
1848 (eclim-eclipse-dirs '("~/usr/eclipse/dsl-2018-09/eclipse")))
1853 #+begin_src emacs-lisp
1854 (use-package geiser)
1856 (use-feature geiser-guile
1858 (setq geiser-guile-load-path "~/src/git/guix"))
1863 #+begin_src emacs-lisp
1867 * Emacs enhancements
1869 :CUSTOM_ID: emacs-enhancements
1874 #+begin_src emacs-lisp
1876 :config (setq Man-width 80))
1879 ** [[https://github.com/justbur/emacs-which-key][which-key]]
1882 Emacs package that displays available keybindings in popup
1885 #+begin_src emacs-lisp
1886 (use-package which-key
1889 (which-key-add-key-based-replacements
1890 ;; prefixes for global prefixes and minor modes
1894 "C-c 8 -" "typo/dashes"
1895 "C-c 8 <" "typo/left-brackets"
1896 "C-c 8 >" "typo/right-brackets"
1898 "C-x a" "abbrev/expand"
1899 "C-x r" "rectangle/register/bookmark"
1900 "C-x v" "version control"
1901 ;; prefixes for my personal bindings
1902 "C-c a" "applications"
1904 "C-c p" "package-management"
1905 "C-c p e" "package-management/epkg"
1906 "C-c p s" "straight.el"
1909 "C-c c" "compile-and-comments"
1914 "C-c m" "multiple-cursors"
1915 "C-c P" "projectile"
1916 "C-c P s" "projectile/search"
1917 "C-c P x" "projectile/execute"
1918 "C-c P 4" "projectile/other-window"
1924 ;; prefixes for major modes
1925 (which-key-add-major-mode-key-based-replacements 'message-mode
1927 (which-key-add-major-mode-key-based-replacements 'org-mode
1928 "C-c C-v" "org-babel")
1929 (which-key-add-major-mode-key-based-replacements 'web-mode
1930 "C-c C-a" "web/attributes"
1931 "C-c C-b" "web/blocks"
1933 "C-c C-e" "web/element"
1934 "C-c C-t" "web/tags")
1938 (which-key-add-column-padding 5)
1939 (which-key-max-description-length 32))
1944 #+begin_src emacs-lisp
1945 (add-to-list 'custom-theme-load-path "~/.emacs.d/lisp")
1946 (load-theme 'tangomod t)
1951 #+begin_src emacs-lisp
1952 (use-package smart-mode-line
1953 :commands (sml/apply-theme)
1961 #+begin_src emacs-lisp
1962 (use-package doom-themes)
1965 ** theme helper functions
1967 #+begin_src emacs-lisp
1968 (defvar a/org-mode-font-lock-keywords
1969 '(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)"
1970 (1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive
1971 (3 '(:foreground "#81a2be" :background "#292b2b") t) ; kind
1972 (4 '(:foreground "#c5c8c6") t)))) ; title
1974 (defun a/lights-on ()
1975 "Enable my favourite light theme."
1977 (mapc #'disable-theme custom-enabled-themes)
1978 (load-theme 'tangomod t)
1979 (sml/apply-theme 'automatic)
1980 (font-lock-remove-keywords
1981 'org-mode a/org-mode-font-lock-keywords))
1983 (defun a/lights-off ()
1986 (mapc #'disable-theme custom-enabled-themes)
1987 (load-theme 'doom-tomorrow-night t)
1988 (sml/apply-theme 'automatic)
1989 (font-lock-add-keywords
1990 'org-mode a/org-mode-font-lock-keywords t))
1993 ("s-t d" . a/lights-off)
1994 ("s-t l" . a/lights-on))
1997 ** [[https://github.com/bbatsov/crux][crux]]
1999 #+begin_src emacs-lisp
2000 (use-package crux ; results in Waiting for git... [2 times]
2002 :bind (("C-c b k" . crux-kill-other-buffers)
2003 ("C-c d" . crux-duplicate-current-line-or-region)
2004 ("C-c D" . crux-duplicate-and-comment-current-line-or-region)
2005 ("C-c f c" . crux-copy-file-preserve-attributes)
2006 ("C-c f d" . crux-delete-file-and-buffer)
2007 ("C-c f r" . crux-rename-file-and-buffer)
2008 ("C-c j" . crux-top-join-line)
2009 ("C-S-j" . crux-top-join-line)))
2012 ** [[https://github.com/alezost/mwim.el][mwim]]
2014 #+begin_src emacs-lisp
2016 :bind (("C-a" . mwim-beginning-of-code-or-line)
2017 ("C-e" . mwim-end-of-code-or-line)
2018 ("<home>" . mwim-beginning-of-line-or-code)
2019 ("<end>" . mwim-end-of-line-or-code)))
2024 #+begin_src emacs-lisp
2025 (use-package projectile
2026 :bind-keymap ("C-c P" . projectile-command-map)
2030 (defun my-projectile-invalidate-cache (&rest _args)
2031 ;; ignore the args to `magit-checkout'
2032 (projectile-invalidate-cache nil))
2034 (eval-after-load 'magit-branch
2036 (advice-add 'magit-checkout
2037 :after #'my-projectile-invalidate-cache)
2038 (advice-add 'magit-branch-and-checkout
2039 :after #'my-projectile-invalidate-cache)))
2040 :custom (projectile-completion-system 'ivy))
2043 ** [[https://github.com/Wilfred/helpful][helpful]]
2045 #+begin_src emacs-lisp
2046 (use-package helpful
2049 (("C-S-h c" . helpful-command)
2050 ("C-S-h f" . helpful-callable) ; helpful-function
2051 ("C-S-h v" . helpful-variable)
2052 ("C-S-h k" . helpful-key)
2053 ("C-S-h p" . helpful-at-point)))
2056 ** [[https://github.com/EricCrosson/unkillable-scratch][unkillable-scratch]]
2058 Make =*scratch*= and =*Messages*= unkillable.
2060 #+begin_src emacs-lisp
2061 (use-package unkillable-scratch
2064 (unkillable-scratch 1)
2066 (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
2069 ** [[https://github.com/davep/boxquote.el][boxquote.el]]
2073 | make pretty boxed quotes like this
2077 #+begin_src emacs-lisp
2078 (use-package boxquote
2081 (:prefix-map a/boxquote-prefix-map
2083 ("b" . boxquote-buffer)
2084 ("B" . boxquote-insert-buffer)
2085 ("d" . boxquote-defun)
2086 ("F" . boxquote-insert-file)
2087 ("hf" . boxquote-describe-function)
2088 ("hk" . boxquote-describe-key)
2089 ("hv" . boxquote-describe-variable)
2090 ("hw" . boxquote-where-is)
2091 ("k" . boxquote-kill)
2092 ("p" . boxquote-paragraph)
2093 ("q" . boxquote-boxquote)
2094 ("r" . boxquote-region)
2095 ("s" . boxquote-shell-command)
2096 ("t" . boxquote-text)
2097 ("T" . boxquote-title)
2098 ("u" . boxquote-unbox)
2099 ("U" . boxquote-unbox-region)
2100 ("y" . boxquote-yank)
2101 ("M-q" . boxquote-fill-paragraph)
2102 ("M-w" . boxquote-kill-ring-save)))
2105 Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
2109 #+begin_src emacs-lisp
2110 (use-package orgalist
2112 :hook (message-mode . orgalist-mode))
2117 #+begin_src emacs-lisp
2121 (typo-global-mode 1)
2122 :hook (text-mode . typo-mode))
2127 #+begin_src emacs-lisp
2128 (use-package hl-todo
2131 (global-hl-todo-mode))
2136 #+begin_src emacs-lisp
2137 (use-package shrink-path
2141 (defun +eshell/prompt ()
2142 (let ((base/dir (shrink-path-prompt default-directory)))
2143 (concat (propertize (car base/dir)
2144 'face 'font-lock-comment-face)
2145 (propertize (cdr base/dir)
2146 'face 'font-lock-constant-face)
2147 (propertize (+eshell--current-git-branch)
2148 'face 'font-lock-function-name-face)
2151 ;; (propertize "λ" 'face 'eshell-prompt)
2152 ;; needed for the input text to not have prompt face
2153 (propertize "λ " 'face 'default))))
2155 (defun +eshell--current-git-branch ()
2156 (let ((branch (car (loop for match in (split-string (shell-command-to-string "git branch") "\n")
2157 when (string-match "^\*" match)
2159 (if (not (eq branch nil))
2160 (concat " " (substring branch 2))
2162 (setq eshell-prompt-regexp "\\(.*\n\\)*λ "
2163 eshell-prompt-function #'+eshell/prompt))
2166 ** [[https://github.com/peterwvj/eshell-up][eshell-up]]
2168 #+begin_src emacs-lisp
2169 (use-package eshell-up
2171 :commands eshell-up)
2176 #+begin_src emacs-lisp
2177 (use-package multi-term
2179 :bind (("C-c a s m" . multi-term-dedicated-toggle)
2181 ("C-c C-j" . term-char-mode)
2183 ("C-c C-j" . term-line-mode))
2185 (setq multi-term-program "/bin/screen"
2186 ;; TODO: add separate bindings for connecting to existing
2187 ;; session vs. always creating a new one
2188 multi-term-dedicated-select-after-open-p t
2189 multi-term-dedicated-window-height 20
2190 multi-term-dedicated-max-window-height 30
2192 '(("C-c C-c" . term-interrupt-subjob)
2193 ("C-c C-e" . term-send-esc)
2195 ("C-y" . term-paste)
2196 ("M-f" . term-send-forward-word)
2197 ("M-b" . term-send-backward-word)
2198 ("M-p" . term-send-up)
2199 ("M-n" . term-send-down)
2200 ("<C-backspace>" . term-send-backward-kill-word)
2201 ("<M-DEL>" . term-send-backward-kill-word)
2202 ("M-d" . term-send-delete-word)
2203 ("M-," . term-send-raw)
2204 ("M-." . comint-dynamic-complete))
2205 term-unbind-key-alist
2206 '("C-z" "C-x" "C-c" "C-h" "C-y" "<ESC>")))
2211 #+begin_src emacs-lisp
2212 (use-package page-break-lines
2214 (global-page-break-lines-mode))
2219 #+begin_src emacs-lisp
2220 (use-package expand-region
2221 :bind ("C-=" . er/expand-region))
2226 #+begin_src emacs-lisp
2227 (use-package multiple-cursors
2229 (("C-S-<mouse-1>" . mc/add-cursor-on-click)
2230 (:prefix-map a/mc-prefix-map
2232 ("c" . mc/edit-lines)
2233 ("n" . mc/mark-next-like-this)
2234 ("p" . mc/mark-previous-like-this)
2235 ("a" . mc/mark-all-like-this))))
2240 #+begin_src emacs-lisp
2248 #+begin_src emacs-lisp
2249 (use-package yasnippet
2252 (defconst yas-verbosity-cur yas-verbosity)
2253 (setq yas-verbosity 2)
2254 (add-to-list 'yas-snippet-dirs "~/src/git/guix/etc/snippets")
2256 (setq yas-verbosity yas-verbosity-cur)
2258 (text-mode . yas-minor-mode))
2266 #+begin_src emacs-lisp
2267 (defvar a/maildir (expand-file-name "~/mail/"))
2268 (with-eval-after-load 'recentf
2269 (add-to-list 'recentf-exclude a/maildir))
2274 #+begin_src emacs-lisp
2276 a/gnus-init-file (no-littering-expand-etc-file-name "gnus")
2277 mail-user-agent 'gnus-user-agent
2278 read-mail-command 'gnus)
2281 :bind (("s-m" . gnus)
2282 ("s-M" . gnus-unplugged))
2285 gnus-select-method '(nnnil "")
2286 gnus-secondary-select-methods
2288 (nnimap-stream plain)
2289 (nnimap-address "127.0.0.1")
2290 (nnimap-server-port 143)
2291 (nnimap-authenticator plain)
2292 (nnimap-user "amin@bndl.org"))
2294 (nnimap-stream plain)
2295 (nnimap-address "127.0.0.1")
2296 (nnimap-server-port 143)
2297 (nnimap-authenticator plain)
2298 (nnimap-user "abandali@uwaterloo.ca"))
2300 (nnimap-stream plain)
2301 (nnimap-address "127.0.0.1")
2302 (nnimap-server-port 143)
2303 (nnimap-authenticator plain)
2304 (nnimap-user "abandali@csclub.uw")))
2305 gnus-message-archive-group "nnimap+amin:Sent"
2309 gnus-large-newsgroup 50
2310 gnus-home-directory (no-littering-expand-var-file-name "gnus/")
2311 gnus-directory (concat gnus-home-directory "news/")
2312 message-directory (concat gnus-home-directory "mail/")
2313 nndraft-directory (concat gnus-home-directory "drafts/")
2314 gnus-save-newsrc-file nil
2315 gnus-read-newsrc-file nil
2316 gnus-interactive-exit nil
2317 gnus-gcc-mark-as-read t)
2321 (require 'ebdb-gnus))
2323 (use-feature gnus-art
2326 gnus-visible-headers
2327 (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
2328 gnus-sorted-header-list
2329 '("^From:" "^Subject:" "^Summary:" "^Keywords:"
2330 "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator"
2331 "^Newsgroups:" "List-Id:" "^Organization:"
2332 "^User-Agent:" "^Date:")
2333 ;; local-lapsed article dates
2334 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
2335 gnus-article-date-headers '(user-defined)
2336 gnus-article-time-format
2338 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
2339 (local (article-make-date-line date 'local))
2340 (combined-lapsed (article-make-date-line date
2343 (string-match " (.+" combined-lapsed)
2344 (match-string 0 combined-lapsed))))
2345 (concat local lapsed))))
2347 :map gnus-article-mode-map
2348 ("r" . gnus-article-reply-with-original)
2349 ("R" . gnus-article-wide-reply-with-original)
2350 ("M-L" . org-store-link)))
2352 (use-feature gnus-sum
2353 :bind (:map gnus-summary-mode-map
2354 :prefix-map a/gnus-summary-prefix-map
2356 ("r" . gnus-summary-reply)
2357 ("w" . gnus-summary-wide-reply)
2358 ("v" . gnus-summary-show-raw-article))
2361 :map gnus-summary-mode-map
2362 ("r" . gnus-summary-reply-with-original)
2363 ("R" . gnus-summary-wide-reply-with-original)
2364 ("M-L" . org-store-link))
2365 :hook (gnus-summary-mode . a/no-mouse-autoselect-window))
2367 (use-feature gnus-msg
2369 (setq gnus-posting-styles
2371 (address "amin@bndl.org")
2372 (body "\nBest,\namin\n")
2373 (eval (setq a/message-cite-say-hi t)))
2375 (address "bandali@gnu.org")
2376 (eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org")))
2377 ((header "subject" "ThankCRM")
2378 (to "webmasters-comment@gnu.org")
2379 (body "\nAdded to 2019supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
2380 (eval (setq a/message-cite-say-hi nil)))
2381 ("nnimap\\+uwaterloo:.*"
2382 (address "abandali@uwaterloo.ca")
2383 (gcc "\"nnimap+uwaterloo:Sent Items\""))
2384 ("nnimap\\+csclub:.*"
2385 (address "abandali@csclub.uwaterloo.ca")
2386 (gcc "nnimap+csclub:Sent")))))
2388 (use-feature gnus-topic
2389 :hook (gnus-group-mode . gnus-topic-mode))
2391 (use-feature gnus-agent
2393 (setq gnus-agent-synchronize-flags 'ask)
2394 :hook (gnus-group-mode . gnus-agent-mode))
2396 (use-feature gnus-group
2398 (setq gnus-permanently-visible-groups "\\(:INBOX$\\|:gnu$\\)"))
2400 (use-feature mm-decode
2402 (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
2407 #+begin_src emacs-lisp
2408 (use-feature sendmail
2410 (setq sendmail-program "/usr/bin/msmtp"
2411 ;; message-sendmail-extra-arguments '("-v" "-d")
2412 mail-specify-envelope-from t
2413 mail-envelope-from 'header))
2418 #+begin_src emacs-lisp
2419 (use-feature message
2421 (defconst a/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
2422 (defconst message-cite-style-bandali
2423 '((message-cite-function 'message-cite-original)
2424 (message-citation-line-function 'message-insert-formatted-citation-line)
2425 (message-cite-reply-position 'traditional)
2426 (message-yank-prefix "> ")
2427 (message-yank-cited-prefix ">")
2428 (message-yank-empty-prefix ">")
2429 (message-citation-line-format
2430 (if a/message-cite-say-hi
2431 (concat "Hi %F,\n\n" a/message-cite-style-format)
2432 a/message-cite-style-format)))
2433 "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
2434 (setq message-cite-style 'message-cite-style-bandali
2435 message-kill-buffer-on-exit t
2436 message-send-mail-function 'message-send-mail-with-sendmail
2437 message-sendmail-envelope-from 'header
2438 message-dont-reply-to-names
2439 "\\(\\(amin@bndl\\.org\\)\\|\\(.*@\\(aminb\\|amin\\.bndl\\)\\.org\\)\\|\\(\\(bandali\\|aminb?\\|mab\\)@gnu\\.org\\)\\|\\(a\\(min\\.\\)?bandali@uwaterloo\\.ca\\)\\|\\(abandali@csclub\\.uwaterloo\\.ca\\)\\)")
2440 (require 'company-ebdb)
2441 :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
2442 (message-mode . flyspell-mode)
2443 (message-mode . (lambda ()
2444 ;; (setq fill-column 65
2445 ;; message-fill-column 65)
2446 (make-local-variable 'company-idle-delay)
2447 (setq company-idle-delay 0.2))))
2449 ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
2450 ;; (message-header-to ((t (:foreground "#111" :weight normal))))
2451 ;; (message-header-cc ((t (:foreground "#333" :weight normal))))
2454 (with-eval-after-load 'mml-sec
2455 (setq mml-secure-openpgp-encrypt-to-self t
2456 mml-secure-openpgp-sign-with-sender t))
2461 Convenient footnotes in =message-mode=.
2463 #+begin_src emacs-lisp
2464 (use-feature footnote
2467 ;; (setq footnote-start-tag ""
2468 ;; footnote-end-tag ""
2469 ;; footnote-style 'unicode)
2471 (:map message-mode-map
2472 :prefix-map a/footnote-prefix-map
2474 ("a" . footnote-add-footnote)
2475 ("b" . footnote-back-to-message)
2476 ("c" . footnote-cycle-style)
2477 ("d" . footnote-delete-footnote)
2478 ("g" . footnote-goto-footnote)
2479 ("r" . footnote-renumber-footnotes)
2480 ("s" . footnote-set-style)))
2485 #+begin_src emacs-lisp
2487 :straight (:host github :repo "girzel/ebdb")
2489 :bind (:map gnus-group-mode-map ("e" . ebdb))
2491 (setq ebdb-sources (no-littering-expand-var-file-name "ebdb"))
2492 (with-eval-after-load 'swiper
2493 (add-to-list 'swiper-font-lock-exclude 'ebdb-mode t)))
2495 (use-feature ebdb-com
2498 ;; (use-package ebdb-complete
2501 ;; (ebdb-complete-enable))
2503 (use-package company-ebdb
2505 (defun company-ebdb--post-complete (_) nil))
2507 (use-feature ebdb-gnus
2510 (ebdb-gnus-window-configuration
2513 (summary 0.25 point)
2516 (ebdb-gnus 0.3))))))
2518 (use-feature ebdb-mua
2520 ;; :custom (ebdb-mua-pop-up nil)
2523 ;; (use-package ebdb-message
2527 ;; (use-package ebdb-vcard
2533 #+begin_src emacs-lisp
2534 (use-package message-x)
2537 #+begin_src emacs-lisp :tangle no
2538 (use-package message-x
2540 (message-x-completion-alist
2542 (("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:" . gnus-harvest-find-address)
2545 (quote message-newgroups-header-regexp))
2546 message-newgroups-header-regexp message-newsgroups-header-regexp)
2547 . message-expand-group)))))
2550 ** COMMENT gnus-harvest
2552 #+begin_src emacs-lisp
2553 (use-package gnus-harvest
2554 :commands gnus-harvest-install
2557 (if (featurep 'message-x)
2558 (gnus-harvest-install 'message-x)
2559 (gnus-harvest-install)))
2564 :CUSTOM_ID: blogging
2567 ** [[https://ox-hugo.scripter.co][ox-hugo]]
2569 #+begin_src emacs-lisp
2570 (use-package ox-hugo
2575 * Post initialization
2577 :CUSTOM_ID: post-initialization
2580 Display how long it took to load the init file.
2582 #+begin_src emacs-lisp
2583 (message "Loading %s...done (%.3fs)" user-init-file
2584 (float-time (time-subtract (current-time)
2585 a/before-user-init-time)))
2593 #+begin_src emacs-lisp :comments none
2594 ;;; init.el ends here
2597 * COMMENT Local Variables :ARCHIVE:
2599 # eval: (add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local)
2600 # eval: (when (featurep 'typo (typo-mode -1)))