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

Some predefined boxes for a dashboard

Browse Source
This commit is contained in:
eikek
2022-01-26 21:22:20 +01:00
parent 0337be98f9
commit 370679daed
25 changed files with 1004 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/webapp/src/main/elm/App/Data.elm
View File

@ -18,15 +18,18 @@ import Api.Model.BasicResult exposing (BasicResult)
import Api.Model.VersionInfo exposing (VersionInfo)
import Browser exposing (UrlRequest)
import Browser.Navigation exposing (Key)
import Data.Dashboard exposing (Dashboard)
import Data.Flags exposing (Flags)
import Data.ServerEvent exposing (ServerEvent)
import Data.UiSettings exposing (StoredUiSettings, UiSettings)
import Data.UiTheme exposing (UiTheme)
import Http
import Messages
import Messages.UiLanguage exposing (UiLanguage)
import Page exposing (Page(..))
import Page.CollectiveSettings.Data
import Page.Dashboard.Data
import Page.Dashboard.DefaultDashboard
import Page.ItemDetail.Data
import Page.Login.Data
import Page.ManageData.Data
@ -102,6 +105,7 @@ init key url flags_ settings =
( dbm, dbc ) =
Page.Dashboard.Data.init flags
(Page.Dashboard.DefaultDashboard.getDefaultDashboard flags settings)
searchViewMode =
if settings.searchMenuVisible then
@ -214,9 +218,4 @@ defaultPage _ =
getUiLanguage : Model -> UiLanguage
getUiLanguage model =
case model.flags.account of
Just _ ->
model.uiSettings.uiLang
Nothing ->
model.anonymousUiLang
Data.UiSettings.getUiLanguage model.flags model.uiSettings model.anonymousUiLang

8
modules/webapp/src/main/elm/App/Update.elm
View File

@ -364,6 +364,7 @@ applyClientSettings texts model settings =
, setTheme
, Sub.none
)
, updateDashboard texts Page.Dashboard.Data.reloadUiSettings
, updateUserSettings texts Page.UserSettings.Data.UpdateSettings
, updateSearch texts Page.Search.Data.UiSettingsUpdated
, updateItemDetail texts Page.ItemDetail.Data.UiSettingsUpdated
@ -375,7 +376,12 @@ updateDashboard : Messages -> Page.Dashboard.Data.Msg -> Model -> ( Model, Cmd M
updateDashboard texts lmsg model =
let
( dbm, dbc, dbs ) =
Page.Dashboard.Update.update texts.dashboard model.key model.flags lmsg model.dashboardModel
Page.Dashboard.Update.update texts.dashboard
model.uiSettings
model.key
model.flags
lmsg
model.dashboardModel
in
( { model | dashboardModel = dbm }
, Cmd.map DashboardMsg dbc