removing text-decoration cause CSS sucks.

Author: soupi

example/src/Main.purs

@@ -30,6 +30,11 @@ s2 = slide "Primitives" $
         , text "title: a title"
         , text "link: turn an element into a clickable link"
         , text "center: center an element"
+        , text "bold/italic:"
+          <+> bold (text "bold")
+          <+> text "and"
+          <+> italic (text "italic")
+        , text "withClass/withId: add a class or id to element"
         ]
     ]
 

example/style.css

@@ -97,15 +97,8 @@ a:hover {
 
 
 .boldEl {
-  font-weight: bold;
+  font-weight: bold !important;
 }
-.italicsEl {
-  font-style: italic;
+.italicEl {
+  font-style: italic !important;
 }
-.underlineEl {
-  text-decoration: underline;
-}
-.linethroughEl {
-  text-decoration: line-through;
-}
-

src/Slides.purs

@@ -24,9 +24,7 @@ module Slides
   , withClass
   , withId
   , bold
-  , italics
-  , underline
-  , linethrough
+  , italic
   ) where
 
 import Prelude
@@ -239,17 +237,9 @@ center = withClass "center" <<< group <<< singleton
 bold :: Element -> Element
 bold = withClass "boldEl" <<< group <<< singleton
 
--- | Format text with italics in this element
-italics :: Element -> Element
-italics = withClass "italicsEl" <<< group <<< singleton
-
--- | Format text with underline in this element
-underline :: Element -> Element
-underline = withClass "underlineEl" <<< group <<< singleton
-
--- | Format text with linethrough in this element
-linethrough :: Element -> Element
-linethrough = withClass "linethroughEl" <<< group <<< singleton
+-- | Format text with italic in this element
+italic :: Element -> Element
+italic = withClass "italicEl" <<< group <<< singleton
 
 
 ---------------

style.css

@@ -97,15 +97,8 @@ a:hover {
 
 
 .boldEl {
-  font-weight: bold;
+  font-weight: bold !important;
 }
-.italicsEl {
-  font-style: italic;
+.italicEl {
+  font-style: italic !important;
 }
-.underlineEl {
-  text-decoration: underline;
-}
-.linethroughEl {
-  text-decoration: line-through;
-}
-