summaryrefslogtreecommitdiff
path: root/elm3/ProdEdit/Relations.elm
diff options
context:
space:
mode:
Diffstat (limited to 'elm3/ProdEdit/Relations.elm')
-rw-r--r--elm3/ProdEdit/Relations.elm80
1 files changed, 80 insertions, 0 deletions
diff --git a/elm3/ProdEdit/Relations.elm b/elm3/ProdEdit/Relations.elm
new file mode 100644
index 00000000..a74339f1
--- /dev/null
+++ b/elm3/ProdEdit/Relations.elm
@@ -0,0 +1,80 @@
+module ProdEdit.Relations exposing (Model, Msg, init, update, view)
+
+import Html exposing (..)
+import Html.Attributes exposing (..)
+import Html.Events exposing (..)
+import Lib.Html exposing (..)
+import Lib.Gen exposing (ProdEditRelations, producerRelations)
+import Lib.Api exposing (Producer)
+import Lib.Util exposing (..)
+import Lib.Autocomplete as A
+
+
+type alias Model =
+ { relations : List ProdEditRelations
+ , search : A.Model Producer
+ , duplicates : Bool
+ }
+
+
+init : List ProdEditRelations -> Model
+init l =
+ { relations = l
+ , search = A.init
+ , duplicates = False
+ }
+
+
+type Msg
+ = Del Int
+ | Rel Int String
+ | Search (A.Msg Producer)
+
+
+searchConfig : A.Config Msg Producer
+searchConfig = { wrap = Search, id = "add-relation", source = A.producerSource }
+
+
+validate : Model -> Model
+validate model = { model | duplicates = hasDuplicates <| List.map .pid model.relations }
+
+
+update : Msg -> Model -> (Model, Cmd Msg)
+update msg model =
+ case msg of
+ Del i -> (validate { model | relations = delidx i model.relations }, Cmd.none)
+ Rel i s -> (validate { model | relations = modidx i (\e -> { e | relation = s }) model.relations }, Cmd.none)
+ Search m ->
+ let (nm, c, res) = A.update searchConfig m model.search
+ in case res of
+ Nothing -> ({ model | search = nm }, c)
+ Just r ->
+ let
+ rel = List.head producerRelations |> Maybe.map Tuple.first |> Maybe.withDefault ""
+ nrow = { pid = r.id, relation = rel, name = r.name }
+ in (validate { model | search = A.clear nm, relations = model.relations ++ [nrow] }, c)
+
+
+view : Model -> Html Msg
+view model =
+ let
+ entry n e = editListRow "row--ai-center"
+ [ editListField 1 "single-line"
+ [ a [href <| "/p" ++ String.fromInt e.pid, title e.name, target "_blank" ] [text e.name ] ]
+ , editListField 1 ""
+ [ inputSelect [onInput (Rel n)] e.relation producerRelations ]
+ , editListField 0 "" [ removeButton (Del n) ]
+ ]
+
+ in card "relations" "Relations" [] <|
+ editList (List.indexedMap entry model.relations)
+ ++ formGroups (
+ (if model.duplicates
+ then [ [ div [ class "invalid-feedback" ]
+ [ text "The list contains duplicates. Make sure that the same producer is not listed multiple times." ] ] ]
+ else []
+ ) ++
+ [ label [for "add-relation"] [text "Add relation"]
+ :: A.view searchConfig model.search [placeholder "Producer...", style "max-width" "400px"]
+ ]
+ )