diffuse / src / Library / Sources / Services / Common.elm

module Sources.Services.Common exposing (cleanPath, noPrep)

import Sources exposing (..)
import Sources.Processing exposing (..)
import String.Ext as String
import Time



-- PATHS


{-| Clean a path.

    >>> cleanPath "   "
    ""

    >>> cleanPath "/example"
    "example/"

    >>> cleanPath "example"
    "example/"

    >>> cleanPath "example/"
    "example/"

-}
cleanPath : String -> String
cleanPath dirtyPath =
    dirtyPath
        |> String.trim
        |> String.chopStart "/"
        |> String.chopEnd "/"
        |> (\p ->
                if String.isEmpty p then
                    p

                else
                    p ++ "/"
           )



-- PARSING


noPrep : String -> Time.Posix -> SourceData -> Marker -> PrepationAnswer Marker
noPrep _ _ srcData _ =
    { sourceData = srcData, marker = TheEnd }