upRootNutrition/website
1
0
Fork 0
mirror of https://gitlab.com/upRootNutrition/website.git synced 2025-06-16 12:25:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: added and customized AY navbar

Browse source
This commit is contained in:
Nick 2024-12-11 02:38:42 -06:00
parent 0569a063bb
commit a7000d6302
53 changed files with 2517 additions and 872 deletions
Download patch file Download diff file Expand all files Collapse all files

125
frontend/src/Pages/Arguments.elm
View file

@ -1,125 +0,0 @@
module Pages.Arguments exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageList
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Debate.Arguments.Helpers exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Gibberish.Helpers exposing (..)
import Effect exposing (Effect)
import Element as E exposing (..)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Pages.Arguments exposing (argumentHeader)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
import Shared
import View exposing (View)
page : Shared.Model -> Route () -> Page Model Msg
page shared route =
Page.new
{ init = init
, update = update
, subscriptions = subscriptions
, view = view shared
}
|> Page.withLayout toLayout
toLayout : Model -> Layouts.Layout Msg
toLayout model =
Layouts.Navbar {}
-- INIT
type alias Model =
{}
init : () -> ( Model, Effect Msg )
init () =
( {}
, Effect.batch
[ Effect.map
(\_ -> NoOp)
(Effect.sendCmd resetViewport)
, Effect.none
]
)
-- UPDATE
type Msg
= NoOp
update : Msg -> Model -> ( Model, Effect Msg )
update msg model =
case msg of
NoOp ->
( model
, Effect.none
)
-- SUBSCRIPTIONS
subscriptions : Model -> Sub Msg
subscriptions model =
Sub.none
-- VIEW
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = "debate (" ++ pageNames.pageArguments ++ ")"
, attributes = []
, element = debateContainer shared.device
}
debateContainer : Device -> Element msg
debateContainer device =
topLevelContainer (debateList device)
debateList : Device -> Element msg
debateList device =
column
(case ( device.class, device.orientation ) of
_ ->
pageList
)
<|
List.concat
[ List.map headerMaker
[ argumentHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map argumentMakerMobile
( Tablet, Portrait ) ->
List.map argumentMakerMobile
_ ->
List.map argumentMaker
)
argumentList
]