mpizenberg / elm-file Goto Github PK

 let
    extensionRegex : Regex.Regex
    extensionRegex = Maybe.withDefault Regex.never <| Regex.fromString "*\\.csv"

    extension : String -> Bool
    extension fileName =
        Regex.contains extensionRegex fileName
in
List.map Element.htmlAttribute
    (File.onDrop
        -- /!\ Cannot work with file.mime string for onOver,
        --     as it seems to always be "text/plain"
        { onOver = \file otherFiles -> 
            if extension (Debug.log "name:" file).name then
                DragDropLightsMsg DragOverLights
            else
                DragDropImagesMsg DragOverImages
            -- (case Debug.log "mime:" file.mime of
            -- "text/csv" ->
            --     DragDropLightsMsg DragOverLights
            -- "text/plain" ->
            --     DragDropLightsMsg DragOverLights
            -- "image/*" ->
            --     DragDropImagesMsg DragOverImages
            -- _ ->
            --     ClearLogs
            -- )
        , onDrop = \file otherFiles ->
            (case file.mime of
            "text/csv" ->
                DragDropLightsMsg (DropLights file)
            _ ->
                DragDropImagesMsg (DropImages file otherFiles)
            )
        , onLeave = Just { id = "FileDropArea", msg = DragDropImagesMsg DragLeaveImages }
        }
    )

## Reproductibility :

I have tried the following browsing tools :
[x] Firefox
[x] Chrome
[ ] Explorer
[ ] Opera