git.iko.soy/rowtype-yoga/psfp
on master help sign in
Und Tschüss!
commite569abd8561bbd7073d88845f0bfc79af163fd29 authorMark Eibes <mark.eibes@gmail.com> dateThu 9 Apr 2020, 00:57 (7 years ago) parent4578f05
2 files changed+7−4
compare with master
unifiedsplit
blog/src/components/FillInTheGaps.purs+4−3 blog/src/components/PSLayout.purs+3−1
blog/src/components/FillInTheGaps.purs+4−3
@@ -9,7 +9,7 @@ import Data.Foldable (foldl)
99import Data.Function.Uncurried (mkFn2)
1010import Data.Lens ((%~))
1111import Data.Lens.Index (ix)
12−import Data.Maybe (Maybe(..), fromMaybe', isJust)
12+import Data.Maybe (Maybe(..), fromMaybe', isJust, isNothing)
1313import Data.Monoid (guard)
1414import Data.String (Pattern(..), split)
1515import Data.String as S
@@ -29,7 +29,8 @@ import Partial.Unsafe (unsafeCrashWith)
2929import React.Basic (JSX, ReactComponent, element, fragment)
3030import React.Basic.DOM (css)
3131import React.Basic.DOM as R
32−import React.Basic.Events (handler_)
32+import React.Basic.DOM.Events (preventDefault)
33+import React.Basic.Events (handler, handler_)
3334import React.Basic.Helpers (jsx)
3435import React.Basic.Hooks (component, useState)
3536import React.Basic.Hooks as React
@@ -189,7 +190,7 @@ mkFillInTheGaps fetch = do
189190 [ jsx button
190191 { onClick: handler_ onClick
191192 , buttonType:
192− if complete segments then
193+ if complete segments && isNothing result then
193194 HighlightedButton
194195 else
195196 DisabledButton
blog/src/components/PSLayout.purs+3−1
@@ -21,6 +21,7 @@ import React.Basic.DOM as R
2121import React.Basic.Helpers (jsx)
2222import React.Basic.Hooks (ReactChildren, component, componentWithChildren, element, reactChildrenToArray)
2323import React.Basic.Hooks as React
24+import Yoga.Box.Component as Box
2425import Yoga.CompileEditor.Component (mkCompileEditor)
2526import Yoga.Header.Component (mkHeader)
2627import Yoga.InlineCode.Component as InlineCode
@@ -90,6 +91,7 @@ mkMdxProviderComponent fetchImpl = do
9091 cssBaseline <- mkCssBaseline
9192 editor <- mkCompileEditor fetchImpl
9293 fillInTheGaps <- mkFillInTheGaps fetchImpl
94+ box <- Box.makeComponent
9395 sidebar <- mkSidebar
9496 header <- mkHeader
9597 yogaInlineCode <- InlineCode.makeComponent
@@ -121,7 +123,7 @@ mkMdxProviderComponent fetchImpl = do
121123 { children:
122124 [ jsx header { className: "" } [ R.text siteInfo.site.siteMetadata.title ]
123125 , element sidebar { links: siteInfo.site.siteMetadata.menuLinks }
124− , R.div_ (reactChildrenToArray children)
126+ , jsx box {} (reactChildrenToArray children)
125127 ]
126128 }
127129