(defun use-package-handler/:custom-face (name _keyword args rest state)
"Generate use-package custom-face keyword code."
(use-package-concat
- (mapcar #'(lambda (def) `(custom-set-faces (backquote ,def))) args)
+ (mapcar #'(lambda (def) `(apply #'face-spec-set (backquote ,def))) args)
(use-package-process-keywords name rest state)))
;;;; :init
(match-expansion
(use-package foo :custom-face (foo ((t (:background "#e4edfc")))))
`(progn
- (custom-set-faces (backquote (foo ((t (:background "#e4edfc"))))))
+ (apply #'face-spec-set (backquote (foo ((t (:background "#e4edfc"))))))
(require 'foo nil nil))))
(ert-deftest use-package-test/:custom-face-2 ()
(example-1-face ((t (:foreground "LightPink"))))
(example-2-face ((t (:foreground "LightGreen")))))
`(progn
- (custom-set-faces
- (backquote (example-1-face ((t (:foreground "LightPink"))))))
- (custom-set-faces
- (backquote (example-2-face ((t (:foreground "LightGreen"))))))
- (require 'example nil nil))))
+ (apply #'face-spec-set
+ (backquote (example-1-face ((t (:foreground "LightPink"))))))
+ (apply #'face-spec-set
+ (backquote (example-2-face ((t (:foreground "LightGreen"))))))
+ (require 'example nil nil))))
(ert-deftest use-package-test/:init-1 ()
(match-expansion