diff --git a/src/App/Nav.purs b/src/App/Nav.purs
index 16b0460..756df2c 100644
--- a/src/App/Nav.purs
+++ b/src/App/Nav.purs
@@ -9,7 +9,7 @@ import Halogen.HTML.Properties.ARIA as ARIA
 import Bulma as Bulma
 
 netlibre_navbar :: forall w i. Boolean -> Boolean -> i -> i -> i -> i -> i -> i -> HH.HTML w i
-netlibre_navbar authenticated admin actionHome actionDomainList actionAuthdAdmin actionRegister actionLogin actionDisconnection =
+netlibre_navbar authenticated admin actionHome actionDomainList actionAuthdAdmin _ actionLogin actionDisconnection =
   main_nav
     [ nav_brand [ logo, burger_menu ]
     , nav_menu
@@ -29,8 +29,8 @@ netlibre_navbar authenticated admin actionHome actionDomainList actionAuthdAdmin
         , navbar_end
             [ navbar_item
                 [ HH.div [HP.classes C.buttons] $ case authenticated of
-                    false -> [ nav_button_strong "Register" actionRegister
-                             , nav_button C.is_info "Login"    actionLogin
+                    false -> [ nav_button C.is_info "Login or register" actionLogin
+                              -- nav_button_strong "Register" actionRegister
                              , nav_button_code
                              ]
                     _     -> [ nav_button_disconnection, nav_button_code ]
@@ -62,7 +62,7 @@ netlibre_navbar authenticated admin actionHome actionDomainList actionAuthdAdmin
     --dropdown_element str = HH.a [HP.classes C.navbar_item] [HH.text str]
     --dropdown_separator = HH.hr [HP.classes C.navbar_divider]
     nav_button_code = btn_link [] "https://git.baguette.netlib.re/Baguette/dnsmanager" "Code"
-    nav_button_strong str action = btn C.is_primary action (HH.strong [] [ HH.text str ])
+    -- nav_button_strong str action = btn C.is_primary action (HH.strong [] [ HH.text str ])
     nav_button classes str action = btn classes action (HH.text str)
 
     navbar_item = HH.div [HP.classes C.navbar_item]