Baguette/dnsmanager-webclient
3
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Domain list: a very simple explanation for the "New domain" section.

Browse Source
This commit is contained in:
Philippe PITTOLI 2024-04-28 15:45:59 +02:00
parent 06a52e6480
commit a43884f98a
6 changed files with 34 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/App/Page/Authentication.purs
View File

@ -199,14 +199,14 @@ render { current_tab, authenticationForm, passwordRecoveryForm, newPasswordForm,
auth_form = [ Bulma.h3 "Authentication", render_auth_form ] auth_form = [ Bulma.h3 "Authentication", render_auth_form ]
passrecovery_form = passrecovery_form =
[ Bulma.h3 "You forgot your password (or your login)" [ Bulma.h3 "You forgot your password (or your login)"
, Bulma.div_content , Bulma.div_content []
[ Bulma.p "Enter either your login or email and you'll receive a recovery token." [ Bulma.p "Enter either your login or email and you'll receive a recovery token."
] ]
, render_password_recovery_form , render_password_recovery_form
] ]
newpass_form = newpass_form =
[ Bulma.h3 "You got the password recovery mail" [ Bulma.h3 "You got the password recovery mail"
, Bulma.div_content , Bulma.div_content []
[ Bulma.p "Nice! You get to choose your new password." [ Bulma.p "Nice! You get to choose your new password."
] ]
, render_new_password_form , render_new_password_form

11
src/App/Page/DomainList.purs
View File

@ -218,7 +218,16 @@ render { accepted_domains, my_domains, newDomainForm, askDomainTransferForm, del
] ]
else Bulma.p "No domain yet." else Bulma.p "No domain yet."
] ]
render_new_domain = [ Bulma.h3 "New domain", render_add_domain_form ] render_new_domain =
[ Bulma.h3 "New domain"
, Bulma.quote [ Bulma.p "The heart of dnsmanager! 🎉"
, Bulma.p "You can reserve a domain name, right here."
, HH.text """
Later you will be able to change the content, share, transfer or even delete the domain.
"""
]
, render_add_domain_form
]
render_gain_ownership = render_gain_ownership =
[ Bulma.h3 "Get the ownership of a domain" [ Bulma.h3 "Get the ownership of a domain"

4
src/App/Page/Home.purs
View File

@ -55,9 +55,9 @@ render _ = HH.div_
] ]
where where
title = Bulma.h3 title = Bulma.h3
expl content = Bulma.div_content [ Bulma.explanation content ] expl content = Bulma.div_content [] [ Bulma.explanation content ]
p = Bulma.p p = Bulma.p
b x = Bulma.column_ [ Bulma.box [ Bulma.div_content x ] ] b x = Bulma.column_ [ Bulma.box [ Bulma.div_content [] x ] ]
render_description = Bulma.columns_ [ render_basics, render_no_expert, render_no_housing ] render_description = Bulma.columns_ [ render_basics, render_no_expert, render_no_housing ]
render_update_why_and_contact = Bulma.columns_ [ render_updates, render_why, render_contact ] render_update_why_and_contact = Bulma.columns_ [ render_updates, render_why, render_contact ]

26
src/App/Page/Zone.purs
View File

