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,7 +1,9 @@
module Pages.Blog.Bigfatsurprise exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
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
@ -104,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)
)
[ articleBigFatSurprise ]
]

View file

@ -1,7 +1,9 @@
module Pages.Blog.Everettvegans exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
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
@ -104,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)
)
[ articleEverettVegans ]
]

View file

@ -1,8 +1,9 @@
module Pages.Blog.Huntergatherers exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
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
@ -105,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)
)
[ articleHunterGatherers ]
]

View file

@ -1,8 +1,9 @@
module Pages.Blog.Meatapologetics 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
@ -105,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)
)
[ articleMeatApologetics ]
]

View file

@ -1,8 +1,9 @@
module Pages.Blog.Nagragoodrich 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
@ -105,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)
)
[ articleNagraGoodrich ]
]

View file

@ -1,8 +1,9 @@
module Pages.Blog.Plantbasedmeta 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
@ -105,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)
)
[ articlePlantBasedMeta ]
]

View file

@ -1,9 +1,9 @@
module Pages.Blog.Quacksmashing 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)
)
[ articleQuackSmashing ]
]

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 ]
]

View file

@ -1,9 +1,9 @@
module Pages.Blog.Seedoils 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)
)
[ articleSeedOils ]
]

View file

@ -1,9 +1,9 @@
module Pages.Blog.Shenanigans 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)
)
[ articleShenanigans ]
]

View file

@ -1,8 +1,9 @@
module Pages.Blog.Sweetdeception 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
@ -105,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)
)
[ articleSweetDeception ]
]