Sticky columns table

import Css
import Html.Styled as Html exposing (Html)
import Html.Styled.Attributes as Html


stickyColumnsTable : Html msg
stickyColumnsTable =
    Html.div
        [ Html.css
            [ Css.overflow Css.auto ]
        ]
        [ Html.table
            [ Html.css
                [ Css.position Css.relative ]
            ]
            [ Html.body
                []
                [ Html.tr
                    []
                    [ Html.th
                        [ Html.css
                            [ Css.position Css.sticky
                            , Css.left Css.zero
                            , Css.zIndex <| Css.int 9999
                            ]
                        ]
                        []
                    ]
                ]
            ]
        ]