@ -447,7 +447,7 @@ render state
] ]
modal_content_srv :: Array (HH.HTML w Action) modal_content_srv :: Array (HH.HTML w Action)
modal_content_srv = modal_content_srv =
[ Bulma.div_content [Bulma.explanation Explanations.srv_introduction] [ Bulma.div_content [] [Bulma.explanation Explanations.srv_introduction]
, render_errors , render_errors
, Bulma.box_input "domainSRV" "Service name" "service name" , Bulma.box_input "domainSRV" "Service name" "service name"
(updateForm Field_Domain) (updateForm Field_Domain)
@ -473,7 +473,7 @@ render state
] ]
modal_content_spf :: Array (HH.HTML w Action) modal_content_spf :: Array (HH.HTML w Action)
modal_content_spf = modal_content_spf =
[ Bulma.div_content [Bulma.explanation Explanations.spf_introduction] [ Bulma.div_content [] [Bulma.explanation Explanations.spf_introduction]
, render_errors , render_errors
, Bulma.input_with_side_text "domainSPF" "Name" "Let this alone." , Bulma.input_with_side_text "domainSPF" "Name" "Let this alone."
(updateForm Field_Domain) (updateForm Field_Domain)
@ -511,13 +511,13 @@ render state
, Bulma.hr , Bulma.hr
, Bulma.box , Bulma.box
[ Bulma.h3 "Default behavior" [ Bulma.h3 "Default behavior"
, Bulma.div_content [Bulma.explanation Explanations.spf_default_behavior] , Bulma.div_content [] [Bulma.explanation Explanations.spf_default_behavior]
, Bulma.selection SPF_Qualifier qualifier_types (maybe default_qualifier_str show_qualifier state._currentRR.q) , Bulma.selection SPF_Qualifier qualifier_types (maybe default_qualifier_str show_qualifier state._currentRR.q)
] ]
] ]
modal_content_dkim :: Array (HH.HTML w Action) modal_content_dkim :: Array (HH.HTML w Action)
modal_content_dkim = modal_content_dkim =
[ Bulma.div_content [Bulma.explanation Explanations.dkim_introduction] [ Bulma.div_content [] [Bulma.explanation Explanations.dkim_introduction]
, render_errors , render_errors
, Bulma.input_with_side_text "domainDKIM" "Name" "default._domainkey" , Bulma.input_with_side_text "domainDKIM" "Name" "default._domainkey"
(updateForm Field_Domain) (updateForm Field_Domain)
@ -527,7 +527,7 @@ render state
(updateForm Field_TTL) (updateForm Field_TTL)
(show state._currentRR.ttl) (show state._currentRR.ttl)
, Bulma.hr , Bulma.hr
, Bulma.div_content [Bulma.explanation Explanations.dkim_default_algorithms] , Bulma.div_content [] [Bulma.explanation Explanations.dkim_default_algorithms]
, Bulma.selection_field "idDKIMSignature" "Signature algo" , Bulma.selection_field "idDKIMSignature" "Signature algo"
DKIM_sign_algo DKIM_sign_algo
(map show DKIM.sign_algos) (map show DKIM.sign_algos)
@ -542,7 +542,7 @@ render state
modal_content_dmarc :: Array (HH.HTML w Action) modal_content_dmarc :: Array (HH.HTML w Action)
modal_content_dmarc = modal_content_dmarc =
[ Bulma.div_content [Bulma.explanation Explanations.dmarc_introduction] [ Bulma.div_content [] [Bulma.explanation Explanations.dmarc_introduction]
, render_errors , render_errors
, Bulma.input_with_side_text "domainDMARC" "Name" "_dmarc" , Bulma.input_with_side_text "domainDMARC" "Name" "_dmarc"
(updateForm Field_Domain) (updateForm Field_Domain)
@ -551,27 +551,27 @@ render state
, Bulma.box_input "ttlDMARC" "TTL" "600" (updateForm Field_TTL) (show state._currentRR.ttl) , Bulma.box_input "ttlDMARC" "TTL" "600" (updateForm Field_TTL) (show state._currentRR.ttl)
, Bulma.hr , Bulma.hr
, Bulma.div_content [Bulma.explanation Explanations.dmarc_policy] , Bulma.div_content [] [Bulma.explanation Explanations.dmarc_policy]
, Bulma.selection_field' "idDMARCPolicy" "Policy" DMARC_policy , Bulma.selection_field' "idDMARCPolicy" "Policy" DMARC_policy
(A.zip DMARC.policies_txt DMARC.policies_raw) (A.zip DMARC.policies_txt DMARC.policies_raw)
(show state.dmarc.p) (show state.dmarc.p)
, Bulma.div_content [Bulma.explanation Explanations.dmarc_sp_policy] , Bulma.div_content [] [Bulma.explanation Explanations.dmarc_sp_policy]
, Bulma.selection_field' "idDMARCPolicy_sp" "Policy for subdomains" DMARC_sp_policy , Bulma.selection_field' "idDMARCPolicy_sp" "Policy for subdomains" DMARC_sp_policy
(zip_nullable DMARC.policies_txt_with_null DMARC.policies_raw) (zip_nullable DMARC.policies_txt_with_null DMARC.policies_raw)
(maybe "-" show state.dmarc.sp) (maybe "-" show state.dmarc.sp)
, Bulma.hr , Bulma.hr
, Bulma.div_content [Bulma.explanation Explanations.dmarc_adkim] , Bulma.div_content [] [Bulma.explanation Explanations.dmarc_adkim]
, Bulma.selection_field' "idDMARCadkim" "Consistency Policy for DKIM" DMARC_adkim , Bulma.selection_field' "idDMARCadkim" "Consistency Policy for DKIM" DMARC_adkim
(zip_nullable DMARC.consistency_policies_txt DMARC.consistency_policies_raw) (zip_nullable DMARC.consistency_policies_txt DMARC.consistency_policies_raw)
(maybe "-" show state.dmarc.adkim) (maybe "-" show state.dmarc.adkim)
, Bulma.div_content [Bulma.explanation Explanations.dmarc_aspf] , Bulma.div_content [] [Bulma.explanation Explanations.dmarc_aspf]
, Bulma.selection_field' "idDMARCaspf" "Consistency Policy for SPF" DMARC_aspf , Bulma.selection_field' "idDMARCaspf" "Consistency Policy for SPF" DMARC_aspf
(zip_nullable DMARC.consistency_policies_txt DMARC.consistency_policies_raw) (zip_nullable DMARC.consistency_policies_txt DMARC.consistency_policies_raw)
(maybe "-" show state.dmarc.aspf) (maybe "-" show state.dmarc.aspf)
, Bulma.hr , Bulma.hr
, Bulma.div_content [Bulma.explanation Explanations.dmarc_pct] , Bulma.div_content [] [Bulma.explanation Explanations.dmarc_pct]
, Bulma.box_input "idDMARCpct" "Sample rate [0..100]" "100" DMARC_pct (maybe "100" show state.dmarc.pct) , Bulma.box_input "idDMARCpct" "Sample rate [0..100]" "100" DMARC_pct (maybe "100" show state.dmarc.pct)
, Bulma.hr , Bulma.hr
@ -580,7 +580,7 @@ render state
(maybe "-" show state.dmarc.fo) (maybe "-" show state.dmarc.fo)
, Bulma.hr , Bulma.hr
, Bulma.div_content [Bulma.explanation Explanations.dmarc_contact] , Bulma.div_content [] [Bulma.explanation Explanations.dmarc_contact]
, maybe (Bulma.p "There is no address to send aggregated reports to.") , maybe (Bulma.p "There is no address to send aggregated reports to.")
(display_dmarc_mail_addresses "Addresses to contact for aggregated reports" DMARC_remove_rua) state.dmarc.rua (display_dmarc_mail_addresses "Addresses to contact for aggregated reports" DMARC_remove_rua) state.dmarc.rua
, maybe (Bulma.p "There is no address to send detailed reports to.") , maybe (Bulma.p "There is no address to send detailed reports to.")
@ -595,7 +595,7 @@ render state
] [] ] []
, Bulma.hr , Bulma.hr
, Bulma.div_content [Bulma.explanation Explanations.dmarc_ri] , Bulma.div_content [] [Bulma.explanation Explanations.dmarc_ri]
, Bulma.box_input "idDMARCri" "Report interval (in seconds)" "86400" DMARC_ri (maybe "0" show state.dmarc.ri) , Bulma.box_input "idDMARCri" "Report interval (in seconds)" "86400" DMARC_ri (maybe "0" show state.dmarc.ri)
] ]

