Add verticalDeck slide animator

[Francesco Orsenigo]

Something like:

verticalDeck : SA.Animator
verticalDeck status =
    Css.asPairs <|
        case status of
            SA.Still ->
                [ Css.position Css.absolute
                ]

            SA.Moving direction order completion ->
                case order of
                    SA.LaterSlide ->
                        [ Css.position Css.absolute
                        , Css.property "z-index" "1"
                        , Css.property "filter" <| "blur(" ++ (toString <| round <| (1 - completion) * 10) ++ "px)"
                        ]

                    SA.EarlierSlide ->
                        [ Css.position Css.absolute
                        , Css.transform <| Css.translate2 zero (pct (completion * 100))
                        , Css.property "z-index" "2"
                        ]

[Francesco Orsenigo]

Add -webkit-filter: blur(10px);