Re: theme and a question about creating them

[Johan Bockgård]

Stefan Monnier <address@hidden> writes:

>>> (defconst mycolor "#123456")
>>> (deftheme mytheme)
>>> (custom-theme-set-faces 'mytheme
>>> `(default ((t (:background ,mycolor)))))
>
>> Currently, the theme loading code is too strict about the forms in the
>> theme file that it will evaluate.  It uses `unsafep' to check the forms,
>> and (defconst mycolor "#123456") is considered unsafe under the criteria
>> used by `unsafep'.
>
>> I am not sure what's the best way of handling this.
>
> How 'bout:
>
>    (deftheme mytheme)
>    (let ((mycolor "#123456"))
>      (custom-theme-set-faces 'mytheme
>      `(default ((t (:background ,mycolor))))))

unsafep does not allow \`