css_select

-module(css_select@selector).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
-define(FILEPATH, "src/css_select/selector.gleam").
-export([to_string/1]).
-export_type([tag_selector/0, attribute_selector/0, selector/0]).

-type tag_selector() :: any | {tag, binary()}.

-type attribute_selector() :: {id, binary()} |
    {class, binary()} |
    {attribute_exists, binary()} |
    {attribute_equal, binary(), binary()} |
    {attribute_prefix, binary(), binary()} |
    {attribute_suffix, binary(), binary()} |
    {attribute_includes, binary(), binary()} |
    {psuedo, binary()}.

-type selector() :: {element_selector,
        tag_selector(),
        list(attribute_selector())}.

-file("src/css_select/selector.gleam", 24).
-spec to_string(selector()) -> binary().
to_string(Selector) ->
    {element_selector, Tag, Attrs} = Selector,
    T = case Tag of
        any ->
            <<""/utf8>>;

        {tag, Tag@1} ->
            Tag@1
    end,
    Attr_matches = begin
        _pipe = gleam@list:map(Attrs, fun(Attr) -> case Attr of
                    {id, Id} ->
                        <<"#"/utf8, Id/binary>>;

                    {class, Class} ->
                        <<"."/utf8, Class/binary>>;

                    {psuedo, Str} ->
                        <<":"/utf8, Str/binary>>;

                    {attribute_exists, K} ->
                        <<<<"["/utf8, K/binary>>/binary, "]"/utf8>>;

                    {attribute_equal, <<"id"/utf8>>, V} ->
                        <<"#"/utf8, V/binary>>;

                    {attribute_equal, K@1, V@1} ->
                        <<<<<<<<"["/utf8, K@1/binary>>/binary, "="/utf8>>/binary,
                                V@1/binary>>/binary,
                            "]"/utf8>>;

                    {attribute_prefix, K@2, V@2} ->
                        <<<<<<<<"["/utf8, K@2/binary>>/binary, "="/utf8>>/binary,
                                V@2/binary>>/binary,
                            "]"/utf8>>;

                    {attribute_suffix, K@3, V@3} ->
                        <<<<<<<<"["/utf8, K@3/binary>>/binary, "="/utf8>>/binary,
                                V@3/binary>>/binary,
                            "]"/utf8>>;

                    {attribute_includes, K@4, V@4} ->
                        <<<<<<<<"["/utf8, K@4/binary>>/binary, "="/utf8>>/binary,
                                V@4/binary>>/binary,
                            "]"/utf8>>
                end end),
        gleam@string:join(_pipe, <<""/utf8>>)
    end,
    <<T/binary, Attr_matches/binary>>.