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