Custom Classes-like AvaloniaProperty

[ds1709]

In axaml I can binde Visual classes to boolean property like this

<TextBlock Classes.normal="{Binding IsNormal}" Classes.failure={Binding IsFailure} />

This bindings generate dynamyc avalonia properties __AvaloniaReserved::Classes::normal and __AvaloniaReserved::Classes::failure.
Is there any way to create custom dynamic properties, like this?
For example, I want to archive the next usecase:
I have some enum

public enum State
{
    Ok,
    Failure
}

and some view model

public sealed class FooBarViewModel
{
    public State FooState => ... ;
    public State BarState => ... ;
}

so in axaml I wish to write something like this

<TextBlock EnumClasses.foo-state="{Binding FooState}" EnumClasses.bar-state="{Binding BarState}" />

and as result, I get TextBlock with classes (ok-foo-state OR failure-foo-state) AND (ok-bar-state OR failure-bar-state), l.e., class name is combination of <enum value>-<property name>.

[maxkatz6]

See #18068

[ds1709]

thnx!