String Match On

MatchOn.elm

matchOn : String -> String -> Maybe String
matchOn start string = 
  if startsWith start string
  then
    Just <| dropLeft (length start) string
  else
    Nothing

With a DSL too:

(:->) = (,)       

route = match 
  [ "index.html" :-> displayHome
  , ""           :-> displayHome
  , "blog/"      :-> blogRoute
  , "contacts/"  :-> displayContacts
  ] display404


blogRoute = match
  [ "mario.html" :-> displayMario
  ] displayBlog

The match function for the DSL:

match : List (String, String -> a) -> (String -> a) -> String -> a
match list defaultMatch url = case list of
  [] -> defaultMatch url
  (str, matcher) :: ms -> 
    -- Test for empty string matcher (usually home)
    if 
      str == "" 
    then
      if 
        url == ""
      then 
        matcher url
      else
        match ms defaultMatch url
    else 
      case matchOn str url of
        Just value -> matcher value
        Nothing    -> match ms defaultMatch url