Apply tag colors from settings

This commit is contained in:
Eike Kettner
2020-06-08 00:54:47 +02:00
parent 1cd65b7b7c
commit 1dd84c11bd
39 changed files with 375 additions and 341 deletions

View File

@ -7,6 +7,7 @@ import App.View exposing (..)
import Browser exposing (Document)
import Browser.Navigation exposing (Key)
import Data.Flags exposing (Flags)
import Data.UiSettings
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
@ -39,7 +40,7 @@ init : Flags -> Url -> Key -> ( Model, Cmd Msg )
init flags url key =
let
( im, ic ) =
App.Data.init key url flags
App.Data.init key url flags Data.UiSettings.defaults
page =
checkPage flags im.page