[elpa] externals/sketch-mode f0465ec 29/38: Remove sketch-interactive function

[ELPA Syncer]

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

    Remove sketch-interactive function
    
    Setting `transient-show-popup` to `nil` might be a better alternative.
---
 sketch-mode.el | 34 ++--------------------------------
 1 file changed, 2 insertions(+), 32 deletions(-)

diff --git a/sketch-mode.el b/sketch-mode.el
index 715d3f0..9987caa 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -192,7 +192,8 @@ In sketch-mode buffer press \\[sketch-transient] to 
activate the
 transient."
   :lighter "sketch-mode"
   :keymap
-  `(([sketch drag-mouse-1] . sketch-interactively)
+  `(
+    ;; ([sketch drag-mouse-1] . sketch-interactively)
     ;; ([C-S-drag-mouse-1] . sketch-interactively)
     (,(kbd "C-c C-s") . sketch-transient))
   (undo-tree-mode))
@@ -713,37 +714,6 @@ values"
   (svg-remove sketch-root (completing-read "Remove element with id: "
                                           (sketch-labels-list)))
   (sketch-redraw))
-;; (defun sketch-interactively (event)
-;;   "Draw object interactively, interpreting mouse event."
-;;   (interactive "e")
-;;   (let* ((start (event-start event))
-;;          (start-coords (posn-object-x-y start))
-;;          (end (event-end event))
-;;          (end-coords (posn-object-x-y end))
-;;          (grid-param (plist-get (cdr (posn-image start)) :grid-param)))
-;;     (when (or (not grid-param) (= grid-param 0))
-;;       (setq sketch-snap-to-grid nil))
-;;     (when sketch-snap-to-grid
-;;       (setq start-coords (sketch-snap-to-grid start-coords grid-param))
-;;       (setq end-coords (sketch-snap-to-grid end-coords grid-param)))
-;;     (pcase sketch-default-shape
-;;       ('line   (svg-line sketch-svg (car start-coords) (cdr start-coords) 
(car end-coords) (cdr end-coords)
-;;                          :marker-start (if sketch-include-start-marker
-;;                                          "url(#arrow)"
-;;                                        "none")
-;;                          :marker-mid (if sketch-include-mid-marker
-;;                                            "url(#arrow)"
-;;                                          "none")
-;;                          :marker-end (if sketch-include-end-marker
-;;                                          "url(#arrow)"
-;;                                        "none")))
-;;       ('rectangle (apply 'svg-rectangle sketch-svg (append 
(sketch--rectangle-coords start-coords end-coords) '(:fill "none"))))
-;;       ('circle (svg-circle sketch-svg (car start-coords) (cdr start-coords) 
(sketch--circle-radius start-coords end-coords)
-;;                            :fill "none"))
-;;       ('ellipse (apply 'svg-ellipse sketch-svg  (append 
(sketch--ellipse-coords start-coords end-coords) '(:fill "none")))))
-;;     (kill-backward-chars 1)
-;;     (insert-image (sketch-image sketch-svg :pointer 'arrow :grid-param 
grid-param))))
-  ;; (call-interactively 'tutorial-transient)
 
 (define-minor-mode sketch-lisp-mode
   "Minor mode for svg lisp buffers."