on master help sign in
Added stripping html tags from search result title
e5653bfEvangelos Lamprou
frontend/elm.json+2
@@ -21,7 +21,9 @@
21 "elm/url": "1.0.0",
21 "elm/url": "1.0.0",
22 "elm-community/list-extra": "8.7.0",
22 "elm-community/list-extra": "8.7.0",
23 "elm-community/maybe-extra": "5.3.0",
23 "elm-community/maybe-extra": "5.3.0",
24+ "elm-community/string-extra": "4.0.1",
24 "figbus/elm-urbit-api": "4.0.1",
25 "figbus/elm-urbit-api": "4.0.1",
26+ "hecrj/html-parser": "2.4.0",
25 "ianmackenzie/elm-1d-parameter": "1.0.1",
27 "ianmackenzie/elm-1d-parameter": "1.0.1",
26 "ianmackenzie/elm-3d-camera": "3.1.0",
28 "ianmackenzie/elm-3d-camera": "3.1.0",
27 "ianmackenzie/elm-3d-scene": "1.0.1",
29 "ianmackenzie/elm-3d-scene": "1.0.1",
frontend/src/Main.elm+3−2
@@ -29,6 +29,8 @@ import Html.String
29import List
29import List
30import Css
30import Css
31import Html.Styled.Attributes exposing (css)
31import Html.Styled.Attributes exposing (css)
32+import Html.Parser
33+import String.Extra exposing (stripTags)
32
34
33
35
34url : String
36url : String
@@ -256,10 +258,9 @@ view model =
256 , Html.Attributes.style "padding" "0.5em" |> htmlAttribute
258 , Html.Attributes.style "padding" "0.5em" |> htmlAttribute
257 , Html.Attributes.class "result" |> htmlAttribute
259 , Html.Attributes.class "result" |> htmlAttribute
258 ]
260 ]
259− [ text title
261+ [ text (stripTags title)
260 |> el
262 |> el
261 [ Font.size 16
263 [ Font.size 16
262− , width fill
263 ]
264 ]
264 , text link
265 , text link
265 |> el
266 |> el