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