branch: externals/sketch-mode
commit 4c6a675cc03b44cccb91e8eb8dab99945872c21f
Author: Daniel Nicolai <dalanico...@gmail.com>
Commit: Daniel Nicolai <dalanico...@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)
