From 6dd342d9523f2b2dc4177c47728b8c8b7c21ac21 Mon Sep 17 00:00:00 2001 From: Philippe PITTOLI Date: Tue, 16 Apr 2024 00:18:37 +0200 Subject: [PATCH] SPF: mechanisms (and modifiers) current and new sections in the same box. --- src/App/Page/Zone.purs | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/src/App/Page/Zone.purs b/src/App/Page/Zone.purs index 52a5151..a380477 100644 --- a/src/App/Page/Zone.purs +++ b/src/App/Page/Zone.purs @@ -486,9 +486,10 @@ render state -- Nothing -> Bulma.p "default value for the version (spf1)" -- Just v -> Bulma.box_input "vSPF" "Version" "spf1" (updateForm Field_SPF_v) v , Bulma.hr - , maybe (Bulma.p "no mechanism") display_mechanisms state._currentRR.mechanisms , Bulma.box - [ Bulma.h3 "New mechanism" + [ Bulma.h3 "Current mechanisms" + , maybe (Bulma.p "You don't have any mechanism.") display_mechanisms state._currentRR.mechanisms + , Bulma.h3 "New mechanism" , Bulma.selection_field "idMechanismQ" "Policy" SPF_Mechanism_q qualifier_types state.spf_mechanism_q , Bulma.selection_field "idMechanismT" "Type" SPF_Mechanism_t mechanism_types state.spf_mechanism_t , Bulma.box_input "valueNewMechanismSPF" "Value" "" @@ -497,9 +498,10 @@ render state , Bulma.btn "Add a mechanism" SPF_Mechanism_Add ] , Bulma.hr - , maybe (Bulma.p "no modifier") display_modifiers state._currentRR.modifiers , Bulma.box - [ Bulma.h3 "New modifier" + [ Bulma.h3 "Current modifiers" + , maybe (Bulma.p "You don't have any modifier.") display_modifiers state._currentRR.modifiers + , Bulma.h3 "New modifier" , Bulma.selection_field "idModifierT" "Modifier" SPF_Modifier_t modifier_types state.spf_modifier_t , Bulma.box_input "valueNewModifierSPF" "Value" "" SPF_Modifier_v @@ -1153,6 +1155,7 @@ render_resources records fancy_qualifier_display qualifier = "(" <> show_qualifier_char qualifier <> ") " <> show_qualifier qualifier display_mechanisms :: forall w. Array RR.Mechanism -> HH.HTML w Action +display_mechanisms [] = Bulma.p "You don't have any mechanism." display_mechanisms ms = Bulma.box_ C.has_background_warning_light [ Bulma.table [] [ Bulma.mechanism_table_header, HH.tbody_ $ map render_mechanism_row $ attach_id 0 ms] ] @@ -1166,6 +1169,7 @@ display_mechanisms ms = ] display_modifiers :: forall w. Array RR.Modifier -> HH.HTML w Action +display_modifiers [] = Bulma.p "You don't have any modifier." display_modifiers ms = Bulma.box_ C.has_background_warning_light [ Bulma.table [] [ Bulma.modifier_table_header, HH.tbody_ $ map render_modifier_row $ attach_id 0 ms] ]