120 lines
3.1 KiB
Elm
120 lines
3.1 KiB
Elm
module Route exposing (Route(..), fromUrl, href, replaceUrl)
|
|
|
|
import Browser.Navigation
|
|
import Html
|
|
import Html.Attributes
|
|
import Url
|
|
import Url.Parser exposing ((<?>))
|
|
import Url.Parser.Query
|
|
|
|
|
|
|
|
-- ROUTING
|
|
|
|
|
|
type Route
|
|
= NotFound
|
|
| Home
|
|
| Packages (Maybe String) (Maybe String) (Maybe String) (Maybe Int) (Maybe Int) (Maybe String)
|
|
| Options (Maybe String) (Maybe String) (Maybe String) (Maybe Int) (Maybe Int) (Maybe String)
|
|
|
|
|
|
parser : Url.Parser.Parser (Route -> msg) msg
|
|
parser =
|
|
Url.Parser.oneOf
|
|
[ Url.Parser.map
|
|
Home
|
|
Url.Parser.top
|
|
, Url.Parser.map
|
|
NotFound
|
|
(Url.Parser.s "not-found")
|
|
, Url.Parser.map
|
|
Packages
|
|
(Url.Parser.s "packages"
|
|
<?> Url.Parser.Query.string "channel"
|
|
<?> Url.Parser.Query.string "query"
|
|
<?> Url.Parser.Query.string "show"
|
|
<?> Url.Parser.Query.int "from"
|
|
<?> Url.Parser.Query.int "size"
|
|
<?> Url.Parser.Query.string "sort"
|
|
)
|
|
, Url.Parser.map
|
|
Options
|
|
(Url.Parser.s "options"
|
|
<?> Url.Parser.Query.string "channel"
|
|
<?> Url.Parser.Query.string "query"
|
|
<?> Url.Parser.Query.string "show"
|
|
<?> Url.Parser.Query.int "from"
|
|
<?> Url.Parser.Query.int "size"
|
|
<?> Url.Parser.Query.string "sort"
|
|
)
|
|
]
|
|
|
|
|
|
|
|
-- PUBLIC HELPERS
|
|
|
|
|
|
href : Route -> Html.Attribute msg
|
|
href targetRoute =
|
|
Html.Attributes.href (routeToString targetRoute)
|
|
|
|
|
|
replaceUrl : Browser.Navigation.Key -> Route -> Cmd msg
|
|
replaceUrl navKey route =
|
|
Browser.Navigation.replaceUrl navKey (routeToString route)
|
|
|
|
|
|
fromUrl : Url.Url -> Maybe Route
|
|
fromUrl url =
|
|
-- The RealWorld spec treats the fragment like a path.
|
|
-- This makes it *literally* the path, so we can proceed
|
|
-- with parsing as if it had been a normal path all along.
|
|
--{ url | path = Maybe.withDefault "" url.fragment, fragment = Nothing }
|
|
Url.Parser.parse parser url
|
|
|
|
|
|
|
|
-- INTERNAL
|
|
|
|
|
|
routeToString : Route -> String
|
|
routeToString page =
|
|
let
|
|
( path, query ) =
|
|
routeToPieces page
|
|
in
|
|
"/" ++ String.join "/" path ++ "?" ++ String.join "&" (List.filterMap Basics.identity query)
|
|
|
|
|
|
routeToPieces : Route -> ( List String, List (Maybe String) )
|
|
routeToPieces page =
|
|
case page of
|
|
Home ->
|
|
( [], [] )
|
|
|
|
NotFound ->
|
|
( [ "not-found" ], [] )
|
|
|
|
Packages channel query show from size sort ->
|
|
( [ "packages" ]
|
|
, [ channel
|
|
, query
|
|
, show
|
|
, Maybe.map String.fromInt from
|
|
, Maybe.map String.fromInt size
|
|
, sort
|
|
]
|
|
)
|
|
|
|
Options channel query show from size sort ->
|
|
( [ "options" ]
|
|
, [ channel
|
|
, query
|
|
, show
|
|
, Maybe.map String.fromInt from
|
|
, Maybe.map String.fromInt size
|
|
, sort
|
|
]
|
|
)
|