status-im/status-mobile
2
0
Fork 0
mirror of https://github.com/status-im/status-mobile.git synced 2025-01-27 08:55:39 +00:00
Code Issues Projects Releases Wiki Activity

[#5277] [desktop] escape html tags in messages

Browse Source
This commit is contained in:
Roman Volosovskyi 2018-09-26 21:41:54 +03:00
parent 44fbe62773
commit f3f476fa89
No known key found for this signature in database
GPG Key ID: 0238A4B5ECEE70DE
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/src/status_im/ui/components/react.cljs
View File

@ -92,11 +92,17 @@
(vec (map string/upper-case ts)) (vec (map string/upper-case ts))
ts)) ts))
(defn escape-html [text]
(if (and platform/desktop? (string? text))
(clojure.string/escape text {\< "&lt;", \> "&gt;", \& "&amp;"})
text))
(defn text (defn text
([t] ([t]
[text-class t]) [text-class (escape-html t)])
([opts t & ts] ([opts t & ts]
(->> (conj ts t) (->> (conj ts t)
(map escape-html)
(transform-to-uppercase opts) (transform-to-uppercase opts)
(concat [text-class (add-font-style :style opts)]) (concat [text-class (add-font-style :style opts)])
(vec)))) (vec))))