diff --git a/modules/email/mu4e/config.el b/modules/email/mu4e/config.el index 8526c7a7a..1b80bbc69 100644 --- a/modules/email/mu4e/config.el +++ b/modules/email/mu4e/config.el @@ -303,7 +303,22 @@ Must be set before org-msg is loaded to take effect.") (mapcar (lambda (mode) `(code ,(intern (concat "src src-" (symbol-name mode))) ,inline-src)) - inline-modes))) + inline-modes)) + (base-quote '((padding-left . "5px") (margin-left . "10px") + (margin-top . "20px") (margin-bottom . "0") + (font-style . "italic") (background . "#f9f9f9"))) + (quote-palette '("#6A8FBF" "#bf8f6a" "#6abf8a" "#906abf" + "#6aaebf" "#bf736a" "#bfb66a" "#bf6a94" + "#6abf9b" "#bf6a7d" "#acbf6a" "#6a74bf")) + (quotes + (mapcar (lambda (x) + (let ((c (nth x quote-palette))) + `(div ,(intern (format "quote%d" (1+ x))) + (,@base-quote + (color . ,c) + (border-left . ,(concat "3px solid " + (org-msg-lighten c))))))) + (number-sequence 0 (1- (length quote-palette)))))) `((del nil ((color . "grey") (border-left . "none") (text-decoration . "line-through") (margin-bottom . "0px") (margin-top . "10px") (line-height . "11pt"))) @@ -314,8 +329,9 @@ Must be set before org-msg is loaded to take effect.") (margin-bottom . "20px"))) (span underline ((text-decoration . "underline"))) (li nil (,line-height (margin-bottom . "0px") - (margin-top . "2px"))) - (nil org-ul ((list-style-type . "square"))) + (margin-top . "2px") + (max-width . "84ch"))) + (nil org-ul ((list-style-type . "disc"))) (nil org-ol (,@font ,line-height (margin-bottom . "0px") (margin-top . "0px") (margin-left . "30px") (padding-top . "0px") (padding-left . "5px"))) @@ -326,6 +342,7 @@ Must be set before org-msg is loaded to take effect.") (font-style . "italic") (background . "#f9f9f9"))) (p blockquote ((margin . "0") (padding . "4px 0"))) + ,@quotes (code nil (,font-size ,monospace-font (background . "#f9f9f9"))) ,@code-src (nil linenr ((padding-right . "1em") diff --git a/modules/email/mu4e/packages.el b/modules/email/mu4e/packages.el index 482d72d3d..e4ff3e8b4 100644 --- a/modules/email/mu4e/packages.el +++ b/modules/email/mu4e/packages.el @@ -2,6 +2,6 @@ ;;; email/mu4e/packages.el (when (featurep! +org) - (package! org-msg :pin "bb378c7942804b81ac9ddf4b14381cd9d84c993c")) + (package! org-msg :pin "89e746c0a864031eef940758230bc7263a6f2289")) (package! mu4e-alert :pin "91f0657c5b245a9de57aa38391221fb5d141d9bd")