Display Html in statuses (#3)
This commit is contained in:
parent
317d406fc3
commit
d381009894
4
View.elm
4
View.elm
@ -4,7 +4,7 @@ import Html exposing (..)
|
|||||||
import Html.Attributes exposing (..)
|
import Html.Attributes exposing (..)
|
||||||
import Html.Events exposing (..)
|
import Html.Events exposing (..)
|
||||||
import HtmlParser
|
import HtmlParser
|
||||||
import HtmlParser.Util exposing (textContent)
|
import HtmlParser.Util exposing (toVirtualDom)
|
||||||
import Mastodon
|
import Mastodon
|
||||||
import Model exposing (Model, Msg(..))
|
import Model exposing (Model, Msg(..))
|
||||||
|
|
||||||
@ -41,7 +41,7 @@ statusView status =
|
|||||||
[ img [ class "avatar", src status.account.avatar ] []
|
[ img [ class "avatar", src status.account.avatar ] []
|
||||||
, div [ class "username" ] [ text status.account.username ]
|
, div [ class "username" ] [ text status.account.username ]
|
||||||
, div [ class "status-text" ]
|
, div [ class "status-text" ]
|
||||||
[ HtmlParser.parse status.content |> textContent |> text ]
|
(HtmlParser.parse status.content |> toVirtualDom)
|
||||||
]
|
]
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user