docs/api: fix quoting for custom-(theme-)?set-faces!

This commit is contained in:
Henrik Lissner 2019-08-18 14:38:45 -04:00
parent b854a089eb
commit a365b1cf9d
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -34,19 +34,19 @@ It is integrated into Helpful, in Doom.
* custom-theme-set-faces! * custom-theme-set-faces!
#+BEGIN_SRC elisp :eval no #+BEGIN_SRC elisp :eval no
(custom-theme-set-faces! 'doom-one-theme (custom-theme-set-faces! 'doom-one-theme
`(outline-1 :weight normal) '(outline-1 :weight normal)
`(outline-2 :weight normal) '(outline-2 :weight normal)
`(outline-3 :weight normal) '(outline-3 :weight normal)
`(outline-4 :weight normal) '(outline-4 :weight normal)
`(outline-5 :weight normal) '(outline-5 :weight normal)
`(outline-6 :weight normal) '(outline-6 :weight normal)
`(default :background "red" :weight bold) '(default :background "red" :weight bold)
`(region :background "red" :weight bold)`) '(region :background "red" :weight bold))
(custom-theme-set-faces! '(doom-one-theme doom-one-light-theme) (custom-theme-set-faces! '(doom-one-theme doom-one-light-theme)
`((outline-1 outline-2 outline-3 outline-4 outline-5 outline-6) '((outline-1 outline-2 outline-3 outline-4 outline-5 outline-6)
:weight normal) :weight normal)
`((default region) '((default region)
:background "red" :weight bold)) :background "red" :weight bold))
(let ((red-bg-faces '(default region))) (let ((red-bg-faces '(default region)))
@ -60,19 +60,19 @@ It is integrated into Helpful, in Doom.
* custom-set-faces! * custom-set-faces!
#+BEGIN_SRC elisp :eval no #+BEGIN_SRC elisp :eval no
(custom-set-faces! (custom-set-faces!
`(outline-1 :weight normal) '(outline-1 :weight normal)
`(outline-2 :weight normal) '(outline-2 :weight normal)
`(outline-3 :weight normal) '(outline-3 :weight normal)
`(outline-4 :weight normal) '(outline-4 :weight normal)
`(outline-5 :weight normal) '(outline-5 :weight normal)
`(outline-6 :weight normal) '(outline-6 :weight normal)
`(default :background "red" :weight bold) '(default :background "red" :weight bold)
`(region :background "red" :weight bold)`) '(region :background "red" :weight bold))
(custom-set-faces! (custom-set-faces!
`((outline-1 outline-2 outline-3 outline-4 outline-5 outline-6) '((outline-1 outline-2 outline-3 outline-4 outline-5 outline-6)
:weight normal) :weight normal)
`((default region) '((default region)
:background "red" :weight bold)) :background "red" :weight bold))
(let ((red-bg-faces '(default region))) (let ((red-bg-faces '(default region)))