[elpa] externals/sketch-mode 9eb86b8 31/38: Add comments and cleanup

[ELPA Syncer]

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

    Add comments and cleanup
---
 sketch-mode.el | 22 +++++++++++++++-------
 1 file changed, 15 insertions(+), 7 deletions(-)

diff --git a/sketch-mode.el b/sketch-mode.el
index 62900ac..7c303d5 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -40,6 +40,8 @@
 
 ;; DONE(-partially) add functionality to modify objects (see 
`add-object-modify-feature' branch)
 
+;; TODO add functionality to customize markers
+
 ;; TODO enable defining global svg settings (object properties)
 
 ;; TODO maybe transform relevant transient argument (strings) to variables
@@ -77,11 +79,13 @@
   :group 'Applications)
 
 (defcustom sketch-im-x-offset 7
-  "Default grid line separation distance (integer)."
+  "Horizontal offset in pixels of image position within frame.
+Set this value to correct for cursor 'bias'."
   :type 'integer)
 
 (defcustom sketch-im-y-offset 1
-  "Default grid line separation distance (integer)."
+  "Vertical offset in pixels of image position within frame.
+Set this value to correct for cursor 'bias'."
   :type 'integer)
 
 (defcustom sketch-default-image-size '(800 . 600)
@@ -705,8 +709,10 @@ values"
          (object-type (transient-arg-value "--object=" args))
          (command-and-coords (pcase object-type
                                ("line" (list 'svg-line
-                                             (car start-coords) (cdr 
start-coords) (car end-coords) (cdr end-coords)))
-                               ("rectangle" `(svg-rectangle 
,@(sketch--rectangle-coords start-coords end-coords)))
+                                             (car start-coords) (cdr 
start-coords)
+                                             (car end-coords) (cdr 
end-coords)))
+                               ("rectangle" `(svg-rectangle
+                                              ,@(sketch--rectangle-coords 
start-coords end-coords)))
                                ("circle" (list 'svg-circle
                                                (car start-coords) (cdr 
start-coords)
                                                (sketch--circle-radius 
start-coords end-coords)))
@@ -738,17 +744,19 @@ values"
           (sketch sketch-root))
       (set-window-dedicated-p
        (get-buffer-window
-        (pop-to-buffer buffer '(display-buffer-in-side-window . ((side . 
right) (window-width . 70)))))
+        (pop-to-buffer buffer
+                       '(display-buffer-in-side-window . ((side . right) 
(window-width . 70)))))
        t)
     (erase-buffer)
-    (pp sketch buffer))
+    (with-current-buffer buffer
+      (dom-pp sketch)))
     (emacs-lisp-mode)
     (sketch-lisp-mode)))
 
 (transient-define-suffix sketch-copy-definition ()
   (interactive)
   (with-temp-buffer
-    (pp sketch-svg (current-buffer))
+    (dom-pp sketch-svg)
     (kill-new (buffer-string)))
   (message "SVG definition added to kill-ring"))