TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-10-22 13:20:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Refactor caleventinput field

Browse Source
This commit is contained in:
Eike Kettner
2021-04-26 18:28:16 +02:00
parent b2cffb22ef
commit a39dfbf82a
6 changed files with 139 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
modules/webapp/src/main/elm/Comp/CollectiveSettingsForm.elm
View File

@@ -18,7 +18,6 @@ import Data.DropdownStyle as DS
import Data.Flags exposing (Flags)
import Data.Language exposing (Language)
import Data.UiSettings exposing (UiSettings)
import Data.Validated exposing (Validated)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onCheck, onClick, onInput)
@@ -79,9 +78,9 @@ init flags settings =
)
getSettings : Model -> Validated CollectiveSettings
getSettings : Model -> Maybe CollectiveSettings
getSettings model =
Data.Validated.map
Maybe.map
(\cls ->
{ language =
Comp.Dropdown.getSelected model.langModel
@@ -184,10 +183,10 @@ update flags msg model =
SaveSettings ->
case getSettings model of
Data.Validated.Valid s ->
Just s ->
( model, Cmd.none, Just s )
_ ->
Nothing ->
( model, Cmd.none, Nothing )
StartClassifierTask ->
@@ -245,7 +244,7 @@ view2 flags texts settings model =
[ title texts.saveSettings
, href "#"
]
, disabled = getSettings model |> Data.Validated.isInvalid
, disabled = getSettings model == Nothing
}
]
, end = []
@@ -358,7 +357,7 @@ view2 flags texts settings model =
{ handler = onClick StartClassifierTask
, icon = "fa fa-play"
, label = texts.startNow
, disabled = Data.Validated.isInvalid model.classifierModel.schedule
, disabled = model.classifierModel.schedule == Nothing
, attrs = [ href "#" ]
}
, renderClassifierResultMessage texts model.startClassifierResult