2
src/App/Text/Explanations.purs
View File

@ -6,7 +6,7 @@ import Bulma as Bulma
expl' :: forall w i. String -> HH.HTML w i expl' :: forall w i. String -> HH.HTML w i
expl' text = expl [Bulma.p text] expl' text = expl [Bulma.p text]
expl :: forall w i. Array (HH.HTML w i) -> HH.HTML w i expl :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
expl content = Bulma.div_content [ Bulma.explanation content ] expl content = Bulma.div_content [] [ Bulma.explanation content ]
expl_txt :: forall w i. String -> HH.HTML w i expl_txt :: forall w i. String -> HH.HTML w i
expl_txt content = Bulma.explanation [ Bulma.p content ] expl_txt content = Bulma.explanation [ Bulma.p content ]

9
src/Bulma.purs
View File

@ -556,14 +556,14 @@ tag_light_info str = HH.span [HP.classes (C.tag <> C.is_info <> C.is_light)] [HH
div_large_content :: forall w i. Array (HH.HTML w i) -> HH.HTML w i div_large_content :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
div_large_content content = HH.div [HP.classes (C.is_large <> C.content)] content div_large_content content = HH.div [HP.classes (C.is_large <> C.content)] content
div_content :: forall w i. Array (HH.HTML w i) -> HH.HTML w i div_content :: forall w i. Array HH.ClassName -> Array (HH.HTML w i) -> HH.HTML w i
div_content content = HH.div [HP.classes (C.content)] content div_content classes content = HH.div [HP.classes (C.content <> classes)] content
explanation :: forall w i. Array (HH.HTML w i) -> HH.HTML w i explanation :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
explanation content = HH.blockquote [HP.classes [HH.ClassName "justified"]] content explanation content = HH.blockquote [HP.classes [HH.ClassName "justified"]] content
quote :: forall w i. Array (HH.HTML w i) -> HH.HTML w i quote :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
quote content = div_content [ explanation content ] quote content = div_content [] [ explanation content ]
simple_quote :: forall w i. String -> HH.HTML w i simple_quote :: forall w i. String -> HH.HTML w i
simple_quote content = quote [ p content ] simple_quote content = quote [ p content ]
@ -610,6 +610,9 @@ notification' classes value =
HH.div [HP.classes (C.notification <> classes)] HH.div [HP.classes (C.notification <> classes)]
[ HH.text value ] [ HH.text value ]
notification_primary' :: forall w i. String -> HH.HTML w i
notification_primary' value = notification' C.is_primary value
notification_warning' :: forall w i. String -> HH.HTML w i notification_warning' :: forall w i. String -> HH.HTML w i
notification_warning' value = notification' C.is_warning value notification_warning' value = notification' C.is_warning value