Introduce fomantic-ui, replacing semantic-ui

Replaced semantic-ui with the drop-in replacement fomantic-ui [0]
which is a maintained fork. The fomantic-ui used here is a custom
build [1] of the less-version _without_ google-fonts (css-only). The
javascript part of fomantic-ui is not used, and also jquery could be
dropped now.

[0] https://fomantic-ui.com
[1] https://github.com/eikek/fomantic-slim-default

Issue: #349
This commit is contained in:
Eike Kettner
2020-11-05 22:36:28 +01:00
parent d79955d574
commit 59dfae6a49
14 changed files with 157 additions and 84 deletions

View File

@ -886,7 +886,7 @@ update key flags inav settings msg model =
, addFilesModel = Comp.Dropzone.init Comp.Dropzone.defaultSettings
, completed = Set.empty
, errored = Set.empty
, loading = Set.empty
, loading = Dict.empty
}
, Cmd.none
)
@ -904,8 +904,12 @@ update key flags inav settings msg model =
( cm2, _, _ ) =
Comp.Dropzone.update (Comp.Dropzone.setActive False) model.addFilesModel
newLoading =
List.map (\fid -> ( fid, 0 )) fileids
|> Dict.fromList
in
( { model | loading = Set.fromList fileids, addFilesModel = cm2 }
( { model | loading = newLoading, addFilesModel = cm2 }
, uploads
, tracker
)
@ -927,14 +931,18 @@ update key flags inav settings msg model =
model.errored
load =
Set.remove fileid model.loading
Dict.remove fileid model.loading
newModel =
{ model | completed = compl, errored = errs, loading = load }
{ model
| completed = compl
, errored = errs
, loading = load
}
in
noSub
( newModel
, Ports.setProgress ( fileid, 100 )
, Cmd.none
)
AddFilesUploadResp fileid (Err _) ->
@ -943,7 +951,7 @@ update key flags inav settings msg model =
setErrored model fileid
load =
Set.remove fileid model.loading
Dict.remove fileid model.loading
in
noSub ( { model | errored = errs, loading = load }, Cmd.none )
@ -959,14 +967,13 @@ update key flags inav settings msg model =
_ ->
0
updateBars =
if percent == 0 then
Cmd.none
else
Ports.setProgress ( fileid, percent )
newLoading =
Dict.insert fileid percent model.loading
in
noSub ( model, updateBars )
noSub
( { model | loading = newLoading }
, Cmd.none
)
AttachDDMsg lm ->
let