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

Remove examples in custom-*set-faces!

Browse source 
They're already in docs/api.org, which helpful buffers will display
alongside a function/macro's documentation.
This commit is contained in:
Henrik Lissner 2019-07-28 14:10:25 +02:00
parent 529f8d7e7a
commit 3330501af6
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 2 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

22
core/autoload/themes.el
View file

@ -14,15 +14,7 @@
"Apply a list of face SPECS as user customizations for THEME. "Apply a list of face SPECS as user customizations for THEME.
THEME can be a single symbol or list thereof. If nil, apply these settings to THEME can be a single symbol or list thereof. If nil, apply these settings to
all themes. It will apply to all themes once they are loaded. all themes. It will apply to all themes once they are loaded."
(custom-theme-set-faces! '(doom-one doom-one-light)
`(mode-line :foreground ,(doom-color 'blue))
`(mode-line-buffer-id :foreground ,(doom-color 'fg) :background \"#000000\")
'(mode-line-success-highlight :background \"#00FF00\")
'(org-tag :background \"#4499FF\")
'(org-ellipsis :inherit org-tag)
'(which-key-docstring-face :inherit font-lock-comment-face))"
(let* ((themes (doom-enlist (or theme 'user))) (let* ((themes (doom-enlist (or theme 'user)))
(fn (gensym (format "doom--customize-%s-h-" (mapconcat #'symbol-name themes "-"))))) (fn (gensym (format "doom--customize-%s-h-" (mapconcat #'symbol-name themes "-")))))
(fset fn (fset fn
@ -40,18 +32,8 @@ all themes. It will apply to all themes once they are loaded.
(defun custom-set-faces! (&rest specs) (defun custom-set-faces! (&rest specs)
"Apply a list of face SPECS as user customizations. "Apply a list of face SPECS as user customizations.
SPECS is a list of face specs.
This is a drop-in replacement for `custom-set-face' that allows for a simplified This is a drop-in replacement for `custom-set-face' that allows for a simplified
face format, e.g. face format."
(custom-set-faces!
`(mode-line :foreground ,(doom-color 'blue))
`(mode-line-buffer-id :foreground ,(doom-color 'fg) :background \"#000000\")
'(mode-line-success-highlight :background \"#00FF00\")
'(org-tag :background \"#4499FF\")
'(org-ellipsis :inherit org-tag)
'(which-key-docstring-face :inherit font-lock-comment-face))"
(apply #'custom-theme-set-faces! 'user specs)) (apply #'custom-theme-set-faces! 'user specs))
;;;###autoload ;;;###autoload