rtfeldman#446 remove unused styles / colours

frankschmitt · Oct 27, 2020 · bc970d2 · bc970d2
1 parent 39abf19
commit bc970d2
Showing 1 changed file with 0 additions and 52 deletions.
diff --git a/elm/src/Console/Text.elm b/elm/src/Console/Text.elm
@@ -82,13 +82,6 @@ plain =
 
 
 -- FOREGROUND COLORS --
-
-
-default : String -> Text
-default =
-    Text { foreground = Default, background = Default, style = Normal, modifiers = [] }
-
-
 red : String -> Text
 red =
     Text { foreground = Red, background = Default, style = Normal, modifiers = [] }
@@ -104,41 +97,6 @@ yellow =
     Text { foreground = Yellow, background = Default, style = Normal, modifiers = [] }
 
 
-black : String -> Text
-black =
-    Text { foreground = Black, background = Default, style = Normal, modifiers = [] }
-
-
-blue : String -> Text
-blue =
-    Text { foreground = Blue, background = Default, style = Normal, modifiers = [] }
-
-
-magenta : String -> Text
-magenta =
-    Text { foreground = Magenta, background = Default, style = Normal, modifiers = [] }
-
-
-cyan : String -> Text
-cyan =
-    Text { foreground = Cyan, background = Default, style = Normal, modifiers = [] }
-
-
-white : String -> Text
-white =
-    Text { foreground = White, background = Default, style = Normal, modifiers = [] }
-
-
-inverted : Text -> Text
-inverted txt =
-    case txt of
-        Text styles str ->
-            Text { styles | modifiers = Inverted :: styles.modifiers } str
-
-        Texts texts ->
-            Texts (List.map inverted texts)
-
-
 dark : Text -> Text
 dark txt =
     case txt of
@@ -153,16 +111,6 @@ dark txt =
 -- STYLES --
 
 
-bold : Text -> Text
-bold txt =
-    case txt of
-        Text styles str ->
-            Text { styles | style = Bold } str
-
-        Texts texts ->
-            Texts (List.map dark texts)
-
-
 underline : Text -> Text
 underline txt =
     case txt of