git.iko.soy/rowtype-yoga/purescript-next-website
on main help sign in
Add logo to start page
commit6d20cac49ba90c26b2022440c11954c1c4369604 authorsigma-andex <77549848+sigma-andex@users.noreply.github.com> dateMon 29 Aug 2022, 08:01 (4 years ago) parent9a60ceb
2 files changed+13−10
src/Components/Navigation.purs+4−6 src/Pages/Home.purs+9−4
src/Components/Navigation.purs+4−6
@@ -4,15 +4,12 @@ module Components.Navigation
44 ) where
55
66import Prelude
7−import Web.HTML.HTMLElement
7+import Web.HTML.HTMLElement (toElement)
88
99import Control.Monad.Maybe.Trans (MaybeT(..), runMaybeT)
1010import Data.Maybe (Maybe(..), maybe)
11−import Data.Traversable (for_, traverse, traverse_)
12−import Data.Tuple.Nested ((/\))
13−import Debug (spy)
11+import Data.Traversable (traverse_)
1412import Effect (Effect)
15−import Effect.Uncurried (runEffectFn1)
1613import Next.Router (useRouter)
1714import Next.Router as Router
1815import NextUI.NextUI (switch, useNextTheme, useTheme)
@@ -20,7 +17,7 @@ import NextUI.NextUI as NextUI
2017import React.Basic.DOM (css)
2118import React.Basic.DOM.Events (targetChecked)
2219import React.Basic.Events (handler)
23−import React.Basic.Hooks (Component, component, useEffect, useEffectOnce, useState')
20+import React.Basic.Hooks (Component, component, useEffect)
2421import React.Basic.Hooks as React
2522import React.Icons (icon)
2623import React.Icons.Si (siDiscord, siDiscourse, siGithub, siPurescript)
@@ -34,6 +31,7 @@ import Web.HTML.HTMLDocument as Doc
3431import Web.HTML.Window (document)
3532
3633-- radial-gradient(20rem 20rem at left 15rem top 20rem, rgba(30, 144, 255,0.5) 0% 10%,#0000 90% 90%),
34+mkBackgroundImage :: Boolean -> String
3735mkBackgroundImage isDark =
3836 if isDark then
3937 """
src/Pages/Home.purs+9−4
@@ -8,8 +8,11 @@ import Effect.Aff (Aff)
88import Effect.Uncurried (EffectFn1, mkEffectFn1)
99import NextUI.NextUI as NextUI
1010import React.Basic.DOM (css)
11−import React.Basic.DOM.Simplified.Generated as R
11+import React.Icons (icon)
12+import React.Icons.Si (siPurescript)
1213import React.Util (el)
14+import Themes (getColorValue)
15+import React.Basic.Hooks as React
1316
1417type Props =
1518 { header :: String
@@ -18,14 +21,16 @@ type Props =
1821mkHome :: Page.Component Props
1922mkHome = do
2023 Page.component "Home" \env props -> React.do
24+ { theme } <- NextUI.useTheme
2125 pure $ el NextUI.container { fluid: true, css: css { height: "100%" } }
2226 $ el NextUI.row { justify: "center", align: "center", css: css { height: "100%" } }
23− [ R.div {} $ el NextUI.text
27+ [ icon siPurescript { style: css { color: getColorValue theme "primarySolidContrast", minWidth: "5rem" }, size: "5rem" }
28+ , el NextUI.spacer {} React.empty
29+ , el NextUI.text
2430 { h1: true
25− , size: 60
31+ , size: "4rem"
2632 }
2733 "PureScript "
28−
2934 ]
3035
3136fetchData :: forall ctx. ctx -> Aff Props