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,9 +1,9 @@
module Pages.Blog.Sapiendiet exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Articles.Article exposing (contentList)
import Config.Helpers.Cardables.Helpers exposing (cardMaker)
import Config.Helpers.Cardables.Types as C
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
exposing
@ -106,9 +106,14 @@ articleList device =
)
<|
List.concat
[ (case ( device.class, device.orientation ) of
_ ->
List.map (articleMaker device)
)
[ -- List.map (headerMaker device)
-- [
-- servicesHeader
-- ]
-- ,
List.map
(\article ->
cardMaker device (C.BlogArticle article) (contentList article)
)
[ articleSapienDiet ]
]