Skip to content

P
purescript-gargantext
Commit 98f3c3a7 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[LANDING] add small buttons to blocks only.

parent 7466845d
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/Landing.purs
View file @ 98f3c3a7
...@@ -105,10 +105,11 @@ blocksRandomText (BlockTexts bt) = ...@@ -105,10 +105,11 @@ blocksRandomText (BlockTexts bt) =
] ]
] ]
, p [] [ text b.text ] , p [] [ text b.text ]
, p [] [ docButton b.docButton ]
] ]
docButton :: Button -> ReactElement docButton :: Button -> ReactElement
docButton (Button b) = a [ className "btn btn-success btn-lg spacing-class" docButton (Button b) = a [ className "btn btn-outline-primary btn-sm spacing-class"
, href b.href , href b.href
, target "blank" , target "blank"
, title b.title , title b.title
...@@ -124,7 +125,6 @@ jumboTitle (LandingData hd) b = div jumbo ...@@ -124,7 +125,6 @@ jumboTitle (LandingData hd) b = div jumbo
[ div [className "col-md-4 content"] [ div [className "col-md-4 content"]
[ h1 [] [ text hd.name] [ h1 [] [ text hd.name]
, p [] [ text hd.signature ] , p [] [ text hd.signature ]
, p [] [ docButton hd.docButton]
] ]
, div [className "col-md-4 content"] [] , div [className "col-md-4 content"] []
, div [ className "col-md-4 content"] , div [ className "col-md-4 content"]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment