feat: still need to remake headers

This commit is contained in:
Nick 2024-12-21 23:23:59 -06:00
parent 4686c14667
commit f9af0e1941
209 changed files with 1057 additions and 953 deletions

View file

@ -1,8 +1,9 @@
module Pages.Services.Nix exposing (Model, Msg, page)
import Config.Helpers.CardFormat exposing (..)
import Config.Helpers.Cardables.Helpers exposing (cardMaker)
import Config.Helpers.Cardables.Types as C
import Config.Helpers.Format exposing (..)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Header exposing (..)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
exposing
@ -110,17 +111,24 @@ elmBuildsContainer device =
elmBuildsList : Device -> Element msg
elmBuildsList device =
column pageList <|
column
(case ( device.class, device.orientation ) of
_ ->
pageList
)
<|
List.concat
(case ( device.class, device.orientation ) of
_ ->
[ [ headerMaker device ] ]
)
headerMaker : Device -> Element msg
headerMaker device =
cardMaker device "" contentList { description = "", src = "" } ""
[ -- List.map (headerMaker device)
-- [
-- servicesHeader
-- ]
-- ,
List.map
(\service ->
cardMaker device (C.Service service) contentList
)
[]
]
contentList : List (Element msg)