module String.Ext exposing (..)

{-| Flipped version of `append`.
-}

-- 🔱


{-| Flipped version of `append`.
-}
addSuffix : String -> String -> String
addSuffix a b =
    String.append b a


{-| Chop something from the end of a string until it's not there anymore.
-}
chopEnd : String -> String -> String
chopEnd needle str =
    if String.endsWith needle str then
        str
            |> String.dropRight (String.length needle)
            |> chopEnd needle

    else
        str


{-| Chop something from the beginning of a string until it's not there anymore.
-}
chopStart : String -> String -> String
chopStart needle str =
    if String.startsWith needle str then
        str
            |> String.dropLeft (String.length needle)
            |> chopStart needle

    else
        str


{-| Join a list of Strings with a space in between.
-}
joinWithSpace : List String -> String
joinWithSpace =
    String.join " "