Poc elm css removal

component-catalog/src/Examples.elm

@@ -28,6 +28,7 @@ import Examples.Highlighter as Highlighter
 import Examples.HighlighterToolbar as HighlighterToolbar
 import Examples.Loading as Loading
 import Examples.Logo as Logo
+import Examples.LongFormHighlighter as LongForm
 import Examples.Menu as Menu
 import Examples.Message as Message
 import Examples.Modal as Modal
@@ -458,6 +459,25 @@ all =
                     HighlighterState childState ->
                         Just childState
 
+                    _ ->
+                        Nothing
+            )
+    , LongForm.example
+        |> Example.wrapMsg LongFormHighlighterMsg
+            (\msg ->
+                case msg of
+                    LongFormHighlighterMsg childMsg ->
+                        Just childMsg
+
+                    _ ->
+                        Nothing
+            )
+        |> Example.wrapState LongFormHighlighterState
+            (\msg ->
+                case msg of
+                    LongFormHighlighterState childState ->
+                        Just childState
+
                     _ ->
                         Nothing
             )
@@ -1113,6 +1133,7 @@ type State
     | HeaderState Header.State
     | HeadingState Heading.State
     | HighlighterState Highlighter.State
+    | LongFormHighlighterState LongForm.State
     | HighlighterToolbarState HighlighterToolbar.State
     | LoadingState Loading.State
     | LogoState Logo.State
@@ -1170,6 +1191,7 @@ type Msg
     | HeaderMsg Header.Msg
     | HeadingMsg Heading.Msg
     | HighlighterMsg Highlighter.Msg
+    | LongFormHighlighterMsg LongForm.Msg
     | HighlighterToolbarMsg HighlighterToolbar.Msg
     | LoadingMsg Loading.Msg
     | LogoMsg Logo.Msg

component-catalog/src/Examples/HighlighterPort.elm

@@ -0,0 +1,17 @@
+port module Examples.HighlighterPort exposing (..)
+
+{-| Start listening to events on a highlighter
+-}
+
+
+port highlighterInit : ( String, Bool, Bool ) -> Cmd msg
+
+
+{-| Listen to mouseup/touchend events on the whole document, to stop highlighting.
+-}
+port highlighterTouchPointerRelease : (( String, String ) -> msg) -> Sub msg
+
+
+{-| Listen to touch events, and get the element under the finger.
+-}
+port highlighterOnTouchEvent : (( String, String, Int ) -> msg) -> Sub msg