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

Add language to scan-mailbox-form

Browse Source
This commit is contained in:
Eike Kettner 2020-11-23 21:00:19 +01:00
parent 5fe532001b
commit 7fee52f6f2
1 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
modules/webapp/src/main/elm/Comp/ScanMailboxForm.elm
View File

@ -20,12 +20,14 @@ import Api.Model.Tag exposing (Tag)
import Api.Model.TagList exposing (TagList) import Api.Model.TagList exposing (TagList)
import Comp.CalEventInput import Comp.CalEventInput
import Comp.Dropdown exposing (isDropdownChangeMsg) import Comp.Dropdown exposing (isDropdownChangeMsg)
import Comp.FixedDropdown
import Comp.IntField import Comp.IntField
import Comp.StringListInput import Comp.StringListInput
import Comp.YesNoDimmer import Comp.YesNoDimmer
import Data.CalEvent exposing (CalEvent) import Data.CalEvent exposing (CalEvent)
import Data.Direction exposing (Direction(..)) import Data.Direction exposing (Direction(..))
import Data.Flags exposing (Flags) import Data.Flags exposing (Flags)
import Data.Language exposing (Language)
import Data.UiSettings exposing (UiSettings) import Data.UiSettings exposing (UiSettings)
import Data.Validated exposing (Validated(..)) import Data.Validated exposing (Validated(..))
import Html exposing (..) import Html exposing (..)
@ -64,6 +66,8 @@ type alias Model =
, existingTags : List String , existingTags : List String
, fileFilter : Maybe String , fileFilter : Maybe String
, subjectFilter : Maybe String , subjectFilter : Maybe String
, languageModel : Comp.FixedDropdown.Model Language
, language : Maybe Language
} }
@ -96,6 +100,8 @@ type Msg
| TagDropdownMsg (Comp.Dropdown.Msg Tag) | TagDropdownMsg (Comp.Dropdown.Msg Tag)
| SetFileFilter String | SetFileFilter String
| SetSubjectFilter String | SetSubjectFilter String
| LanguageMsg (Comp.FixedDropdown.Msg Language)
| RemoveLanguage
initWith : Flags -> ScanMailboxSettings -> ( Model, Cmd Msg ) initWith : Flags -> ScanMailboxSettings -> ( Model, Cmd Msg )
@ -138,6 +144,9 @@ initWith flags s =
|> Maybe.withDefault [] |> Maybe.withDefault []
, fileFilter = s.fileFilter , fileFilter = s.fileFilter
, subjectFilter = s.subjectFilter , subjectFilter = s.subjectFilter
, languageModel =
Comp.FixedDropdown.init (List.map mkLanguageItem Data.Language.all)
, language = Maybe.andThen Data.Language.fromString s.language
} }
, Cmd.batch , Cmd.batch
[ Api.getImapSettings flags "" ConnResp [ Api.getImapSettings flags "" ConnResp
@ -188,6 +197,9 @@ init flags =
, existingTags = [] , existingTags = []
, fileFilter = Nothing , fileFilter = Nothing
, subjectFilter = Nothing , subjectFilter = Nothing
, languageModel =
Comp.FixedDropdown.init (List.map mkLanguageItem Data.Language.all)
, language = Nothing
} }
, Cmd.batch , Cmd.batch
[ Api.getImapSettings flags "" ConnResp [ Api.getImapSettings flags "" ConnResp
@ -197,6 +209,11 @@ init flags =
) )
mkLanguageItem : Language -> Comp.FixedDropdown.Item Language
mkLanguageItem lang =
Comp.FixedDropdown.Item lang (Data.Language.toName lang)
--- Update --- Update
@ -242,6 +259,7 @@ makeSettings model =
List.map .id els List.map .id els
|> StringList |> StringList
|> Just |> Just
, language = Maybe.map Data.Language.toIso3 model.language
} }
in in
Data.Validated.map3 make Data.Validated.map3 make
@ -597,6 +615,25 @@ update flags msg model =
, Cmd.none , Cmd.none
) )
LanguageMsg lm ->
let
( dm, sel ) =
Comp.FixedDropdown.update lm model.languageModel
in
( { model
| languageModel = dm
, language = Util.Maybe.or [ sel, model.language ]
}
, NoAction
, Cmd.none
)
RemoveLanguage ->
( { model | language = Nothing }
, NoAction
, Cmd.none
)
--- View --- View
@ -835,6 +872,29 @@ disappear then.
[ text "Choose tags that should be applied to items." [ text "Choose tags that should be applied to items."
] ]
] ]
, div [ class "field" ]
[ label []
[ text "Language"
]
, div [ class "ui action input" ]
[ Html.map LanguageMsg
(Comp.FixedDropdown.viewStyled "fluid"
(Maybe.map mkLanguageItem model.language)
model.languageModel
)
, a
[ class "ui icon button"
, href "#"
, onClick RemoveLanguage
]
[ i [ class "delete icon" ] []
]
]
, div [ class "small-info" ]
[ text "Used for text extraction and text analysis. The "
, text "collective's default language is used, if not specified here."
]
]
, div [ class "ui dividing header" ] , div [ class "ui dividing header" ]
[ text "Schedule" [ text "Schedule"
] ]