@@ -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 """