Skip to content

P
purescript-gargantext
Commit 3fccf8d8 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[Graph] sidebar checkbox refactoring

parent 656fff60
Show whitespace changes
Inline Side-by-side
Showing with 13 additions and 32 deletions
src/Gargantext/Components/GraphExplorer/Sidebar.purs
View file @ 3fccf8d8
......@@ -69,43 +69,24 @@ sidebarCpt = R.hooksComponent "Sidebar" cpt
[
RH.ul {}
[
RH.li {}
[
RH.span {} [ RH.text "Pubs" ]
, RH.input { type: "checkbox"
, className: "checkbox"
, checked: true
, title: "Mark as completed" }
checkbox "Pubs"
, checkbox "Projects"
, checkbox "Patents"
, checkbox "Others"
]
]
, RH.li {}
[
RH.span {} [ RH.text "Projects" ]
, RH.input { type: "checkbox"
, className: "checkbox"
, checked: true
, title: "Mark as completed" }
]
, RH.li {}
[
RH.span {} [ RH.text "Patents" ]
, RH.input { type: "checkbox"
, className: "checkbox"
, checked: true
, title: "Mark as completed" }
]
, RH.li {}
]
badge text =
RH.a { className: "badge badge-light" } [ RH.text text ]
checkbox text =
RH.li {}
[
RH.span {} [ RH.text "Others" ]
RH.span {} [ RH.text text ]
, RH.input { type: "checkbox"
, className: "checkbox"
, checked: true
, title: "Mark as completed" }
]
]
]
]
]
]
badge text =
RH.a { className: "badge badge-light" } [ RH.text text ]
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