diff options
| author | Aaron Ecay <aaronecay@gmail.com> | 2016-09-25 17:04:19 +0100 |
|---|---|---|
| committer | Aaron Ecay <aaronecay@gmail.com> | 2016-09-26 16:56:19 +0100 |
| commit | d00d44d6ff52eddd236800008d4721f6b9ab05a5 (patch) | |
| tree | 2eabcb37d7e2635974eb3ba2e6f73391ee89d5bd | |
| parent | 2e4b66f5f5fed49cd1d5857e1a287324b8f7fa88 (diff) | |
| download | org-mode-d00d44d6ff52eddd236800008d4721f6b9ab05a5.tar.gz | |
Tiny refactoring
* lisp/org.el: (org-dvipng-color, org-latex-color): Use *-color-format
functions.
(org-dvipng-color-format, org-latex-color-format): Use sharp-quotes.
| -rw-r--r-- | lisp/org.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/lisp/org.el b/lisp/org.el index 4f1ee61..02d05b2 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -19559,25 +19559,21 @@ SNIPPETS-P indicates if this is run to create snippet images for HTML." (defun org-dvipng-color (attr) "Return a RGB color specification for dvipng." - (apply #'format "rgb %s %s %s" - (mapcar #'org-normalize-color - (color-values (face-attribute 'default attr nil))))) + (org-dvipng-color-format (face-attribute 'default attr nil))) (defun org-dvipng-color-format (color-name) "Convert COLOR-NAME to a RGB color value for dvipng." - (apply 'format "rgb %s %s %s" + (apply #'format "rgb %s %s %s" (mapcar 'org-normalize-color (color-values color-name)))) (defun org-latex-color (attr) "Return a RGB color for the LaTeX color package." - (apply #'format "%s,%s,%s" - (mapcar #'org-normalize-color - (color-values (face-attribute 'default attr nil))))) + (org-latex-color-format (face-attribute 'default attr nil))) (defun org-latex-color-format (color-name) "Convert COLOR-NAME to a RGB color value." - (apply 'format "%s,%s,%s" + (apply #'format "%s,%s,%s" (mapcar 'org-normalize-color (color-values color-name)))) |