tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-mime: now allows style customization based on class attributes

Browse source
This commit is contained in:
Eric Schulte 2010-06-04 10:56:56 -06:00
parent 359a86cda4
commit 507e06f586
1 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
contrib/lisp/org-mime.el
View file

@ -89,15 +89,23 @@
(defun org-mime-change-element-style (element style)
"Set new default htlm style for <ELEMENT> elements in exported html."
(while (re-search-forward (format "<%s" element) nil t)
(replace-match (format "<%s style=\"%s;\"" element style))))
(replace-match (format "<%s style=\"%s\"" element style))))
(defun org-mime-change-class-style (class style)
"Set new default htlm style for objects with classs=CLASS in
exported html."
(while (re-search-forward (format "class=\"%s\"" class) nil t)
(replace-match (format "class=\"%s\" style=\"%s\"" class style))))
;; ;; example addition to `org-mime-html-hook' adding a dark background
;; ;; color to <pre> elements
;; (add-hook 'org-mime-html-hook
;; (lambda ()
;; (org-mime-change-element-style
;; "pre" (format "color: %s; background-color: %s"
;; "#E6E1DC" "#232323"))))
;; "pre" (format "color: %s; background-color: %s;"
;; "#E6E1DC" "#232323"))
;; (org-mime-change-class-style
;; "verse" "border-left: 2px solid gray; padding-left: 4px;")))
(defun org-mime-file (ext path id)
"Markup a file for attachment."