Commit | Line | Data |
---|---|---|
2087ae39 AB |
1 | (use-package message |
2 | :bind (:map message-mode-map ("<C-return>" . b/insert-asterism)) | |
3 | :config | |
4 | ;; redefine for a simplified In-Reply-To header | |
5 | ;; (see https://todo.sr.ht/~sircmpwn/lists.sr.ht/67) | |
6 | (defun message-make-in-reply-to () | |
7 | "Return the In-Reply-To header for this message." | |
8 | (when message-reply-headers | |
9 | (let ((from (mail-header-from message-reply-headers)) | |
10 | (msg-id (mail-header-id message-reply-headers))) | |
11 | (when from | |
12 | msg-id)))) | |
13 | ||
14 | (defconst b/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:") | |
15 | (defconst message-cite-style-bandali | |
16 | '((message-cite-function 'message-cite-original) | |
17 | (message-citation-line-function 'message-insert-formatted-citation-line) | |
18 | (message-cite-reply-position 'traditional) | |
19 | (message-yank-prefix "> ") | |
20 | (message-yank-cited-prefix ">") | |
21 | (message-yank-empty-prefix ">") | |
22 | (message-citation-line-format | |
23 | (if b/message-cite-say-hi | |
24 | (concat "Hi %F,\n\n" b/message-cite-style-format) | |
25 | b/message-cite-style-format))) | |
26 | "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.") | |
27 | (setq ;; message-cite-style 'message-cite-style-bandali | |
28 | message-kill-buffer-on-exit t | |
29 | message-send-mail-function 'message-send-mail-with-sendmail | |
30 | message-sendmail-envelope-from 'header | |
31 | message-subscribed-address-functions | |
32 | '(gnus-find-subscribed-addresses) | |
33 | message-dont-reply-to-names | |
34 | "\\(\\(amin@shemshak\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|\\(a?bandali@\\(csclub\\.\\)?uwaterloo\\.ca\\)\\)") | |
35 | ;; (require 'company-ebdb) | |
36 | :hook (;; (message-setup . mml-secure-message-sign-pgpmime) | |
37 | (message-mode . flyspell-mode) | |
38 | (message-mode . (lambda () | |
39 | ;; (setq-local fill-column b/fill-column | |
40 | ;; message-fill-column b/fill-column) | |
41 | (eval-when-compile (defvar company-idle-delay)) | |
42 | (make-local-variable 'company-idle-delay) | |
43 | (setq company-idle-delay 0.2)))) | |
44 | ;; :custom-face | |
45 | ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold)))) | |
46 | ;; (message-header-to ((t (:foreground "#111" :weight normal)))) | |
47 | ;; (message-header-cc ((t (:foreground "#333" :weight normal)))) | |
48 | :custom | |
49 | (message-elide-ellipsis "[...]\n")) | |
50 | ||
51 | (use-package footnote | |
52 | :after message | |
53 | ;; :config | |
54 | ;; (setq footnote-start-tag "" | |
55 | ;; footnote-end-tag "" | |
56 | ;; footnote-style 'unicode) | |
57 | :bind | |
58 | (:map message-mode-map | |
59 | :prefix-map b/footnote-prefix-map | |
60 | :prefix "C-c f n" | |
61 | ("a" . footnote-add-footnote) | |
62 | ("b" . footnote-back-to-message) | |
63 | ("c" . footnote-cycle-style) | |
64 | ("d" . footnote-delete-footnote) | |
65 | ("g" . footnote-goto-footnote) | |
66 | ("r" . footnote-renumber-footnotes) | |
67 | ("s" . footnote-set-style))) | |
68 | ||
69 | (provide 'bandali-message) |