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

View file

@ -84,6 +84,13 @@
(when-let [image (mx/react (image-ref image))] (when-let [image (mx/react (image-ref image))]
(image-shape (assoc item :image image)))) (image-shape (assoc item :image image))))
;; --- Text Shape Wrapper
(mx/defc text-shape-wrapper
{:mixins [mx/static]}
[item]
(text-shape (assoc item :user-select true)))
;; --- Shapes ;; --- Shapes
(declare shape) (declare shape)
@ -93,7 +100,7 @@
(case type (case type
:group (group-shape item shape) :group (group-shape item shape)
:image (image-shape-wrapper item) :image (image-shape-wrapper item)
:text (text-shape item) :text (text-shape-wrapper item)
:icon (icon-shape item) :icon (icon-shape item)
:rect (rect-shape item) :rect (rect-shape item)
:path (path-shape item) :path (path-shape item)