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