[elpa] externals/sketch-mode bebba7b 37/38: Fix add layer mechanism

[ELPA Syncer]

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

    Fix add layer mechanism
---
 sketch-mode.el | 28 ++++++++++++++++++++--------
 1 file changed, 20 insertions(+), 8 deletions(-)

diff --git a/sketch-mode.el b/sketch-mode.el
index 495ed4f..d78fc0b 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -253,7 +253,7 @@ VEC should be a cons or a list containing only number 
elements."
 (defvar-local sketch-grid nil)
 (defvar-local sketch-root nil)
 (defvar-local sketch-layers-list nil)
-(defvar-local show-layers '(0))
+(defvar-local show-layers nil)
 
 (defun sketch--create-canvas (width height &optional grid-parameter)
   "Create canvas of size WIDTH x HEIGHT for drawing svg.
@@ -277,7 +277,8 @@ Optionally set a custom GRID-PARAMETER (default is value of
           (setq dash (if dash nil t)))))
     (setq sketch-svg (append svg-canvas (when sketch-show-grid (list 
sketch-grid))))
     (setq sketch-root (sketch-group "root"))
-    (sketch-add-layer)
+    (setq sketch-layers-list (list (sketch-group "layer-0")))
+    (setq show-layers '(0))
     (insert-image (sketch-image sketch-svg
                                 :grid-param grid-parameter
                                 :pointer 'arrow
@@ -538,7 +539,8 @@ else return nil"
   ;; (let ((variable (oref obj variable)))
   (oset obj value value)
   (setq sketch-show-labels value)
-  (auto-revert-buffers)
+  ;; (auto-revert-buffers)
+  (transient--redisplay)
   (sketch-redraw))
   ;; (unless (or value transient--prefix)
   ;;   (message "Unset %s" variable)))
@@ -660,7 +662,7 @@ else return nil"
 (defun sketch--svg-translate (dx dy)
   (interactive)
   (mapcar (lambda (node)
-            (pcase (dome-tag node)
+            (pcase (dom-tag node)
               ('line (sketch-translate-node-coords node dx 'x1 'x2)
                      (sketch-translate-node-coords node dy 'y1 'y2))
               ('rect (sketch-translate-node-coords node dx 'x)
@@ -971,11 +973,21 @@ else return nil"
 
 (transient-define-suffix sketch-add-layer ()
   (interactive)
-  (setq sketch-layers-list (append sketch-layers-list
-                           (list (sketch-group (format "layer-%s" (length 
sketch-layers-list))))))
+  (let ((new-layer (length sketch-layers-list))
+        (active-layer-infix (object-assoc "Active layer" 'description 
transient-current-suffixes))
+        (show-layers-infix (object-assoc "Show layers" 'description 
transient-current-suffixes)))
+    (setq sketch-layers-list (append sketch-layers-list
+                                     (list (sketch-group (format "layer-%s" 
new-layer)))))
+    (setq active-layer new-layer)
+    (setq show-layers (append show-layers (list new-layer)))
+    (print (transient-infix-set active-layer-infix new-layer))
+    (propertize (prin1-to-string (oref active-layer-infix value))
+                'face 'transient-value)
+    (print (transient-infix-set show-layers-infix show-layers)))
+  (transient--redisplay)
   (message "Existing layers (indices): %s" (mapconcat #'number-to-string
-                                            (number-sequence 0 (1- (length 
sketch-layers-list)))
-                                            ", ")))
+                                                      (number-sequence 0 (1- 
(length sketch-layers-list)))
+                                                      ", ")))
 
 (transient-define-infix sketch-layers ()
   "List with layers that should be added to the image.