projects / ~bandali / configs / blob
? search:


b80e00f63573e2f7ebb299c1c158b01161c02f08
[~bandali/configs] / init.el
1 ;;; init.el --- Amin Bandali's Emacs config -*- lexical-binding: t -*-
2
3 ;; Copyright (C) 2018 Amin Bandali <bandali@gnu.org>
4
5 ;; This program is free software: you can redistribute it and/or modify
6 ;; it under the terms of the GNU General Public License as published by
7 ;; the Free Software Foundation, either version 3 of the License, or
8 ;; (at your option) any later version.
9
10 ;; This program is distributed in the hope that it will be useful,
11 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 ;; GNU General Public License for more details.
14
15 ;; You should have received a copy of the GNU General Public License
16 ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
17
18 ;;; Commentary:
19
20 ;; Emacs configuration of Amin Bandali, computer scientist and functional
21 ;; programmer.
22
23 ;; THIS FILE IS AUTO-GENERATED FROM `init.org'.
24
25 ;; Naming conventions:
26 ;;
27 ;; amin-... public variables or non-interactive functions
28 ;; amin--... private anything (non-interactive), not safe for direct use
29 ;; amin/... an interactive function; safe for M-x or keybinding
30 ;; amin|... a hook function
31 ;; amin*... an advising function
32 ;; amin@... a hydra command
33 ;; ...! a macro
34
35 ;;; Code:
36
37 \f
38 ;; * Initial setup
39
40 (defvar amin--before-user-init-time (current-time)
41 "Value of `current-time' when Emacs begins loading `user-init-file'.")
42 (message "Loading Emacs...done (%.3fs)"
43 (float-time (time-subtract amin--before-user-init-time
44 before-init-time)))
45
46 (defvar amin--gc-cons-threshold gc-cons-threshold)
47 (defvar amin--gc-cons-percentage gc-cons-percentage)
48 (defvar amin--file-name-handler-alist file-name-handler-alist)
49 (setq gc-cons-threshold (* 400 1024 1024) ; 400 MiB
50 gc-cons-percentage 0.6
51 file-name-handler-alist nil
52 ;; sidesteps a bug when profiling with esup
53 esup-child-profile-require-level 0)
54
55 (add-hook
56 'after-init-hook
57 (lambda ()
58 (setq gc-cons-threshold amin--gc-cons-threshold
59 gc-cons-percentage amin--gc-cons-percentage
60 file-name-handler-alist amin--file-name-handler-alist)))
61
62 (setq message-log-max 20000)
63
64 ;; (setq byte-compile-warnings
65 ;; '(not free-vars unresolved noruntime lexical make-local))
66
67 (setq user-full-name "Amin Bandali"
68 user-mail-address "amin@aminb.org")
69
70 (setq package-enable-at-startup nil)
71 ;; (package-initialize)
72
73 (setq user-init-file (or load-file-name buffer-file-name)
74 user-emacs-directory (file-name-directory user-init-file))
75 (add-to-list 'load-path
76 (expand-file-name "lib/borg" user-emacs-directory))
77 (require 'borg)
78 (borg-initialize)
79
80 ;; (require 'borg-nix-shell)
81 ;; (setq borg-build-shell-command 'borg-nix-shell-build-command)
82
83 (with-eval-after-load 'bind-key
84 (bind-keys
85 :package borg
86 ("C-c b A" . borg-activate)
87 ("C-c b a" . borg-assimilate)
88 ("C-c b b" . borg-build)
89 ("C-c b c" . borg-clone)
90 ("C-c b r" . borg-remove)))
91
92 (require 'use-package)
93 (if nil ; set to t when need to debug init
94 (setq use-package-verbose t
95 use-package-expand-minimally nil
96 use-package-compute-statistics t
97 debug-on-error t)
98 (setq use-package-verbose nil
99 use-package-expand-minimally t))
100
101 (use-package epkg
102 :defer t
103 :bind
104 (("C-c b d" . epkg-describe-package)
105 ("C-c b p" . epkg-list-packages)
106 ("C-c b u" . epkg-update)))
107
108 (use-package no-littering
109 :demand t
110 :config
111 (savehist-mode 1)
112 (add-to-list 'savehist-additional-variables 'kill-ring)
113 (save-place-mode 1)
114 (setq auto-save-file-name-transforms
115 `((".*" ,(no-littering-expand-var-file-name "auto-save/") t))))
116
117 (use-package custom
118 :no-require t
119 :config
120 (setq custom-file (no-littering-expand-etc-file-name "custom.el"))
121 (when (file-exists-p custom-file)
122 (load custom-file))
123 (setf custom-safe-themes t))
124
125 (with-demoted-errors
126 (load (no-littering-expand-etc-file-name "secrets")))
127
128 (use-package exec-path-from-shell
129 :defer 1
130 :init
131 (setq exec-path-from-shell-check-startup-files nil)
132 :config
133 (exec-path-from-shell-initialize)
134 ;; while we're at it, let's fix access to our running ssh-agent
135 (exec-path-from-shell-copy-env "SSH_AGENT_PID")
136 (exec-path-from-shell-copy-env "SSH_AUTH_SOCK"))
137
138 ;; only one custom theme at a time
139 ;;
140 ;; (defadvice load-theme (before clear-previous-themes activate)
141 ;; "Clear existing theme settings instead of layering them"
142 ;; (mapc #'disable-theme custom-enabled-themes))
143
144 (use-package server
145 :defer 1
146 :config (or (server-running-p) (server-mode)))
147
148 ;; unicode support
149 ;;
150 ;; (dolist (ft (fontset-list))
151 ;; (set-fontset-font
152 ;; ft
153 ;; 'unicode
154 ;; (font-spec :name "Source Code Pro" :size 14))
155 ;; (set-fontset-font
156 ;; ft
157 ;; 'unicode
158 ;; (font-spec :name "DejaVu Sans Mono")
159 ;; nil
160 ;; 'append)
161 ;; ;; (set-fontset-font
162 ;; ;; ft
163 ;; ;; 'unicode
164 ;; ;; (font-spec
165 ;; ;; :name "Symbola monospacified for DejaVu Sans Mono")
166 ;; ;; nil
167 ;; ;; 'append)
168 ;; ;; (set-fontset-font
169 ;; ;; ft
170 ;; ;; #x2115 ; ℕ
171 ;; ;; (font-spec :name "DejaVu Sans Mono")
172 ;; ;; nil
173 ;; ;; 'append)
174 ;; (set-fontset-font
175 ;; ft
176 ;; (cons ?Α ?ω)
177 ;; (font-spec :name "DejaVu Sans Mono" :size 14)
178 ;; nil
179 ;; 'prepend))
180
181 (setq text-scale-mode-step 1.05)
182
183 (setq mouse-autoselect-window t)
184
185 (defun amin--no-mouse-autoselect-window ()
186 (make-local-variable 'mouse-autoselect-window)
187 (setq mouse-autoselect-window nil))
188
189 (require 'cl-lib)
190 (require 'subr-x)
191
192 (defun amin-enlist (exp)
193 "Return EXP wrapped in a list, or as-is if already a list."
194 (if (listp exp) exp (list exp)))
195
196 ; from https://github.com/hlissner/doom-emacs/commit/589108fdb270f24a98ba6209f6955fe41530b3ef
197 (defmacro after! (features &rest body)
198 "A smart wrapper around `with-eval-after-load'. Supresses warnings during
199 compilation."
200 (declare (indent defun) (debug t))
201 (list (if (or (not (bound-and-true-p byte-compile-current-file))
202 (dolist (next (amin-enlist features))
203 (if (symbolp next)
204 (require next nil :no-error)
205 (load next :no-message :no-error))))
206 #'progn
207 #'with-no-warnings)
208 (cond ((symbolp features)
209 `(eval-after-load ',features '(progn ,@body)))
210 ((and (consp features)
211 (memq (car features) '(:or :any)))
212 `(progn
213 ,@(cl-loop for next in (cdr features)
214 collect `(after! ,next ,@body))))
215 ((and (consp features)
216 (memq (car features) '(:and :all)))
217 (dolist (next (cdr features))
218 (setq body `(after! ,next ,@body)))
219 body)
220 ((listp features)
221 `(after! (:all ,@features) ,@body)))))
222
223 (defmacro setq-every! (value &rest vars)
224 "Set all the variables from VARS to value VALUE."
225 (declare (indent defun) (debug t))
226 `(progn ,@(mapcar (lambda (x) (list 'setq x value)) vars)))
227
228 \f
229 ;; * Core
230
231 ;; (fringe-mode '(3 . 1))
232 (fringe-mode nil)
233
234 (setq disabled-command-function nil)
235
236 (setq save-interprogram-paste-before-kill t)
237
238 (setq enable-recursive-minibuffers t
239 resize-mini-windows t)
240
241 (defalias 'yes-or-no-p #'y-or-n-p)
242
243 (setq initial-buffer-choice t)
244
245 (setq initial-scratch-message nil)
246
247 (setq initial-major-mode 'text-mode)
248
249 (setq inhibit-startup-buffer-menu t)
250
251 (advice-add #'display-startup-echo-area-message :override #'ignore)
252 (setq inhibit-startup-screen t
253 inhibit-startup-echo-area-message user-login-name)
254
255 (setq frame-title-format
256 '("" invocation-name " - "
257 (:eval (if (buffer-file-name)
258 (abbreviate-file-name (buffer-file-name))
259 "%b"))))
260
261 (setq backup-by-copying t
262 version-control t
263 delete-old-versions t)
264
265 (global-auto-revert-mode 1)
266 (setq auto-revert-verbose nil
267 global-auto-revert-non-file-buffers nil)
268
269 (setq-default
270 indent-tabs-mode nil
271 require-final-newline t
272 tab-width 4)
273
274 (winner-mode 1)
275
276 (setq compilation-exit-message-function
277 (lambda (status code msg)
278 "Close the compilation window if successful."
279 ;; if M-x compile exits with 0
280 (when (and (eq status 'exit) (zerop code))
281 (bury-buffer)
282 (delete-window (get-buffer-window (get-buffer "*compilation*"))))
283 ;; return the result of compilation-exit-message-function
284 (cons msg code)))
285
286 (setq search-default-mode #'char-fold-to-regexp)
287
288 ;; uncomment to extend this behaviour to query-replace
289 ;; (setq replace-char-fold t)
290
291 (bind-keys
292 ("C-c a i" . ielm)
293
294 ("C-c e b" . eval-buffer)
295 ("C-c e r" . eval-region)
296
297 ("C-c F m" . make-frame-command)
298 ("C-c F d" . delete-frame)
299 ("C-c F D" . delete-other-frames)
300
301 ("C-c o" . other-window)
302
303 ("C-c Q" . save-buffers-kill-terminal)
304
305 ("C-S-h C" . describe-char)
306 ("C-S-h F" . describe-face)
307
308 ("C-x K" . kill-this-buffer)
309
310 ("s-p" . beginning-of-buffer)
311 ("s-n" . end-of-buffer))
312
313 (use-package auto-compile
314 :demand t
315 :config
316 (auto-compile-on-load-mode)
317 (auto-compile-on-save-mode)
318 (setq auto-compile-display-buffer nil
319 auto-compile-mode-line-counter t
320 auto-compile-source-recreate-deletes-dest t
321 auto-compile-toggle-deletes-nonlib-dest t
322 auto-compile-update-autoloads t)
323 (add-hook 'auto-compile-inhibit-compile-hook
324 'auto-compile-inhibit-compile-detached-git-head))
325
326 (use-package org
327 :defer 1
328 :config
329 (setq org-src-tab-acts-natively t
330 org-src-preserve-indentation nil
331 org-edit-src-content-indentation 0
332 org-email-link-description-format "Email %c: %s" ; %.30s
333 org-highlight-latex-and-related '(entities)
334 org-log-done 'time)
335 (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
336 (font-lock-add-keywords
337 'org-mode
338 '(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)"
339 (1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive
340 (3 '(:foreground "#81a2be" :background "#292b2b") t) ; kind
341 (4 '(:foreground "#c5c8c6") t))) ; title
342 t)
343 :bind (:map org-mode-map ("M-L" . org-insert-last-stored-link))
344 :hook ((org-mode . org-indent-mode)
345 (org-mode . auto-fill-mode)
346 (org-mode . flyspell-mode))
347 :custom
348 (org-latex-packages-alist '(("" "listings") ("" "color")))
349 :custom-face
350 '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21"))))
351 '(org-block ((t (:background "#1d1f21"))))
352 '(org-latex-and-related ((t (:foreground "#b294bb")))))
353
354 (use-package ox-latex
355 :after ox
356 :config
357 (setq org-latex-listings 'listings
358 ;; org-latex-prefer-user-labels t
359 )
360 (add-to-list 'org-latex-packages-alist '("" "listings"))
361 (add-to-list 'org-latex-packages-alist '("" "color"))
362 (add-to-list 'org-latex-classes
363 '("IEEEtran" "\\documentclass[11pt]{IEEEtran}"
364 ("\\section{%s}" . "\\section*{%s}")
365 ("\\subsection{%s}" . "\\subsection*{%s}")
366 ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
367 ("\\paragraph{%s}" . "\\paragraph*{%s}")
368 ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
369 t))
370
371 (use-package ox-beamer
372 :after ox)
373
374 (use-package orgalist
375 :after message
376 :hook (message-mode . orgalist-mode))
377
378 (after! org
379 (defvar amin-show-async-tangle-results nil
380 "Keep *emacs* async buffers around for later inspection.")
381
382 (defvar amin-show-async-tangle-time nil
383 "Show the time spent tangling the file.")
384
385 (defvar amin-async-tangle-post-compile "make ti"
386 "If non-nil, pass to `compile' after successful tangle.")
387
388 (defun amin/async-babel-tangle ()
389 "Tangle org file asynchronously."
390 (interactive)
391 (let* ((file-tangle-start-time (current-time))
392 (file (buffer-file-name))
393 (file-nodir (file-name-nondirectory file))
394 (async-quiet-switch "-q"))
395 (async-start
396 `(lambda ()
397 (require 'org)
398 (org-babel-tangle-file ,file))
399 (unless amin-show-async-tangle-results
400 `(lambda (result)
401 (if result
402 (progn
403 (message "Tangled %s%s"
404 ,file-nodir
405 (if amin-show-async-tangle-time
406 (format " (%.3fs)"
407 (float-time (time-subtract (current-time)
408 ',file-tangle-start-time)))
409 ""))
410 (when amin-async-tangle-post-compile
411 (compile amin-async-tangle-post-compile)))
412 (message "Tangling %s failed" ,file-nodir))))))))
413
414 (add-to-list
415 'safe-local-variable-values
416 '(eval add-hook 'after-save-hook #'amin/async-babel-tangle 'append 'local))
417
418 (use-package magit
419 :defer 1
420 :bind (("C-x g" . magit-status)
421 ("s-g s" . magit-status)
422 ("s-g l" . magit-log-buffer-file))
423 :config
424 (magit-add-section-hook 'magit-status-sections-hook
425 'magit-insert-modules
426 'magit-insert-stashes
427 'append)
428 (setq
429 magit-repository-directories '(("~/.emacs.d/" . 0)
430 ("~/src/git/" . 1)))
431 (nconc magit-section-initial-visibility-alist
432 '(([unpulled status] . show)
433 ([unpushed status] . show)))
434 :custom-face (magit-diff-file-heading ((t (:weight normal)))))
435
436 (use-package ivy
437 :defer 1
438 :bind
439 (:map ivy-minibuffer-map
440 ([escape] . keyboard-escape-quit)
441 ([S-up] . ivy-previous-history-element)
442 ([S-down] . ivy-next-history-element)
443 ("DEL" . ivy-backward-delete-char))
444 :config
445 (setq ivy-wrap t)
446 (ivy-mode 1)
447 ;; :custom-face
448 ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
449 ;; (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
450 ;; (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold))))
451 )
452
453 (use-package swiper
454 :bind (("C-s" . swiper)
455 ("C-r" . swiper)))
456
457 (use-package counsel
458 :defer 1
459 :bind (([remap execute-extended-command] . counsel-M-x)
460 ([remap find-file] . counsel-find-file)
461 ("s-r" . counsel-recentf)
462 ("C-c x" . counsel-M-x)
463 ("C-c f ." . counsel-find-file)
464 :map minibuffer-local-map
465 ("C-r" . counsel-minibuffer-history))
466 :config
467 (counsel-mode 1)
468 (defalias 'locate #'counsel-locate))
469
470 (use-package eshell
471 :defer 1
472 :commands eshell
473 :config
474 (eval-when-compile (defvar eshell-prompt-regexp))
475 (defun amin/eshell-quit-or-delete-char (arg)
476 (interactive "p")
477 (if (and (eolp) (looking-back eshell-prompt-regexp nil))
478 (eshell-life-is-too-much)
479 (delete-char arg)))
480
481 (defun amin/eshell-clear ()
482 (interactive)
483 (let ((inhibit-read-only t))
484 (erase-buffer))
485 (eshell-send-input))
486
487 (defun amin|eshell-setup ()
488 (make-local-variable 'company-idle-delay)
489 (setq company-idle-delay nil)
490 (bind-keys :map eshell-mode-map
491 ("C-d" . amin/eshell-quit-or-delete-char)
492 ("C-S-l" . amin/eshell-clear)
493 ("M-r" . counsel-esh-history)
494 ([tab] . company-complete)))
495
496 :hook (eshell-mode . amin|eshell-setup)
497 :custom
498 (eshell-hist-ignoredups t)
499 (eshell-input-filter 'eshell-input-filter-initial-space))
500
501 (use-package ibuffer
502 :defer t
503 :bind
504 (("C-x C-b" . ibuffer-other-window)
505 :map ibuffer-mode-map
506 ("P" . ibuffer-backward-filter-group)
507 ("N" . ibuffer-forward-filter-group)
508 ("M-p" . ibuffer-do-print)
509 ("M-n" . ibuffer-do-shell-command-pipe-replace))
510 :config
511 ;; Use human readable Size column instead of original one
512 (define-ibuffer-column size-h
513 (:name "Size" :inline t)
514 (cond
515 ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
516 ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
517 ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
518 (t (format "%8d" (buffer-size)))))
519 :custom
520 (ibuffer-saved-filter-groups
521 '(("default"
522 ("dired" (mode . dired-mode))
523 ("org" (mode . org-mode))
524 ("web"
525 (or
526 (mode . web-mode)
527 (mode . css-mode)
528 (mode . scss-mode)
529 (mode . js2-mode)))
530 ("shell"
531 (or
532 (mode . eshell-mode)
533 (mode . shell-mode)))
534 ("notmuch" (name . "\*notmuch\*"))
535 ("programming"
536 (or
537 (mode . python-mode)
538 (mode . c++-mode)
539 (mode . emacs-lisp-mode)))
540 ("emacs"
541 (or
542 (name . "^\\*scratch\\*$")
543 (name . "^\\*Messages\\*$")))
544 ("slack"
545 (or
546 (name . "^\\*Slack*"))))))
547 (ibuffer-formats
548 '((mark modified read-only locked " "
549 (name 18 18 :left :elide)
550 " "
551 (size-h 9 -1 :right)
552 " "
553 (mode 16 16 :left :elide)
554 " " filename-and-process)
555 (mark " "
556 (name 16 -1)
557 " " filename)))
558 :hook (ibuffer . (lambda () (ibuffer-switch-to-saved-filter-groups "default"))))
559
560 (use-package outline
561 :defer t
562 :hook (prog-mode . outline-minor-mode)
563 :bind
564 (:map
565 outline-minor-mode-map
566 ("<s-tab>" . outline-toggle-children)
567 ("M-p" . outline-previous-visible-heading)
568 ("M-n" . outline-next-visible-heading)
569 :prefix-map amin--outline-prefix-map
570 :prefix "s-o"
571 ("TAB" . outline-toggle-children)
572 ("a" . outline-hide-body)
573 ("H" . outline-hide-body)
574 ("S" . outline-show-all)
575 ("h" . outline-hide-subtree)
576 ("s" . outline-show-subtree)))
577
578 \f
579 ;; * Borg's `layer/essentials'
580
581 (use-package dash
582 :config (dash-enable-font-lock))
583
584 (use-package diff-hl
585 :config
586 (setq diff-hl-draw-borders nil)
587 (global-diff-hl-mode)
588 (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh t))
589
590 (use-package dired
591 :defer t
592 :config (setq dired-listing-switches "-alh"))
593
594 (use-package eldoc
595 :when (version< "25" emacs-version)
596 :config (global-eldoc-mode))
597
598 (use-package help
599 :defer t
600 :config
601 (temp-buffer-resize-mode)
602 (setq help-window-select t))
603
604 (progn ; `isearch'
605 (setq isearch-allow-scroll t))
606
607 (use-package lisp-mode
608 :config
609 (add-hook 'emacs-lisp-mode-hook 'outline-minor-mode)
610 (add-hook 'emacs-lisp-mode-hook 'reveal-mode)
611 (defun indent-spaces-mode ()
612 (setq indent-tabs-mode nil))
613 (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
614
615 (use-package man
616 :defer t
617 :config (setq Man-width 80))
618
619 (use-package paren
620 :config (show-paren-mode))
621
622 (use-package prog-mode
623 :config (global-prettify-symbols-mode)
624 (defun indicate-buffer-boundaries-left ()
625 (setq indicate-buffer-boundaries 'left))
626 (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
627
628 (use-package recentf
629 :defer 0.5
630 :config
631 (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
632 (setq recentf-max-saved-items 40))
633
634 (use-package savehist
635 :config (savehist-mode))
636
637 (use-package saveplace
638 :when (version< "25" emacs-version)
639 :config (save-place-mode))
640
641 (use-package simple
642 :config (column-number-mode))
643
644 (progn ; `text-mode'
645 (add-hook 'text-mode-hook #'indicate-buffer-boundaries-left)
646 (add-hook 'text-mode-hook #'abbrev-mode))
647
648 (use-package tramp
649 :defer t
650 :config
651 (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
652 (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
653 (add-to-list 'tramp-default-proxies-alist
654 (list (regexp-quote (system-name)) nil nil)))
655
656 (use-package undo-tree
657 :config
658 (global-undo-tree-mode -1))
659 ;; :bind (("C-?" . undo-tree-undo)
660 ;; ("M-_" . undo-tree-redo))
661 ;; :config
662 ;; (global-undo-tree-mode)
663 ;; (setq undo-tree-mode-lighter ""
664 ;; undo-tree-auto-save-history t))
665
666 \f
667 ;; * Editing
668
669 (use-package company
670 :defer 1
671 :bind
672 (:map company-active-map
673 ([tab] . company-complete-common-or-cycle)
674 ([escape] . company-abort))
675 :custom
676 (company-minimum-prefix-length 1)
677 (company-selection-wrap-around t)
678 (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
679 (company-dabbrev-downcase nil)
680 (company-dabbrev-ignore-case nil)
681 :config
682 (global-company-mode t))
683
684 \f
685 ;; * Syntax and spell checking
686
687 (use-package flycheck
688 :defer 3
689 :hook (prog-mode . flycheck-mode)
690 :bind
691 (:map flycheck-mode-map
692 ("M-P" . flycheck-previous-error)
693 ("M-N" . flycheck-next-error))
694 :config
695 ;; Use the load-path from running Emacs when checking elisp files
696 (setq flycheck-emacs-lisp-load-path 'inherit)
697
698 ;; Only flycheck when I actually save the buffer
699 (setq flycheck-check-syntax-automatically '(mode-enabled save)))
700
701 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
702 (use-package ispell
703 :defer 3
704 :config
705 ;; ’ can be part of a word
706 (setq ispell-local-dictionary-alist
707 `((nil "[[:alpha:]]" "[^[:alpha:]]"
708 "['\x2019]" nil ("-B") nil utf-8)))
709 ;; don't send ’ to the subprocess
710 (defun endless/replace-apostrophe (args)
711 (cons (replace-regexp-in-string
712 "’" "'" (car args))
713 (cdr args)))
714 (advice-add #'ispell-send-string :filter-args
715 #'endless/replace-apostrophe)
716
717 ;; convert ' back to ’ from the subprocess
718 (defun endless/replace-quote (args)
719 (if (not (derived-mode-p 'org-mode))
720 args
721 (cons (replace-regexp-in-string
722 "'" "’" (car args))
723 (cdr args))))
724 (advice-add #'ispell-parse-output :filter-args
725 #'endless/replace-quote))
726
727 \f
728 ;; * Programming modes
729
730 (use-package alloy-mode
731 :defer t
732 :config (setq alloy-basic-offset 2))
733
734 (use-package proof-site ; Proof General
735 :defer t
736 :load-path "lib/proof-site/generic/")
737
738 (eval-when-compile (defvar lean-mode-map))
739 (use-package lean-mode
740 :defer 1
741 :bind (:map lean-mode-map
742 ("S-SPC" . company-complete))
743 :config
744 (require 'lean-input)
745 (setq default-input-method "Lean"
746 lean-input-tweak-all '(lean-input-compose
747 (lean-input-prepend "/")
748 (lean-input-nonempty))
749 lean-input-user-translations '(("/" "/")))
750 (lean-input-setup))
751
752 (use-package haskell-mode
753 :defer t
754 :config
755 (setq haskell-indentation-layout-offset 4
756 haskell-indentation-left-offset 4
757 flycheck-checker 'haskell-hlint
758 flycheck-disabled-checkers '(haskell-stack-ghc haskell-ghc)))
759
760 (use-package dante
761 :after haskell-mode
762 :commands dante-mode
763 :hook (haskell-mode . dante-mode))
764
765 (use-package hlint-refactor
766 :after haskell-mode
767 :bind (:map hlint-refactor-mode-map
768 ("C-c l b" . hlint-refactor-refactor-buffer)
769 ("C-c l r" . hlint-refactor-refactor-at-point))
770 :hook (haskell-mode . hlint-refactor-mode))
771
772 (use-package flycheck-haskell
773 :after haskell-mode)
774
775 (use-package sgml-mode
776 :defer t
777 :config
778 (setq sgml-basic-offset 2))
779
780 (use-package css-mode
781 :defer t
782 :config
783 (setq css-indent-offset 2))
784
785 (use-package web-mode
786 :defer t
787 :mode "\\.html\\'"
788 :config
789 (setq-every! 2
790 web-mode-code-indent-offset
791 web-mode-css-indent-offset
792 web-mode-markup-indent-offset))
793
794 (use-package emmet-mode
795 :after (:any web-mode css-mode sgml-mode)
796 :bind* (("C-)" . emmet-next-edit-point)
797 ("C-(" . emmet-prev-edit-point))
798 :config
799 (unbind-key "C-j" emmet-mode-keymap)
800 (setq emmet-move-cursor-between-quotes t)
801 :hook (web-mode css-mode html-mode sgml-mode))
802
803 (use-package nix-mode
804 :defer t
805 :mode "\\.nix\\'")
806
807 \f
808 ;; * Emacs Enhancements
809
810 (use-package which-key
811 :defer 1
812 :config (which-key-mode))
813
814 (add-to-list 'custom-theme-load-path "~/.emacs.d/lisp")
815 (load-theme 'tangomod t)
816
817 (use-package doom-modeline
818 :demand t
819 :config (setq doom-modeline-height 32)
820 :hook (after-init . doom-modeline-init))
821
822 (use-package doom-themes)
823
824 (defun amin/lights-on ()
825 "Enable my favourite light theme."
826 (interactive)
827 (progn
828 (mapc #'disable-theme custom-enabled-themes)
829 (load-theme 'tangomod t)))
830
831 (defun amin/lights-off ()
832 "Go dark."
833 (interactive)
834 (progn
835 (mapc #'disable-theme custom-enabled-themes)
836 (load-theme 'doom-tomorrow-night t)))
837
838 (bind-keys
839 ("s-t d" . amin/lights-off)
840 ("s-t l" . amin/lights-on))
841
842 (use-package crux
843 :defer 1
844 :bind (("C-c b k" . crux-kill-other-buffers)
845 ("C-c d" . crux-duplicate-current-line-or-region)
846 ("C-c D" . crux-duplicate-and-comment-current-line-or-region)
847 ("C-c f c" . crux-copy-file-preserve-attributes)
848 ("C-c f d" . crux-delete-file-and-buffer)
849 ("C-c f r" . crux-rename-file-and-buffer)
850 ("C-c j" . crux-top-join-line)
851 ("C-S-j" . crux-top-join-line)))
852
853 (use-package mwim
854 :bind (("C-a" . mwim-beginning-of-code-or-line)
855 ("C-e" . mwim-end-of-code-or-line)
856 ("<home>" . mwim-beginning-of-line-or-code)
857 ("<end>" . mwim-end-of-line-or-code)))
858
859 (use-package projectile
860 :defer t
861 :bind-keymap ("C-c p" . projectile-command-map)
862 :config
863 (projectile-mode)
864
865 (defun my-projectile-invalidate-cache (&rest _args)
866 ;; ignore the args to `magit-checkout'
867 (projectile-invalidate-cache nil))
868
869 (eval-after-load 'magit-branch
870 '(progn
871 (advice-add 'magit-checkout
872 :after #'my-projectile-invalidate-cache)
873 (advice-add 'magit-branch-and-checkout
874 :after #'my-projectile-invalidate-cache))))
875
876 (use-package helpful
877 :defer 1
878 :bind
879 (("C-S-h c" . helpful-command)
880 ("C-S-h f" . helpful-callable) ; helpful-function
881 ("C-S-h v" . helpful-variable)
882 ("C-S-h k" . helpful-key)
883 ("C-S-h p" . helpful-at-point)))
884
885 (use-package shell-toggle
886 :after eshell
887 :bind ("C-c a s e" . amin/shell-toggle)
888 :config
889 (defun amin/shell-toggle (make-cd)
890 "Toggle between the shell buffer and whatever buffer you are editing.
891 With a prefix argument MAKE-CD also insert a \"cd DIR\" command
892 into the shell, where DIR is the directory of the current buffer.
893
894 When called in the shell buffer returns you to the buffer you were editing
895 before calling this the first time.
896
897 Options: `shell-toggle-goto-eob'"
898 (interactive "P")
899 ;; Try to decide on one of three possibilities:
900 ;; If not in shell-buffer, switch to it.
901 ;; If in shell-buffer, return to state before going to the shell-buffer
902 (if (eq (current-buffer) shell-toggle-shell-buffer)
903 (shell-toggle-buffer-return-from-shell)
904 (progn
905 (shell-toggle-buffer-goto-shell make-cd)
906 (if shell-toggle-full-screen-window-only (delete-other-windows)))))
907
908 ;; override to split horizontally instead
909 (defun shell-toggle-buffer-switch-to-other-window ()
910 "Switch to other window.
911 If the current window is the only window in the current frame,
912 create a new window and switch to it.
913
914 \(This is less intrusive to the current window configuration than
915 `switch-buffer-other-window')"
916 (let ((this-window (selected-window)))
917 (other-window 1)
918 ;; If we did not switch window then we only have one window and need to
919 ;; create a new one.
920 (if (eq this-window (selected-window))
921 (progn
922 (split-window-horizontally)
923 (other-window 1)))))
924
925 :custom
926 (shell-toggle-launch-shell 'shell-toggle-eshell))
927
928 (use-package unkillable-scratch
929 :defer 3
930 :config
931 (unkillable-scratch 1)
932 :custom
933 (unkillable-scratch-behavior 'do-nothing)
934 (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
935
936 (use-package boxquote
937 :defer 3
938 :bind
939 (:prefix-map amin--boxquote-prefix-map
940 :prefix "C-c q"
941 ("b" . boxquote-buffer)
942 ("B" . boxquote-insert-buffer)
943 ("d" . boxquote-defun)
944 ("F" . boxquote-insert-file)
945 ("hf" . boxquote-describe-function)
946 ("hk" . boxquote-describe-key)
947 ("hv" . boxquote-describe-variable)
948 ("hw" . boxquote-where-is)
949 ("k" . boxquote-kill)
950 ("p" . boxquote-paragraph)
951 ("q" . boxquote-boxquote)
952 ("r" . boxquote-region)
953 ("s" . boxquote-shell-command)
954 ("t" . boxquote-text)
955 ("T" . boxquote-title)
956 ("u" . boxquote-unbox)
957 ("U" . boxquote-unbox-region)
958 ("y" . boxquote-yank)
959 ("M-q" . boxquote-fill-paragraph)
960 ("M-w" . boxquote-kill-ring-save)))
961
962 (use-package highlight-indent-guides
963 :disabled t
964 :defer 3
965 :hook ((prog-mode . highlight-indent-guides-mode)
966 ;; (org-mode . highlight-indent-guides-mode)
967 )
968 :config
969 (setq highlight-indent-guides-character ?\|)
970 (setq highlight-indent-guides-auto-enabled nil)
971 (setq highlight-indent-guides-method 'character)
972 (setq highlight-indent-guides-responsive 'top)
973 (set-face-foreground 'highlight-indent-guides-character-face "gainsboro")
974 (set-face-foreground 'highlight-indent-guides-top-character-face "grey40")) ; grey13 is nice too
975
976 (use-package pdf-tools
977 :defer t
978 :magic ("%PDF" . pdf-view-mode)
979 :config
980 (setq pdf-view-resize-factor 1.05)
981 (pdf-tools-install)
982 :bind
983 (:map pdf-view-mode-map
984 ("C-s" . isearch-forward)
985 ("C-r" . isearch-backward)
986 ("j" . pdf-view-next-line-or-next-page)
987 ("k" . pdf-view-previous-line-or-previous-page)
988 ("h" . image-backward-hscroll)
989 ("l" . image-forward-hscroll)))
990
991 (use-package anzu)
992
993 (use-package typo
994 :defer 2
995 :config
996 (typo-global-mode 1)
997 :hook (text-mode . typo-mode))
998
999 (use-package hl-todo
1000 :defer 4
1001 :config
1002 (global-hl-todo-mode))
1003
1004 (use-package shrink-path
1005 :after eshell
1006 :config
1007 (setq eshell-prompt-regexp "\\(.*\n\\)*λ "
1008 eshell-prompt-function #'+eshell/prompt)
1009
1010 (defun +eshell/prompt ()
1011 (let ((base/dir (shrink-path-prompt default-directory)))
1012 (concat (propertize (car base/dir)
1013 'face 'font-lock-comment-face)
1014 (propertize (cdr base/dir)
1015 'face 'font-lock-constant-face)
1016 (propertize (+eshell--current-git-branch)
1017 'face 'font-lock-function-name-face)
1018 "\n"
1019 (propertize "λ" 'face 'eshell-prompt-face)
1020 ;; needed for the input text to not have prompt face
1021 (propertize " " 'face 'default))))
1022
1023 (defun +eshell--current-git-branch ()
1024 (let ((branch (car (loop for match in (split-string (shell-command-to-string "git branch") "\n")
1025 when (string-match "^\*" match)
1026 collect match))))
1027 (if (not (eq branch nil))
1028 (concat " " (substring branch 2))
1029 ""))))
1030
1031 (use-package slack
1032 :disabled t
1033 :commands (slack-start)
1034 :init
1035 (eval-when-compile ; silence the byte-compiler
1036 (defvar url-http-data nil)
1037 (defvar url-http-extra-headers nil)
1038 (defvar url-http-method nil)
1039 (defvar url-callback-function nil)
1040 (defvar url-callback-arguments nil)
1041 (defvar oauth--token-data nil))
1042 (setq slack-buffer-emojify t
1043 slack-prefer-current-team t)
1044 :config
1045 (slack-register-team
1046 :name "uw-apv"
1047 :default t
1048 :client-id uw-apv-client-id
1049 :client-secret uw-apv-client-secret
1050 :token uw-apv-token
1051 :subscribed-channels '(general)
1052 :full-and-display-names t)
1053 (slack-register-team
1054 :name "watform"
1055 :default nil
1056 :client-id watform-client-id
1057 :client-secret watform-client-secret
1058 :token watform-token
1059 :subscribed-channels '(general)
1060 :full-and-display-names t)
1061 (add-to-list 'swiper-font-lock-exclude 'slack-message-buffer-mode t)
1062 (setq lui-time-stamp-format "[%Y-%m-%d %H:%M:%S]"
1063 lui-time-stamp-only-when-changed-p t
1064 lui-time-stamp-position 'right)
1065 :bind
1066 (("C-c s s" . slack-start)
1067 ("C-c s u" . slack-select-unread-rooms)
1068 ("C-c s b" . slack-select-rooms)
1069 ("C-c s t" . slack-change-current-team)
1070 ("C-c s c" . slack-ws-close)
1071 :map slack-mode-map
1072 ("M-p" . slack-buffer-goto-prev-message)
1073 ("M-n" . slack-buffer-goto-next-message)
1074 ("C-c e" . slack-message-edit)
1075 ("C-c k" . slack-message-delete)
1076 ("C-c C-k" . slack-channel-leave)
1077 ("C-c r a" . slack-message-add-reaction)
1078 ("C-c r r" . slack-message-remove-reaction)
1079 ("C-c r s" . slack-message-show-reaction-users)
1080 ("C-c p l" . slack-room-pins-list)
1081 ("C-c p a" . slack-message-pins-add)
1082 ("C-c p r" . slack-message-pins-remove)
1083 ("@" . slack-message-embed-mention)
1084 ("#" . slack-message-embed-channel)))
1085
1086 (use-package alert
1087 :commands (alert)
1088 :init
1089 (setq alert-default-style 'notifier))
1090
1091 (use-package eshell-up
1092 :after eshell)
1093
1094 (use-package multi-term
1095 :defer 1
1096 :bind (("C-c C-j" . term-line-mode)
1097 ("C-c a s m m" . multi-term)
1098 ("C-c a s m p" . multi-term-dedicated-toggle))
1099 :config
1100 (setq multi-term-program "/bin/screen"
1101 ;; TODO: add separate bindings for connecting to existing
1102 ;; session vs. always creating a new one
1103 multi-term-dedicated-select-after-open-p t
1104 multi-term-dedicated-window-height 20
1105 multi-term-dedicated-max-window-height 30
1106 term-bind-key-alist
1107 '(("C-c C-c" . term-interrupt-subjob)
1108 ("C-c C-e" . term-send-esc)
1109 ("C-k" . kill-line)
1110 ("C-y" . term-paste)
1111 ("M-f" . term-send-forward-word)
1112 ("M-b" . term-send-backward-word)
1113 ("M-p" . term-send-up)
1114 ("M-n" . term-send-down)
1115 ("<C-backspace>" . term-send-backward-kill-word)
1116 ("<M-DEL>" . term-send-backward-kill-word)
1117 ("M-d" . term-send-delete-word)
1118 ("M-," . term-send-raw)
1119 ("M-." . comint-dynamic-complete))
1120 term-unbind-key-alist
1121 '("C-z" "C-x" "C-c" "C-h" "C-y" "<ESC>")))
1122
1123 (use-package page-break-lines
1124 :config
1125 (global-page-break-lines-mode))
1126
1127 \f
1128 ;; * Email
1129
1130 (defvar amin-maildir (expand-file-name "~/mail/"))
1131 (after! recentf
1132 (add-to-list 'recentf-exclude amin-maildir))
1133
1134 (setq
1135 amin-gnus-init-file (no-littering-expand-etc-file-name "gnus")
1136 mail-user-agent 'gnus-user-agent
1137 read-mail-command 'gnus)
1138
1139 (use-package gnus
1140 :bind (("s-m" . gnus)
1141 ("s-M" . gnus-unplugged))
1142 :init
1143 (setq
1144 gnus-select-method '(nnnil "")
1145 gnus-secondary-select-methods
1146 '((nnimap "amin"
1147 (nnimap-stream plain)
1148 (nnimap-address "127.0.0.1")
1149 (nnimap-server-port 143)
1150 (nnimap-authenticator plain)
1151 (nnimap-user "amin@aminb.org"))
1152 (nnimap "uwaterloo"
1153 (nnimap-stream plain)
1154 (nnimap-address "127.0.0.1")
1155 (nnimap-server-port 143)
1156 (nnimap-authenticator plain)
1157 (nnimap-user "abandali@uwaterloo.ca")))
1158 gnus-message-archive-group "nnimap+amin:Sent"
1159 gnus-parameters
1160 '(("gnu.*"
1161 (gcc-self . t)))
1162 gnus-large-newsgroup 50
1163 gnus-home-directory (no-littering-expand-var-file-name "gnus/")
1164 gnus-directory (concat gnus-home-directory "news/")
1165 message-directory (concat gnus-home-directory "mail/")
1166 nndraft-directory (concat gnus-home-directory "drafts/")
1167 gnus-save-newsrc-file nil
1168 gnus-read-newsrc-file nil
1169 gnus-interactive-exit nil
1170 gnus-gcc-mark-as-read t))
1171
1172 (use-package gnus-art
1173 :config
1174 (setq
1175 gnus-visible-headers
1176 (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
1177 gnus-sorted-header-list
1178 '("^From:" "^Subject:" "^Summary:" "^Keywords:"
1179 "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator"
1180 "^Newsgroups:" "List-Id:" "^Organization:"
1181 "^User-Agent:" "^Date:")
1182 ;; local-lapsed article dates
1183 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
1184 gnus-article-date-headers '(user-defined)
1185 gnus-article-time-format
1186 (lambda (time)
1187 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
1188 (local (article-make-date-line date 'local))
1189 (combined-lapsed (article-make-date-line date
1190 'combined-lapsed))
1191 (lapsed (progn
1192 (string-match " (.+" combined-lapsed)
1193 (match-string 0 combined-lapsed))))
1194 (concat local lapsed))))
1195 (bind-keys
1196 :map gnus-article-mode-map
1197 ("r" . gnus-article-reply-with-original)
1198 ("R" . gnus-article-wide-reply-with-original)
1199 ("M-L" . org-store-link)))
1200
1201 (use-package gnus-sum
1202 :bind (:map gnus-summary-mode-map
1203 :prefix-map amin--gnus-summary-prefix-map
1204 :prefix "v"
1205 ("r" . gnus-summary-reply)
1206 ("w" . gnus-summary-wide-reply)
1207 ("v" . gnus-summary-show-raw-article))
1208 :config
1209 (bind-keys
1210 :map gnus-summary-mode-map
1211 ("r" . gnus-summary-reply-with-original)
1212 ("R" . gnus-summary-wide-reply-with-original)
1213 ("M-L" . org-store-link))
1214 :hook (gnus-summary-mode . amin--no-mouse-autoselect-window))
1215
1216 (use-package gnus-msg
1217 :config
1218 (setq gnus-posting-styles
1219 '((".*"
1220 (address "amin@aminb.org")
1221 (body "\nBest,\namin\n")
1222 (eval (setq amin--message-cite-say-hi t)))
1223 ("gnu.*"
1224 (address "bandali@gnu.org"))
1225 ((header "subject" "ThankCRM")
1226 (to "webmasters-comment@gnu.org")
1227 (body "\nAdded to 2018supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
1228 (eval (setq amin--message-cite-say-hi nil)))
1229 ("nnimap\\+uwaterloo:.*"
1230 (address "abandali@uwaterloo.ca")
1231 (gcc "\"nnimap+uwaterloo:Sent Items\"")))))
1232
1233 (use-package gnus-topic
1234 :hook (gnus-group-mode . gnus-topic-mode))
1235
1236 (use-package gnus-agent
1237 :config
1238 (setq gnus-agent-synchronize-flags 'ask)
1239 :hook (gnus-group-mode . gnus-agent-mode))
1240
1241 (use-package gnus-group
1242 :config
1243 (setq gnus-permanently-visible-groups "\\((INBOX\\|gnu$\\)"))
1244
1245 (use-package mm-decode
1246 :config
1247 (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
1248
1249 (use-package sendmail
1250 :config
1251 (setq sendmail-program "/usr/bin/msmtp"
1252 ;; message-sendmail-extra-arguments '("-v" "-d")
1253 mail-specify-envelope-from t
1254 mail-envelope-from 'header))
1255
1256 (use-package message
1257 :config
1258 (defconst amin--message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
1259 (defconst message-cite-style-bandali
1260 '((message-cite-function 'message-cite-original)
1261 (message-citation-line-function 'message-insert-formatted-citation-line)
1262 (message-cite-reply-position 'traditional)
1263 (message-yank-prefix "> ")
1264 (message-yank-cited-prefix ">")
1265 (message-yank-empty-prefix ">")
1266 (message-citation-line-format
1267 (if amin--message-cite-say-hi
1268 (concat "Hi %F,\n\n" amin--message-cite-style-format)
1269 amin--message-cite-style-format)))
1270 "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
1271 (setq message-cite-style 'message-cite-style-bandali
1272 message-kill-buffer-on-exit t
1273 message-send-mail-function 'message-send-mail-with-sendmail
1274 message-sendmail-envelope-from 'header
1275 message-dont-reply-to-names
1276 "\\(\\(.*@aminb\\.org\\)\\|\\(amin@bandali\\.me\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
1277 message-user-fqdn "aminb.org")
1278 :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
1279 (message-mode . flyspell-mode)
1280 (message-mode . (lambda ()
1281 ;; (setq fill-column 65
1282 ;; message-fill-column 65)
1283 (make-local-variable 'company-idle-delay)
1284 (setq company-idle-delay 0.2))))
1285 ;; :custom-face
1286 ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
1287 ;; (message-header-to ((t (:foreground "#111" :weight normal))))
1288 ;; (message-header-cc ((t (:foreground "#333" :weight normal))))
1289 )
1290
1291 (after! mml-sec
1292 (setq mml-secure-openpgp-encrypt-to-self t
1293 mml-secure-openpgp-sign-with-sender t))
1294
1295 (use-package footnote
1296 :after message
1297 :bind
1298 (:map message-mode-map
1299 :prefix-map amin--footnote-prefix-map
1300 :prefix "C-c f"
1301 ("a" . footnote-add-footnote)
1302 ("b" . footnote-back-to-message)
1303 ("c" . footnote-cycle-style)
1304 ("d" . footnote-delete-footnote)
1305 ("g" . footnote-goto-footnote)
1306 ("r" . footnote-renumber-footnotes)
1307 ("s" . footnote-set-style))
1308 :config
1309 (setq footnote-start-tag ""
1310 footnote-end-tag ""
1311 footnote-style 'unicode))
1312
1313 (use-package bbdb
1314 :load-path "lisp/bbdb"
1315 :init
1316 (load (expand-file-name "lisp/bbdb/bbdb-autoloads.el" user-emacs-directory))
1317 ;; (bbdb-mua-auto-update-init 'message)
1318 (setq bbdb-mua-auto-update-p 'query
1319 bbdb-complete-mail nil)
1320 (bbdb-initialize 'gnus 'message))
1321
1322 (use-package message-x
1323 :disabled t
1324 :custom
1325 (message-x-completion-alist
1326 (quote
1327 (("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:" . gnus-harvest-find-address)
1328 ((if
1329 (boundp
1330 (quote message-newgroups-header-regexp))
1331 message-newgroups-header-regexp message-newsgroups-header-regexp)
1332 . message-expand-group)))))
1333
1334 (use-package gnus-harvest
1335 :disabled t
1336 :commands gnus-harvest-install
1337 :demand t
1338 :config
1339 (if (featurep 'message-x)
1340 (gnus-harvest-install 'message-x)
1341 (gnus-harvest-install)))
1342
1343 \f
1344 ;; * Blogging
1345
1346 (use-package ox-hugo
1347 :after ox)
1348
1349 (use-package ox-hugo-auto-export
1350 :load-path "lib/ox-hugo")
1351
1352 \f
1353 ;; * Post initialization
1354
1355 (message "Loading %s...done (%.3fs)" user-init-file
1356 (float-time (time-subtract (current-time)
1357 amin--before-user-init-time)))
1358
1359 ;;; init.el ends here
My configuration for GNU Emacs and other programs