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.
951 lines
26 KiB
Elm
951 lines
26 KiB
Elm
module Comp.DetailEdit exposing
|
|
( Model
|
|
, Msg
|
|
, Value(..)
|
|
, editEquip
|
|
, editOrg
|
|
, editPerson
|
|
, formHeading
|
|
, initConcPerson
|
|
, initCorrPerson
|
|
, initCustomField
|
|
, initEquip
|
|
, initOrg
|
|
, initTag
|
|
, initTagByName
|
|
, update
|
|
, view
|
|
, view2
|
|
, viewModal
|
|
, viewModal2
|
|
)
|
|
|
|
{-| Module for allowing to edit metadata in the item-edit menu.
|
|
|
|
It is only possible to edit one thing at a time, suitable for being
|
|
rendered in a modal.
|
|
|
|
-}
|
|
|
|
import Api
|
|
import Api.Model.BasicResult exposing (BasicResult)
|
|
import Api.Model.Equipment exposing (Equipment)
|
|
import Api.Model.NewCustomField exposing (NewCustomField)
|
|
import Api.Model.Organization exposing (Organization)
|
|
import Api.Model.Person exposing (Person)
|
|
import Api.Model.ReferenceList exposing (ReferenceList)
|
|
import Api.Model.Tag exposing (Tag)
|
|
import Comp.Basic as B
|
|
import Comp.CustomFieldForm
|
|
import Comp.EquipmentForm
|
|
import Comp.OrgForm
|
|
import Comp.PersonForm
|
|
import Comp.TagForm
|
|
import Data.Flags exposing (Flags)
|
|
import Data.Icons as Icons
|
|
import Data.UiSettings exposing (UiSettings)
|
|
import Data.Validated
|
|
import Html exposing (..)
|
|
import Html.Attributes exposing (..)
|
|
import Html.Events exposing (onClick)
|
|
import Http
|
|
import Styles as S
|
|
import Util.Http
|
|
|
|
|
|
type alias Model =
|
|
{ form : FormModel
|
|
, itemId : String
|
|
, submitting : Bool
|
|
, loading : Bool
|
|
, result : Maybe BasicResult
|
|
}
|
|
|
|
|
|
type FormModel
|
|
= TM Comp.TagForm.Model
|
|
| PMR Comp.PersonForm.Model
|
|
| PMC Comp.PersonForm.Model
|
|
| OM Comp.OrgForm.Model
|
|
| EM Comp.EquipmentForm.Model
|
|
| CFM Comp.CustomFieldForm.Model
|
|
|
|
|
|
fold :
|
|
(Comp.TagForm.Model -> a)
|
|
-> (Comp.PersonForm.Model -> a)
|
|
-> (Comp.OrgForm.Model -> a)
|
|
-> (Comp.EquipmentForm.Model -> a)
|
|
-> (Comp.CustomFieldForm.Model -> a)
|
|
-> FormModel
|
|
-> a
|
|
fold ft fp fo fe fcf model =
|
|
case model of
|
|
TM tm ->
|
|
ft tm
|
|
|
|
PMR pm ->
|
|
fp pm
|
|
|
|
PMC pm ->
|
|
fp pm
|
|
|
|
OM om ->
|
|
fo om
|
|
|
|
EM em ->
|
|
fe em
|
|
|
|
CFM fm ->
|
|
fcf fm
|
|
|
|
|
|
init : String -> FormModel -> Model
|
|
init itemId fm =
|
|
{ form = fm
|
|
, itemId = itemId
|
|
, submitting = False
|
|
, loading = False
|
|
, result = Nothing
|
|
}
|
|
|
|
|
|
initEquip : String -> Comp.EquipmentForm.Model -> Model
|
|
initEquip itemId em =
|
|
init itemId (EM em)
|
|
|
|
|
|
initOrg : String -> Comp.OrgForm.Model -> Model
|
|
initOrg itemId om =
|
|
init itemId (OM om)
|
|
|
|
|
|
editOrg : Flags -> String -> Comp.OrgForm.Model -> ( Model, Cmd Msg )
|
|
editOrg flags orgId om =
|
|
( { form = OM om
|
|
, itemId = ""
|
|
, submitting = False
|
|
, loading = True
|
|
, result = Nothing
|
|
}
|
|
, Api.getOrgFull orgId flags GetOrgResp
|
|
)
|
|
|
|
|
|
editPerson : Flags -> String -> Comp.PersonForm.Model -> ( Model, Cmd Msg )
|
|
editPerson flags persId pm =
|
|
( { form = PMC pm
|
|
, itemId = ""
|
|
, submitting = False
|
|
, loading = True
|
|
, result = Nothing
|
|
}
|
|
, Cmd.batch
|
|
[ Api.getPersonFull persId flags GetPersonResp
|
|
, Api.getOrgLight flags GetOrgsResp
|
|
]
|
|
)
|
|
|
|
|
|
editEquip : Flags -> String -> Comp.EquipmentForm.Model -> ( Model, Cmd Msg )
|
|
editEquip flags equipId em =
|
|
( { form = EM em
|
|
, itemId = ""
|
|
, submitting = False
|
|
, loading = True
|
|
, result = Nothing
|
|
}
|
|
, Api.getEquipment flags equipId GetEquipResp
|
|
)
|
|
|
|
|
|
initCorrPerson : Flags -> String -> Comp.PersonForm.Model -> ( Model, Cmd Msg )
|
|
initCorrPerson flags itemId pm =
|
|
( init itemId (PMR pm)
|
|
, Api.getOrgLight flags GetOrgsResp
|
|
)
|
|
|
|
|
|
initConcPerson : Flags -> String -> Comp.PersonForm.Model -> ( Model, Cmd Msg )
|
|
initConcPerson flags itemId pm =
|
|
( init itemId (PMC pm)
|
|
, Api.getOrgLight flags GetOrgsResp
|
|
)
|
|
|
|
|
|
initTag : String -> Comp.TagForm.Model -> Model
|
|
initTag itemId tm =
|
|
init itemId (TM tm)
|
|
|
|
|
|
initTagByName : String -> String -> List String -> Model
|
|
initTagByName itemId name categories =
|
|
let
|
|
tm =
|
|
Comp.TagForm.emptyModel categories
|
|
|
|
tm_ =
|
|
{ tm | name = name }
|
|
in
|
|
initTag itemId tm_
|
|
|
|
|
|
initCustomField : String -> Model
|
|
initCustomField itemId =
|
|
let
|
|
cfm =
|
|
Comp.CustomFieldForm.initEmpty
|
|
in
|
|
init itemId (CFM cfm)
|
|
|
|
|
|
type Msg
|
|
= TagMsg Comp.TagForm.Msg
|
|
| PersonMsg Comp.PersonForm.Msg
|
|
| OrgMsg Comp.OrgForm.Msg
|
|
| EquipMsg Comp.EquipmentForm.Msg
|
|
| CustomFieldMsg Comp.CustomFieldForm.Msg
|
|
| Submit
|
|
| Cancel
|
|
| SubmitResp (Result Http.Error BasicResult)
|
|
| GetOrgResp (Result Http.Error Organization)
|
|
| GetPersonResp (Result Http.Error Person)
|
|
| GetEquipResp (Result Http.Error Equipment)
|
|
| GetOrgsResp (Result Http.Error ReferenceList)
|
|
|
|
|
|
type Value
|
|
= SubmitTag Tag
|
|
| SubmitPerson Person
|
|
| SubmitOrg Organization
|
|
| SubmitEquip Equipment
|
|
| SubmitCustomField NewCustomField
|
|
| CancelForm
|
|
|
|
|
|
makeValue : FormModel -> Value
|
|
makeValue fm =
|
|
case fm of
|
|
TM tm ->
|
|
SubmitTag (Comp.TagForm.getTag tm)
|
|
|
|
PMR pm ->
|
|
SubmitPerson (Comp.PersonForm.getPerson pm)
|
|
|
|
PMC pm ->
|
|
SubmitPerson (Comp.PersonForm.getPerson pm)
|
|
|
|
OM om ->
|
|
SubmitOrg (Comp.OrgForm.getOrg om)
|
|
|
|
EM em ->
|
|
SubmitEquip (Comp.EquipmentForm.getEquipment em)
|
|
|
|
CFM fieldModel ->
|
|
let
|
|
cfield =
|
|
Comp.CustomFieldForm.makeField fieldModel
|
|
in
|
|
case cfield of
|
|
Data.Validated.Valid field ->
|
|
SubmitCustomField field
|
|
|
|
_ ->
|
|
CancelForm
|
|
|
|
|
|
|
|
--- Update
|
|
|
|
|
|
update : Flags -> Msg -> Model -> ( Model, Cmd Msg, Maybe Value )
|
|
update flags msg model =
|
|
case msg of
|
|
Cancel ->
|
|
( model, Cmd.none, Just CancelForm )
|
|
|
|
GetOrgResp (Ok org) ->
|
|
case model.form of
|
|
OM om ->
|
|
let
|
|
( om_, oc_ ) =
|
|
Comp.OrgForm.update flags (Comp.OrgForm.SetOrg org) om
|
|
in
|
|
( { model
|
|
| loading = False
|
|
, form = OM om_
|
|
}
|
|
, Cmd.map OrgMsg oc_
|
|
, Nothing
|
|
)
|
|
|
|
_ ->
|
|
( { model | loading = False }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
GetOrgResp (Err err) ->
|
|
( { model | loading = False, result = Just (BasicResult False (Util.Http.errorToString err)) }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
GetPersonResp (Ok pers) ->
|
|
case model.form of
|
|
PMC pm ->
|
|
let
|
|
( pm_, pc_ ) =
|
|
Comp.PersonForm.update flags (Comp.PersonForm.SetPerson pers) pm
|
|
in
|
|
( { model
|
|
| loading = False
|
|
, form = PMC pm_
|
|
}
|
|
, Cmd.map PersonMsg pc_
|
|
, Nothing
|
|
)
|
|
|
|
_ ->
|
|
( { model | loading = False }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
GetPersonResp (Err err) ->
|
|
( { model | loading = False, result = Just (BasicResult False (Util.Http.errorToString err)) }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
GetOrgsResp (Ok list) ->
|
|
case model.form of
|
|
PMC pm ->
|
|
let
|
|
( p_, c_ ) =
|
|
Comp.PersonForm.update flags (Comp.PersonForm.SetOrgs list.items) pm
|
|
in
|
|
( { model
|
|
| loading = False
|
|
, form = PMC p_
|
|
}
|
|
, Cmd.map PersonMsg c_
|
|
, Nothing
|
|
)
|
|
|
|
PMR pm ->
|
|
let
|
|
( p_, c_ ) =
|
|
Comp.PersonForm.update flags (Comp.PersonForm.SetOrgs list.items) pm
|
|
in
|
|
( { model
|
|
| loading = False
|
|
, form = PMR p_
|
|
}
|
|
, Cmd.map PersonMsg c_
|
|
, Nothing
|
|
)
|
|
|
|
_ ->
|
|
( { model | loading = False }, Cmd.none, Nothing )
|
|
|
|
GetOrgsResp (Err err) ->
|
|
( { model | loading = False, result = Just (BasicResult False (Util.Http.errorToString err)) }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
GetEquipResp (Ok equip) ->
|
|
case model.form of
|
|
EM em ->
|
|
let
|
|
( em_, ec_ ) =
|
|
Comp.EquipmentForm.update flags (Comp.EquipmentForm.SetEquipment equip) em
|
|
in
|
|
( { model
|
|
| loading = False
|
|
, form = EM em_
|
|
}
|
|
, Cmd.map EquipMsg ec_
|
|
, Nothing
|
|
)
|
|
|
|
_ ->
|
|
( { model | loading = False }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
GetEquipResp (Err err) ->
|
|
( { model | loading = False, result = Just (BasicResult False (Util.Http.errorToString err)) }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
SubmitResp (Ok res) ->
|
|
let
|
|
ret =
|
|
if res.success then
|
|
Just (makeValue model.form)
|
|
|
|
else
|
|
Nothing
|
|
in
|
|
( { model
|
|
| result = Just res
|
|
, submitting = False
|
|
}
|
|
, Cmd.none
|
|
, ret
|
|
)
|
|
|
|
SubmitResp (Err err) ->
|
|
( { model
|
|
| result = Just (BasicResult False (Util.Http.errorToString err))
|
|
, submitting = False
|
|
}
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
Submit ->
|
|
let
|
|
failMsg =
|
|
Just (BasicResult False "Please fill required fields.")
|
|
in
|
|
case model.form of
|
|
TM tm ->
|
|
let
|
|
tag =
|
|
Comp.TagForm.getTag tm
|
|
in
|
|
if Comp.TagForm.isValid tm then
|
|
( { model | submitting = True }
|
|
, Api.addTag flags model.itemId tag SubmitResp
|
|
, Nothing
|
|
)
|
|
|
|
else
|
|
( { model | result = failMsg }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
OM om ->
|
|
let
|
|
org =
|
|
Comp.OrgForm.getOrg om
|
|
in
|
|
if Comp.OrgForm.isValid om then
|
|
( { model | submitting = True }
|
|
, if model.itemId == "" then
|
|
Api.postOrg flags org SubmitResp
|
|
|
|
else
|
|
Api.addCorrOrg flags model.itemId org SubmitResp
|
|
, Nothing
|
|
)
|
|
|
|
else
|
|
( { model | result = failMsg }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
PMC pm ->
|
|
let
|
|
pers =
|
|
Comp.PersonForm.getPerson pm
|
|
in
|
|
if Comp.PersonForm.isValid pm then
|
|
( { model | submitting = True }
|
|
, if model.itemId == "" then
|
|
Api.postPerson flags pers SubmitResp
|
|
|
|
else
|
|
Api.addConcPerson flags model.itemId pers SubmitResp
|
|
, Nothing
|
|
)
|
|
|
|
else
|
|
( { model | result = failMsg }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
PMR pm ->
|
|
let
|
|
pers =
|
|
Comp.PersonForm.getPerson pm
|
|
in
|
|
if Comp.PersonForm.isValid pm then
|
|
( { model | submitting = True }
|
|
, if model.itemId == "" then
|
|
Api.postPerson flags pers SubmitResp
|
|
|
|
else
|
|
Api.addCorrPerson flags model.itemId pers SubmitResp
|
|
, Nothing
|
|
)
|
|
|
|
else
|
|
( { model | result = failMsg }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
EM em ->
|
|
let
|
|
equip =
|
|
Comp.EquipmentForm.getEquipment em
|
|
in
|
|
if Comp.EquipmentForm.isValid em then
|
|
( { model | submitting = True }
|
|
, if model.itemId == "" then
|
|
Api.postEquipment flags equip SubmitResp
|
|
|
|
else
|
|
Api.addConcEquip flags model.itemId equip SubmitResp
|
|
, Nothing
|
|
)
|
|
|
|
else
|
|
( { model | result = failMsg }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
CFM fm ->
|
|
let
|
|
cfield =
|
|
Comp.CustomFieldForm.makeField fm
|
|
in
|
|
case cfield of
|
|
Data.Validated.Valid newField ->
|
|
( { model | submitting = True }
|
|
, Api.postCustomField flags newField SubmitResp
|
|
, Nothing
|
|
)
|
|
|
|
_ ->
|
|
( { model | result = failMsg }
|
|
, Cmd.none
|
|
, Nothing
|
|
)
|
|
|
|
TagMsg lm ->
|
|
case model.form of
|
|
TM tm ->
|
|
let
|
|
( tm_, tc_ ) =
|
|
Comp.TagForm.update flags lm tm
|
|
in
|
|
( { model
|
|
| form = TM tm_
|
|
, result = Nothing
|
|
}
|
|
, Cmd.map TagMsg tc_
|
|
, Nothing
|
|
)
|
|
|
|
_ ->
|
|
( model, Cmd.none, Nothing )
|
|
|
|
PersonMsg lm ->
|
|
case model.form of
|
|
PMR pm ->
|
|
let
|
|
( pm_, pc_ ) =
|
|
Comp.PersonForm.update flags lm pm
|
|
in
|
|
( { model
|
|
| form = PMR pm_
|
|
, result = Nothing
|
|
}
|
|
, Cmd.map PersonMsg pc_
|
|
, Nothing
|
|
)
|
|
|
|
PMC pm ->
|
|
let
|
|
( pm_, pc_ ) =
|
|
Comp.PersonForm.update flags lm pm
|
|
in
|
|
( { model
|
|
| form = PMC pm_
|
|
, result = Nothing
|
|
}
|
|
, Cmd.map PersonMsg pc_
|
|
, Nothing
|
|
)
|
|
|
|
_ ->
|
|
( model, Cmd.none, Nothing )
|
|
|
|
OrgMsg lm ->
|
|
case model.form of
|
|
OM om ->
|
|
let
|
|
( om_, oc_ ) =
|
|
Comp.OrgForm.update flags lm om
|
|
in
|
|
( { model
|
|
| form = OM om_
|
|
, result = Nothing
|
|
}
|
|
, Cmd.map OrgMsg oc_
|
|
, Nothing
|
|
)
|
|
|
|
_ ->
|
|
( model, Cmd.none, Nothing )
|
|
|
|
EquipMsg lm ->
|
|
case model.form of
|
|
EM em ->
|
|
let
|
|
( em_, ec_ ) =
|
|
Comp.EquipmentForm.update flags lm em
|
|
in
|
|
( { model
|
|
| form = EM em_
|
|
, result = Nothing
|
|
}
|
|
, Cmd.map EquipMsg ec_
|
|
, Nothing
|
|
)
|
|
|
|
_ ->
|
|
( model, Cmd.none, Nothing )
|
|
|
|
CustomFieldMsg lm ->
|
|
case model.form of
|
|
CFM fm ->
|
|
let
|
|
( fm_, fc_, _ ) =
|
|
Comp.CustomFieldForm.update flags lm fm
|
|
in
|
|
( { model
|
|
| form = CFM fm_
|
|
, result = Nothing
|
|
}
|
|
, Cmd.map CustomFieldMsg fc_
|
|
, Nothing
|
|
)
|
|
|
|
_ ->
|
|
( model, Cmd.none, Nothing )
|
|
|
|
|
|
|
|
--- View
|
|
|
|
|
|
customFieldFormSettings : Comp.CustomFieldForm.ViewSettings
|
|
customFieldFormSettings =
|
|
{ classes = "ui error form"
|
|
, showControls = False
|
|
}
|
|
|
|
|
|
viewButtons : Model -> List (Html Msg)
|
|
viewButtons model =
|
|
[ button
|
|
[ class "ui primary button"
|
|
, href "#"
|
|
, onClick Submit
|
|
, disabled (model.submitting || model.loading)
|
|
]
|
|
[ if model.submitting || model.loading then
|
|
i [ class "ui spinner loading icon" ] []
|
|
|
|
else
|
|
text "Submit"
|
|
]
|
|
, button
|
|
[ class "ui button"
|
|
, href "#"
|
|
, onClick Cancel
|
|
]
|
|
[ text "Cancel"
|
|
]
|
|
]
|
|
|
|
|
|
viewIntern : UiSettings -> Bool -> Model -> List (Html Msg)
|
|
viewIntern settings withButtons model =
|
|
[ div
|
|
[ classList
|
|
[ ( "ui message", True )
|
|
, ( "error", Maybe.map .success model.result == Just False )
|
|
, ( "success", Maybe.map .success model.result == Just True )
|
|
, ( "invisible hidden", model.result == Nothing )
|
|
]
|
|
]
|
|
[ Maybe.map .message model.result
|
|
|> Maybe.withDefault ""
|
|
|> text
|
|
]
|
|
, case model.form of
|
|
TM tm ->
|
|
Html.map TagMsg (Comp.TagForm.view tm)
|
|
|
|
PMR pm ->
|
|
Html.map PersonMsg (Comp.PersonForm.view1 settings True pm)
|
|
|
|
PMC pm ->
|
|
Html.map PersonMsg (Comp.PersonForm.view1 settings True pm)
|
|
|
|
OM om ->
|
|
Html.map OrgMsg (Comp.OrgForm.view1 settings True om)
|
|
|
|
EM em ->
|
|
Html.map EquipMsg (Comp.EquipmentForm.view em)
|
|
|
|
CFM fm ->
|
|
Html.map CustomFieldMsg (Comp.CustomFieldForm.view customFieldFormSettings fm)
|
|
]
|
|
++ (if withButtons then
|
|
div [ class "ui divider" ] [] :: viewButtons model
|
|
|
|
else
|
|
[]
|
|
)
|
|
|
|
|
|
view : UiSettings -> Model -> Html Msg
|
|
view settings model =
|
|
div []
|
|
(viewIntern settings True model)
|
|
|
|
|
|
viewModal : UiSettings -> Maybe Model -> Html Msg
|
|
viewModal settings mm =
|
|
let
|
|
hidden =
|
|
mm == Nothing
|
|
|
|
heading =
|
|
fold (\_ -> "Add Tag")
|
|
(\_ -> "Add Person")
|
|
(\_ -> "Add Organization")
|
|
(\_ -> "Add Equipment")
|
|
(\_ -> "Add Custom Field")
|
|
|
|
headIcon =
|
|
fold (\_ -> Icons.tagIcon "")
|
|
(\_ -> Icons.personIcon "")
|
|
(\_ -> Icons.organizationIcon "")
|
|
(\_ -> Icons.equipmentIcon "")
|
|
(\_ -> Icons.customFieldIcon "")
|
|
in
|
|
div
|
|
[ classList
|
|
[ ( "ui inverted dimmer keep-small", True )
|
|
, ( "invisibe hidden", hidden )
|
|
, ( "active", not hidden )
|
|
]
|
|
, style "display" "flex !important"
|
|
]
|
|
[ div
|
|
[ classList
|
|
[ ( "ui modal keep-small", True )
|
|
, ( "active", not hidden )
|
|
]
|
|
]
|
|
[ div [ class "header" ]
|
|
[ Maybe.map .form mm
|
|
|> Maybe.map headIcon
|
|
|> Maybe.withDefault (i [] [])
|
|
, Maybe.map .form mm
|
|
|> Maybe.map heading
|
|
|> Maybe.withDefault ""
|
|
|> text
|
|
]
|
|
, div [ class "scrolling content" ]
|
|
(case mm of
|
|
Just model ->
|
|
viewIntern settings False model
|
|
|
|
Nothing ->
|
|
[]
|
|
)
|
|
, div [ class "actions" ]
|
|
(case mm of
|
|
Just model ->
|
|
viewButtons model
|
|
|
|
Nothing ->
|
|
[]
|
|
)
|
|
]
|
|
]
|
|
|
|
|
|
|
|
--- View2
|
|
|
|
|
|
view2 : List (Attribute Msg) -> UiSettings -> Model -> Html Msg
|
|
view2 attr settings model =
|
|
div attr
|
|
(viewIntern2 settings True model)
|
|
|
|
|
|
formHeading : String -> Model -> Html msg
|
|
formHeading classes model =
|
|
let
|
|
heading =
|
|
fold (\_ -> "Add Tag")
|
|
(\_ -> "Add Person")
|
|
(\_ -> "Add Organization")
|
|
(\_ -> "Add Equipment")
|
|
(\_ -> "Add Custom Field")
|
|
|
|
headIcon =
|
|
fold (\_ -> Icons.tagIcon2 "mr-2")
|
|
(\_ -> Icons.personIcon2 "mr-2")
|
|
(\_ -> Icons.organizationIcon2 "mr-2")
|
|
(\_ -> Icons.equipmentIcon2 "mt-2")
|
|
(\_ -> Icons.customFieldIcon2 "mr-2")
|
|
in
|
|
div [ class classes ]
|
|
[ headIcon model.form
|
|
, text (heading model.form)
|
|
]
|
|
|
|
|
|
viewModal2 : UiSettings -> Maybe Model -> Html Msg
|
|
viewModal2 settings mm =
|
|
let
|
|
hidden =
|
|
mm == Nothing
|
|
|
|
heading =
|
|
fold (\_ -> "Add Tag")
|
|
(\_ -> "Add Person")
|
|
(\_ -> "Add Organization")
|
|
(\_ -> "Add Equipment")
|
|
(\_ -> "Add Custom Field")
|
|
|
|
headIcon =
|
|
fold (\_ -> Icons.tagIcon2 "mr-2")
|
|
(\_ -> Icons.personIcon2 "mr-2")
|
|
(\_ -> Icons.organizationIcon2 "mr-2")
|
|
(\_ -> Icons.equipmentIcon2 "mt-2")
|
|
(\_ -> Icons.customFieldIcon2 "mr-2")
|
|
in
|
|
div
|
|
[ classList
|
|
[ ( S.dimmer, True )
|
|
, ( " hidden", hidden )
|
|
]
|
|
, class "flex"
|
|
]
|
|
[ div
|
|
[ class ""
|
|
]
|
|
[ div [ class S.header2 ]
|
|
[ Maybe.map .form mm
|
|
|> Maybe.map headIcon
|
|
|> Maybe.withDefault (i [] [])
|
|
, Maybe.map .form mm
|
|
|> Maybe.map heading
|
|
|> Maybe.withDefault ""
|
|
|> text
|
|
]
|
|
, div [ class "scrolling content" ]
|
|
(case mm of
|
|
Just model ->
|
|
viewIntern2 settings False model
|
|
|
|
Nothing ->
|
|
[]
|
|
)
|
|
, div [ class "flex flex-row space-x-2" ]
|
|
(case mm of
|
|
Just model ->
|
|
viewButtons2 model
|
|
|
|
Nothing ->
|
|
[]
|
|
)
|
|
]
|
|
]
|
|
|
|
|
|
viewButtons2 : Model -> List (Html Msg)
|
|
viewButtons2 model =
|
|
[ B.primaryButton
|
|
{ label = "Submit"
|
|
, icon =
|
|
if model.submitting || model.loading then
|
|
"fa fa-circle-notch animate-spin"
|
|
|
|
else
|
|
"fa fa-save"
|
|
, disabled = model.submitting || model.loading
|
|
, handler = onClick Submit
|
|
, attrs = [ href "#" ]
|
|
}
|
|
, B.secondaryButton
|
|
{ label = "Cancel"
|
|
, handler = onClick Cancel
|
|
, disabled = False
|
|
, icon = "fa fa-times"
|
|
, attrs = [ href "#" ]
|
|
}
|
|
]
|
|
|
|
|
|
viewIntern2 : UiSettings -> Bool -> Model -> List (Html Msg)
|
|
viewIntern2 settings withButtons model =
|
|
let
|
|
viewSettings =
|
|
Comp.CustomFieldForm.fullViewSettings
|
|
in
|
|
[ div
|
|
[ classList
|
|
[ ( S.errorMessage, Maybe.map .success model.result == Just False )
|
|
, ( S.successMessage, Maybe.map .success model.result == Just True )
|
|
, ( "hidden", model.result == Nothing )
|
|
]
|
|
]
|
|
[ Maybe.map .message model.result
|
|
|> Maybe.withDefault ""
|
|
|> text
|
|
]
|
|
, case model.form of
|
|
TM tm ->
|
|
Html.map TagMsg (Comp.TagForm.view2 tm)
|
|
|
|
PMR pm ->
|
|
Html.map PersonMsg (Comp.PersonForm.view2 True settings pm)
|
|
|
|
PMC pm ->
|
|
Html.map PersonMsg (Comp.PersonForm.view2 True settings pm)
|
|
|
|
OM om ->
|
|
Html.map OrgMsg (Comp.OrgForm.view2 True settings om)
|
|
|
|
EM em ->
|
|
Html.map EquipMsg (Comp.EquipmentForm.view2 em)
|
|
|
|
CFM fm ->
|
|
div []
|
|
(List.map (Html.map CustomFieldMsg)
|
|
(Comp.CustomFieldForm.view2
|
|
customFieldFormSettings
|
|
fm
|
|
)
|
|
)
|
|
]
|
|
++ (if withButtons then
|
|
[ div [ class "flex flex-row space-x-2" ]
|
|
(viewButtons2 model)
|
|
]
|
|
|
|
else
|
|
[]
|
|
)
|