[emacs] update packages
[~bandali/configs] / init.org
CommitLineData
5fece105
AB
1#+title: =aminb='s Literate Emacs Configuration
2#+author: Amin Bandali
3#+babel: :cache yes
4#+property: header-args :tangle yes
5
6* About
7:PROPERTIES:
8:CUSTOM_ID: about
9:END:
10
11This org file is my literate configuration for GNU Emacs, and is
e724cc40
AB
12tangled 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
14configurations of many different people. Some of the configurations
15that I can remember off the top of my head are:
5fece105
AB
16
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
20 packages
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]]
27
28I'd like to have a fully reproducible Emacs setup (part of the reason
29why I store my configuration in this repository) but unfortunately out
30of the box, that's not achievable with =package.el=, not currently
e724cc40
AB
31anyway. So, I've opted to use =straight.el=. I also used Borg for a
32few months, but decided to try =straight.el= which allows direct use
33of the various package archives.
5fece105 34
efcec623
AB
35** Installation
36
37To use this config for your Emacs, first you need to clone this repo,
38then tangle =init.org= into =init.el=, and optionally byte-compile
39=init.el=.
40
41First, clone the repository and =cd= into it:
42
43#+begin_src sh :tangle no
44git clone https://git.sr.ht/~bandali/dotfiles ~/.emacs.d
45cd ~/.emacs.d
46#+end_src
47
48Then, decide if you would like to use a byte-compiled init file, and
49set the following variable accordingly:
50
51#+begin_src emacs-lisp
52(defvar a/byte-compiled-init t
53 "If non-nil, byte-(re)compile init.el on successful tangles.")
54#+end_src
55
56Now, first tangle =init.org=, and only if you chose to have a
57byte-compiled init, build init as well:
58
59#+begin_src sh :tangle no
60make tangle-init
61make build-init
62#+end_src
63
64If you'd like to use a byte-compiled init, it's important that it be
65recompiled whenever =init.el= is generated from an updated =init.org=.
66Not only does my setup automatically and asynchronously tangle
67=init.org= to =init.el= every time you edit and save =init.org= in GNU
68Emacs, it will also invoke =make build-init= if you set
69=a/byte-compiled-init= to =t= above, so you wouldn't have to worry
70about manually tangling and compiling your init file whenever you
1eea0aec
AB
71change it. The output of the last byte-compilation in the current
72session is kept in a =*compilation*= buffer, which will automatically
73be displayed if compilation fails.
efcec623 74
5fece105
AB
75* Contents :toc_1:noexport:
76
77- [[#about][About]]
78- [[#header][Header]]
79- [[#initial-setup][Initial setup]]
80- [[#core][Core]]
673d5faa
AB
81- [[#borg-essentials][Borg's =layer/essentials=]]
82- [[#editing][Editing]]
83- [[#syntax-spell-checking][Syntax and spell checking]]
84- [[#programming-modes][Programming modes]]
85- [[#emacs-enhancements][Emacs enhancements]]
86- [[#email][Email]]
87- [[#blogging][Blogging]]
5fece105
AB
88- [[#post-initialization][Post initialization]]
89- [[#footer][Footer]]
90
91* Header
92:PROPERTIES:
93:CUSTOM_ID: header
94:END:
95
96** First line
97
98#+begin_src emacs-lisp :comments none
f1149591 99;;; init.el --- Amin Bandali's Emacs config -*- lexical-binding: t; eval: (view-mode 1) -*-
5fece105
AB
100#+end_src
101
102Enable =view-mode=, which both makes the file read-only (as a reminder
103that =init.el= is an auto-generated file, not supposed to be edited),
104and provides some convenient key bindings for browsing through the
105file.
106
107** License
108
109#+begin_src emacs-lisp :comments none
cd277699 110;; Copyright (C) 2018-2019 Amin Bandali <bandali@gnu.org>
5fece105
AB
111
112;; This program is free software: you can redistribute it and/or modify
113;; it under the terms of the GNU General Public License as published by
114;; the Free Software Foundation, either version 3 of the License, or
115;; (at your option) any later version.
116
117;; This program is distributed in the hope that it will be useful,
118;; but WITHOUT ANY WARRANTY; without even the implied warranty of
119;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
120;; GNU General Public License for more details.
121
122;; You should have received a copy of the GNU General Public License
123;; along with this program. If not, see <https://www.gnu.org/licenses/>.
124#+end_src
125
126** Commentary
127
128#+begin_src emacs-lisp :comments none
129;;; Commentary:
130
c5d8bb25
AB
131;; Emacs configuration of Amin Bandali, computer scientist, functional
132;; programmer, and free software advocate.
5fece105
AB
133
134;; THIS FILE IS AUTO-GENERATED FROM `init.org'.
135#+end_src
136
5fece105
AB
137* Initial setup
138:PROPERTIES:
139:CUSTOM_ID: initial-setup
140:END:
141
5fece105
AB
142** Emacs initialization
143
144I'd like to do a couple of measurements of Emacs' startup time. First,
145let's see how long Emacs takes to start up, before even loading
146=init.el=, i.e. =user-init-file=:
147
148#+begin_src emacs-lisp
c5d8bb25 149(defvar a/before-user-init-time (current-time)
5fece105
AB
150 "Value of `current-time' when Emacs begins loading `user-init-file'.")
151(message "Loading Emacs...done (%.3fs)"
c5d8bb25 152 (float-time (time-subtract a/before-user-init-time
5fece105
AB
153 before-init-time)))
154#+end_src
155
156Also, temporarily increase ~gc-cons-threshhold~ and
157~gc-cons-percentage~ during startup to reduce garbage collection
158frequency. Clearing the ~file-name-handler-alist~ seems to help reduce
159startup time as well.
160
161#+begin_src emacs-lisp
c5d8bb25
AB
162(defvar a/gc-cons-threshold gc-cons-threshold)
163(defvar a/gc-cons-percentage gc-cons-percentage)
164(defvar a/file-name-handler-alist file-name-handler-alist)
5fece105
AB
165(setq gc-cons-threshold (* 400 1024 1024) ; 400 MiB
166 gc-cons-percentage 0.6
167 file-name-handler-alist nil
168 ;; sidesteps a bug when profiling with esup
169 esup-child-profile-require-level 0)
170#+end_src
171
172Of course, we'd like to set them back to their defaults once we're
173done initializing.
174
175#+begin_src emacs-lisp
176(add-hook
177 'after-init-hook
178 (lambda ()
c5d8bb25
AB
179 (setq gc-cons-threshold a/gc-cons-threshold
180 gc-cons-percentage a/gc-cons-percentage
181 file-name-handler-alist a/file-name-handler-alist)))
5fece105
AB
182#+end_src
183
184Increase the number of lines kept in message logs (the =*Messages*=
185buffer).
186
187#+begin_src emacs-lisp
188(setq message-log-max 20000)
189#+end_src
190
191Optionally, we could suppress some byte compiler warnings like below,
192but for now I've decided to keep them enabled. See documentation for
193~byte-compile-warnings~ for more details.
194
195#+begin_src emacs-lisp
196;; (setq byte-compile-warnings
197;; '(not free-vars unresolved noruntime lexical make-local))
198#+end_src
199
200** whoami
201
202#+begin_src emacs-lisp
203(setq user-full-name "Amin Bandali"
204 user-mail-address "amin@aminb.org")
205#+end_src
206
207** Package management
208
209*** No =package.el=
210
12652893
AB
211I can do all my package management things with =straight.el=, and
212don't need Emacs' built-in =package.el=. Emacs 27 lets us disable
213=package.el= in the =early-init-file= (see [[https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=24acb31c04b4048b85311d794e600ecd7ce60d3b][here]]).
5fece105
AB
214
215#+begin_src emacs-lisp :tangle early-init.el
216(setq package-enable-at-startup nil)
217#+end_src
218
219But since Emacs 27 isn't out yet (Emacs 26 is just around the corner
220right now), and even when released it'll be long before most distros
221ship in their repos, I'll still put the old workaround with the
222commented call to ~package-initialize~ here anyway.
223
12652893 224#+begin_src emacs-lisp :tangle no
5fece105
AB
225(setq package-enable-at-startup nil)
226;; (package-initialize)
227#+end_src
228
12652893
AB
229Update: the above is not necessary, since =straight.el= automatically
230does that (and more). See =straight-package-neutering-mode=.
231
232*** =straight.el=
5fece105
AB
233
234#+begin_quote
74c5f353
AB
235Next-generation, purely functional package manager for the Emacs
236hacker.
5fece105
AB
237#+end_quote
238
74c5f353 239=straight.el= allows me to have a fully reproducible Emacs setup.
5fece105
AB
240
241#+begin_src emacs-lisp
6ce4ebba 242;; Main engine start...
c145ffd9 243
eb7e51cf
AB
244(setq straight-repository-branch "develop"
245 straight-check-for-modifications '(check-on-save find-when-checking))
12652893 246
c145ffd9
AB
247(defun a/bootstrap-straight ()
248 (defvar bootstrap-version)
249 (let ((bootstrap-file
250 (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
251 (bootstrap-version 5))
252 (unless (file-exists-p bootstrap-file)
253 (with-current-buffer
254 (url-retrieve-synchronously
255 "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
256 'silent 'inhibit-cookies)
257 (goto-char (point-max))
258 (eval-print-last-sexp)))
259 (load bootstrap-file nil 'nomessage)))
260
6ce4ebba 261;; Solid rocket booster ignition...
c145ffd9
AB
262
263(defun a/build-init ()
264 (a/bootstrap-straight)
265 (byte-compile-file "init.el"))
266
267(a/bootstrap-straight)
268
6ce4ebba 269;; We have lift off!
5fece105 270
12652893
AB
271(setq straight-use-package-by-default t)
272#+end_src
273
74c5f353
AB
274Since we enable =straight.el='s =straight-use-package-by-default=
275integration, we will define a =use-feature= for plain ole
276=use-package= without any of the =straight.el= stuff.
5fece105 277
74c5f353
AB
278#+begin_src emacs-lisp
279(defmacro use-feature (name &rest args)
280 "Like `use-package', but with `straight-use-package-by-default' disabled."
281 (declare (indent defun))
282 `(use-package ,name
283 :straight nil
e724cc40 284 ,@args))
5fece105
AB
285#+end_src
286
287*** =use-package=
288
289#+begin_quote
290A use-package declaration for simplifying your .emacs
291#+end_quote
292
293[[https://github.com/jwiegley/use-package][use-package]] is an awesome utility for managing and configuring
294packages (in our case especially the latter) in a neatly organized way
295and without compromising on performance.
296
297#+begin_src emacs-lisp
12652893 298(straight-use-package 'use-package)
4bd5061c
AB
299(if nil ; set to t when need to debug init
300 (progn
301 (setq use-package-verbose t
302 use-package-expand-minimally nil
303 use-package-compute-statistics t
304 debug-on-error t)
305 (require 'use-package))
5fece105
AB
306 (setq use-package-verbose nil
307 use-package-expand-minimally t))
6ce4ebba
AB
308
309(setq use-package-always-defer t)
5fece105
AB
310#+end_src
311
312*** Epkg
313
314#+begin_quote
315Browse the Emacsmirror package database
316#+end_quote
317
318Epkg provides access to a local copy of the [[https://emacsmirror.net][Emacsmirror]] package
319database, low-level functions for querying the database, and a
320=package.el=-like user interface for browsing the available packages.
321
322#+begin_src emacs-lisp
e724cc40 323(require 'bind-key)
5fece105 324(use-package epkg
e724cc40 325 :commands (epkg-list-packages epkg-describe-package)
5fece105 326 :bind
d92bd2a8
AB
327 (("C-c p e d" . epkg-describe-package)
328 ("C-c p e p" . epkg-list-packages))
d568ebac 329 :config
e724cc40 330 (setq epkg-repository "~/.emacs.d/straight/repos/epkgs/")
2b34d6dd 331 (eval-when-compile (defvar ivy-initial-inputs-alist))
d568ebac
AB
332 (with-eval-after-load 'ivy
333 (add-to-list
334 'ivy-initial-inputs-alist '(epkg-describe-package . "^") t)))
5fece105
AB
335#+end_src
336
337** No littering in =~/.emacs.d=
338
339#+begin_quote
340Help keeping ~/.emacs.d clean
341#+end_quote
342
343By default, even for Emacs' built-in packages, the configuration files
344and persistent data are all over the place. Use =no-littering= to help
345contain the mess.
346
347#+begin_src emacs-lisp
348(use-package no-littering
349 :demand t
350 :config
351 (savehist-mode 1)
352 (add-to-list 'savehist-additional-variables 'kill-ring)
353 (save-place-mode 1)
354 (setq auto-save-file-name-transforms
355 `((".*" ,(no-littering-expand-var-file-name "auto-save/") t))))
356#+end_src
357
358** Custom file (=custom.el=)
359
360I'm not planning on using the custom file much, but even so, I
361definitely don't want it mixing with =init.el=. So, here; let's give
362it it's own file. While at it, treat themes as safe.
363
364#+begin_src emacs-lisp
74c5f353 365(use-feature custom
5fece105
AB
366 :no-require t
367 :config
368 (setq custom-file (no-littering-expand-etc-file-name "custom.el"))
369 (when (file-exists-p custom-file)
370 (load custom-file))
371 (setf custom-safe-themes t))
372#+end_src
373
374** Secrets file
375
376Load the secrets file if it exists, otherwise show a warning.
377
378#+begin_src emacs-lisp
379(with-demoted-errors
380 (load (no-littering-expand-etc-file-name "secrets")))
381#+end_src
382
383** Better =$PATH= handling
384
385Let's use [[https://github.com/purcell/exec-path-from-shell][exec-path-from-shell]] to make Emacs use the =$PATH= as set up
386in my shell.
387
388#+begin_src emacs-lisp
389(use-package exec-path-from-shell
390 :defer 1
391 :init
d31ff102
AB
392 (setq exec-path-from-shell-arguments nil
393 exec-path-from-shell-check-startup-files nil)
5fece105
AB
394 :config
395 (exec-path-from-shell-initialize)
396 ;; while we're at it, let's fix access to our running ssh-agent
397 (exec-path-from-shell-copy-env "SSH_AGENT_PID")
398 (exec-path-from-shell-copy-env "SSH_AUTH_SOCK"))
399#+end_src
400
21ad71fa 401** COMMENT Only one custom theme at a time
5fece105
AB
402
403#+begin_src emacs-lisp
21ad71fa
AB
404(defadvice load-theme (before clear-previous-themes activate)
405 "Clear existing theme settings instead of layering them"
406 (mapc #'disable-theme custom-enabled-themes))
5fece105
AB
407#+end_src
408
409** Server
410
411Start server if not already running. Alternatively, can be done by
412issuing =emacs --daemon= in the terminal, which can be automated with
413a systemd service or using =brew services start emacs= on macOS. I use
414Emacs as my window manager (via EXWM), so I always start Emacs on
415login; so starting the server from inside Emacs is good enough for me.
416
417See [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html#Emacs-Server][Using Emacs as a Server]].
418
419#+begin_src emacs-lisp
74c5f353 420(use-feature server
5fece105
AB
421 :defer 1
422 :config (or (server-running-p) (server-mode)))
423#+end_src
424
21ad71fa 425** COMMENT Unicode support
5fece105
AB
426
427Font stack with better unicode support, around =Ubuntu Mono= and
428=Hack=.
429
430#+begin_src emacs-lisp
21ad71fa
AB
431(dolist (ft (fontset-list))
432 (set-fontset-font
433 ft
434 'unicode
435 (font-spec :name "Source Code Pro" :size 14))
436 (set-fontset-font
437 ft
438 'unicode
439 (font-spec :name "DejaVu Sans Mono")
440 nil
441 'append)
442 ;; (set-fontset-font
443 ;; ft
444 ;; 'unicode
445 ;; (font-spec
446 ;; :name "Symbola monospacified for DejaVu Sans Mono")
447 ;; nil
448 ;; 'append)
449 ;; (set-fontset-font
450 ;; ft
451 ;; #x2115 ; ℕ
452 ;; (font-spec :name "DejaVu Sans Mono")
453 ;; nil
454 ;; 'append)
455 (set-fontset-font
456 ft
457 (cons ?Α ?ω)
458 (font-spec :name "DejaVu Sans Mono" :size 14)
459 nil
460 'prepend))
5fece105
AB
461#+end_src
462
463** Gentler font resizing
464
465#+begin_src emacs-lisp
466(setq text-scale-mode-step 1.05)
467#+end_src
468
469** Focus follows mouse
470
471I’d like focus to follow the mouse when I move the cursor from one
472window to the next.
473
474#+begin_src emacs-lisp
475(setq mouse-autoselect-window t)
476#+end_src
477
478Let’s define a function to conveniently disable this for certain
479buffers and/or modes.
480
481#+begin_src emacs-lisp
c5d8bb25 482(defun a/no-mouse-autoselect-window ()
5fece105
AB
483 (make-local-variable 'mouse-autoselect-window)
484 (setq mouse-autoselect-window nil))
485#+end_src
486
84f3ad81
AB
487** Better scrolling (arguably)
488
489#+begin_src emacs-lisp
490(setq ;; scroll-margin 1
491 ;; scroll-conservatively 10000
492 scroll-step 1
493 scroll-conservatively 10
494 scroll-preserve-screen-position 1)
495
496(use-feature mwheel
497 :defer 1
498 :config
499 (setq mouse-wheel-scroll-amount '(1 ((shift) . 1)) ; one line at a time
500 mouse-wheel-progressive-speed nil ; don't accelerate scrolling
501 mouse-wheel-follow-mouse t)) ; scroll window under mouse
502
503(use-feature pixel-scroll
504 :defer 1
505 :config (pixel-scroll-mode 1))
506#+end_src
507
9b6b39c0
AB
508** Ask for GPG passphrase in minibuffer
509
510#+begin_src emacs-lisp
511(setq epg-pinentry-mode 'loopback)
512#+end_src
513
5fece105
AB
514** Libraries
515
516#+begin_src emacs-lisp
517(require 'cl-lib)
518(require 'subr-x)
519#+end_src
520
521** Useful utilities
522
5fece105
AB
523Convenience macro for =setq='ing multiple variables to the same value:
524
525#+begin_src emacs-lisp
c5d8bb25 526(defmacro a/setq-every (value &rest vars)
5fece105
AB
527 "Set all the variables from VARS to value VALUE."
528 (declare (indent defun) (debug t))
529 `(progn ,@(mapcar (lambda (x) (list 'setq x value)) vars)))
530#+end_src
531
cb0c13d0
AB
532The following process-related stuff from [[https://github.com/alezost/emacs-config][alezost's emacs-config]].
533
534#+begin_src emacs-lisp
535(defun a/start-process (program &rest args)
536 "Same as `start-process', but doesn't bother about name and buffer."
537 (let ((process-name (concat program "_process"))
538 (buffer-name (generate-new-buffer-name
539 (concat program "_output"))))
540 (apply #'start-process
541 process-name buffer-name program args)))
542
543(defun a/dired-start-process (program &optional args)
544 "Open current file with a PROGRAM."
545 ;; Shell command looks like this: "program [ARGS]... FILE" (ARGS can
546 ;; be nil, so remove it).
547 (apply #'a/start-process
548 program
549 (remove nil (list args (dired-get-file-for-visit)))))
550#+end_src
551
5fece105
AB
552* Core
553:PROPERTIES:
554:CUSTOM_ID: core
555:END:
556
5fece105
AB
557** Defaults
558
559*** Time and battery in mode-line
560
561Enable displaying time and battery in the mode-line, since I'm not
562using the Xfce panel anymore. Also, I don't need to see the load
563average on a regular basis, so disable that.
564
565Note: using =i3status= on sway at the moment, so disabling this.
566
567#+begin_src emacs-lisp :tangle no
568(use-package time
569 :init
570 (setq display-time-default-load-average nil)
571 :config
572 (display-time-mode))
573
574(use-package battery
575 :config
576 (display-battery-mode))
577#+end_src
578
579*** Smaller fringe
580
581Might want to set the fringe to a smaller value, especially if using
582EXWM. I'm fine with the default for now.
583
584#+begin_src emacs-lisp
585;; (fringe-mode '(3 . 1))
586(fringe-mode nil)
587#+end_src
588
589*** Disable disabled commands
590
591Emacs disables some commands by default that could persumably be
592confusing for novice users. Let's disable that.
593
594#+begin_src emacs-lisp
595(setq disabled-command-function nil)
596#+end_src
597
598*** Kill-ring
599
600Save what I copy into clipboard from other applications into Emacs'
601kill-ring, which would allow me to still be able to easily access it
602in case I kill (cut or copy) something else inside Emacs before
603yanking (pasting) what I'd originally intended to.
604
605#+begin_src emacs-lisp
606(setq save-interprogram-paste-before-kill t)
607#+end_src
608
609*** Minibuffer
610
611#+begin_src emacs-lisp
612(setq enable-recursive-minibuffers t
613 resize-mini-windows t)
614#+end_src
615
616*** Lazy-person-friendly yes/no prompts
617
618Lazy people would prefer to type fewer keystrokes, especially for yes
619or no questions. I'm lazy.
620
621#+begin_src emacs-lisp
622(defalias 'yes-or-no-p #'y-or-n-p)
623#+end_src
624
625*** Startup screen and =*scratch*=
626
627Firstly, let Emacs know that I'd like to have =*scratch*= as my
628startup buffer.
629
630#+begin_src emacs-lisp
631(setq initial-buffer-choice t)
632#+end_src
633
634Now let's customize the =*scratch*= buffer a bit. First off, I don't
635need the default hint.
636
637#+begin_src emacs-lisp
638(setq initial-scratch-message nil)
639#+end_src
640
641Also, let's use Text mode as the major mode, in case I want to
642customize it (=*scratch*='s default major mode, Fundamental mode,
643can't really be customized).
644
645#+begin_src emacs-lisp
646(setq initial-major-mode 'text-mode)
647#+end_src
648
649Inhibit the buffer list when more than 2 files are loaded.
650
651#+begin_src emacs-lisp
652(setq inhibit-startup-buffer-menu t)
653#+end_src
654
655I don't really need to see the startup screen or echo area message
656either.
657
658#+begin_src emacs-lisp
659(advice-add #'display-startup-echo-area-message :override #'ignore)
660(setq inhibit-startup-screen t
661 inhibit-startup-echo-area-message user-login-name)
662#+end_src
663
664*** More useful frame titles
665
666Show either the file name or the buffer name (in case the buffer isn't
667visiting a file). Borrowed from Emacs Prelude.
668
669#+begin_src emacs-lisp
670(setq frame-title-format
671 '("" invocation-name " - "
672 (:eval (if (buffer-file-name)
673 (abbreviate-file-name (buffer-file-name))
674 "%b"))))
675#+end_src
676
677*** Backups
678
679Emacs' default backup settings aren't that great. Let's use more
680sensible options. See documentation for the ~make-backup-file~
681variable.
682
683#+begin_src emacs-lisp
684(setq backup-by-copying t
685 version-control t
686 delete-old-versions t)
687#+end_src
688
689*** Auto revert
690
691Enable automatic reloading of changed buffers and files.
692
693#+begin_src emacs-lisp
694(global-auto-revert-mode 1)
695(setq auto-revert-verbose nil
696 global-auto-revert-non-file-buffers nil)
697#+end_src
698
699*** Always use space for indentation
700
701#+begin_src emacs-lisp
702(setq-default
703 indent-tabs-mode nil
704 require-final-newline t
705 tab-width 4)
706#+end_src
707
708*** Winner mode
709
710Enable =winner-mode=.
711
712#+begin_src emacs-lisp
713(winner-mode 1)
714#+end_src
715
f79ed7c6
AB
716*** Don’t display =*compilation*= on success
717
718Based on https://stackoverflow.com/a/17788551, with changes to use
719=cl-letf= instead of the now obsolete =flet=.
c44ace12
AB
720
721#+begin_src emacs-lisp
f1516d51 722(with-eval-after-load 'compile
c5d8bb25 723 (defun a/compilation-finish-function (buffer outstr)
5e07a091
AB
724 (unless (string-match "finished" outstr)
725 (switch-to-buffer-other-window buffer))
726 t)
f79ed7c6 727
c5d8bb25 728 (setq compilation-finish-functions #'a/compilation-finish-function)
f79ed7c6 729
5e07a091 730 (require 'cl-macs)
f79ed7c6 731
5e07a091
AB
732 (defadvice compilation-start
733 (around inhibit-display
734 (command &optional mode name-function highlight-regexp))
735 (if (not (string-match "^\\(find\\|grep\\)" command))
0571b240 736 (cl-letf (((symbol-function 'display-buffer) #'ignore))
5e07a091
AB
737 (save-window-excursion ad-do-it))
738 ad-do-it))
739 (ad-activate 'compilation-start))
5fece105
AB
740#+end_src
741
742*** Search for non-ASCII characters
743
744I’d like non-ASCII characters such as ‘’“”«»‹›áⓐ𝒶 to be selected when
745I search for their ASCII counterpart. Shoutout to [[http://endlessparentheses.com/new-in-emacs-25-1-easily-search-non-ascii-characters.html][endlessparentheses]]
746for this.
747
748#+begin_src emacs-lisp
749(setq search-default-mode #'char-fold-to-regexp)
750
751;; uncomment to extend this behaviour to query-replace
752;; (setq replace-char-fold t)
753#+end_src
754
96b3e55d
AB
755*** Cursor shape
756
757#+begin_src emacs-lisp
758(setq-default cursor-type 'bar)
759#+end_src
760
6ce4ebba
AB
761*** Allow scrolling in Isearch
762
763#+begin_src emacs-lisp
764(setq isearch-allow-scroll t)
765#+end_src
766
5fece105
AB
767** Bindings
768
d92bd2a8
AB
769Some bindings for functions from built-in GNU Emacs packages:
770
5fece105
AB
771#+begin_src emacs-lisp
772(bind-keys
773 ("C-c a i" . ielm)
774
775 ("C-c e b" . eval-buffer)
776 ("C-c e r" . eval-region)
777
99eccce4
AB
778 ("C-c e i" . emacs-init-time)
779 ("C-c e u" . emacs-uptime)
780
5fece105
AB
781 ("C-c F m" . make-frame-command)
782 ("C-c F d" . delete-frame)
783 ("C-c F D" . delete-other-frames)
784
785 ("C-c o" . other-window)
786
5fece105
AB
787 ("C-S-h C" . describe-char)
788 ("C-S-h F" . describe-face)
789
2c0e34c3
AB
790 ("C-x k" . kill-this-buffer)
791 ("C-x K" . kill-buffer)
5fece105
AB
792
793 ("s-p" . beginning-of-buffer)
794 ("s-n" . end-of-buffer))
795#+end_src
796
d92bd2a8
AB
797While at it, let's bind a few for some =straight-*= functions too:
798
799#+begin_src emacs-lisp
800(bind-keys
801 :prefix-map a/straight-prefix-map
802 :prefix "C-c p s"
803 ("u" . straight-use-package)
804 ("f" . straight-freeze-versions)
805 ("t" . straight-thaw-versions)
806 ("P" . straight-prune-build)
807 ("r" . straight-get-recipe)
808 ;; M-x ^straight-.*-all$
809 ("a c" . straight-check-all)
810 ("a f" . straight-fetch-all)
811 ("a m" . straight-merge-all)
812 ("a n" . straight-normalize-all)
813 ("a F" . straight-pull-all)
814 ("a P" . straight-push-all)
815 ("a r" . straight-rebuild-all)
816 ;; M-x ^straight-.*-package$
817 ("p c" . straight-check-package)
818 ("p f" . straight-fetch-package)
819 ("p m" . straight-merge-package)
820 ("p n" . straight-normalize-package)
821 ("p F" . straight-pull-package)
822 ("p P" . straight-push-package)
823 ("p r" . straight-rebuild-package))
824#+end_src
825
5fece105
AB
826** Packages
827
828The packages in this section are absolutely essential to my everyday
829workflow, and they play key roles in how I do my computing. They
830immensely enhance the Emacs experience for me; both using Emacs, and
831customizing it.
832
833*** [[https://github.com/emacscollective/auto-compile][auto-compile]]
834
835#+begin_src emacs-lisp
836(use-package auto-compile
837 :demand t
838 :config
839 (auto-compile-on-load-mode)
840 (auto-compile-on-save-mode)
841 (setq auto-compile-display-buffer nil
842 auto-compile-mode-line-counter t
843 auto-compile-source-recreate-deletes-dest t
844 auto-compile-toggle-deletes-nonlib-dest t
845 auto-compile-update-autoloads t)
846 (add-hook 'auto-compile-inhibit-compile-hook
847 'auto-compile-inhibit-compile-detached-git-head))
848#+end_src
849
6ce4ebba 850*** [[https://orgmode.org/][Org]]
5fece105
AB
851
852#+begin_quote
853Org mode is for keeping notes, maintaining TODO lists, planning
854projects, and authoring documents with a fast and effective plain-text
855system.
856#+end_quote
857
858In short, my favourite way of life.
859
f59c2780
AB
860First, we have to resort to a [[https://github.com/raxod502/straight.el#installing-org-with-straightel][hack]] to be able to use the correct
861latest version of Org from upstream.
12652893 862
5fece105 863#+begin_src emacs-lisp
12652893
AB
864 (use-package git)
865
866 (defun org-git-version ()
867 "The Git version of org-mode.
868 Inserted by installing org-mode or when a release is made."
869 (require 'git)
870 (let ((git-repo (expand-file-name
871 "straight/repos/org/" user-emacs-directory)))
872 (string-trim
873 (git-run "describe"
874 "--match=release\*"
875 "--abbrev=6"
876 "HEAD"))))
877
878 (defun org-release ()
879 "The release version of org-mode.
880 Inserted by installing org-mode or when a release is made."
881 (require 'git)
882 (let ((git-repo (expand-file-name
883 "straight/repos/org/" user-emacs-directory)))
884 (string-trim
885 (string-remove-prefix
886 "release_"
887 (git-run "describe"
888 "--match=release\*"
889 "--abbrev=0"
890 "HEAD")))))
891
f59c2780 892(provide 'org-version)
12652893
AB
893#+end_src
894
2ec331fc
AB
895We will use the =org-plus-contrib= package to get the whole deal:
896
897#+begin_src emacs-lisp
898(straight-use-package 'org-plus-contrib)
899#+end_src
900
f59c2780 901And here's where my actual Org configurations begin:
5fece105
AB
902
903#+begin_src emacs-lisp
74c5f353 904(use-feature org
c4056581 905 :defer 2
5fece105
AB
906 :config
907 (setq org-src-tab-acts-natively t
908 org-src-preserve-indentation nil
909 org-edit-src-content-indentation 0
910 org-email-link-description-format "Email %c: %s" ; %.30s
911 org-highlight-latex-and-related '(entities)
815c338b
AB
912 org-use-speed-commands t
913 org-startup-folded 'content
914 org-catch-invisible-edits 'show-and-error
5fece105
AB
915 org-log-done 'time)
916 (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
5fece105
AB
917 :bind (:map org-mode-map ("M-L" . org-insert-last-stored-link))
918 :hook ((org-mode . org-indent-mode)
919 (org-mode . auto-fill-mode)
920 (org-mode . flyspell-mode))
921 :custom
922 (org-latex-packages-alist '(("" "listings") ("" "color")))
923 :custom-face
924 '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21"))))
925 '(org-block ((t (:background "#1d1f21"))))
926 '(org-latex-and-related ((t (:foreground "#b294bb")))))
927
74c5f353 928(use-feature ox-latex
5fece105
AB
929 :after ox
930 :config
931 (setq org-latex-listings 'listings
932 ;; org-latex-prefer-user-labels t
933 )
5fece105
AB
934 (add-to-list 'org-latex-classes
935 '("IEEEtran" "\\documentclass[11pt]{IEEEtran}"
6ce4ebba
AB
936 ("\\section{%s}" . "\\section*{%s}")
937 ("\\subsection{%s}" . "\\subsection*{%s}")
5fece105 938 ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
6ce4ebba
AB
939 ("\\paragraph{%s}" . "\\paragraph*{%s}")
940 ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
dfd86f53
AB
941 t)
942 (require 'ox-beamer))
5fece105
AB
943#+end_src
944
945**** asynchronous tangle
946
c5d8bb25 947=a/async-babel-tangle= is a function closely inspired by [[https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles][dieggsy's
5fece105
AB
948d/async-babel-tangle]] which uses [[https://github.com/jwiegley/emacs-async][async]] to asynchronously tangle an org
949file.
950
951#+begin_src emacs-lisp
ab6781dd 952(with-eval-after-load 'org
c5d8bb25 953 (defvar a/show-async-tangle-results nil
5fece105
AB
954 "Keep *emacs* async buffers around for later inspection.")
955
c5d8bb25 956 (defvar a/show-async-tangle-time nil
5fece105
AB
957 "Show the time spent tangling the file.")
958
efcec623
AB
959 (defvar a/async-tangle-post-compile
960 (when a/byte-compiled-init "make build-init")
5fece105
AB
961 "If non-nil, pass to `compile' after successful tangle.")
962
efcec623
AB
963 ;; TODO: look into why directly byte-compiling init.el causes a
964 ;; number of problems, including magit-status not loading (busy
965 ;; waiting).
6ce4ebba
AB
966 (defvar a/async-tangle-byte-recompile nil
967 "If non-nil, byte-recompile the file on successful tangle.")
968
c5d8bb25 969 (defun a/async-babel-tangle ()
5fece105
AB
970 "Tangle org file asynchronously."
971 (interactive)
972 (let* ((file-tangle-start-time (current-time))
973 (file (buffer-file-name))
974 (file-nodir (file-name-nondirectory file))
0571b240 975 ;; (async-quiet-switch "-q")
6ce4ebba 976 (file-noext (file-name-sans-extension file)))
5fece105
AB
977 (async-start
978 `(lambda ()
979 (require 'org)
980 (org-babel-tangle-file ,file))
c5d8bb25 981 (unless a/show-async-tangle-results
5fece105
AB
982 `(lambda (result)
983 (if result
984 (progn
6ce4ebba 985 ;; (setq byte-compile-warnings '(not noruntime unresolved))
5fece105
AB
986 (message "Tangled %s%s"
987 ,file-nodir
c5d8bb25 988 (if a/show-async-tangle-time
5fece105
AB
989 (format " (%.3fs)"
990 (float-time (time-subtract (current-time)
991 ',file-tangle-start-time)))
992 ""))
c5d8bb25 993 (when a/async-tangle-post-compile
6ce4ebba
AB
994 (compile a/async-tangle-post-compile))
995 (when a/async-tangle-byte-recompile
996 (byte-recompile-file (concat ,file-noext ".el"))))
5fece105
AB
997 (message "Tangling %s failed" ,file-nodir))))))))
998
999(add-to-list
1000 'safe-local-variable-values
c5d8bb25 1001 '(eval add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local))
5fece105
AB
1002#+end_src
1003
1004*** [[https://magit.vc/][Magit]]
1005
1006#+begin_quote
1007It's Magit! A Git porcelain inside Emacs.
1008#+end_quote
1009
1010Not just how I do git, but /the/ way to do git.
1011
1012#+begin_src emacs-lisp
1013(use-package magit
c4056581 1014 :defer 2
5fece105
AB
1015 :bind (("C-x g" . magit-status)
1016 ("s-g s" . magit-status)
1017 ("s-g l" . magit-log-buffer-file))
1018 :config
1019 (magit-add-section-hook 'magit-status-sections-hook
1020 'magit-insert-modules
1021 'magit-insert-stashes
1022 'append)
1023 (setq
1024 magit-repository-directories '(("~/.emacs.d/" . 0)
1025 ("~/src/git/" . 1)))
1026 (nconc magit-section-initial-visibility-alist
1027 '(([unpulled status] . show)
1028 ([unpushed status] . show)))
1029 :custom-face (magit-diff-file-heading ((t (:weight normal)))))
1030#+end_src
1031
6ce4ebba
AB
1032*** recentf
1033
1034Recently opened files.
1035
1036#+begin_src emacs-lisp
d2cb5b82 1037(use-feature recentf
6ce4ebba
AB
1038 :defer 0.5
1039 :config
1040 (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
1041 (setq recentf-max-saved-items 40))
1042#+end_src
1043
1044*** smex
1045
1046#+begin_quote
1047A smart M-x enhancement for Emacs.
1048#+end_quote
1049
1050Mostly because =counsel= needs it to remember history.
1051
1052#+begin_src emacs-lisp
1053(use-package smex)
1054#+end_src
1055
5fece105
AB
1056*** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
1057
1058#+begin_quote
1059Ivy - a generic completion frontend for Emacs, Swiper - isearch with
1060an overview, and more. Oh, man!
1061#+end_quote
1062
1063There's no way I could top that, so I won't attempt to.
1064
1065**** Ivy
1066
1067#+begin_src emacs-lisp
1068(use-package ivy
69b24a1e 1069 :defer 0.6
5fece105
AB
1070 :bind
1071 (:map ivy-minibuffer-map
1072 ([escape] . keyboard-escape-quit)
1073 ([S-up] . ivy-previous-history-element)
1074 ([S-down] . ivy-next-history-element)
1075 ("DEL" . ivy-backward-delete-char))
1076 :config
1077 (setq ivy-wrap t)
1078 (ivy-mode 1)
1079 ;; :custom-face
1080 ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
1081 ;; (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
1082 ;; (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold))))
1083)
1084#+end_src
1085
1086**** Swiper
1087
1088#+begin_src emacs-lisp
1089(use-package swiper
6ce4ebba 1090 :after ivy
f2a57944
AB
1091 :bind (("C-s" . swiper)
1092 ("C-r" . swiper)
1093 ("C-S-s" . isearch-forward)))
5fece105
AB
1094#+end_src
1095
1096**** Counsel
1097
1098#+begin_src emacs-lisp
1099(use-package counsel
6ce4ebba 1100 :after ivy
5fece105
AB
1101 :bind (([remap execute-extended-command] . counsel-M-x)
1102 ([remap find-file] . counsel-find-file)
1103 ("s-r" . counsel-recentf)
1104 ("C-c x" . counsel-M-x)
1105 ("C-c f ." . counsel-find-file)
1106 :map minibuffer-local-map
1107 ("C-r" . counsel-minibuffer-history))
1108 :config
1109 (counsel-mode 1)
1110 (defalias 'locate #'counsel-locate))
1111#+end_src
1112
1113*** eshell
1114
1115#+begin_src emacs-lisp
69b24a1e 1116(use-feature eshell
c4056581 1117 :defer 2
5fece105 1118 :commands eshell
23cd3185 1119 :bind ("C-c a s e" . eshell)
5fece105
AB
1120 :config
1121 (eval-when-compile (defvar eshell-prompt-regexp))
c5d8bb25 1122 (defun a/eshell-quit-or-delete-char (arg)
5fece105
AB
1123 (interactive "p")
1124 (if (and (eolp) (looking-back eshell-prompt-regexp nil))
1125 (eshell-life-is-too-much)
1126 (delete-char arg)))
1127
c5d8bb25 1128 (defun a/eshell-clear ()
5fece105
AB
1129 (interactive)
1130 (let ((inhibit-read-only t))
1131 (erase-buffer))
1132 (eshell-send-input))
1133
c5d8bb25 1134 (defun a/eshell-setup ()
5fece105 1135 (make-local-variable 'company-idle-delay)
59ff41b6
AB
1136 (defvar company-idle-delay)
1137 (setq company-idle-delay nil)
5fece105 1138 (bind-keys :map eshell-mode-map
c5d8bb25
AB
1139 ("C-d" . a/eshell-quit-or-delete-char)
1140 ("C-S-l" . a/eshell-clear)
5fece105
AB
1141 ("M-r" . counsel-esh-history)
1142 ([tab] . company-complete)))
1143
c5d8bb25 1144 :hook (eshell-mode . a/eshell-setup)
5fece105
AB
1145 :custom
1146 (eshell-hist-ignoredups t)
1147 (eshell-input-filter 'eshell-input-filter-initial-space))
1148#+end_src
1149
1150*** Ibuffer
1151
1152#+begin_src emacs-lisp
69b24a1e 1153(use-feature ibuffer
5fece105
AB
1154 :bind
1155 (("C-x C-b" . ibuffer-other-window)
1156 :map ibuffer-mode-map
1157 ("P" . ibuffer-backward-filter-group)
1158 ("N" . ibuffer-forward-filter-group)
1159 ("M-p" . ibuffer-do-print)
1160 ("M-n" . ibuffer-do-shell-command-pipe-replace))
1161 :config
1162 ;; Use human readable Size column instead of original one
1163 (define-ibuffer-column size-h
1164 (:name "Size" :inline t)
1165 (cond
1166 ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
1167 ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
1168 ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
1169 (t (format "%8d" (buffer-size)))))
1170 :custom
1171 (ibuffer-saved-filter-groups
1172 '(("default"
1173 ("dired" (mode . dired-mode))
1174 ("org" (mode . org-mode))
4e0afb99
AB
1175 ("gnus"
1176 (or
1177 (mode . gnus-group-mode)
1178 (mode . gnus-summary-mode)
1179 (mode . gnus-article-mode)
1180 ;; not really, but...
1181 (mode . message-mode)))
5fece105
AB
1182 ("web"
1183 (or
1184 (mode . web-mode)
1185 (mode . css-mode)
1186 (mode . scss-mode)
1187 (mode . js2-mode)))
1188 ("shell"
1189 (or
1190 (mode . eshell-mode)
4e0afb99
AB
1191 (mode . shell-mode)
1192 (mode . term-mode)))
5fece105
AB
1193 ("programming"
1194 (or
1195 (mode . python-mode)
4e0afb99 1196 (mode . c-mode)
5fece105 1197 (mode . c++-mode)
2c0e34c3 1198 (mode . java-mode)
4e0afb99
AB
1199 (mode . emacs-lisp-mode)
1200 (mode . scheme-mode)
1201 (mode . haskell-mode)
1202 (mode . lean-mode)))
5fece105
AB
1203 ("emacs"
1204 (or
1205 (name . "^\\*scratch\\*$")
4e0afb99 1206 (name . "^\\*Messages\\*$"))))))
5fece105
AB
1207 (ibuffer-formats
1208 '((mark modified read-only locked " "
1209 (name 18 18 :left :elide)
1210 " "
1211 (size-h 9 -1 :right)
1212 " "
1213 (mode 16 16 :left :elide)
1214 " " filename-and-process)
1215 (mark " "
1216 (name 16 -1)
1217 " " filename)))
1218 :hook (ibuffer . (lambda () (ibuffer-switch-to-saved-filter-groups "default"))))
1219#+end_src
1220
1221*** Outline
1222
1223#+begin_src emacs-lisp
69b24a1e 1224(use-feature outline
5fece105
AB
1225 :hook (prog-mode . outline-minor-mode)
1226 :bind
1227 (:map
1228 outline-minor-mode-map
1229 ("<s-tab>" . outline-toggle-children)
1230 ("M-p" . outline-previous-visible-heading)
1231 ("M-n" . outline-next-visible-heading)
c5d8bb25 1232 :prefix-map a/outline-prefix-map
5fece105
AB
1233 :prefix "s-o"
1234 ("TAB" . outline-toggle-children)
1235 ("a" . outline-hide-body)
1236 ("H" . outline-hide-body)
1237 ("S" . outline-show-all)
1238 ("h" . outline-hide-subtree)
1239 ("s" . outline-show-subtree)))
1240#+end_src
1241
6ce4ebba 1242*** Dired
5fece105
AB
1243
1244#+begin_src emacs-lisp
633dee4d 1245(use-feature ls-lisp
3b8e0d03
AB
1246 :custom (ls-lisp-dirs-first t))
1247
633dee4d 1248(use-feature dired
cb0c13d0 1249 :config
3b8e0d03
AB
1250 (setq dired-listing-switches "-alh"
1251 ls-lisp-use-insert-directory-program nil)
cb0c13d0
AB
1252
1253 ;; easily diff 2 marked files
1254 ;; https://oremacs.com/2017/03/18/dired-ediff/
1255 (defun dired-ediff-files ()
1256 (interactive)
6ce4ebba 1257 (require 'dired-aux)
7bd8b3a2 1258 (defvar ediff-after-quit-hook-internal)
cb0c13d0
AB
1259 (let ((files (dired-get-marked-files))
1260 (wnd (current-window-configuration)))
1261 (if (<= (length files) 2)
1262 (let ((file1 (car files))
1263 (file2 (if (cdr files)
1264 (cadr files)
1265 (read-file-name
1266 "file: "
1267 (dired-dwim-target-directory)))))
1268 (if (file-newer-than-file-p file1 file2)
1269 (ediff-files file2 file1)
1270 (ediff-files file1 file2))
1271 (add-hook 'ediff-after-quit-hook-internal
1272 (lambda ()
1273 (setq ediff-after-quit-hook-internal nil)
1274 (set-window-configuration wnd))))
1275 (error "no more than 2 files should be marked"))))
1276 :bind (:map dired-mode-map
6ce4ebba 1277 ("b" . dired-up-directory)
0884b63b
AB
1278 ("e" . dired-ediff-files)
1279 ("E" . dired-toggle-read-only)
1280 ("\\" . dired-hide-details-mode)
1281 ("z" . (lambda ()
1282 (interactive)
1283 (a/dired-start-process "zathura"))))
1284 :hook (dired-mode . dired-hide-details-mode))
6ce4ebba 1285#+end_src
5fece105 1286
6ce4ebba 1287*** Help
5fece105 1288
6ce4ebba 1289#+begin_src emacs-lisp
a8d0c7ad 1290(use-feature help
5fece105
AB
1291 :config
1292 (temp-buffer-resize-mode)
1293 (setq help-window-select t))
6ce4ebba 1294#+end_src
5fece105 1295
6ce4ebba 1296*** Tramp
5fece105 1297
6ce4ebba 1298#+begin_src emacs-lisp
633dee4d 1299(use-feature tramp
5fece105 1300 :config
6ce4ebba
AB
1301 (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
1302 (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
1303 (add-to-list 'tramp-default-proxies-alist
1304 (list (regexp-quote (system-name)) nil nil)))
1305#+end_src
5fece105 1306
6ce4ebba
AB
1307*** Dash
1308
1309#+begin_src emacs-lisp
1310(use-package dash
1311 :config (dash-enable-font-lock))
1312#+end_src
1313
1314* Editing
1315:PROPERTIES:
1316:CUSTOM_ID: editing
1317:END:
1318
1319** =diff-hl=
1320
1321Highlight uncommitted changes in the left fringe.
1322
1323#+begin_src emacs-lisp
1324(use-package diff-hl
1325 :config
1326 (setq diff-hl-draw-borders nil)
1327 (global-diff-hl-mode)
1328 :hook (magit-post-refresh . diff-hl-magit-post-refresh))
1329#+end_src
1330
1331** ElDoc
1332
1333Display Lisp objects at point in the echo area.
1334
1335#+begin_src emacs-lisp
a8d0c7ad 1336(use-feature eldoc
6ce4ebba
AB
1337 :when (version< "25" emacs-version)
1338 :config (global-eldoc-mode))
1339#+end_src
1340
1341** paren
1342
1343Highlight matching parens.
5fece105 1344
6ce4ebba 1345#+begin_src emacs-lisp
6540f2c4 1346(use-feature paren
3405a20e 1347 :demand
5fece105 1348 :config (show-paren-mode))
6ce4ebba 1349#+end_src
5fece105 1350
6ce4ebba 1351** simple (for column numbers)
5fece105 1352
6ce4ebba 1353#+begin_src emacs-lisp
5c1cce80 1354(use-feature simple
6ce4ebba
AB
1355 :config (column-number-mode))
1356#+end_src
1357
1358** =savehist=
1359
1360Save minibuffer history.
5fece105 1361
6ce4ebba 1362#+begin_src emacs-lisp
f8e11b0e 1363(use-feature savehist
5fece105 1364 :config (savehist-mode))
6ce4ebba
AB
1365#+end_src
1366
1367** =saveplace=
5fece105 1368
6ce4ebba
AB
1369Automatically save place in each file.
1370
1371#+begin_src emacs-lisp
f8e11b0e 1372(use-feature saveplace
5fece105
AB
1373 :when (version< "25" emacs-version)
1374 :config (save-place-mode))
6ce4ebba 1375#+end_src
5fece105 1376
6ce4ebba 1377** =prog-mode=
5fece105 1378
6ce4ebba 1379#+begin_src emacs-lisp
5097c774 1380(use-feature prog-mode
6ce4ebba
AB
1381 :config (global-prettify-symbols-mode)
1382 (defun indicate-buffer-boundaries-left ()
1383 (setq indicate-buffer-boundaries 'left))
1384 (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
1385#+end_src
5fece105 1386
6ce4ebba 1387** =text-mode=
5fece105 1388
6ce4ebba 1389#+begin_src emacs-lisp
5097c774 1390(use-feature text-mode
6ce4ebba
AB
1391 :hook ((text-mode . indicate-buffer-boundaries-left)
1392 (text-mode . abbrev-mode)))
5fece105
AB
1393#+end_src
1394
5fece105
AB
1395** Company
1396
1397#+begin_src emacs-lisp
1398(use-package company
c4056581 1399 :defer 3
5fece105
AB
1400 :bind
1401 (:map company-active-map
1402 ([tab] . company-complete-common-or-cycle)
1403 ([escape] . company-abort))
1404 :custom
1405 (company-minimum-prefix-length 1)
1406 (company-selection-wrap-around t)
1407 (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
1408 (company-dabbrev-downcase nil)
1409 (company-dabbrev-ignore-case nil)
1410 :config
1411 (global-company-mode t))
1412#+end_src
1413
6ce4ebba 1414** Flycheck
5fece105 1415
5fece105
AB
1416#+begin_src emacs-lisp
1417(use-package flycheck
1418 :defer 3
1419 :hook (prog-mode . flycheck-mode)
1420 :bind
1421 (:map flycheck-mode-map
1422 ("M-P" . flycheck-previous-error)
1423 ("M-N" . flycheck-next-error))
1424 :config
1425 ;; Use the load-path from running Emacs when checking elisp files
1426 (setq flycheck-emacs-lisp-load-path 'inherit)
1427
1428 ;; Only flycheck when I actually save the buffer
1429 (setq flycheck-check-syntax-automatically '(mode-enabled save)))
1430
1431;; http://endlessparentheses.com/ispell-and-apostrophes.html
1432(use-package ispell
1433 :defer 3
1434 :config
1435 ;; ’ can be part of a word
1436 (setq ispell-local-dictionary-alist
1437 `((nil "[[:alpha:]]" "[^[:alpha:]]"
1438 "['\x2019]" nil ("-B") nil utf-8)))
1439 ;; don't send ’ to the subprocess
1440 (defun endless/replace-apostrophe (args)
1441 (cons (replace-regexp-in-string
1442 "’" "'" (car args))
1443 (cdr args)))
1444 (advice-add #'ispell-send-string :filter-args
1445 #'endless/replace-apostrophe)
1446
1447 ;; convert ' back to ’ from the subprocess
1448 (defun endless/replace-quote (args)
1449 (if (not (derived-mode-p 'org-mode))
1450 args
1451 (cons (replace-regexp-in-string
1452 "'" "’" (car args))
1453 (cdr args))))
1454 (advice-add #'ispell-parse-output :filter-args
1455 #'endless/replace-quote))
1456#+end_src
9678e6da 1457
5fece105 1458* Programming modes
673d5faa
AB
1459:PROPERTIES:
1460:CUSTOM_ID: programming-modes
1461:END:
5fece105 1462
6ce4ebba
AB
1463** Lisp
1464
1465#+begin_src emacs-lisp
520aebd5 1466(use-feature lisp-mode
6ce4ebba
AB
1467 :config
1468 (add-hook 'emacs-lisp-mode-hook 'outline-minor-mode)
1469 (add-hook 'emacs-lisp-mode-hook 'reveal-mode)
1470 (defun indent-spaces-mode ()
1471 (setq indent-tabs-mode nil))
1472 (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
1473#+end_src
1474
5fece105
AB
1475** [[http://alloytools.org][Alloy]] (with [[https://github.com/dwwmmn/alloy-mode][alloy-mode]])
1476
1477#+begin_src emacs-lisp
1478(use-package alloy-mode
520aebd5 1479 :straight (:host github :repo "dwwmmn/alloy-mode")
5fece105
AB
1480 :config (setq alloy-basic-offset 2))
1481#+end_src
1482
1483** [[https://coq.inria.fr][Coq]] (with [[https://github.com/ProofGeneral/PG][Proof General]])
1484
1485#+begin_src emacs-lisp
1486(use-package proof-site ; Proof General
426cec7a 1487 :straight proof-general)
5fece105
AB
1488#+end_src
1489
1490** [[https://leanprover.github.io][Lean]] (with [[https://github.com/leanprover/lean-mode][lean-mode]])
1491
1492#+begin_src emacs-lisp
1493(eval-when-compile (defvar lean-mode-map))
1494(use-package lean-mode
1495 :defer 1
1496 :bind (:map lean-mode-map
1497 ("S-SPC" . company-complete))
1498 :config
1499 (require 'lean-input)
1500 (setq default-input-method "Lean"
1501 lean-input-tweak-all '(lean-input-compose
1502 (lean-input-prepend "/")
1503 (lean-input-nonempty))
1504 lean-input-user-translations '(("/" "/")))
1505 (lean-input-setup))
1506 #+end_src
1507
1508** Haskell
1509
1510*** [[https://github.com/haskell/haskell-mode][haskell-mode]]
1511
1512#+begin_src emacs-lisp
1513(use-package haskell-mode
5fece105
AB
1514 :config
1515 (setq haskell-indentation-layout-offset 4
1516 haskell-indentation-left-offset 4
1517 flycheck-checker 'haskell-hlint
1518 flycheck-disabled-checkers '(haskell-stack-ghc haskell-ghc)))
1519#+end_src
1520
1521*** [[https://github.com/jyp/dante][dante]]
1522
1523#+begin_src emacs-lisp
1524(use-package dante
1525 :after haskell-mode
1526 :commands dante-mode
1527 :hook (haskell-mode . dante-mode))
1528#+end_src
1529
1530*** [[https://github.com/mpickering/hlint-refactor-mode][hlint-refactor]]
1531
1532Emacs bindings for [[https://github.com/ndmitchell/hlint][hlint]]'s refactor option. This requires the refact
1533executable from [[https://github.com/mpickering/apply-refact][apply-refact]].
1534
1535#+begin_src emacs-lisp
1536(use-package hlint-refactor
1537 :after haskell-mode
1538 :bind (:map hlint-refactor-mode-map
1539 ("C-c l b" . hlint-refactor-refactor-buffer)
1540 ("C-c l r" . hlint-refactor-refactor-at-point))
1541 :hook (haskell-mode . hlint-refactor-mode))
1542#+end_src
1543
1544*** [[https://github.com/flycheck/flycheck-haskell][flycheck-haskell]]
1545
1546#+begin_src emacs-lisp
1547(use-package flycheck-haskell
1548 :after haskell-mode)
1549#+end_src
1550
1551*** [[https://github.com/ndmitchell/hlint/blob/20e116a043f2073c57b17b24ae6364b5e433ba7e/data/hs-lint.el][hs-lint.el]]
1552:PROPERTIES:
1553:header-args+: :tangle lisp/hs-lint.el :mkdirp yes
1554:END:
1555
1556Currently using =flycheck-haskell= with the =haskell-hlint= checker
1557instead.
1558
1559#+begin_src emacs-lisp :tangle no
1560;;; hs-lint.el --- minor mode for HLint code checking
1561
1562;; Copyright 2009 (C) Alex Ott
1563;;
1564;; Author: Alex Ott <alexott@gmail.com>
1565;; Keywords: haskell, lint, HLint
1566;; Requirements:
1567;; Status: distributed under terms of GPL2 or above
1568
1569;; Typical message from HLint looks like:
1570;;
1571;; /Users/ott/projects/lang-exp/haskell/test.hs:52:1: Eta reduce
1572;; Found:
1573;; count1 p l = length (filter p l)
1574;; Why not:
1575;; count1 p = length . filter p
1576
1577
1578(require 'compile)
1579
1580(defgroup hs-lint nil
1581 "Run HLint as inferior of Emacs, parse error messages."
1582 :group 'tools
1583 :group 'haskell)
1584
1585(defcustom hs-lint-command "hlint"
1586 "The default hs-lint command for \\[hlint]."
1587 :type 'string
1588 :group 'hs-lint)
1589
1590(defcustom hs-lint-save-files t
1591 "Save modified files when run HLint or no (ask user)"
1592 :type 'boolean
1593 :group 'hs-lint)
1594
1595(defcustom hs-lint-replace-with-suggestions nil
1596 "Replace user's code with suggested replacements"
1597 :type 'boolean
1598 :group 'hs-lint)
1599
1600(defcustom hs-lint-replace-without-ask nil
1601 "Replace user's code with suggested replacements automatically"
1602 :type 'boolean
1603 :group 'hs-lint)
1604
1605(defun hs-lint-process-setup ()
1606 "Setup compilation variables and buffer for `hlint'."
1607 (run-hooks 'hs-lint-setup-hook))
1608
1609;; regex for replace suggestions
1610;;
1611;; ^\(.*?\):\([0-9]+\):\([0-9]+\): .*
1612;; Found:
1613;; \s +\(.*\)
1614;; Why not:
1615;; \s +\(.*\)
1616
1617(defvar hs-lint-regex
1618 "^\\(.*?\\):\\([0-9]+\\):\\([0-9]+\\): .*[\n\C-m]Found:[\n\C-m]\\s +\\(.*\\)[\n\C-m]Why not:[\n\C-m]\\s +\\(.*\\)[\n\C-m]"
1619 "Regex for HLint messages")
1620
1621(defun make-short-string (str maxlen)
1622 (if (< (length str) maxlen)
1623 str
1624 (concat (substring str 0 (- maxlen 3)) "...")))
1625
1626(defun hs-lint-replace-suggestions ()
1627 "Perform actual replacement of suggestions"
1628 (goto-char (point-min))
1629 (while (re-search-forward hs-lint-regex nil t)
1630 (let* ((fname (match-string 1))
1631 (fline (string-to-number (match-string 2)))
1632 (old-code (match-string 4))
1633 (new-code (match-string 5))
1634 (msg (concat "Replace '" (make-short-string old-code 30)
1635 "' with '" (make-short-string new-code 30) "'"))
1636 (bline 0)
1637 (eline 0)
1638 (spos 0)
1639 (new-old-code ""))
1640 (save-excursion
1641 (switch-to-buffer (get-file-buffer fname))
1642 (goto-char (point-min))
1643 (forward-line (1- fline))
1644 (beginning-of-line)
1645 (setf bline (point))
1646 (when (or hs-lint-replace-without-ask
1647 (yes-or-no-p msg))
1648 (end-of-line)
1649 (setf eline (point))
1650 (beginning-of-line)
1651 (setf old-code (regexp-quote old-code))
1652 (while (string-match "\\\\ " old-code spos)
1653 (setf new-old-code (concat new-old-code
1654 (substring old-code spos (match-beginning 0))
1655 "\\ *"))
1656 (setf spos (match-end 0)))
1657 (setf new-old-code (concat new-old-code (substring old-code spos)))
1658 (remove-text-properties bline eline '(composition nil))
1659 (when (re-search-forward new-old-code eline t)
1660 (replace-match new-code nil t)))))))
1661
1662(defun hs-lint-finish-hook (buf msg)
1663 "Function, that is executed at the end of HLint execution"
1664 (if hs-lint-replace-with-suggestions
1665 (hs-lint-replace-suggestions)
1666 (next-error 1 t)))
1667
1668(define-compilation-mode hs-lint-mode "HLint"
1669 "Mode for check Haskell source code."
1670 (set (make-local-variable 'compilation-process-setup-function)
1671 'hs-lint-process-setup)
1672 (set (make-local-variable 'compilation-disable-input) t)
1673 (set (make-local-variable 'compilation-scroll-output) nil)
1674 (set (make-local-variable 'compilation-finish-functions)
1675 (list 'hs-lint-finish-hook))
1676 )
1677
1678(defun hs-lint ()
1679 "Run HLint for current buffer with haskell source"
1680 (interactive)
1681 (save-some-buffers hs-lint-save-files)
1682 (compilation-start (concat hs-lint-command " \"" buffer-file-name "\"")
1683 'hs-lint-mode))
1684
1685(provide 'hs-lint)
1686;;; hs-lint.el ends here
1687#+end_src
1688
1689#+begin_src emacs-lisp :tangle no
1690(use-package hs-lint
1691 :load-path "lisp/"
1692 :bind (:map haskell-mode-map
1693 ("C-c l l" . hs-lint)))
1694#+end_src
1695
6ce4ebba 1696** Web
5fece105
AB
1697
1698*** SGML and HTML
1699
1700#+begin_src emacs-lisp
1701(use-package sgml-mode
5fece105
AB
1702 :config
1703 (setq sgml-basic-offset 2))
1704#+end_src
1705
1706*** CSS and SCSS
1707
1708#+begin_src emacs-lisp
1709(use-package css-mode
5fece105
AB
1710 :config
1711 (setq css-indent-offset 2))
1712#+end_src
1713
1714*** Web mode
1715
1716#+begin_src emacs-lisp
1717(use-package web-mode
5fece105
AB
1718 :mode "\\.html\\'"
1719 :config
c5d8bb25 1720 (a/setq-every 2
5fece105
AB
1721 web-mode-code-indent-offset
1722 web-mode-css-indent-offset
1723 web-mode-markup-indent-offset))
1724#+end_src
1725
1726*** Emmet mode
1727
1728#+begin_src emacs-lisp
1729(use-package emmet-mode
1730 :after (:any web-mode css-mode sgml-mode)
1731 :bind* (("C-)" . emmet-next-edit-point)
1732 ("C-(" . emmet-prev-edit-point))
1733 :config
1734 (unbind-key "C-j" emmet-mode-keymap)
1735 (setq emmet-move-cursor-between-quotes t)
1736 :hook (web-mode css-mode html-mode sgml-mode))
1737#+end_src
1738
d99e21ba 1739** Java
5fece105 1740
d99e21ba 1741*** COMMENT meghanada
5fece105 1742
9cebbd53 1743#+begin_src emacs-lisp
5fece105
AB
1744(use-package meghanada
1745 :bind
1746 (:map meghanada-mode-map
1747 (("C-M-o" . meghanada-optimize-import)
1748 ("C-M-t" . meghanada-import-all)))
1749 :hook (java-mode . meghanada-mode))
1750#+end_src
1751
d99e21ba 1752*** COMMENT lsp-java
5fece105
AB
1753
1754#+begin_comment
1755dependencies:
1756
1757ace-window
1758avy
1759bui
1760company-lsp
1761dap-mode
1762lsp-java
1763lsp-mode
1764lsp-ui
1765pfuture
1766tree-mode
1767treemacs
1768#+end_comment
1769
9cebbd53 1770#+begin_src emacs-lisp
5fece105
AB
1771(use-package treemacs
1772 :config (setq treemacs-never-persist t))
1773
1774(use-package yasnippet
1775 :config
1776 ;; (yas-global-mode)
1777 )
1778
1779(use-package lsp-mode
1780 :init (setq lsp-eldoc-render-all nil
1781 lsp-highlight-symbol-at-point nil)
1782 )
1783
1784(use-package hydra)
1785
1786(use-package company-lsp
1787 :after company
1788 :config
1789 (setq company-lsp-cache-candidates t
1790 company-lsp-async t))
1791
1792(use-package lsp-ui
1793 :config
1794 (setq lsp-ui-sideline-update-mode 'point))
1795
1796(use-package lsp-java
1797 :config
1798 (add-hook 'java-mode-hook
1799 (lambda ()
1800 (setq-local company-backends (list 'company-lsp))))
1801
1802 (add-hook 'java-mode-hook 'lsp-java-enable)
1803 (add-hook 'java-mode-hook 'flycheck-mode)
1804 (add-hook 'java-mode-hook 'company-mode)
1805 (add-hook 'java-mode-hook 'lsp-ui-mode))
1806
1807(use-package dap-mode
1808 :after lsp-mode
1809 :config
1810 (dap-mode t)
1811 (dap-ui-mode t))
1812
1813(use-package dap-java
1814 :after (lsp-java))
1815
1816(use-package lsp-java-treemacs
1817 :after (treemacs))
1818#+end_src
1819
d99e21ba
AB
1820*** eclim
1821
1822#+begin_src emacs-lisp
1823(use-package eclim
1824 :bind (:map eclim-mode-map ("S-SPC" . company-complete))
1825 :hook ((java-mode . eclim-mode)
1826 (eclim-mode . (lambda ()
1827 (make-local-variable 'company-idle-delay)
1828 (defvar company-idle-delay)
1829 ;; (setq company-idle-delay 0.7)
1830 (setq company-idle-delay nil))))
1831 :custom
1832 (eclim-auto-save nil)
1833 ;; (eclimd-default-workspace "~/src/eclipse-workspace-exp")
1834 (eclim-executable "~/.p2/pool/plugins/org.eclim_2.8.0/bin/eclim")
1835 (eclim-eclipse-dirs '("~/usr/eclipse/dsl-2018-09/eclipse")))
1836#+end_src
1837
5492a3dc
AB
1838** geiser
1839
1840#+begin_src emacs-lisp
1841(use-package geiser)
1842
42b1fa9b 1843(use-feature geiser-guile
5492a3dc
AB
1844 :config
1845 (setq geiser-guile-load-path "~/src/git/guix"))
1846#+end_src
1847
1848** guix
1849
1850#+begin_src emacs-lisp
42b1fa9b 1851(use-package guix)
5492a3dc
AB
1852#+end_src
1853
673d5faa
AB
1854* Emacs enhancements
1855:PROPERTIES:
1856:CUSTOM_ID: emacs-enhancements
1857:END:
5fece105 1858
6ce4ebba
AB
1859** man
1860
1861#+begin_src emacs-lisp
9f120b4f 1862(use-feature man
6ce4ebba
AB
1863 :config (setq Man-width 80))
1864#+end_src
1865
5fece105
AB
1866** [[https://github.com/justbur/emacs-which-key][which-key]]
1867
1868#+begin_quote
1869Emacs package that displays available keybindings in popup
1870#+end_quote
1871
1872#+begin_src emacs-lisp
1873(use-package which-key
1874 :defer 1
169947ac
AB
1875 :config
1876 (which-key-add-key-based-replacements
1877 ;; prefixes for global prefixes and minor modes
1878 "C-c @" "outline"
1879 "C-c !" "flycheck"
1880 "C-c 8" "typo"
1881 "C-c 8 -" "typo/dashes"
1882 "C-c 8 <" "typo/left-brackets"
1883 "C-c 8 >" "typo/right-brackets"
1884 "C-x 8" "unicode"
1885 "C-x a" "abbrev/expand"
1886 "C-x r" "rectangle/register/bookmark"
1887 "C-x v" "version control"
1888 ;; prefixes for my personal bindings
1889 "C-c a" "applications"
1890 "C-c a s" "shells"
d92bd2a8
AB
1891 "C-c p" "package-management"
1892 "C-c p e" "package-management/epkg"
1893 "C-c p s" "straight.el"
1894 "C-c psa" "all"
1895 "C-c psp" "package"
169947ac
AB
1896 "C-c c" "compile-and-comments"
1897 "C-c e" "eval"
1898 "C-c f" "files"
1899 "C-c F" "frames"
1900 "C-S-h" "help(ful)"
1901 "C-c m" "multiple-cursors"
d92bd2a8
AB
1902 "C-c P" "projectile"
1903 "C-c P s" "projectile/search"
1904 "C-c P x" "projectile/execute"
1905 "C-c P 4" "projectile/other-window"
169947ac
AB
1906 "C-c q" "boxquote"
1907 "s-g" "magit"
1908 "s-o" "outline"
1909 "s-t" "themes")
1910
1911 ;; prefixes for major modes
1912 (which-key-add-major-mode-key-based-replacements 'message-mode
1913 "C-c f" "footnote")
1914 (which-key-add-major-mode-key-based-replacements 'org-mode
1915 "C-c C-v" "org-babel")
1916 (which-key-add-major-mode-key-based-replacements 'web-mode
1917 "C-c C-a" "web/attributes"
1918 "C-c C-b" "web/blocks"
1919 "C-c C-d" "web/dom"
1920 "C-c C-e" "web/element"
1921 "C-c C-t" "web/tags")
1922
40833002
AB
1923 (which-key-mode)
1924 :custom
1925 (which-key-add-column-padding 5)
1926 (which-key-max-description-length 32))
5fece105
AB
1927#+end_src
1928
1929** theme
1930
1931#+begin_src emacs-lisp
1932(add-to-list 'custom-theme-load-path "~/.emacs.d/lisp")
1933(load-theme 'tangomod t)
1934#+end_src
1935
21ad71fa 1936** smart-mode-line
5fece105
AB
1937
1938#+begin_src emacs-lisp
21ad71fa 1939(use-package smart-mode-line
19740fc0 1940 :commands (sml/apply-theme)
6ce4ebba 1941 :demand
21ad71fa
AB
1942 :config
1943 (sml/setup))
5fece105
AB
1944#+end_src
1945
1946** doom-themes
1947
1948#+begin_src emacs-lisp
1949(use-package doom-themes)
1950#+end_src
1951
1952** theme helper functions
1953
1954#+begin_src emacs-lisp
b1c000dd
AB
1955(defvar a/org-mode-font-lock-keywords
1956 '(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)"
1957 (1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive
1958 (3 '(:foreground "#81a2be" :background "#292b2b") t) ; kind
1959 (4 '(:foreground "#c5c8c6") t)))) ; title
1960
c5d8bb25 1961(defun a/lights-on ()
5fece105
AB
1962 "Enable my favourite light theme."
1963 (interactive)
21ad71fa
AB
1964 (mapc #'disable-theme custom-enabled-themes)
1965 (load-theme 'tangomod t)
b1c000dd
AB
1966 (sml/apply-theme 'automatic)
1967 (font-lock-remove-keywords
1968 'org-mode a/org-mode-font-lock-keywords))
5fece105 1969
c5d8bb25 1970(defun a/lights-off ()
5fece105
AB
1971 "Go dark."
1972 (interactive)
21ad71fa
AB
1973 (mapc #'disable-theme custom-enabled-themes)
1974 (load-theme 'doom-tomorrow-night t)
b1c000dd
AB
1975 (sml/apply-theme 'automatic)
1976 (font-lock-add-keywords
1977 'org-mode a/org-mode-font-lock-keywords t))
5fece105
AB
1978
1979(bind-keys
c5d8bb25
AB
1980 ("s-t d" . a/lights-off)
1981 ("s-t l" . a/lights-on))
5fece105
AB
1982#+end_src
1983
1984** [[https://github.com/bbatsov/crux][crux]]
1985
1986#+begin_src emacs-lisp
e738f03b 1987(use-package crux ; results in Waiting for git... [2 times]
5fece105
AB
1988 :defer 1
1989 :bind (("C-c b k" . crux-kill-other-buffers)
1990 ("C-c d" . crux-duplicate-current-line-or-region)
1991 ("C-c D" . crux-duplicate-and-comment-current-line-or-region)
1992 ("C-c f c" . crux-copy-file-preserve-attributes)
1993 ("C-c f d" . crux-delete-file-and-buffer)
1994 ("C-c f r" . crux-rename-file-and-buffer)
1995 ("C-c j" . crux-top-join-line)
1996 ("C-S-j" . crux-top-join-line)))
1997#+end_src
1998
1999** [[https://github.com/alezost/mwim.el][mwim]]
2000
2001#+begin_src emacs-lisp
2002(use-package mwim
2003 :bind (("C-a" . mwim-beginning-of-code-or-line)
2004 ("C-e" . mwim-end-of-code-or-line)
2005 ("<home>" . mwim-beginning-of-line-or-code)
2006 ("<end>" . mwim-end-of-line-or-code)))
2007#+end_src
2008
2009** projectile
2010
2011#+begin_src emacs-lisp
2012(use-package projectile
d92bd2a8 2013 :bind-keymap ("C-c P" . projectile-command-map)
5fece105
AB
2014 :config
2015 (projectile-mode)
2016
2017 (defun my-projectile-invalidate-cache (&rest _args)
2018 ;; ignore the args to `magit-checkout'
2019 (projectile-invalidate-cache nil))
2020
2021 (eval-after-load 'magit-branch
2022 '(progn
2023 (advice-add 'magit-checkout
2024 :after #'my-projectile-invalidate-cache)
2025 (advice-add 'magit-branch-and-checkout
c371adda
AB
2026 :after #'my-projectile-invalidate-cache)))
2027 :custom (projectile-completion-system 'ivy))
5fece105
AB
2028#+end_src
2029
2030** [[https://github.com/Wilfred/helpful][helpful]]
2031
2032#+begin_src emacs-lisp
2033(use-package helpful
c4056581 2034 :defer 3
5fece105
AB
2035 :bind
2036 (("C-S-h c" . helpful-command)
2037 ("C-S-h f" . helpful-callable) ; helpful-function
2038 ("C-S-h v" . helpful-variable)
2039 ("C-S-h k" . helpful-key)
2040 ("C-S-h p" . helpful-at-point)))
2041#+end_src
2042
5fece105
AB
2043** [[https://github.com/EricCrosson/unkillable-scratch][unkillable-scratch]]
2044
2045Make =*scratch*= and =*Messages*= unkillable.
2046
2047#+begin_src emacs-lisp
2048(use-package unkillable-scratch
2049 :defer 3
2050 :config
2051 (unkillable-scratch 1)
2052 :custom
5fece105
AB
2053 (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
2054#+end_src
2055
2056** [[https://github.com/davep/boxquote.el][boxquote.el]]
2057
2058#+begin_example
2059,----
2060| make pretty boxed quotes like this
2061`----
2062#+end_example
2063
2064#+begin_src emacs-lisp
2065(use-package boxquote
2066 :defer 3
2067 :bind
c5d8bb25 2068 (:prefix-map a/boxquote-prefix-map
5fece105
AB
2069 :prefix "C-c q"
2070 ("b" . boxquote-buffer)
2071 ("B" . boxquote-insert-buffer)
2072 ("d" . boxquote-defun)
2073 ("F" . boxquote-insert-file)
2074 ("hf" . boxquote-describe-function)
2075 ("hk" . boxquote-describe-key)
2076 ("hv" . boxquote-describe-variable)
2077 ("hw" . boxquote-where-is)
2078 ("k" . boxquote-kill)
2079 ("p" . boxquote-paragraph)
2080 ("q" . boxquote-boxquote)
2081 ("r" . boxquote-region)
2082 ("s" . boxquote-shell-command)
2083 ("t" . boxquote-text)
2084 ("T" . boxquote-title)
2085 ("u" . boxquote-unbox)
2086 ("U" . boxquote-unbox-region)
2087 ("y" . boxquote-yank)
2088 ("M-q" . boxquote-fill-paragraph)
2089 ("M-w" . boxquote-kill-ring-save)))
2090#+end_src
2091
2092Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
2093
6ce4ebba
AB
2094** orgalist
2095
2096#+begin_src emacs-lisp
2097(use-package orgalist
2098 :after message
2099 :hook (message-mode . orgalist-mode))
2100#+end_src
2101
5fece105
AB
2102** typo.el
2103
2104#+begin_src emacs-lisp
2105(use-package typo
2106 :defer 2
2107 :config
2108 (typo-global-mode 1)
2109 :hook (text-mode . typo-mode))
2110#+end_src
2111
2112** hl-todo
2113
2114#+begin_src emacs-lisp
2115(use-package hl-todo
2116 :defer 4
2117 :config
2118 (global-hl-todo-mode))
2119#+end_src
2120
2121** shrink-path
2122
2123#+begin_src emacs-lisp
2124(use-package shrink-path
6ce4ebba 2125 :defer 2
5fece105
AB
2126 :after eshell
2127 :config
5fece105
AB
2128 (defun +eshell/prompt ()
2129 (let ((base/dir (shrink-path-prompt default-directory)))
2130 (concat (propertize (car base/dir)
2131 'face 'font-lock-comment-face)
2132 (propertize (cdr base/dir)
2133 'face 'font-lock-constant-face)
2134 (propertize (+eshell--current-git-branch)
2135 'face 'font-lock-function-name-face)
2136 "\n"
3cd8032a
AB
2137 ;; "λ"
2138 ;; (propertize "λ" 'face 'eshell-prompt)
5fece105 2139 ;; needed for the input text to not have prompt face
3cd8032a 2140 (propertize "λ " 'face 'default))))
5fece105
AB
2141
2142 (defun +eshell--current-git-branch ()
2143 (let ((branch (car (loop for match in (split-string (shell-command-to-string "git branch") "\n")
2144 when (string-match "^\*" match)
2145 collect match))))
2146 (if (not (eq branch nil))
2147 (concat " " (substring branch 2))
6ce4ebba
AB
2148 "")))
2149 (setq eshell-prompt-regexp "\\(.*\n\\)*λ "
2150 eshell-prompt-function #'+eshell/prompt))
5fece105
AB
2151#+end_src
2152
5fece105
AB
2153** [[https://github.com/peterwvj/eshell-up][eshell-up]]
2154
2155#+begin_src emacs-lisp
2156(use-package eshell-up
6ce4ebba
AB
2157 :after eshell
2158 :commands eshell-up)
5fece105
AB
2159#+end_src
2160
2161** multi-term
2162
2163#+begin_src emacs-lisp
2164(use-package multi-term
c4056581 2165 :defer 3
169947ac 2166 :bind (("C-c a s m" . multi-term-dedicated-toggle)
a219024e
AB
2167 :map term-mode-map
2168 ("C-c C-j" . term-char-mode)
2169 :map term-raw-map
2170 ("C-c C-j" . term-line-mode))
5fece105
AB
2171 :config
2172 (setq multi-term-program "/bin/screen"
2173 ;; TODO: add separate bindings for connecting to existing
2174 ;; session vs. always creating a new one
2175 multi-term-dedicated-select-after-open-p t
2176 multi-term-dedicated-window-height 20
2177 multi-term-dedicated-max-window-height 30
2178 term-bind-key-alist
2179 '(("C-c C-c" . term-interrupt-subjob)
2180 ("C-c C-e" . term-send-esc)
2181 ("C-k" . kill-line)
2182 ("C-y" . term-paste)
2183 ("M-f" . term-send-forward-word)
2184 ("M-b" . term-send-backward-word)
2185 ("M-p" . term-send-up)
2186 ("M-n" . term-send-down)
2187 ("<C-backspace>" . term-send-backward-kill-word)
2188 ("<M-DEL>" . term-send-backward-kill-word)
2189 ("M-d" . term-send-delete-word)
2190 ("M-," . term-send-raw)
2191 ("M-." . comint-dynamic-complete))
2192 term-unbind-key-alist
2193 '("C-z" "C-x" "C-c" "C-h" "C-y" "<ESC>")))
2194#+end_src
2195
2196** page-break-lines
2197
2198#+begin_src emacs-lisp
2199(use-package page-break-lines
2200 :config
2201 (global-page-break-lines-mode))
2202#+end_src
2203
f2a57944
AB
2204** expand-region
2205
2206#+begin_src emacs-lisp
2207(use-package expand-region
2208 :bind ("C-=" . er/expand-region))
2209#+end_src
2210
64e429b5
AB
2211** multiple-cursors
2212
2213#+begin_src emacs-lisp
2214(use-package multiple-cursors
1bbc615c
AB
2215 :bind
2216 (("C-S-<mouse-1>" . mc/add-cursor-on-click)
2217 (:prefix-map a/mc-prefix-map
2218 :prefix "C-c m"
2219 ("c" . mc/edit-lines)
2220 ("n" . mc/mark-next-like-this)
2221 ("p" . mc/mark-previous-like-this)
2222 ("a" . mc/mark-all-like-this))))
64e429b5 2223#+end_src
0884b63b 2224
32229294
AB
2225** forge
2226
2227#+begin_src emacs-lisp
2228(use-package forge
2229 :after magit
2230 :demand)
2231#+end_src
2232
a38db499
AB
2233** yasnippet
2234
2235#+begin_src emacs-lisp
2236(use-package yasnippet
2237 :defer 3
2238 :config
3c23b5ea
AB
2239 (defconst yas-verbosity-cur yas-verbosity)
2240 (setq yas-verbosity 2)
a38db499
AB
2241 (add-to-list 'yas-snippet-dirs "~/src/git/guix/etc/snippets")
2242 (yas-reload-all)
3c23b5ea 2243 (setq yas-verbosity yas-verbosity-cur)
a38db499
AB
2244 :hook
2245 (text-mode . yas-minor-mode))
2246#+end_src
2247
5fece105 2248* Email
673d5faa
AB
2249:PROPERTIES:
2250:CUSTOM_ID: email
2251:END:
5fece105 2252
5fece105 2253#+begin_src emacs-lisp
c5d8bb25 2254(defvar a/maildir (expand-file-name "~/mail/"))
ab6781dd 2255(with-eval-after-load 'recentf
c5d8bb25 2256 (add-to-list 'recentf-exclude a/maildir))
5fece105
AB
2257#+end_src
2258
2259** Gnus
2260
2261#+begin_src emacs-lisp
2262(setq
c5d8bb25
AB
2263 a/gnus-init-file (no-littering-expand-etc-file-name "gnus")
2264 mail-user-agent 'gnus-user-agent
2265 read-mail-command 'gnus)
5fece105 2266
d4b2a7ef 2267(use-feature gnus
1bbc615c 2268 :bind (("s-m" . gnus)
a0801748 2269 ("s-M" . gnus-unplugged))
5fece105
AB
2270 :init
2271 (setq
2272 gnus-select-method '(nnnil "")
2273 gnus-secondary-select-methods
2274 '((nnimap "amin"
2275 (nnimap-stream plain)
2276 (nnimap-address "127.0.0.1")
2277 (nnimap-server-port 143)
2278 (nnimap-authenticator plain)
2279 (nnimap-user "amin@aminb.org"))
2280 (nnimap "uwaterloo"
2281 (nnimap-stream plain)
2282 (nnimap-address "127.0.0.1")
2283 (nnimap-server-port 143)
2284 (nnimap-authenticator plain)
2285 (nnimap-user "abandali@uwaterloo.ca")))
2286 gnus-message-archive-group "nnimap+amin:Sent"
2287 gnus-parameters
2288 '(("gnu.*"
2289 (gcc-self . t)))
2290 gnus-large-newsgroup 50
2291 gnus-home-directory (no-littering-expand-var-file-name "gnus/")
2292 gnus-directory (concat gnus-home-directory "news/")
2293 message-directory (concat gnus-home-directory "mail/")
2294 nndraft-directory (concat gnus-home-directory "drafts/")
2295 gnus-save-newsrc-file nil
2296 gnus-read-newsrc-file nil
2297 gnus-interactive-exit nil
f0d07afc
AB
2298 gnus-gcc-mark-as-read t)
2299 :config
2300 (require 'ebdb)
2301 (require 'ebdb-mua)
2302 (require 'ebdb-gnus))
5fece105 2303
d4b2a7ef 2304(use-feature gnus-art
5fece105
AB
2305 :config
2306 (setq
2307 gnus-visible-headers
2308 (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
2309 gnus-sorted-header-list
2310 '("^From:" "^Subject:" "^Summary:" "^Keywords:"
2311 "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator"
2312 "^Newsgroups:" "List-Id:" "^Organization:"
2313 "^User-Agent:" "^Date:")
2314 ;; local-lapsed article dates
2315 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
2316 gnus-article-date-headers '(user-defined)
2317 gnus-article-time-format
2318 (lambda (time)
2319 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
2320 (local (article-make-date-line date 'local))
2321 (combined-lapsed (article-make-date-line date
2322 'combined-lapsed))
2323 (lapsed (progn
2324 (string-match " (.+" combined-lapsed)
2325 (match-string 0 combined-lapsed))))
2326 (concat local lapsed))))
2327 (bind-keys
2328 :map gnus-article-mode-map
2329 ("r" . gnus-article-reply-with-original)
2330 ("R" . gnus-article-wide-reply-with-original)
2331 ("M-L" . org-store-link)))
2332
d4b2a7ef 2333(use-feature gnus-sum
5fece105 2334 :bind (:map gnus-summary-mode-map
c5d8bb25 2335 :prefix-map a/gnus-summary-prefix-map
5fece105
AB
2336 :prefix "v"
2337 ("r" . gnus-summary-reply)
2338 ("w" . gnus-summary-wide-reply)
2339 ("v" . gnus-summary-show-raw-article))
2340 :config
2341 (bind-keys
2342 :map gnus-summary-mode-map
2343 ("r" . gnus-summary-reply-with-original)
2344 ("R" . gnus-summary-wide-reply-with-original)
2345 ("M-L" . org-store-link))
c5d8bb25 2346 :hook (gnus-summary-mode . a/no-mouse-autoselect-window))
5fece105 2347
d4b2a7ef 2348(use-feature gnus-msg
5fece105
AB
2349 :config
2350 (setq gnus-posting-styles
2351 '((".*"
2352 (address "amin@aminb.org")
2353 (body "\nBest,\namin\n")
c5d8bb25 2354 (eval (setq a/message-cite-say-hi t)))
5fece105
AB
2355 ("gnu.*"
2356 (address "bandali@gnu.org"))
2357 ((header "subject" "ThankCRM")
2358 (to "webmasters-comment@gnu.org")
cd277699 2359 (body "\nAdded to 2019supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
c5d8bb25 2360 (eval (setq a/message-cite-say-hi nil)))
5fece105
AB
2361 ("nnimap\\+uwaterloo:.*"
2362 (address "abandali@uwaterloo.ca")
2363 (gcc "\"nnimap+uwaterloo:Sent Items\"")))))
2364
d4b2a7ef 2365(use-feature gnus-topic
5fece105
AB
2366 :hook (gnus-group-mode . gnus-topic-mode))
2367
d4b2a7ef 2368(use-feature gnus-agent
5fece105
AB
2369 :config
2370 (setq gnus-agent-synchronize-flags 'ask)
2371 :hook (gnus-group-mode . gnus-agent-mode))
2372
d4b2a7ef 2373(use-feature gnus-group
5fece105
AB
2374 :config
2375 (setq gnus-permanently-visible-groups "\\((INBOX\\|gnu$\\)"))
2376
d4b2a7ef 2377(use-feature mm-decode
5fece105
AB
2378 :config
2379 (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
2380#+end_src
2381
2382** sendmail
2383
2384#+begin_src emacs-lisp
d4b2a7ef 2385(use-feature sendmail
5fece105
AB
2386 :config
2387 (setq sendmail-program "/usr/bin/msmtp"
2388 ;; message-sendmail-extra-arguments '("-v" "-d")
2389 mail-specify-envelope-from t
2390 mail-envelope-from 'header))
2391#+end_src
2392
2393** message
2394
2395#+begin_src emacs-lisp
d4b2a7ef 2396(use-feature message
5fece105 2397 :config
c5d8bb25 2398 (defconst a/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
5fece105
AB
2399 (defconst message-cite-style-bandali
2400 '((message-cite-function 'message-cite-original)
2401 (message-citation-line-function 'message-insert-formatted-citation-line)
2402 (message-cite-reply-position 'traditional)
2403 (message-yank-prefix "> ")
2404 (message-yank-cited-prefix ">")
2405 (message-yank-empty-prefix ">")
2406 (message-citation-line-format
c5d8bb25
AB
2407 (if a/message-cite-say-hi
2408 (concat "Hi %F,\n\n" a/message-cite-style-format)
2409 a/message-cite-style-format)))
5fece105
AB
2410 "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
2411 (setq message-cite-style 'message-cite-style-bandali
2412 message-kill-buffer-on-exit t
2413 message-send-mail-function 'message-send-mail-with-sendmail
2414 message-sendmail-envelope-from 'header
2415 message-dont-reply-to-names
2416 "\\(\\(.*@aminb\\.org\\)\\|\\(amin@bandali\\.me\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
2417 message-user-fqdn "aminb.org")
f0d07afc 2418 (require 'company-ebdb)
5fece105
AB
2419 :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
2420 (message-mode . flyspell-mode)
2421 (message-mode . (lambda ()
2422 ;; (setq fill-column 65
2423 ;; message-fill-column 65)
2424 (make-local-variable 'company-idle-delay)
2425 (setq company-idle-delay 0.2))))
2426 ;; :custom-face
2427 ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
2428 ;; (message-header-to ((t (:foreground "#111" :weight normal))))
2429 ;; (message-header-cc ((t (:foreground "#333" :weight normal))))
2430 )
2431
ab6781dd 2432(with-eval-after-load 'mml-sec
5fece105
AB
2433 (setq mml-secure-openpgp-encrypt-to-self t
2434 mml-secure-openpgp-sign-with-sender t))
2435#+end_src
2436
2437** footnote
2438
2439Convenient footnotes in =message-mode=.
2440
2441#+begin_src emacs-lisp
d4b2a7ef 2442(use-feature footnote
5fece105
AB
2443 :after message
2444 :bind
2445 (:map message-mode-map
c5d8bb25 2446 :prefix-map a/footnote-prefix-map
5fece105
AB
2447 :prefix "C-c f"
2448 ("a" . footnote-add-footnote)
2449 ("b" . footnote-back-to-message)
2450 ("c" . footnote-cycle-style)
2451 ("d" . footnote-delete-footnote)
2452 ("g" . footnote-goto-footnote)
2453 ("r" . footnote-renumber-footnotes)
2454 ("s" . footnote-set-style))
2455 :config
2456 (setq footnote-start-tag ""
2457 footnote-end-tag ""
2458 footnote-style 'unicode))
2459#+end_src
2460
490554d3
AB
2461** ebdb
2462
2463#+begin_src emacs-lisp
2464(use-package ebdb
86efa0e3 2465 :straight (:host github :repo "girzel/ebdb")
6ce4ebba 2466 :after gnus
490554d3
AB
2467 :bind (:map gnus-group-mode-map ("e" . ebdb))
2468 :config
2469 (setq ebdb-sources (no-littering-expand-var-file-name "ebdb"))
ab6781dd 2470 (with-eval-after-load 'swiper
490554d3
AB
2471 (add-to-list 'swiper-font-lock-exclude 'ebdb-mode t)))
2472
d4b2a7ef 2473(use-feature ebdb-com
490554d3
AB
2474 :after ebdb)
2475
2476;; (use-package ebdb-complete
2477;; :after ebdb
2478;; :config
2479;; (ebdb-complete-enable))
2480
2481(use-package company-ebdb
490554d3 2482 :config
dfd86f53 2483 (defun company-ebdb--post-complete (_) nil))
490554d3 2484
d4b2a7ef 2485(use-feature ebdb-gnus
490554d3
AB
2486 :after ebdb
2487 :custom
2488 (ebdb-gnus-window-configuration
2489 '(article
2490 (vertical 1.0
2491 (summary 0.25 point)
2492 (horizontal 1.0
2493 (article 1.0)
2494 (ebdb-gnus 0.3))))))
2495
d4b2a7ef 2496(use-feature ebdb-mua
490554d3
AB
2497 :after ebdb
2498 ;; :custom (ebdb-mua-pop-up nil)
2499 )
2500
2501;; (use-package ebdb-message
2502;; :after ebdb)
2503
2504
2505;; (use-package ebdb-vcard
2506;; :after ebdb)
2507#+end_src
2508
f94edfe6 2509** message-x
5fece105
AB
2510
2511#+begin_src emacs-lisp
f94edfe6
AB
2512(use-package message-x)
2513#+end_src
2514
2515#+begin_src emacs-lisp :tangle no
5fece105 2516(use-package message-x
5fece105
AB
2517 :custom
2518 (message-x-completion-alist
2519 (quote
2520 (("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:" . gnus-harvest-find-address)
2521 ((if
2522 (boundp
2523 (quote message-newgroups-header-regexp))
2524 message-newgroups-header-regexp message-newsgroups-header-regexp)
2525 . message-expand-group)))))
2526#+end_src
2527
9cebbd53 2528** COMMENT gnus-harvest
5fece105
AB
2529
2530#+begin_src emacs-lisp
2531(use-package gnus-harvest
5fece105
AB
2532 :commands gnus-harvest-install
2533 :demand t
2534 :config
2535 (if (featurep 'message-x)
2536 (gnus-harvest-install 'message-x)
2537 (gnus-harvest-install)))
2538#+end_src
2539
2540* Blogging
673d5faa
AB
2541:PROPERTIES:
2542:CUSTOM_ID: blogging
2543:END:
5fece105 2544
5fece105
AB
2545** [[https://ox-hugo.scripter.co][ox-hugo]]
2546
2547#+begin_src emacs-lisp
2548(use-package ox-hugo
4d4cf261
AB
2549 :after ox
2550 :demand)
5fece105
AB
2551#+end_src
2552
2553* Post initialization
2554:PROPERTIES:
2555:CUSTOM_ID: post-initialization
2556:END:
2557
5fece105
AB
2558Display how long it took to load the init file.
2559
2560#+begin_src emacs-lisp
2561(message "Loading %s...done (%.3fs)" user-init-file
2562 (float-time (time-subtract (current-time)
c5d8bb25 2563 a/before-user-init-time)))
5fece105
AB
2564#+end_src
2565
2566* Footer
2567:PROPERTIES:
2568:CUSTOM_ID: footer
2569:END:
2570
2571#+begin_src emacs-lisp :comments none
2572;;; init.el ends here
2573#+end_src
2574
2575* COMMENT Local Variables :ARCHIVE:
2576# Local Variables:
c5d8bb25 2577# eval: (add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local)
6ce4ebba 2578# eval: (when (featurep 'typo (typo-mode -1)))
5fece105 2579# End: