[elpa] externals/sketch-mode 4c6a675 36/38: Fix load definition functionality (also set layers list)

[ELPA Syncer]

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

    Fix load definition functionality (also set layers list)
---
 sketch-mode.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/sketch-mode.el b/sketch-mode.el
index 819fd9e..495ed4f 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -561,7 +561,7 @@ else return nil"
                                                 show-layers)))))
         (svg-labels (sketch-group "labels")))
     (mapc (lambda (node)
-            (pcase (car node)
+            (pcase (dom-tag node)
               ('rect (svg-text svg-labels
                                (dom-attr node 'id)
                                :x (+ (dom-attr node 'x) 2)
@@ -660,7 +660,7 @@ else return nil"
 (defun sketch--svg-translate (dx dy)
   (interactive)
   (mapcar (lambda (node)
-            (pcase (car node)
+            (pcase (dome-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)
@@ -846,6 +846,7 @@ else return nil"
   (let ((def (read (buffer-string))))
     (with-current-buffer "*sketch*"
       (setq sketch-root def)
+      (setq sketch-layers-list (dom-by-id sketch-root "layer"))
       (sketch-redraw))))
 
 ;; (defvar sketch-undo-redo nil)