TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-23 19:08:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Move utility functions into a Util file

Browse Source
This commit is contained in:
Eike Kettner
2020-05-24 15:58:09 +02:00
parent 324476c1a9
commit 6807ce4d2f
2 changed files with 53 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
modules/webapp/src/main/elm/Comp/Dropzone.elm
View File

@ -18,6 +18,7 @@ import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Json.Decode as D
import Util.Html exposing (onDragEnter, onDragLeave, onDragOver, onDropFiles)
type alias State =
@ -111,10 +112,10 @@ view : Model -> Html Msg
view model =
div
[ classList (model.settings.classList model.state)
, hijackOn "dragenter" (D.succeed DragEnter)
, hijackOn "dragover" (D.succeed DragEnter)
, hijackOn "dragleave" (D.succeed DragLeave)
, hijackOn "drop" dropDecoder
, onDragEnter DragEnter
, onDragOver DragEnter
, onDragLeave DragLeave
, onDropFiles GotFiles
]
[ div [ class "ui icon header" ]
[ i [ class "mouse pointer icon" ] []
@ -156,18 +157,3 @@ filterMime settings files =
else
List.filter pred files
dropDecoder : D.Decoder Msg
dropDecoder =
D.at [ "dataTransfer", "files" ] (D.oneOrMore GotFiles File.decoder)
hijackOn : String -> D.Decoder msg -> Attribute msg
hijackOn event decoder =
preventDefaultOn event (D.map hijack decoder)
hijack : msg -> ( msg, Bool )
hijack msg =
( msg, True )