karchnu/halogen-websocket-ipc-playzone
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Navbar: single button for login and register.

Browse Source
This commit is contained in:
Philippe Pittoli 2023-07-15 18:35:56 +02:00
parent 54e7e77c5a
commit b059b42bfc
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/App/Nav.purs
View File

@ -9,7 +9,7 @@ import Halogen.HTML.Properties.ARIA as ARIA
import Bulma as Bulma import Bulma as Bulma
netlibre_navbar :: forall w i. Boolean -> Boolean -> i -> i -> i -> i -> i -> i -> HH.HTML w i 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 main_nav
[ nav_brand [ logo, burger_menu ] [ nav_brand [ logo, burger_menu ]
, nav_menu , nav_menu
@ -29,8 +29,8 @@ netlibre_navbar authenticated admin actionHome actionDomainList actionAuthdAdmin
, navbar_end , navbar_end
[ navbar_item [ navbar_item
[ HH.div [HP.classes C.buttons] $ case authenticated of [ HH.div [HP.classes C.buttons] $ case authenticated of
false -> [ nav_button_strong "Register" actionRegister false -> [ nav_button C.is_info "Login or register" actionLogin
, nav_button C.is_info "Login" actionLogin -- nav_button_strong "Register" actionRegister
, nav_button_code , nav_button_code
] ]
_ -> [ nav_button_disconnection, 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_element str = HH.a [HP.classes C.navbar_item] [HH.text str]
--dropdown_separator = HH.hr [HP.classes C.navbar_divider] --dropdown_separator = HH.hr [HP.classes C.navbar_divider]
nav_button_code = btn_link [] "https://git.baguette.netlib.re/Baguette/dnsmanager" "Code" 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) nav_button classes str action = btn classes action (HH.text str)
navbar_item = HH.div [HP.classes C.navbar_item] navbar_item = HH.div [HP.classes C.navbar_item]