Outline dashboard model

This commit is contained in:
eikek
2022-01-26 21:21:55 +01:00
parent cb3005211b
commit 0337be98f9
9 changed files with 240 additions and 7 deletions

View File

@ -0,0 +1,12 @@
module Data.Box exposing (Box)
import Data.BoxContent exposing (BoxContent)
type alias Box =
{ name : String
, visible : Bool
, decoration : Bool
, colspan : Int
, content : BoxContent
}

View File

@ -0,0 +1,27 @@
module Data.BoxContent exposing (BoxContent(..), MessageData, QueryData, SummaryData)
import Data.ItemArrange exposing (ItemArrange)
type BoxContent
= BoxUpload
| BoxMessage MessageData
| BoxQuery QueryData
| BoxSummary SummaryData
type alias MessageData =
{ title : String
, body : String
}
type alias QueryData =
{ query : String
, view : ItemArrange
}
type alias SummaryData =
{ query : String
}

View File

@ -0,0 +1,10 @@
module Data.Dashboard exposing (Dashboard)
import Data.Box exposing (Box)
type alias Dashboard =
{ name : String
, columns : Int
, boxes : List Box
}