Introduce ui settings and let user set page size for item search

This commit is contained in:
Eike Kettner
2020-06-07 00:51:11 +02:00
parent 6abdb95f02
commit 79fc5a30a1
13 changed files with 530 additions and 66 deletions

View File

@ -11,6 +11,7 @@ import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Page
import Ports
import Url exposing (Url)
@ -59,7 +60,12 @@ init flags url key =
Cmd.none
in
( m
, Cmd.batch [ cmd, Api.versionInfo flags VersionResp, sessionCheck ]
, Cmd.batch
[ cmd
, Api.versionInfo flags VersionResp
, sessionCheck
, Ports.getUiSettings flags
]
)
@ -76,4 +82,7 @@ viewDoc model =
subscriptions : Model -> Sub Msg
subscriptions model =
model.subs
Sub.batch
[ model.subs
, Ports.loadUiSettings GetUiSettings
]