diff --git a/elm.json b/elm.json index 5e7c3b3..4a3eb06 100644 --- a/elm.json +++ b/elm.json @@ -15,11 +15,14 @@ "elm/json": "1.1.2", "elm/svg": "1.0.1", "elm/time": "1.0.0", - "elm/url": "1.0.0" + "elm/url": "1.0.0", + "hecrj/html-parser": "2.0.0" }, "indirect": { "elm/bytes": "1.0.7", - "elm/virtual-dom": "1.0.2" + "elm/parser": "1.1.0", + "elm/virtual-dom": "1.0.2", + "rtfeldman/elm-hex": "1.0.0" } }, "test-dependencies": { diff --git a/src/Scylla/Views.elm b/src/Scylla/Views.elm index 2649ca9..f3d48ce 100644 --- a/src/Scylla/Views.elm +++ b/src/Scylla/Views.elm @@ -6,6 +6,8 @@ import Scylla.Fnv as Fnv import Scylla.Login exposing (Username) import Scylla.Http exposing (fullMediaUrl) import Scylla.Api exposing (ApiUrl) +import Html.Parser +import Html.Parser.Util import Svg import Svg.Attributes import Url.Builder @@ -195,9 +197,15 @@ messageTextView : Model -> RoomEvent -> Maybe (Html Msg) messageTextView m re = let body = Decode.decodeValue (Decode.field "body" Decode.string) re.content + customHtml = Maybe.map Html.Parser.Util.toVirtualDom + <| Maybe.andThen (Result.toMaybe << Html.Parser.run ) + <| Result.toMaybe + <| Decode.decodeValue (Decode.field "formatted_body" Decode.string) re.content wrap mtext = span [] [ text mtext ] in - Maybe.map wrap <| Result.toMaybe body + case customHtml of + Just c -> Just <| div [ class "markdown-wrapper" ] c + Nothing -> Maybe.map wrap <| Result.toMaybe body messageImageView : Model -> RoomEvent -> Maybe (Html Msg) messageImageView m re = diff --git a/static/scss/style.scss b/static/scss/style.scss index 5d9f203..a4a47b1 100644 --- a/static/scss/style.scss +++ b/static/scss/style.scss @@ -184,6 +184,12 @@ table.events-table { } } +div.markdown-wrapper { + p { + margin: 0px; + } +} + span.sender-wrapper { border-radius: 2px; padding-left: 5px;