emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Bump org-msg

Browse source 
jeremy-compostella/org-msg@bb378c79 -> jeremy-compostella/org-msg@89e746c

Update to v3.3 of org-msg introduces ">" quotes and styling.
The styling has been copied over, but the palette tweaked.
This commit is contained in:
TEC 2021-04-05 02:20:10 +08:00
parent b811376403
commit 16fd26e5ba
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
2 changed files with 21 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

23
modules/email/mu4e/config.el
View file

@ -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")

2
modules/email/mu4e/packages.el
View file

@ -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")