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

Add api functions for getting/setting client settings

Browse Source
This commit is contained in:
Eike Kettner
2021-05-25 19:04:07 +02:00
parent 414ffba453
commit 9f76357879
4 changed files with 121 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/webapp/src/main/elm/Comp/UiSettingsManage.elm
View File

@ -6,6 +6,7 @@ module Comp.UiSettingsManage exposing
, view2
)
import Api
import Api.Model.BasicResult exposing (BasicResult)
import Comp.MenuBar as MB
import Comp.UiSettingsForm
@ -14,6 +15,7 @@ import Data.UiSettings exposing (UiSettings)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onClick)
import Http
import Messages.Comp.UiSettingsManage exposing (Texts)
import Ports
import Styles as S
@ -31,6 +33,7 @@ type Msg
| Submit
| SettingsSaved
| UpdateSettings
| SaveSettingsResp (Result Http.Error BasicResult)
init : Flags -> UiSettings -> ( Model, Cmd Msg )
@ -85,7 +88,7 @@ update flags settings msg model =
case model.settings of
Just s ->
( { model | message = Nothing }
, Ports.storeUiSettings flags s
, Api.saveClientSettings flags s SaveSettingsResp
, Ports.onUiSettingsSaved SettingsSaved
)
@ -101,6 +104,12 @@ update flags settings msg model =
, Sub.none
)
SaveSettingsResp (Ok res) ->
( { model | message = Just res }, Cmd.none, Sub.none )
SaveSettingsResp (Err err) ->
( model, Cmd.none, Sub.none )
UpdateSettings ->
let
( fm, fc ) =