Bulma cleaning (WIP). Removing some useless stuff.

src/Bulma.purs

@@ -18,14 +18,14 @@ import Halogen.HTML.Core (AttrName(..))
 --import Web.UIEvent.MouseEvent (MouseEvent)
 
 columns :: forall (w :: Type) (i :: Type).
-  Array (HH.ClassName) -> Array (HH.HTML w i) -> HH.HTML w i
+  Array HH.ClassName -> Array (HH.HTML w i) -> HH.HTML w i
 columns classes = HH.div [ HP.classes (C.columns <> classes) ]
 
 columns_ :: forall (w :: Type) (i :: Type). Array (HH.HTML w i) -> HH.HTML w i
 columns_ = columns []
 
 column :: forall (w :: Type) (i :: Type).
-  Array (HH.ClassName) -> Array (HH.HTML w i) -> HH.HTML w i
+  Array HH.ClassName -> Array (HH.HTML w i) -> HH.HTML w i
 column classes = HH.div [ HP.classes (C.column <> classes) ]
 
 column_ :: forall (w :: Type) (i :: Type). Array (HH.HTML w i) -> HH.HTML w i
@@ -312,8 +312,10 @@ field_inner ispassword title placeholder action value validity cond
 box_input    = field_inner false
 box_password = field_inner true
 
+section_medium :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
 section_medium = HH.section [ HP.classes (C.section <> C.medium) ]
 
+field :: forall w i. Array HH.ClassName -> Array (HH.HTML w i) -> HH.HTML w i
 field classes = HH.div [ HP.classes (C.field <> classes) ]
 
 new_domain_field inputaction text selectaction accepted_domains
@@ -341,26 +343,6 @@ new_domain_field inputaction text selectaction accepted_domains
           ]
       ]
 
---<div class="field has-addons">
---  <p class="control">
---    <span class="select">
---      <select>
---        <option>$</option>
---        <option>£</option>
---        <option>€</option>
---      </select>
---    </span>
---  </p>
---  <p class="control">
---    <input class="input" type="text" placeholder="Amount of money">
---  </p>
---  <p class="control">
---    <a class="button">
---      Transfer
---    </a>
---  </p>
---</div>
-
 --box_button action value validity cond
 --  = HH.label [ ]
 --      [ HH.label [HP.classes C.label ] [ HH.text title ]
@@ -394,17 +376,6 @@ hero title subtitle
 header :: forall w i. String -> String -> HH.HTML w i
 header = hero
 
---<section class="hero">
---  <div class="hero-body">
---    <p class="title">
---      Hero title
---    </p>
---    <p class="subtitle">
---      Hero subtitle
---    </p>
---  </div>
---</section>
-
 container :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
 container = HH.div [HP.classes (C.container <> C.is_info)]
 
@@ -437,25 +408,8 @@ modal_domain_delete domain =
                   , HH.strong_ [ HH.text "irreversible" ]
                   , HH.text "."
                   ]
---<div class="modal">
---  <div class="modal-background"></div>
---  <div class="modal-card">
---    <header class="modal-card-head">
---      <p class="modal-card-title">Modal title</p>
---      <button class="delete" aria-label="close"></button>
---    </header>
---    <section class="modal-card-body">
---      <!-- Content ... -->
---    </section>
---    <footer class="modal-card-foot">
---      <button class="button is-success">Save changes</button>
---      <button class="button">Cancel</button>
---    </footer>
---  </div>
---</div>
 
-
+netlibre_navbar :: forall w i. HH.HTML w i
---netlibre_navbar ::
 netlibre_navbar =
   HH.nav [HP.classes C.navbar, ARIA.label "main navigation", ARIA.role "navigation" ]
   [ HH.div [HP.classes C.navbar_brand]