125 lines
3.5 KiB
Elm
125 lines
3.5 KiB
Elm
module View.Formatter exposing (formatContent, textContent)
|
|
|
|
import Dict
|
|
import Elmoji
|
|
import Html exposing (..)
|
|
import Html.Attributes exposing (..)
|
|
import HtmlParser
|
|
import HtmlParser.Util as ParseUtil
|
|
import Http
|
|
import Mastodon.Model exposing (..)
|
|
import String.Extra exposing (replace, rightOf)
|
|
import Types exposing (..)
|
|
import View.Events exposing (..)
|
|
|
|
|
|
formatContent : String -> List Mention -> List (Html Msg)
|
|
formatContent content mentions =
|
|
content
|
|
|> replace " ?" " ?"
|
|
|> replace " !" " !"
|
|
|> replace " :" " :"
|
|
|> HtmlParser.parse
|
|
|> toVirtualDom mentions
|
|
|
|
|
|
textContent : String -> String
|
|
textContent html =
|
|
html |> HtmlParser.parse |> ParseUtil.textContent
|
|
|
|
|
|
{-| Converts nodes to virtual dom nodes.
|
|
-}
|
|
toVirtualDom : List Mention -> List HtmlParser.Node -> List (Html Msg)
|
|
toVirtualDom mentions nodes =
|
|
List.map (toVirtualDomEach mentions) nodes
|
|
|
|
|
|
replaceHref : String -> List ( String, String ) -> List (Attribute Msg)
|
|
replaceHref newHref attrs =
|
|
attrs
|
|
|> List.map toAttribute
|
|
|> List.append [ onClickWithPreventAndStop <| Navigate newHref ]
|
|
|
|
|
|
createLinkNode : List ( String, String ) -> List HtmlParser.Node -> List Mention -> Html Msg
|
|
createLinkNode attrs children mentions =
|
|
case (getMentionForLink attrs mentions) of
|
|
Just mention ->
|
|
Html.node "a"
|
|
(replaceHref ("#account/" ++ mention.id) attrs)
|
|
(toVirtualDom mentions children)
|
|
|
|
Nothing ->
|
|
case getHashtagForLink attrs of
|
|
Just hashtag ->
|
|
Html.node "a"
|
|
(replaceHref ("#hashtag/" ++ hashtag) attrs)
|
|
(toVirtualDom mentions children)
|
|
|
|
Nothing ->
|
|
Html.node "a"
|
|
((List.map toAttribute attrs)
|
|
++ [ onClickWithStop NoOp, target "_blank" ]
|
|
)
|
|
(toVirtualDom mentions children)
|
|
|
|
|
|
getHrefLink : List ( String, String ) -> Maybe String
|
|
getHrefLink attrs =
|
|
attrs
|
|
|> List.filter (\( name, _ ) -> name == "href")
|
|
|> List.map (\( _, value ) -> value)
|
|
|> List.head
|
|
|
|
|
|
getHashtagForLink : List ( String, String ) -> Maybe String
|
|
getHashtagForLink attrs =
|
|
let
|
|
hashtag =
|
|
attrs
|
|
|> Dict.fromList
|
|
|> Dict.get "href"
|
|
|> Maybe.withDefault ""
|
|
|> rightOf "/tags/"
|
|
|> Http.decodeUri
|
|
|> Maybe.withDefault ""
|
|
in
|
|
if hashtag /= "" then
|
|
Just hashtag
|
|
else
|
|
Nothing
|
|
|
|
|
|
getMentionForLink : List ( String, String ) -> List Mention -> Maybe Mention
|
|
getMentionForLink attrs mentions =
|
|
case getHrefLink attrs of
|
|
Just href ->
|
|
mentions
|
|
|> List.filter (\m -> m.url == href)
|
|
|> List.head
|
|
|
|
Nothing ->
|
|
Nothing
|
|
|
|
|
|
toVirtualDomEach : List Mention -> HtmlParser.Node -> Html Msg
|
|
toVirtualDomEach mentions node =
|
|
case node of
|
|
HtmlParser.Element "a" attrs children ->
|
|
createLinkNode attrs children mentions
|
|
|
|
HtmlParser.Element name attrs children ->
|
|
Html.node name (List.map toAttribute attrs) (toVirtualDom mentions children)
|
|
|
|
HtmlParser.Text s ->
|
|
Elmoji.text_ s
|
|
|
|
HtmlParser.Comment _ ->
|
|
text ""
|
|
|
|
|
|
toAttribute : ( String, String ) -> Attribute msg
|
|
toAttribute ( name, value ) =
|
|
attribute name value
|