[elpa] externals/sketch-mode 49c3c04 34/38: Add dasharray feature

[ELPA Syncer]

branch: externals/sketch-mode
commit 49c3c040cacfa348c2dcf5e2866c5d879f106ddd
Author: Daniel Nicolai <dalanicolai@gmail.com>
Commit: Daniel Nicolai <dalanicolai@gmail.com>

    Add dasharray feature
---
 sketch-mode.el | 40 +++++++++++++++++++++++++---------------
 1 file changed, 25 insertions(+), 15 deletions(-)

diff --git a/sketch-mode.el b/sketch-mode.el
index 9c7ca45..0089246 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -448,14 +448,15 @@ else return nil"
   [["General definitions"
     ("c" "stroke-color" sketch-stroke-color)
     ("C" "fill-color" sketch-fill-color)
-    ("w" "stroke-width" sketch-stroke-width)]
+    ("w" "stroke-width" sketch-stroke-width)
+    ("d" "stroke-dasharray" sketch-dasharray)]
    ["Object definitions"
     ("o" "object" sketch-object)
     ("m" "end-marker" sketch-object-marker)]
    ["Font definitions"
-    ("-f" "family" sketch-select-font)
-    ("-w" "font-weight" sketch-font-weight)
-    ("-s" "font-size" sketch-font-size)]]
+    ("ff" "family" sketch-select-font)
+    ("fw" "font-weight" sketch-font-weight)
+    ("fs" "font-size" sketch-font-size)]]
    [["Grid"
     ("s" "Snap to grid" sketch-snap)
     ("g" "Toggle grid" sketch-toggle-grid)]
@@ -474,8 +475,8 @@ else return nil"
     ("i" "Import object" sketch-import)]
     [("u" "Undo" sketch-undo)
     ("U" "Redo" sketch-redo)]
-   [("d" "Show definition" sketch-show-definition)
-    ("D" "Copy definition" sketch-copy-definition)
+   [("D" "Show definition" sketch-show-definition)
+    ("K" "Copy definition" sketch-copy-definition)
     ("S" "Save image" sketch-save)]
    [("q" "Quit transient"           transient-quit-one)]])
 
@@ -486,14 +487,6 @@ else return nil"
   :choices '("rectangle" "circle" "ellipse")
   :default "line")
 
-(transient-define-infix sketch-stroke-width ()
-  :description "Option with list"
-  :class 'transient-option
-  :argument "--stroke-width="
-  :choices (mapcar (lambda (x)
-                     (number-to-string x))
-                   (number-sequence 1 100)))
-
 (transient-define-infix sketch-stroke-color ()
   :description "Option with list"
   :class 'sketch-variable:colors
@@ -506,6 +499,21 @@ else return nil"
   :argument "--fill-color="
   :default "none")
 
+(transient-define-infix sketch-stroke-width ()
+  :description "Option with list"
+  :class 'transient-option
+  :argument "--stroke-width="
+  :choices (mapcar (lambda (x)
+                     (number-to-string x))
+                   (number-sequence 1 100)))
+
+(transient-define-infix sketch-dasharray ()
+  :description "stroke-dasharray"
+  :class 'sketch-variable:choices
+  :argument "--stroke-dasharray="
+  :choices '("8" "8,4")
+  :default "none")
+
 (transient-define-infix sketch-object-marker ()
   :description "Option with list"
   :class 'sketch-variable:choices
@@ -725,6 +733,8 @@ else return nil"
                              (transient-arg-value "--stroke-color=" args)
                              :fill
                              (transient-arg-value "--fill-color=" args)
+                             :stroke-dasharray
+                             (transient-arg-value "--stroke-dasharray=" args)
                              :marker-end (if args (pcase (transient-arg-value 
"--marker=" args)
                                                     ("arrow" "url(#arrow)")
                                                     ("dot" "url(#dot)")
@@ -885,7 +895,7 @@ else return nil"
                              ;;               (if sketch-include-end-marker
                              ;;                   "url(#arrow)"
                              ;;                 "none"))))
-    (apply #'svg-text (nth active-layer sketch-layers-list) text :x (car 
coords) :y (cdr coords) object-props))
+    (apply #'svg-text (nth active-layer sketch-layers-list) text :x (car 
coords) :y (cdr coords) :id (sketch-create-label "text") object-props))
     (sketch-redraw))
 
 (transient-define-infix sketch-select-font ()