X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/blobdiff_plain/ed8c4fa9df0ec964911597c48da1763c74209a0c..690a977d48f06d19d0a093eb7806847fc7b28274:/.emacs.d/init.el?ds=inline diff --git a/.emacs.d/init.el b/.emacs.d/init.el index a90ab7c..61a15b9 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -1,6 +1,6 @@ ;;; init.el --- Amin Bandali's Emacs config -*- lexical-binding: t -*- -;; Copyright (C) 2018-2019 Amin Bandali +;; Copyright (C) 2018-2019 Amin Bandali ;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -18,7 +18,7 @@ ;;; Commentary: ;; Emacs configuration of Amin Bandali, computer scientist, functional -;; programmer, and free software advocate. Uses straight.el for +;; programmer, and free software activist. Uses straight.el for ;; purely functional and fully reproducible package management. ;; Over the years, I've taken inspiration from configurations of many @@ -37,18 +37,18 @@ ;;; Emacs initialization -(defvar a/before-user-init-time (current-time) +(defvar mab/before-user-init-time (current-time) "Value of `current-time' when Emacs begins loading `user-init-file'.") (message "Loading Emacs...done (%.3fs)" - (float-time (time-subtract a/before-user-init-time + (float-time (time-subtract mab/before-user-init-time before-init-time))) ;; temporarily increase `gc-cons-threshhold' and `gc-cons-percentage' ;; during startup to reduce garbage collection frequency. clearing ;; `file-name-handler-alist' seems to help reduce startup time too. -(defvar a/gc-cons-threshold gc-cons-threshold) -(defvar a/gc-cons-percentage gc-cons-percentage) -(defvar a/file-name-handler-alist file-name-handler-alist) +(defvar mab/gc-cons-threshold gc-cons-threshold) +(defvar mab/gc-cons-percentage gc-cons-percentage) +(defvar mab/file-name-handler-alist file-name-handler-alist) (setq gc-cons-threshold (* 400 1024 1024) ; 400 MiB gc-cons-percentage 0.6 file-name-handler-alist nil @@ -56,11 +56,11 @@ esup-child-profile-require-level 0) ;; set them back to their defaults once we're done initializing -(defun a/post-init () - (setq gc-cons-threshold a/gc-cons-threshold - gc-cons-percentage a/gc-cons-percentage - file-name-handler-alist a/file-name-handler-alist)) -(add-hook 'after-init-hook #'a/post-init) +(defun mab/post-init () + (setq gc-cons-threshold mab/gc-cons-threshold + gc-cons-percentage mab/gc-cons-percentage + file-name-handler-alist mab/file-name-handler-alist)) +(add-hook 'after-init-hook #'mab/post-init) ;; increase number of lines kept in *Messages* log (setq message-log-max 20000) @@ -109,7 +109,7 @@ (setq straight-repository-branch "develop" straight-check-for-modifications '(check-on-save find-when-checking)) -(defun a/bootstrap-straight () +(defun mab/bootstrap-straight () (defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) @@ -125,7 +125,7 @@ ;; Solid rocket booster ignition... -(a/bootstrap-straight) +(mab/bootstrap-straight) ;; We have lift off! @@ -142,12 +142,12 @@ (add-to-list 'recentf-exclude (expand-file-name "~/.emacs.d/straight/build/"))) -(defun a/reload-init () +(defun mab/reload-init () "Reload init.el." (interactive) - (setq a/file-name-handler-alist file-name-handler-alist) + (setq mab/file-name-handler-alist file-name-handler-alist) (load user-init-file nil 'nomessage) - (a/post-init)) + (mab/post-init)) ;; use-package (straight-use-package 'use-package) @@ -270,7 +270,7 @@ ;; focus follows mouse (setq mouse-autoselect-window t) -(defun a/no-mouse-autoselect-window () +(defun mab/no-mouse-autoselect-window () "Conveniently disable `focus-follows-mouse'. For disabling the behaviour for certain buffers and/or modes." (make-local-variable 'mouse-autoselect-window) @@ -295,7 +295,19 @@ For disabling the behaviour for certain buffers and/or modes." :config (pixel-scroll-mode 1)) ;; ask for GPG passphrase in minibuffer -(setq epg-pinentry-mode 'loopback) +(use-feature epg-config + :defer 0.4 + :custom + ((epg-gpg-program (executable-find "gpg")) + (epg-pinentry-mode 'loopback))) +(use-feature epg + :after epg-config) +(use-package pinentry + :demand + :after (epg server) + :config + (setq pinentry--socket-dir server-socket-dir) + (pinentry-start)) ;; useful libraries (require 'cl-lib) @@ -304,12 +316,12 @@ For disabling the behaviour for certain buffers and/or modes." ;;; Useful utilities -(defmacro a/setq-every (value &rest vars) +(defmacro mab/setq-every (value &rest vars) "Set all the variables from VARS to value VALUE." (declare (indent defun) (debug t)) `(progn ,@(mapcar (lambda (x) (list 'setq x value)) vars))) -(defun a/start-process (program &rest args) +(defun mab/start-process (program &rest args) "Same as `start-process', but doesn't bother about name and buffer." (let ((process-name (concat program "_process")) (buffer-name (generate-new-buffer-name @@ -317,15 +329,15 @@ For disabling the behaviour for certain buffers and/or modes." (apply #'start-process process-name buffer-name program args))) -(defun a/dired-start-process (program &optional args) +(defun mab/dired-start-process (program &optional args) "Open current file with a PROGRAM." ;; Shell command looks like this: "program [ARGS]... FILE" (ARGS can ;; be nil, so remove it). - (apply #'a/start-process + (apply #'mab/start-process program (remove nil (list args (dired-get-file-for-visit))))) -(defun a/add-elisp-section () +(defun mab/add-elisp-section () (interactive) (insert "\n") (previous-line) @@ -413,12 +425,12 @@ For disabling the behaviour for certain buffers and/or modes." ;; https://stackoverflow.com/a/17788551, with changes to use `cl-letf' ;; instead of the now obsolete `flet'. (with-eval-after-load 'compile - (defun a/compilation-finish-function (buffer outstr) + (defun mab/compilation-finish-function (buffer outstr) (unless (string-match "finished" outstr) (switch-to-buffer-other-window buffer)) t) - (setq compilation-finish-functions #'a/compilation-finish-function) + (setq compilation-finish-functions #'mab/compilation-finish-function) (require 'cl-macs) @@ -485,7 +497,7 @@ For disabling the behaviour for certain buffers and/or modes." ("M-O" . facemenu-keymap) :map emacs-lisp-mode-map - ("" . a/add-elisp-section)) + ("" . mab/add-elisp-section)) (when (display-graphic-p) (unbind-key "C-z" global-map)) @@ -500,14 +512,14 @@ For disabling the behaviour for certain buffers and/or modes." ("" . ivy-switch-buffer)) (bind-keys - :prefix-map a/straight-prefix-map + :prefix-map mab/straight-prefix-map :prefix "C-c p s" ("u" . straight-use-package) ("f" . straight-freeze-versions) ("t" . straight-thaw-versions) ("P" . straight-prune-build) ("g" . straight-get-recipe) - ("r" . a/reload-init) + ("r" . mab/reload-init) ;; M-x ^straight-.*-all$ ("a c" . straight-check-all) ("a f" . straight-fetch-all) @@ -557,6 +569,7 @@ For disabling the behaviour for certain buffers and/or modes." org-catch-invisible-edits 'show-and-error org-log-done 'time) (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t) + (add-to-list 'org-modules 'org-habit) :bind (("C-c a o a" . org-agenda) :map org-mode-map @@ -568,8 +581,11 @@ For disabling the behaviour for certain buffers and/or modes." (org-mode . flyspell-mode)) :custom (org-agenda-files '("~/usr/org/todos/personal.org" + "~/usr/org/todos/habits.org" "~/usr/org/todos/masters.org")) (org-agenda-start-on-weekday 0) + (org-agenda-time-leading-zero t) + (org-habit-graph-column 44) (org-latex-packages-alist '(("" "listings") ("" "color"))) :custom-face '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21")))) @@ -600,13 +616,13 @@ For disabling the behaviour for certain buffers and/or modes." ;; org file. closely inspired by ;; https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles (with-eval-after-load 'org - (defvar a/show-async-tangle-results nil + (defvar mab/show-async-tangle-results nil "Keep *emacs* async buffers around for later inspection.") - (defvar a/show-async-tangle-time nil + (defvar mab/show-async-tangle-time nil "Show the time spent tangling the file.") - (defun a/async-babel-tangle () + (defun mab/async-babel-tangle () "Tangle org file asynchronously." (interactive) (let* ((file-tangle-start-time (current-time)) @@ -618,12 +634,12 @@ For disabling the behaviour for certain buffers and/or modes." `(lambda () (require 'org) (org-babel-tangle-file ,file)) - (unless a/show-async-tangle-results + (unless mab/show-async-tangle-results `(lambda (result) (if result (message "Tangled %s%s" ,file-nodir - (if a/show-async-tangle-time + (if mab/show-async-tangle-time (format " (%.3fs)" (float-time (time-subtract (current-time) ',file-tangle-start-time))) @@ -632,7 +648,7 @@ For disabling the behaviour for certain buffers and/or modes." (add-to-list 'safe-local-variable-values - '(eval add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local)) + '(eval add-hook 'after-save-hook #'mab/async-babel-tangle 'append 'local)) ;; *the* right way to do git (use-package magit @@ -731,29 +747,29 @@ For disabling the behaviour for certain buffers and/or modes." :bind ("C-c a s e" . eshell) :config (eval-when-compile (defvar eshell-prompt-regexp)) - (defun a/eshell-quit-or-delete-char (arg) + (defun mab/eshell-quit-or-delete-char (arg) (interactive "p") (if (and (eolp) (looking-back eshell-prompt-regexp nil)) (eshell-life-is-too-much) (delete-char arg))) - (defun a/eshell-clear () + (defun mab/eshell-clear () (interactive) (let ((inhibit-read-only t)) (erase-buffer)) (eshell-send-input)) - (defun a/eshell-setup () + (defun mab/eshell-setup () (make-local-variable 'company-idle-delay) (defvar company-idle-delay) (setq company-idle-delay nil) (bind-keys :map eshell-mode-map - ("C-d" . a/eshell-quit-or-delete-char) - ("C-S-l" . a/eshell-clear) + ("C-d" . mab/eshell-quit-or-delete-char) + ("C-S-l" . mab/eshell-clear) ("M-r" . counsel-esh-history) ([tab] . company-complete))) - :hook (eshell-mode . a/eshell-setup) + :hook (eshell-mode . mab/eshell-setup) :custom (eshell-hist-ignoredups t) (eshell-input-filter 'eshell-input-filter-initial-space)) @@ -841,7 +857,7 @@ For disabling the behaviour for certain buffers and/or modes." ("" . outline-toggle-children) ("M-p" . outline-previous-visible-heading) ("M-n" . outline-next-visible-heading) - :prefix-map a/outline-prefix-map + :prefix-map mab/outline-prefix-map :prefix "s-O" ("TAB" . outline-toggle-children) ("a" . outline-hide-body) @@ -899,7 +915,7 @@ For disabling the behaviour for certain buffers and/or modes." ("\\" . dired-hide-details-mode) ("z" . (lambda () (interactive) - (a/dired-start-process "zathura")))) + (mab/dired-start-process "zathura")))) :hook (dired-mode . dired-hide-details-mode)) (use-feature help @@ -1112,7 +1128,7 @@ For disabling the behaviour for certain buffers and/or modes." (use-package web-mode :mode "\\.html\\'" :config - (a/setq-every 2 + (mab/setq-every 2 web-mode-code-indent-offset web-mode-css-indent-offset web-mode-markup-indent-offset)) @@ -1213,6 +1229,10 @@ For disabling the behaviour for certain buffers and/or modes." (use-package go-mode) +(use-package po-mode + :hook + (po-mode . (lambda () (run-with-timer 0.1 nil 'View-exit)))) + ;;; Theme @@ -1228,33 +1248,33 @@ For disabling the behaviour for certain buffers and/or modes." (use-package doom-themes) -(defvar a/org-mode-font-lock-keywords +(defvar mab/org-mode-font-lock-keywords '(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)" (1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive (3 '(:foreground "#81a2be" :background "#292b2b") t) ; kind (4 '(:foreground "#c5c8c6") t)))) ; title -(defun a/lights-on () +(defun mab/lights-on () "Enable my favourite light theme." (interactive) (mapc #'disable-theme custom-enabled-themes) (load-theme 'tangomod t) (sml/apply-theme 'automatic) (font-lock-remove-keywords - 'org-mode a/org-mode-font-lock-keywords)) + 'org-mode mab/org-mode-font-lock-keywords)) -(defun a/lights-off () +(defun mab/lights-off () "Go dark." (interactive) (mapc #'disable-theme custom-enabled-themes) (load-theme 'doom-tomorrow-night t) (sml/apply-theme 'automatic) (font-lock-add-keywords - 'org-mode a/org-mode-font-lock-keywords t)) + 'org-mode mab/org-mode-font-lock-keywords t)) (bind-keys - ("s-t d" . a/lights-off) - ("s-t l" . a/lights-on)) + ("s-t d" . mab/lights-off) + ("s-t l" . mab/lights-on)) ;;; Emacs enhancements & auxiliary packages @@ -1343,7 +1363,7 @@ For disabling the behaviour for certain buffers and/or modes." :config (projectile-mode) - (defun a/projectile-mode-line-fun () + (defun mab/projectile-mode-line-fun () "Report project name and type in the modeline." (let ((project-name (projectile-project-name)) (project-type (projectile-project-type))) @@ -1352,7 +1372,7 @@ For disabling the behaviour for certain buffers and/or modes." (if project-type (format ":%s" project-type) "")))) - (setq projectile-mode-line-function 'a/projectile-mode-line-fun) + (setq projectile-mode-line-function 'mab/projectile-mode-line-fun) (defun my-projectile-invalidate-cache (&rest _args) ;; ignore the args to `magit-checkout' @@ -1390,7 +1410,7 @@ For disabling the behaviour for certain buffers and/or modes." (use-package boxquote :defer 0.6 :bind - (:prefix-map a/boxquote-prefix-map + (:prefix-map mab/boxquote-prefix-map :prefix "C-c q" ("b" . boxquote-buffer) ("B" . boxquote-insert-buffer) @@ -1519,7 +1539,7 @@ For disabling the behaviour for certain buffers and/or modes." (use-package multiple-cursors :bind (("C-S-" . mc/add-cursor-on-click) - (:prefix-map a/mc-prefix-map + (:prefix-map mab/mc-prefix-map :prefix "C-c m" ("c" . mc/edit-lines) ("n" . mc/mark-next-like-this) @@ -1548,7 +1568,7 @@ For disabling the behaviour for certain buffers and/or modes." (use-package org-ref :init - (a/setq-every '("~/usr/org/references.bib") + (mab/setq-every '("~/usr/org/references.bib") reftex-default-bibliography org-ref-default-bibliography) (setq @@ -1631,15 +1651,20 @@ For disabling the behaviour for certain buffers and/or modes." ("s-K" . windmove-swap-states-up) ("s-L" . windmove-swap-states-right))) +(use-package pass + :commands pass + :bind ("C-c a p" . pass) + :hook (pass-mode . View-exit)) + ;;; Email (with Gnus) -(defvar a/maildir (expand-file-name "~/mail/")) +(defvar mab/maildir (expand-file-name "~/mail/")) (with-eval-after-load 'recentf - (add-to-list 'recentf-exclude a/maildir)) + (add-to-list 'recentf-exclude mab/maildir)) (setq - a/gnus-init-file (no-littering-expand-etc-file-name "gnus") + mab/gnus-init-file (no-littering-expand-etc-file-name "gnus") mail-user-agent 'gnus-user-agent read-mail-command 'gnus) @@ -1650,7 +1675,7 @@ For disabling the behaviour for certain buffers and/or modes." (setq gnus-select-method '(nnnil "") gnus-secondary-select-methods - '((nnimap "amin" + '((nnimap "shemshak" (nnimap-stream plain) (nnimap-address "127.0.0.1") (nnimap-server-port 143) @@ -1674,6 +1699,8 @@ For disabling the behaviour for certain buffers and/or modes." (list ".*emacs-orgmode.gnu.org" "l.gnu.emacs.orgmode") (list ".*emacs-tangents.gnu.org" "l.gnu.emacs.tangents") (list ".*emacsconf-discuss.gnu.org" "l.gnu.emacsconf.discuss") + (list ".*emacsconf-register.gnu.org" "l.gnu.emacsconf.register") + (list ".*emacsconf-submit.gnu.org" "l.gnu.emacsconf.submit") (list ".*fencepost-users.gnu.org" "l.gnu.fencepost.users") (list ".*gnunet-developers.gnu.org" "l.gnu.gnunet.developers") (list ".*help-gnunet.gnu.org" "l.gnu.gnunet.help") @@ -1694,11 +1721,13 @@ For disabling the behaviour for certain buffers and/or modes." (list ".*haskell-art.we.lurk.org" "l.haskell.art") (list ".*haskell-cafe.haskell.org" "l.haskell.cafe") ;; other + (list ".*atreus.freelists.org" "l.atreus") (list ".*deepspec.lists.cs.princeton.edu" "l.deepspec") (list ".*notmuch.notmuchmail.org" "l.notmuch") (list ".*dev.lists.parabola.nu" "l.parabola.dev") ;; *@lists.sr.ht (list ".*~bandali/public-inbox@lists.sr.ht" "l.~bandali.public-inbox") + (list ".*~sircmpwn/free-writers-club@lists.sr.ht" "l.~sircmpwn.free-writers-club") (list ".*~sircmpwn/sr.ht-admins@lists.sr.ht" "l.~sircmpwn.srht.admins") (list ".*~sircmpwn/sr.ht-announce@lists.sr.ht" "l.~sircmpwn.srht.announce") (list ".*~sircmpwn/sr.ht-dev@lists.sr.ht" "l.~sircmpwn.srht.dev") @@ -1725,9 +1754,12 @@ For disabling the behaviour for certain buffers and/or modes." (nnimap-server-port 143) (nnimap-authenticator plain) (nnimap-user "abandali@csc.uw.local"))) - gnus-message-archive-group "nnimap+amin:Sent" + gnus-message-archive-group "nnimap+shemshak:Sent" gnus-parameters - '(("l\\.deepspec" + '(("l\\.atreus" + (to-address . "atreus@freelists.org") + (to-list . "atreus@freelists.org")) + ("l\\.deepspec" (to-address . "deepspec@lists.cs.princeton.edu") (to-list . "deepspec@lists.cs.princeton.edu") (list-identifier . "\\[deepspec\\]")) @@ -1750,6 +1782,12 @@ For disabling the behaviour for certain buffers and/or modes." ("l\\.gnu\\.emacsconf\\.discuss" (to-address . "emacsconf-discuss@gnu.org") (to-list . "emacsconf-discuss@gnu.org")) + ("l\\.gnu\\.emacsconf\\.register" + (to-address . "emacsconf-register@gnu.org") + (to-list . "emacsconf-register@gnu.org")) + ("l\\.gnu\\.emacsconf\\.submit" + (to-address . "emacsconf-submit@gnu.org") + (to-list . "emacsconf-submit@gnu.org")) ("l\\.gnu\\.fencepost\\.users" (to-address . "fencepost-users@gnu.org") (to-list . "fencepost-users@gnu.org") @@ -1815,6 +1853,9 @@ For disabling the behaviour for certain buffers and/or modes." ("l\\.~bandali\\.public-inbox" (to-address . "~bandali/public-inbox@lists.sr.ht") (to-list . "~bandali/public-inbox@lists.sr.ht")) + ("l\\.~sircmpwn\\.free-writers-club" + (to-address . "~sircmpwn/free-writers-club@lists.sr.ht") + (to-list . "~sircmpwn/free-writers-club@lists.sr.ht")) ("l\\.~sircmpwn\\.srht\\.admins" (to-address . "~sircmpwn/sr.ht-admins@lists.sr.ht") (to-list . "~sircmpwn/sr.ht-admins@lists.sr.ht")) @@ -1858,6 +1899,7 @@ For disabling the behaviour for certain buffers and/or modes." (use-feature gnus-art :config (setq + gnus-buttonized-mime-types '("multipart/\\(signed\\|encrypted\\)") gnus-visible-headers (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:") gnus-sorted-header-list @@ -1884,7 +1926,7 @@ For disabling the behaviour for certain buffers and/or modes." (use-feature gnus-sum :bind (:map gnus-summary-mode-map - :prefix-map a/gnus-summary-prefix-map + :prefix-map mab/gnus-summary-prefix-map :prefix "v" ("r" . gnus-summary-reply) ("w" . gnus-summary-wide-reply) @@ -1893,41 +1935,48 @@ For disabling the behaviour for certain buffers and/or modes." (bind-keys :map gnus-summary-mode-map ("M-L" . org-store-link)) - :hook (gnus-summary-mode . a/no-mouse-autoselect-window)) + :hook (gnus-summary-mode . mab/no-mouse-autoselect-window)) (use-feature gnus-msg :config - (defvar a/uw-signature "Amin Bandali, MMath Student + (defvar mab/signature "Amin Bandali +Free Software Activist | GNU Webmaster & Volunteer +GPG: BE62 7373 8E61 6D6D 1B3A 08E8 A21A 0202 4881 6103 +https://shemshak.org/~amin") + (defvar mab/gnu-signature "Amin Bandali +Free Software Activist | GNU Webmaster & Volunteer +GPG: BE62 7373 8E61 6D6D 1B3A 08E8 A21A 0202 4881 6103 +https://bandalis.org") + (defvar mab/uw-signature "Amin Bandali, MMath Student Cheriton School of Computer Science University of Waterloo -https://shemshak.org/~amin") - (defvar a/csc-signature "Amin Bandali +https://bandalis.org") + (defvar mab/csc-signature "Amin Bandali Termcom, Computer Science Club University of Waterloo -https://shemshak.org/~amin") +https://bandalis.org") (setq gnus-posting-styles '((".*" (address "amin@shemshak.org") (body "\nBest,\n") - (eval (setq a/message-cite-say-hi t))) + (signature mab/signature) + (eval (setq mab/message-cite-say-hi t))) ("nnimap\\+gnu:.*" - (address "mab@gnu.org") - (organization "GNU Project") + (address "bandali@gnu.org") + (signature mab/gnu-signature) (eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org"))) ((header "subject" "ThankCRM") (to "webmasters-comment@gnu.org") (body "") - (eval (setq a/message-cite-say-hi nil))) + (eval (setq mab/message-cite-say-hi nil))) ("nnimap\\+uw:.*" (address "abandali@uwaterloo.ca") - (organization "University of Waterloo") - (signature a/uw-signature)) + (signature mab/uw-signature)) ("nnimap\\+uw:INBOX" (gcc "\"nnimap+uw:Sent Items\"")) ("nnimap\\+csc:.*" (address "abandali@csclub.uwaterloo.ca") - (organization "Computer Science Club, University of Waterloo") - (signature a/csc-signature) + (signature mab/csc-signature) (gcc "nnimap+csc:Sent"))))) (use-feature gnus-topic @@ -1956,7 +2005,9 @@ https://shemshak.org/~amin") (use-feature mm-decode :config - (setq mm-discouraged-alternatives '("text/html" "text/richtext"))) + (setq mm-discouraged-alternatives '("text/html" "text/richtext") + mm-decrypt-option 'known + mm-verify-option 'known)) (use-feature sendmail :config @@ -1977,7 +2028,7 @@ https://shemshak.org/~amin") (when from msg-id)))) - (defconst a/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:") + (defconst mab/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:") (defconst message-cite-style-bandali '((message-cite-function 'message-cite-original) (message-citation-line-function 'message-insert-formatted-citation-line) @@ -1986,9 +2037,9 @@ https://shemshak.org/~amin") (message-yank-cited-prefix ">") (message-yank-empty-prefix ">") (message-citation-line-format - (if a/message-cite-say-hi - (concat "Hi %F,\n\n" a/message-cite-style-format) - a/message-cite-style-format))) + (if mab/message-cite-say-hi + (concat "Hi %F,\n\n" mab/message-cite-style-format) + mab/message-cite-style-format))) "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.") (setq ;; message-cite-style 'message-cite-style-bandali message-kill-buffer-on-exit t @@ -1997,7 +2048,7 @@ https://shemshak.org/~amin") message-subscribed-address-functions '(gnus-find-subscribed-addresses) message-dont-reply-to-names - "\\(\\(amin@\\(shemshak\\|bndl\\)\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(mab\\|bandali\\|aminb?\\)@gnu\\.org\\)\\|\\(a\\(min\\.\\)?bandali@uwaterloo\\.ca\\)\\|\\(abandali@csclub\\.uwaterloo\\.ca\\)\\)") + "\\(\\(\\(amin\\|mab\\)@shemshak\\.org\\)\\|\\(amin@bndl\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|\\(a\\(min\\.\\)?bandali@uwaterloo\\.ca\\)\\|\\(abandali@csclub\\.uwaterloo\\.ca\\)\\)") (require 'company-ebdb) :hook (;; (message-setup . mml-secure-message-sign-pgpmime) (message-mode . flyspell-mode) @@ -2028,7 +2079,7 @@ https://shemshak.org/~amin") ;; footnote-style 'unicode) :bind (:map message-mode-map - :prefix-map a/footnote-prefix-map + :prefix-map mab/footnote-prefix-map :prefix "C-c f" ("a" . footnote-add-footnote) ("b" . footnote-back-to-message) @@ -2186,6 +2237,6 @@ https://shemshak.org/~amin") (message "Loading %s...done (%.3fs)" user-init-file (float-time (time-subtract (current-time) - a/before-user-init-time))) + mab/before-user-init-time))) ;;; init.el ends here