mirror of
https://gitlab.com/upRootNutrition/website.git
synced 2025-06-16 12:25:12 -05:00
feat: still need to remake headers
This commit is contained in:
parent
4686c14667
commit
f9af0e1941
209 changed files with 1057 additions and 953 deletions
|
@ -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 ]
|
||||
]
|
||||
|
|
|
@ -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 ]
|
||||
]
|
||||
|
|
|
@ -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 ]
|
||||
]
|
||||
|
|
|
@ -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 ]
|
||||
]
|
||||
|
|
|
@ -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 ]
|
||||
]
|
||||
|
|
|
@ -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 ]
|
||||
]
|
||||
|
|
|
@ -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 ]
|
||||
]
|
||||
|
|
|
@ -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 ]
|
||||
]
|
||||
|
|
|
@ -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 ]
|
||||
]
|
||||
|
|
|
@ -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 ]
|
||||
]
|
||||
|
|
|
@ -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 ]
|
||||
]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue