Allow text selection on view app.

This commit is contained in:
Andrey Antukh 2017-02-23 21:36:40 +01:00
parent 05b6c25aa9
commit ba40b99c97
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
2 changed files with 14 additions and 4 deletions

View file

@ -70,16 +70,18 @@
font-size
text-align
line-height
letter-spacing]
letter-spacing
user-select]
:or {fill-color "#000000"
fill-opacity 1
font-family "sourcesanspro"
font-weight "normal"
font-style "normal"
fobt-size 16
font-size 18
line-height 1.4
letter-spacing 1
text-align "left"}
text-align "left"
user-select false}
:as shape}]
(let [color (-> fill-color
(color/hex->rgba fill-opacity)
@ -92,6 +94,7 @@
:fontFamily font-family
:fontWeight font-weight
:fontStyle font-style}
(when user-select {:userSelect "auto"})
(when line-height {:lineHeight line-height})
(when letter-spacing {:letterSpacing letter-spacing}))))