Theme editor (custom-theme-visit-theme) shows only Lisp expressions for faces

Teemu Likonen <[email protected]>
Newsgroups gmane.emacs.help
Message-ID <[email protected]>
I have a simple theme file (TL-theme.el in custom-theme-directory) which
contains this:


   (deftheme TL
     "Black background, blue tab bar and mode line.")

   (custom-theme-set-faces
    'TL
    '(cursor ((t (:background "#eee"))))
    '(mode-line ((t (:inherit variable-pitch :background "#44e"
                              :foreground "#eee"
                              :box (:line-width (2 . 2)
                                                :style released-button)))))
    '(mode-line-inactive ((t (:background "#447" :inherit mode-line))))
    '(tab-bar ((t (:foreground "#eee" :background "#447"
                               :inherit variable-pitch))))
    '(tab-bar-tab-inactive ((t (:background "#447" :inherit tab-bar-tab))))
    '(tab-bar-tab ((t (:box (:line-width (2 . 2) :style released-button)
                            :inherit tab-bar :background "#44e"
                            :foreground "#eee"))))
    '(fringe ((t (:background "#447"))))
    '(header-line ((t (:inherit mode-line :background "#447"
                                :foreground "#eee"
                                :box (:line-width (1 . 1)
                                                  :style flat-button)))))
    '(header-line-highlight ((t (:inherit mode-line-highlight))))
    '(mode-line-highlight ((t (:background "#77e"))))
    '(default ((t (:inherit nil :extend nil :stipple nil :background "#000"
                            :foreground "#eee" :inverse-video nil :box nil
                            :strike-through nil :overline nil :underline nil
                            :slant normal :weight normal :height 110
                            :width normal :family "DejaVu Sans Mono"))))
    '(menu ((t (:background "#44e" :foreground "#eee")))))

   (provide-theme 'TL)


The theme editor (M-x custom-theme-visit-theme RET TL RET) shows face
settings as Lisp expressions like this:

      [X] Hide [Tab Bar] face:              [sample]
       Tab bar face.
    Lisp expression: 
    ((t (:foreground "#eee" :background "#447" :inherit variable-pitch)))

I would like to have them in friendly customize format which I get if I
edit them with M-x customize-face RET tab-bar RET.

    Hide [Tab Bar] face: [sample]
       [ State ]: THEMED.
       Tab bar face.
       [X] Foreground: #eee           [ Choose ]  (sample)
       [X] Background: #447           [ Choose ]  (sample)
       [X] Inherit:
           [INS] [DEL] Face: [link] (sample) variable-pitch
           [INS]

Is it possible to configure the theme editor to use the proper customize
interface for face settings?

-- 
/// Teemu Likonen - .-.. https://www.iki.fi/tlikonen/
// OpenPGP: DD3B8E8ABD28B98176E6A7CCCC9A5E615FCC1D93
/ old key: 6965F03973F0D4CA22B9410F0F2CAE0E07608462
signature.asc (application/pgp-signature, 584 B)
-----BEGIN PGP SIGNATURE-----

wr0EARYKAG8Fgmm6fOMJEPDAoNzWp6sPRxQAAAAAAB4AIHNhbHRAbm90YXRpb25z
LnNlcXVvaWEtcGdwLm9yZ817764OnxtSiszEaPDykb7WOT3sZxsf2RnWh5BA4tAK
FiEEjUTuCml9qsOsoFih8MCg3Nanqw8AANa1AP9ym3tyFEW9LyUkljo/crtSxUCl
3bdcesbtb7NNRQ8U/QD+JoM+Icjn2PHO6VnXBWVvkuNCidHkcgEgAya2tpswYgLC
vQQBFgoAbwWCabp84wkQee8ZJX1rVltHFAAAAAAAHgAgc2FsdEBub3RhdGlvbnMu
c2VxdW9pYS1wZ3Aub3Jn+Pf5bGDlK1xMHiBUY1Qyu/fuhnx/FXWPA3xaFX0FbesW
IQQL23klfGMkeOvdGCt57xklfWtWWwAAL/wA/iiqSyMMJS5avvAqe+rW0CWlUFD7
+2LxID3uDKcpVHEsAQC33Qr0NEWhcgCiGH5IVllLHZJo5DS/YFyuKpc4UanwBw==
=dLt3
-----END PGP SIGNATURE-----
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.