module Bulma where {- This file is a wrapper around the BULMA css framework. -} import Prelude import Halogen.HTML as HH import DOM.HTML.Indexed as DHI import Halogen.HTML.Properties as HP import Halogen.HTML.Events as HE import MissingHTMLProperties as MissingProperties import CSSClasses as C import Halogen.HTML.Core (AttrName(..)) -- import Web.Event.Event (type_, Event, EventType(..)) import Web.UIEvent.MouseEvent (MouseEvent) columns :: forall (w :: Type) (i :: Type). 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 column classes = HH.div [ HP.classes (C.column <> classes) ] column_ :: forall (w :: Type) (i :: Type). Array (HH.HTML w i) -> HH.HTML w i column_ = column [] h1 :: forall (w :: Type) (a :: Type). String -> HH.HTML w a h1 title = HH.h1 [ HP.classes (C.title) ] [ HH.text title ] h3 :: forall (w :: Type) (a :: Type). String -> HH.HTML w a h3 title = HH.h3 [ HP.classes (C.title <> C.is5) ] [ HH.text title ] zone_rr_title :: forall (w :: Type) (a :: Type). String -> HH.HTML w a zone_rr_title title = HH.h3 [ HP.classes (C.title <> C.is5 <> C.has_text_light <> C.has_background_dark) ] [ HH.text title ] subtitle :: forall (w :: Type) (a :: Type). String -> HH.HTML w a subtitle title = HH.h2 [ HP.classes (C.subtitle <> C.is4) ] [ HH.text title ] hdiv :: forall (w :: Type) (a :: Type). Array (HH.HTML w a) -> HH.HTML w a hdiv = HH.div [ HP.classes [HH.ClassName "mt-5"] ] --offcolumn :: forall (w :: Type) (a :: Type). -- Int -> Int -> Array (HH.HTML w a) -> HH.HTML w a --offcolumn 0 size = HH.div [ HP.classes [HH.ClassName ("mt-"<>show size)] ] --offcolumn offset size -- = column [ HH.ClassName ("is-offset-" <> (show offset) <> " is-" <> (show size)) ] input_classes :: Boolean -> Array HH.ClassName input_classes true = C.input <> C.is_small <> C.is_info input_classes false = C.input <> C.is_small <> C.is_danger table :: forall w i. HH.Node DHI.HTMLtable w i table prop xs = HH.table ([ HP.classes $ C.table ] <> prop) xs btn_classes :: Boolean -> Array HH.ClassName btn_classes true = C.button <> C.is_small <> C.is_info btn_classes false = C.button <> C.is_small <> C.is_danger simple_table_header :: forall w i. HH.HTML w i simple_table_header = HH.thead_ [ HH.tr_ [ HH.th [ HP.style "width: 50px;" ] [ HH.text "Type" ] , HH.th_ [ HH.text "Name" ] , HH.th_ [ HH.text "TTL" ] , HH.th_ [ HH.text "Target" ] ] ] mx_table_header :: forall w i. HH.HTML w i mx_table_header = HH.thead_ [ HH.tr_ [ HH.th_ [ HH.text "Name" ] , HH.th_ [ HH.text "TTL" ] , HH.th_ [ HH.text "Priority" ] , HH.th_ [ HH.text "Target" ] ] ] srv_table_header :: forall w i. HH.HTML w i srv_table_header = HH.thead_ [ HH.tr_ [ HH.th_ [ HH.text "Name" ] , HH.th_ [ HH.text "TTL" ] , HH.th_ [ HH.text "Priority" ] , HH.th_ [ HH.text "Protocol" ] , HH.th_ [ HH.text "Weight" ] , HH.th_ [ HH.text "Port" ] , HH.th_ [ HH.text "Target" ] ] ] txt_name :: forall w i. String -> HH.HTML w i txt_name t = HH.td [ rr_name_style ] [ rr_name_text ] where rr_name_style = HP.style "width: 80px;" rr_name_text = HH.text t input_email :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i input_email action "" validity = HH.input [ HE.onValueInput action , HP.placeholder "email" , HP.classes $ input_classes validity ] input_email action email validity = HH.input [ HE.onValueInput action , HP.value email , HP.placeholder "email" , HP.classes $ input_classes validity ] box_input_email :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i box_input_email action email validity = HH.label [ ] [ HH.label [HP.classes C.label ] [ HH.text "Email" ] , HH.div [HP.classes C.control ] [ input_email action email validity ] ] input_password :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i input_password action "" validity = HH.input [ HE.onValueInput action , HP.placeholder "password" , HP.classes $ input_classes validity ] input_password action password validity = HH.input [ HE.onValueInput action , HP.value password , HP.placeholder "password" , HP.classes $ input_classes validity ] box_input_password :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i box_input_password action password validity = HH.label [ ] [ HH.label [HP.classes C.label ] [ HH.text "Password" ] , HH.div [HP.classes C.control ] [ input_password action password validity ] ] input_domain :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i input_domain action domain validity = HH.input [ HE.onValueInput action , HP.value domain , HP.placeholder "domain" , HP.classes $ input_classes validity ] box_input_domain :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i box_input_domain action domain validity = HH.label [ ] [ HH.label [HP.classes C.label ] [ HH.text "Domain" ] , HH.div [HP.classes C.control ] [ input_domain action domain validity ] ] input_ttl :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i input_ttl action ttl validity = HH.input [ HE.onValueInput action , HP.value ttl , MissingProperties.size 6 , HP.placeholder "ttl" , HP.classes $ input_classes validity ] box_input_ttl :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i box_input_ttl action value validity = HH.label [ ] [ HH.label [HP.classes C.label ] [ HH.text "TTL" ] , HH.div [HP.classes C.control ] [ input_ttl action value validity ] ] input_priority :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i input_priority action priority validity = HH.input [ HE.onValueInput action , HP.value priority , MissingProperties.size 6 , HP.placeholder "priority" , HP.classes $ input_classes validity ] box_input_priority :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i box_input_priority action value validity = HH.label [ ] [ HH.label [HP.classes C.label ] [ HH.text "Priority" ] , HH.div [HP.classes C.control ] [ input_priority action value validity ] ] input_protocol :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i input_protocol action protocol validity = HH.input [ HE.onValueInput action , HP.value protocol , MissingProperties.size 6 , HP.placeholder "_tcp" , HP.classes $ input_classes validity ] box_input_protocol :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i box_input_protocol action value validity = HH.label [ ] [ HH.label [HP.classes C.label ] [ HH.text "Protocol" ] , HH.div [HP.classes C.control ] [ input_protocol action value validity ] ] input_target :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i input_target action value validity = HH.input [ HE.onValueInput action , HP.value value , HP.placeholder "target" , HP.classes $ input_classes validity ] box_input_target :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i box_input_target action value validity = HH.label [ ] [ HH.label [HP.classes C.label ] [ HH.text "Target" ] , HH.div [HP.classes C.control ] [ input_target action value validity ] ] input_weight :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i input_weight action weight validity = HH.input [ HE.onValueInput action , HP.value weight , MissingProperties.size 6 , HP.placeholder "weight" , HP.classes $ input_classes validity ] box_input_weight :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i box_input_weight action weight validity = HH.label [ ] [ HH.label [HP.classes C.label ] [ HH.text "Weight" ] , HH.div [HP.classes C.control ] [ input_weight action weight validity ] ] input_port :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i input_port action port validity = HH.input [ HE.onValueInput action , HP.value port , MissingProperties.size 6 , HP.placeholder "port" , HP.classes $ input_classes validity ] box_input_port :: forall w i. (String -> i) -> String -> Boolean -> HH.HTML w i box_input_port action port validity = HH.label [ ] [ HH.label [HP.classes C.label ] [ HH.text "Port" ] , HH.div [HP.classes C.control ] [ input_port action port validity ] ] btn_change :: forall w i. i -> i -> Boolean -> Boolean -> HH.HTML w i btn_change action1 action2 modified validity = HH.button [ HP.disabled (not modified) , btn_change_action validity , HP.classes $ btn_classes validity ] [ HH.text "save" ] where btn_change_action = case _ of true -> HE.onClick \_ -> action1 _ -> HE.onClick \_ -> action2 btn_delete :: forall w i. (MouseEvent -> i) -> HH.HTML w i btn_delete action = HH.button [ HE.onClick action , HP.classes [ HH.ClassName "button is-small is-danger" ] ] [ HH.text "remove" ] btn_add :: forall w i. i -> i -> Boolean -> HH.HTML w i btn_add action1 action2 validity = HH.button [ btn_add_action validity , HP.classes $ btn_classes validity ] [ HH.text "Add" ] where btn_add_action = case _ of true -> HE.onClick \_ -> action1 _ -> HE.onClick \_ -> action2 btn :: forall w action. String -> action -> action -> Boolean -> HH.HTML w action btn title action1 action2 validity = HH.button [ btn_add_action validity , HP.classes $ btn_classes validity ] [ HH.text title ] where btn_add_action = case _ of true -> HE.onClick \_ -> action1 _ -> HE.onClick \_ -> action2 render_input :: forall w i. Boolean -> String -> String -> (String -> i) -> String -> Boolean -> (HP.IProp DHI.HTMLinput i) -> HH.HTML w i render_input password id placeholder action value validity cond = HH.input $ [ HE.onValueInput action , HP.value value , HP.placeholder placeholder , HP.classes $ input_classes validity , HP.id id , cond ] <> case password of false -> [] true -> [ HP.type_ HP.InputPassword ] field_inner :: forall w i. Boolean -> String -> String -> String -> (String -> i) -> String -> Boolean -> (HP.IProp DHI.HTMLinput i) -> HH.HTML w i field_inner ispassword id title placeholder action value validity cond = div_field [ div_field_label , div_field_content $ render_input ispassword id placeholder action value validity cond ] where div_field = HH.div [ HP.classes (C.field <> C.is_horizontal) ] div_field_label = HH.div [ HP.classes (C.field_label <> C.normal) ] [HH.label [ HP.classes C.label, HP.for id ] [ HH.text title ]] div_field_content content = HH.div [ HP.classes C.field_body ] [ HH.div [HP.classes C.field ] [ HH.div [HP.classes C.control ] [ content ] ] ] box_input :: forall w i. String -> String -> String -> (String -> i) -> String -> Boolean -> (HP.IProp DHI.HTMLinput i) -> HH.HTML w i box_input = field_inner false box_password :: forall w i. String -> String -> String -> (String -> i) -> String -> Boolean -> (HP.IProp DHI.HTMLinput i) -> HH.HTML w i box_password = field_inner true section_small :: forall w i. Array (HH.HTML w i) -> HH.HTML w i section_small = HH.section [ HP.classes (C.section <> C.is_small) ] 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 :: forall w i. (String -> i) -> String -> Array (HP.IProp DHI.HTMLselect i) -> Array String -> HH.HTML w i new_domain_field inputaction text selectaction accepted_domains = field C.has_addons [ HH.p [ HP.classes C.control ] [ HH.input $ [ HE.onValueInput inputaction , HP.placeholder "www" , HP.value text , HP.type_ HP.InputText , HP.classes (C.is_primary <> C.input) ] ] , HH.p [ HP.classes C.control ] [ select selectaction $ map option accepted_domains ] , HH.p [ HP.classes C.control ] [ HH.button [ HP.type_ HP.ButtonSubmit , HP.classes C.button ] [ HH.text "add a new domain!" ] ] ] --box_button action value validity cond -- = HH.label [ ] -- [ HH.label [HP.classes C.label ] [ HH.text title ] -- , HH.div [HP.classes C.control ] -- [ render_input ispassword placeholder action value validity cond ] -- ] p :: forall w i. String -> HH.HTML w i p str = HH.p_ [ HH.text str ] p_ :: forall w i. Array HH.ClassName -> String -> HH.HTML w i p_ classes str = HH.p [HP.classes classes] [ HH.text str ] box :: forall w i. Array (HH.HTML w i) -> HH.HTML w i box = HH.div [HP.classes C.box] option :: forall w i. String -> HH.HTML w i option value = HH.option_ [HH.text value] select :: forall w i. HH.Node DHI.HTMLselect w i select action options = HH.div [ HP.classes (C.select <> C.is_primary) ] [ HH.select action options] hero :: forall w i. String -> String -> HH.HTML w i hero _title _subtitle = HH.section [ HP.classes (C.hero <> C.is_info <> C.is_small) ] [ HH.div [ HP.classes C.hero_body ] [ HH.p [ HP.classes C.title ] [ HH.text _title ] , HH.p [ HP.classes C.subtitle ] [ HH.text _subtitle ] ] ] hero_danger :: forall w i. String -> String -> HH.HTML w i hero_danger _title _subtitle = HH.section [ HP.classes (C.hero <> C.is_danger <> C.is_small) ] [ HH.div [ HP.classes C.hero_body ] [ HH.p [ HP.classes C.title ] [ HH.text _title ] , HH.p [ HP.classes C.subtitle ] [ HH.text _subtitle ] ] ] header :: forall w i. String -> String -> HH.HTML w i header = hero container :: forall w i. Array (HH.HTML w i) -> HH.HTML w i container = HH.div [HP.classes (C.container <> C.is_info)] data_target :: forall r i. String -> HP.IProp r i data_target = HP.attr (AttrName "data-target") modal_domain_delete :: forall w i. String -> HH.HTML w i modal_domain_delete domain = modal [ modal_background , modal_card [modal_header, modal_body] , modal_foot [modal_delete_button, modal_cancel_button] ] where modal = HH.div [HP.classes (C.modal <> C.is_active)] modal_background = HH.div [HP.classes C.modal_background] [] modal_card = HH.div [HP.classes C.modal_card] modal_header = HH.header [HP.classes C.modal_card_head] [ HH.p [HP.classes C.modal_card_title] [HH.text "Deleting a domain"] --, HH.button [HP.classes C.delete, ARIA.label "close"] [] ] modal_body = HH.section [HP.classes C.modal_card_body] [ warning_message ] modal_foot = HH.div [HP.classes C.modal_card_foot] modal_delete_button = HH.button [HP.classes (C.button <> C.is_success)] [HH.text "Delete the domain."] modal_cancel_button = HH.button [HP.classes C.button] [HH.text "Cancel"] warning_message = HH.p [] [ HH.text $ "You are about to delete your domain '" <> domain <> "'. Are you sure you want to do this? This is " , HH.strong_ [ HH.text "irreversible" ] , HH.text "." ] hr :: forall w i. HH.HTML w i hr = HH.hr_ tile :: forall w i. Array (HH.HTML w i) -> HH.HTML w i tile = HH.div [HP.classes (C.tile <> C.is_primary <> C.box)]