mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-04-19 23:59:32 +00:00
dd935454c9
This drops fomantic-ui as css toolkit and introduces tailwindcss. With tailwind there are no predefined components, but it's very easy to create those. So customizing the look&feel is much simpler, most of the time no additional css is needed. This requires a complete rewrite of the markup + styles. Luckily all logic can be kept as is. The now old ui is not removed, it is still available by using a request header `Docspell-Ui` with a value of `1` for the old ui and `2` for the new ui. Another addition is "dev mode", where docspell serves assets with a no-cache header, to disable browser caching. This makes developing a lot easier.
502 lines
16 KiB
Elm
502 lines
16 KiB
Elm
module Comp.CollectiveSettingsForm exposing
|
|
( Model
|
|
, Msg
|
|
, getSettings
|
|
, init
|
|
, update
|
|
, view
|
|
, view2
|
|
)
|
|
|
|
import Api
|
|
import Api.Model.BasicResult exposing (BasicResult)
|
|
import Api.Model.CollectiveSettings exposing (CollectiveSettings)
|
|
import Comp.Basic as B
|
|
import Comp.ClassifierSettingsForm
|
|
import Comp.Dropdown
|
|
import Comp.MenuBar as MB
|
|
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)
|
|
import Http
|
|
import Styles as S
|
|
import Util.Http
|
|
|
|
|
|
type alias Model =
|
|
{ langModel : Comp.Dropdown.Model Language
|
|
, intEnabled : Bool
|
|
, initSettings : CollectiveSettings
|
|
, fullTextConfirmText : String
|
|
, fullTextReIndexResult : Maybe BasicResult
|
|
, classifierModel : Comp.ClassifierSettingsForm.Model
|
|
, startClassifierResult : Maybe BasicResult
|
|
}
|
|
|
|
|
|
init : Flags -> CollectiveSettings -> ( Model, Cmd Msg )
|
|
init flags settings =
|
|
let
|
|
lang =
|
|
Data.Language.fromString settings.language
|
|
|> Maybe.withDefault Data.Language.German
|
|
|
|
( cm, cc ) =
|
|
Comp.ClassifierSettingsForm.init flags settings.classifier
|
|
in
|
|
( { langModel =
|
|
Comp.Dropdown.makeSingleList
|
|
{ makeOption =
|
|
\l ->
|
|
{ value = Data.Language.toIso3 l
|
|
, text = Data.Language.toName l
|
|
, additional = ""
|
|
}
|
|
, placeholder = ""
|
|
, options = Data.Language.all
|
|
, selected = Just lang
|
|
}
|
|
, intEnabled = settings.integrationEnabled
|
|
, initSettings = settings
|
|
, fullTextConfirmText = ""
|
|
, fullTextReIndexResult = Nothing
|
|
, classifierModel = cm
|
|
, startClassifierResult = Nothing
|
|
}
|
|
, Cmd.map ClassifierSettingMsg cc
|
|
)
|
|
|
|
|
|
getSettings : Model -> Validated CollectiveSettings
|
|
getSettings model =
|
|
Data.Validated.map
|
|
(\cls ->
|
|
{ language =
|
|
Comp.Dropdown.getSelected model.langModel
|
|
|> List.head
|
|
|> Maybe.map Data.Language.toIso3
|
|
|> Maybe.withDefault model.initSettings.language
|
|
, integrationEnabled = model.intEnabled
|
|
, classifier = cls
|
|
}
|
|
)
|
|
(Comp.ClassifierSettingsForm.getSettings
|
|
model.classifierModel
|
|
)
|
|
|
|
|
|
type Msg
|
|
= LangDropdownMsg (Comp.Dropdown.Msg Language)
|
|
| ToggleIntegrationEndpoint
|
|
| SetFullTextConfirm String
|
|
| TriggerReIndex
|
|
| TriggerReIndexResult (Result Http.Error BasicResult)
|
|
| ClassifierSettingMsg Comp.ClassifierSettingsForm.Msg
|
|
| SaveSettings
|
|
| StartClassifierTask
|
|
| StartClassifierResp (Result Http.Error BasicResult)
|
|
|
|
|
|
update : Flags -> Msg -> Model -> ( Model, Cmd Msg, Maybe CollectiveSettings )
|
|
update flags msg model =
|
|
case msg of
|
|
LangDropdownMsg m ->
|
|
let
|
|
( m2, c2 ) =
|
|
Comp.Dropdown.update m model.langModel
|
|
|
|
nextModel =
|
|
{ model | langModel = m2 }
|
|
in
|
|
( nextModel, Cmd.map LangDropdownMsg c2, Nothing )
|
|
|
|
ToggleIntegrationEndpoint ->
|
|
let
|
|
nextModel =
|
|
{ model | intEnabled = not model.intEnabled }
|
|
in
|
|
( nextModel, Cmd.none, Nothing )
|
|
|
|
SetFullTextConfirm str ->
|
|
( { model | fullTextConfirmText = str }, Cmd.none, Nothing )
|
|
|
|
TriggerReIndex ->
|
|
case String.toLower model.fullTextConfirmText of
|
|
"ok" ->
|
|
( { model | fullTextReIndexResult = Nothing }
|
|
, Api.startReIndex flags TriggerReIndexResult
|
|
, Nothing
|
|
)
|
|
|
|
_ ->
|
|
( { model
|
|
| fullTextReIndexResult =
|
|
Just
|
|
(BasicResult False <|
|
|
"Please type OK in the field if you really "
|
|
++ "want to start re-indexing your data."
|
|
)
|
|
}
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
TriggerReIndexResult (Ok br) ->
|
|
( { model | fullTextReIndexResult = Just br }, Cmd.none, Nothing )
|
|
|
|
TriggerReIndexResult (Err err) ->
|
|
( { model
|
|
| fullTextReIndexResult =
|
|
Just (BasicResult False (Util.Http.errorToString err))
|
|
}
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
ClassifierSettingMsg lmsg ->
|
|
let
|
|
( cm, cc ) =
|
|
Comp.ClassifierSettingsForm.update flags lmsg model.classifierModel
|
|
in
|
|
( { model
|
|
| classifierModel = cm
|
|
}
|
|
, Cmd.map ClassifierSettingMsg cc
|
|
, Nothing
|
|
)
|
|
|
|
SaveSettings ->
|
|
case getSettings model of
|
|
Data.Validated.Valid s ->
|
|
( model, Cmd.none, Just s )
|
|
|
|
_ ->
|
|
( model, Cmd.none, Nothing )
|
|
|
|
StartClassifierTask ->
|
|
( model, Api.startClassifier flags StartClassifierResp, Nothing )
|
|
|
|
StartClassifierResp (Ok br) ->
|
|
( { model | startClassifierResult = Just br }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
StartClassifierResp (Err err) ->
|
|
( { model
|
|
| startClassifierResult =
|
|
Just (BasicResult False (Util.Http.errorToString err))
|
|
}
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
|
|
|
|
--- View
|
|
|
|
|
|
view : Flags -> UiSettings -> Model -> Html Msg
|
|
view flags settings model =
|
|
div
|
|
[ classList
|
|
[ ( "ui form error success", True )
|
|
, ( "error", Maybe.map .success model.fullTextReIndexResult == Just False )
|
|
, ( "success", Maybe.map .success model.fullTextReIndexResult == Just True )
|
|
]
|
|
]
|
|
[ h3 [ class "ui dividing header" ]
|
|
[ text "Document Language"
|
|
]
|
|
, div [ class "field" ]
|
|
[ label [] [ text "Document Language" ]
|
|
, Html.map LangDropdownMsg (Comp.Dropdown.view settings model.langModel)
|
|
, span [ class "small-info" ]
|
|
[ text "The language of your documents. This helps text recognition (OCR) and text analysis."
|
|
]
|
|
]
|
|
, h3
|
|
[ classList
|
|
[ ( "ui dividing header", True )
|
|
, ( "invisible hidden", not flags.config.integrationEnabled )
|
|
]
|
|
]
|
|
[ text "Integration Endpoint"
|
|
]
|
|
, div
|
|
[ classList
|
|
[ ( "field", True )
|
|
, ( "invisible hidden", not flags.config.integrationEnabled )
|
|
]
|
|
]
|
|
[ div [ class "ui checkbox" ]
|
|
[ input
|
|
[ type_ "checkbox"
|
|
, onCheck (\_ -> ToggleIntegrationEndpoint)
|
|
, checked model.intEnabled
|
|
]
|
|
[]
|
|
, label [] [ text "Enable integration endpoint" ]
|
|
, span [ class "small-info" ]
|
|
[ text "The integration endpoint allows (local) applications to submit files. "
|
|
, text "You can choose to disable it for your collective."
|
|
]
|
|
]
|
|
]
|
|
, h3
|
|
[ classList
|
|
[ ( "ui dividing header", True )
|
|
, ( "invisible hidden", not flags.config.fullTextSearchEnabled )
|
|
]
|
|
]
|
|
[ text "Full-Text Search"
|
|
]
|
|
, div
|
|
[ classList
|
|
[ ( "inline field", True )
|
|
, ( "invisible hidden", not flags.config.fullTextSearchEnabled )
|
|
]
|
|
]
|
|
[ div [ class "ui action input" ]
|
|
[ input
|
|
[ type_ "text"
|
|
, value model.fullTextConfirmText
|
|
, onInput SetFullTextConfirm
|
|
]
|
|
[]
|
|
, button
|
|
[ class "ui primary right labeled icon button"
|
|
, onClick TriggerReIndex
|
|
]
|
|
[ i [ class "refresh icon" ] []
|
|
, text "Re-Index All Data"
|
|
]
|
|
]
|
|
, div [ class "small-info" ]
|
|
[ text "This starts a task that clears the full-text index and re-indexes all your data again."
|
|
, text "You must type OK before clicking the button to avoid accidental re-indexing."
|
|
]
|
|
, renderResultMessage model.fullTextReIndexResult
|
|
]
|
|
, h3
|
|
[ classList
|
|
[ ( "ui dividing header", True )
|
|
, ( "invisible hidden", not flags.config.showClassificationSettings )
|
|
]
|
|
]
|
|
[ text "Auto-Tagging"
|
|
]
|
|
, div
|
|
[ classList
|
|
[ ( "field", True )
|
|
, ( "invisible hidden", not flags.config.showClassificationSettings )
|
|
]
|
|
]
|
|
[ Html.map ClassifierSettingMsg
|
|
(Comp.ClassifierSettingsForm.view settings model.classifierModel)
|
|
, div [ class "ui vertical segment" ]
|
|
[ button
|
|
[ class "ui small secondary basic button"
|
|
, title "Starts a task to train a classifier"
|
|
, onClick StartClassifierTask
|
|
]
|
|
[ text "Start now"
|
|
]
|
|
, renderResultMessage model.startClassifierResult
|
|
]
|
|
]
|
|
, div [ class "ui divider" ] []
|
|
, button
|
|
[ classList
|
|
[ ( "ui primary button", True )
|
|
, ( "disabled", getSettings model |> Data.Validated.isInvalid )
|
|
]
|
|
, onClick SaveSettings
|
|
]
|
|
[ text "Save"
|
|
]
|
|
]
|
|
|
|
|
|
renderResultMessage : Maybe BasicResult -> Html msg
|
|
renderResultMessage result =
|
|
div
|
|
[ classList
|
|
[ ( "ui message", True )
|
|
, ( "error", Maybe.map .success result == Just False )
|
|
, ( "success", Maybe.map .success result == Just True )
|
|
, ( "hidden invisible", result == Nothing )
|
|
]
|
|
]
|
|
[ Maybe.map .message result
|
|
|> Maybe.withDefault ""
|
|
|> text
|
|
]
|
|
|
|
|
|
|
|
--- View2
|
|
|
|
|
|
view2 : Flags -> UiSettings -> Model -> Html Msg
|
|
view2 flags settings model =
|
|
div
|
|
[ classList
|
|
[ ( "ui form error success", True )
|
|
, ( "error", Maybe.map .success model.fullTextReIndexResult == Just False )
|
|
, ( "success", Maybe.map .success model.fullTextReIndexResult == Just True )
|
|
]
|
|
, class "flex flex-col relative"
|
|
]
|
|
[ MB.view
|
|
{ start =
|
|
[ MB.CustomElement <|
|
|
B.primaryButton
|
|
{ handler = onClick SaveSettings
|
|
, label = "Save"
|
|
, icon = "fa fa-save"
|
|
, attrs =
|
|
[ title "Save settings"
|
|
, href "#"
|
|
]
|
|
, disabled = getSettings model |> Data.Validated.isInvalid
|
|
}
|
|
]
|
|
, end = []
|
|
, rootClasses = "mb-4"
|
|
}
|
|
, h3 [ class S.header3 ]
|
|
[ text "Document Language"
|
|
]
|
|
, div [ class "mb-4" ]
|
|
[ label [ class S.inputLabel ]
|
|
[ text "Document Language"
|
|
]
|
|
, Html.map LangDropdownMsg
|
|
(Comp.Dropdown.view2
|
|
DS.mainStyle
|
|
settings
|
|
model.langModel
|
|
)
|
|
, span [ class "opacity-50 text-sm" ]
|
|
[ text "The language of your documents. This helps text recognition (OCR) and text analysis."
|
|
]
|
|
]
|
|
, div
|
|
[ classList
|
|
[ ( "hidden", not flags.config.integrationEnabled )
|
|
]
|
|
]
|
|
[ h3
|
|
[ class S.header3
|
|
]
|
|
[ text "Integration Endpoint"
|
|
]
|
|
, div [ class "mb-4" ]
|
|
[ label
|
|
[ class "inline-flex items-center"
|
|
, for "intendpoint-enabled"
|
|
]
|
|
[ input
|
|
[ type_ "checkbox"
|
|
, onCheck (\_ -> ToggleIntegrationEndpoint)
|
|
, checked model.intEnabled
|
|
, id "intendpoint-enabled"
|
|
, class S.checkboxInput
|
|
]
|
|
[]
|
|
, span [ class "ml-2" ]
|
|
[ text "Enable integration endpoint"
|
|
]
|
|
]
|
|
, div [ class "opacity-50 text-sm" ]
|
|
[ text "The integration endpoint allows (local) applications to submit files. "
|
|
, text "You can choose to disable it for your collective."
|
|
]
|
|
]
|
|
]
|
|
, div
|
|
[ classList
|
|
[ ( "hidden", not flags.config.fullTextSearchEnabled )
|
|
]
|
|
]
|
|
[ h3
|
|
[ class S.header3 ]
|
|
[ text "Full-Text Search" ]
|
|
, div
|
|
[ class "mb-4" ]
|
|
[ div [ class "flex flex-row" ]
|
|
[ input
|
|
[ type_ "text"
|
|
, value model.fullTextConfirmText
|
|
, onInput SetFullTextConfirm
|
|
, class S.textInput
|
|
, class "rounded-r-none"
|
|
]
|
|
[]
|
|
, a
|
|
[ class S.primaryButtonPlain
|
|
, class "rouded-r"
|
|
, href "#"
|
|
, onClick TriggerReIndex
|
|
]
|
|
[ i [ class "fa fa-sync-alt" ] []
|
|
, span [ class "ml-2 hidden sm:inline" ]
|
|
[ text "Re-Index All Data"
|
|
]
|
|
]
|
|
]
|
|
, div [ class "opacity-50 text-sm" ]
|
|
[ text "This starts a task that clears the full-text index and re-indexes all your data again."
|
|
, text "You must type OK before clicking the button to avoid accidental re-indexing."
|
|
]
|
|
, renderResultMessage2 model.fullTextReIndexResult
|
|
]
|
|
]
|
|
, div
|
|
[ classList
|
|
[ ( " hidden", not flags.config.showClassificationSettings )
|
|
]
|
|
]
|
|
[ h3
|
|
[ class S.header3 ]
|
|
[ text "Auto-Tagging"
|
|
]
|
|
, div
|
|
[ class "mb-4" ]
|
|
[ Html.map ClassifierSettingMsg
|
|
(Comp.ClassifierSettingsForm.view2 settings model.classifierModel)
|
|
, div [ class "flex flex-row justify-end" ]
|
|
[ B.secondaryBasicButton
|
|
{ handler = onClick StartClassifierTask
|
|
, icon = "fa fa-play"
|
|
, label = "Start now"
|
|
, disabled = Data.Validated.isInvalid model.classifierModel.schedule
|
|
, attrs = [ href "#" ]
|
|
}
|
|
, renderResultMessage2 model.startClassifierResult
|
|
]
|
|
]
|
|
]
|
|
]
|
|
|
|
|
|
renderResultMessage2 : Maybe BasicResult -> Html msg
|
|
renderResultMessage2 result =
|
|
div
|
|
[ classList
|
|
[ ( S.errorMessage, Maybe.map .success result == Just False )
|
|
, ( S.successMessage, Maybe.map .success result == Just True )
|
|
, ( "hidden", result == Nothing )
|
|
]
|
|
]
|
|
[ Maybe.map .message result
|
|
|> Maybe.withDefault ""
|
|
|> text
|
|
]
|