src/App/Page/Zone.purs

@@ -198,7 +198,7 @@ string_to_acceptedtype str = case str of
   "DKIM"  -> Just  DKIM
   _       -> Nothing
 
-data Tab = Zone | TheBasics | TokenExplanation
+data Tab = Zone | TokenExplanation
 derive instance eqTab :: Eq Tab
 --derive instance genericTab :: Generic Tab _
 --instance showTab :: Show Tab where
@@ -290,15 +290,13 @@ render state
       [ fancy_tab
       , case state.current_tab of
           Zone -> render_zone
-          TheBasics        -> Explanations.basics
           TokenExplanation -> Explanations.tokens
       ]
   where
     fancy_tab =
       Bulma.fancy_tabs
-        [ Bulma.tab_entry (is_tab_active Zone)             "Zone"          (ChangeTab Zone)
+        [ Bulma.tab_entry (is_tab_active Zone)             "Zone"       (ChangeTab Zone)
-        , Bulma.tab_entry (is_tab_active TheBasics)        "The basics 🧠" (ChangeTab TheBasics)
+        , Bulma.tab_entry (is_tab_active TokenExplanation) "Tokens? 🤨" (ChangeTab TokenExplanation)
-        , Bulma.tab_entry (is_tab_active TokenExplanation) "Tokens? 🤨"    (ChangeTab TokenExplanation)
         ]
     is_tab_active tab = state.current_tab == tab
 
@@ -882,7 +880,7 @@ render_resources records
             -- , HH.td_ [ Bulma.p $ maybe "(default)" id rr.v ] -- For now, version isn't displayed. Assume DKIM1.
               HH.td_ [ Bulma.p $ maybe "" show dkim.h ]
             , HH.td_ [ Bulma.p $ maybe "" show dkim.k ]
-            , HH.td_ [ Bulma.p $ CP.take 20    dkim.p ]
+            , HH.td_ [ Bulma.p $ CP.take 5     dkim.p ]
             , HH.td_ [ Bulma.p $ fromMaybe ""  dkim.n ]
             , if rr.readonly
               then HH.td_ [ Bulma.btn_readonly ]

src/App/Text/Explanations.purs

@@ -4,11 +4,6 @@ import Bulma as Bulma
 
 expl :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
 expl content = Bulma.div_content [ Bulma.explanation content ]
-expl_txt :: forall w i. String -> HH.HTML w i
-expl_txt content = Bulma.explanation [ Bulma.p content ]
-
-col :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
-col arr = Bulma.column_ [ Bulma.box arr ]
 
 tokens :: forall w i. HH.HTML w i
 tokens = HH.div_
@@ -54,85 +49,6 @@ tokens = HH.div_
          ]
   ]
 
-basics :: forall w i. HH.HTML w i
-basics = HH.div_
-  [ Bulma.h3 "Basics of DNS"
-  , Bulma.p """
-          The domain name system lets people share a name instead of an address to find a website or service.
-          To configure a zone, the first steps are trivial.
-          """
-
-  , Bulma.hr
-  , Bulma.h3 "I have something to host."
-  , expl [ Bulma.p """
-           Let's assume you have a web server, you host your website somewhere.
-           """
-         ]
-  , Bulma.p """
-    You want an A (IPv4) or AAAA (IPv6) record pointing to your server, named "www" for example.
-    If you have other servers, just add A or AAAA records.
-    """
-  , Bulma.p """
-    In case you want other names than "www" to point to your server, you can use CNAME records (these are aliases).
-    """
-
-  , Bulma.hr
-  , Bulma.h3 "I want an email server."
-  , expl [ Bulma.p """
-           Hosting a mail server is quite complex.
-           Let's see to the main parts regarding the DNS.
-           """
-         ]
-  , Bulma.notification_danger' """
-    The actual configuration of your mail server is complex and depends on your choice of software.
-    This won't be covered here.
-    """
-  , Bulma.p """
-    You need a MX record pointing to your "www" A (or AAAA) record.
-    """
-  , Bulma.p """
-    Having a MX record isn't enough to handle a mail server.
-    You need to use a few spam mitigation mechanisms.
-    """
-  , Bulma.columns_
-      [ col
-        [ expl [ Bulma.p """
-                 Spam mitigation 1: tell what are the right mail servers for your domain with Sender Policy Framework (SPF).
-                 """
-               ]
-        , expl_txt """
-          You need a SPF record to tell other mail servers what are the acceptable mail servers for your domain.
-          """
-        ]
-      , col
-        [ expl [ Bulma.p """
-            Spam mitigation 2: prove the mails come from your mail server with DomainKeys Identified Mail (DKIM).
-            """
-          ]
-        , expl_txt """
-          You'll have to configure your mail server to sign the emails you send.
-          This involves creating a pair of keys (public and private).
-          Your mail server will sign the mails with the private key,
-          and other mail servers will verify the signature with the public key.
-          So, you need to publish the public key in a DKIM record.
-          """
-        ]
-      , col
-        [ expl [ Bulma.p """
-                 Spam mitigation 3: Domain-based Message Authentication Reporting and Conformance (DMARC).
-                 """
-               ]
-        , expl_txt """
-          Last but not least, DMARC.
-          """
-        ]
-      ]
-
-  , Bulma.hr
-  , Bulma.h3 "How to automate the update of my IP address?"
-  , Bulma.p "Check out the \"Tokens? 🤨\" tab."
-  ]
-
 dkim_introduction :: forall w i. Array (HH.HTML w i)
 dkim_introduction =
   [ Bulma.p """

src/Bulma.purs

@@ -532,14 +532,6 @@ notification_success value deleteaction = notification C.is_success value delete
 notification_danger :: forall w i. String -> i -> HH.HTML w i
 notification_danger value deleteaction = notification C.is_danger value deleteaction
 
-notification' :: forall w i. Array HH.ClassName -> String -> HH.HTML w i
-notification' classes value =
-  HH.div [HP.classes (C.notification <> classes)]
-         [ HH.text value ]
-
-notification_danger' :: forall w i. String -> HH.HTML w i
-notification_danger' value = notification' C.is_danger value
-
 btn_validation_ :: forall w i. String -> HH.HTML w i
 btn_validation_ str = HH.button
   -- [ HP.style "padding: 0.5rem 1.25rem;"