[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/sketch-mode ec35bb4 23/38: Add xml processing instructi
From: |
ELPA Syncer |
Subject: |
[elpa] externals/sketch-mode ec35bb4 23/38: Add xml processing instruction and DOCTYPE element (see #4) |
Date: |
Wed, 15 Sep 2021 16:57:37 -0400 (EDT) |
branch: externals/sketch-mode
commit ec35bb44a6a6c7c1ec997908ad27801ee4ee937a
Author: Daniel Nicolai <dalanicolai@gmail.com>
Commit: Daniel Nicolai <dalanicolai@gmail.com>
Add xml processing instruction and DOCTYPE element (see #4)
---
sketch-mode.el | 27 +++++++++++++++++++--------
1 file changed, 19 insertions(+), 8 deletions(-)
diff --git a/sketch-mode.el b/sketch-mode.el
index 4713604..3ebe1ef 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -213,7 +213,7 @@ transient."
(svg-line svg-grid 0 pos width pos :stroke-dasharray (when dash
"2,4"))
(setq dash (if dash nil t)))))
(setq sketch-svg (append svg-canvas (when sketch-show-grid (cddr
svg-grid))))
- (svg-image sketch-svg
+ (sketch-image sketch-svg
:grid-param grid-parameter
:pointer 'arrow
:map `(((rect . ((0 . 0) . (,(dom-attr sketch-svg 'width) .
,(dom-attr sketch-svg 'height))))
@@ -533,7 +533,7 @@ values"
(cddr sketch-root)
(when sketch-show-labels (sketch-labels))))
(erase-buffer) ;; a (not exact) alternative is to use (kill-backward-chars 1)
- (insert-image (svg-image sketch-svg
+ (insert-image (sketch-image sketch-svg
:pointer 'arrow
:grid-param grid-param
:map `(((rect . ((0 . 0) . (,(dom-attr sketch-svg
'width) . ,(dom-attr sketch-svg 'height))))
@@ -619,7 +619,7 @@ values"
;; :fill "none"))
;; ('ellipse (apply 'svg-ellipse sketch-svg (append
(sketch--ellipse-coords start-coords end-coords) '(:fill "none")))))
;; (kill-backward-chars 1)
-;; (insert-image (svg-image sketch-svg :pointer 'arrow :grid-param
grid-param))))
+;; (insert-image (sketch-image sketch-svg :pointer 'arrow :grid-param
grid-param))))
;; (call-interactively 'tutorial-transient)
(define-minor-mode sketch-lisp-mode
@@ -744,6 +744,18 @@ values"
(setf (cddr sketch-root) (sketch--svg-translate (car start-coords) (cdr
start-coords)))
(sketch-redraw)))
+(defun sketch-image (svg &rest props)
+ "Return an image object from SVG.
+PROPS is passed on to `create-image' as its PROPS list."
+ (apply
+ #'create-image
+ (with-temp-buffer
+ (insert "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
+<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\"
\"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">\n")
+ (svg-print svg)
+ (buffer-string))
+ 'svg t props))
+
(transient-define-suffix sketch-save ()
(interactive)
(image-save))
@@ -816,11 +828,10 @@ values"
(defun sketch-update-lisp-window (lisp buffer)
;; (let ((sketch sketch-root))
- (save-current-buffer
- (switch-to-buffer-other-window buffer)
- (erase-buffer)
- (pp lisp (current-buffer))
- (end-of-buffer)))
+ (with-current-buffer buffer
+ (erase-buffer)
+ (pp lisp (current-buffer))
+ (end-of-buffer)))
(provide 'sketch-mode)
- [elpa] externals/sketch-mode bcb99c9 35/38: Implement text label and modify feature, (continued)
- [elpa] externals/sketch-mode bcb99c9 35/38: Implement text label and modify feature, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 49c3c04 34/38: Add dasharray feature, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 4a4e2ba 33/38: Implement import/snippet functionality, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 37af8f4 01/38: Initial commit, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 0f870a1 20/38: Implement load from definition buffer & modify object functionality, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode fadc554 21/38: Add xml processing instruction and DOCTYPE element (see #4), ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 414ec7c 15/38: Don't print coordinates to message buffer, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 87a0808 16/38: Fix file header, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 7583fcb 17/38: Fix variable names and implement svg lisp togglable side window, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 8b63796 19/38: First try: implement update for both type side-winows, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode ec35bb4 23/38: Add xml processing instruction and DOCTYPE element (see #4),
ELPA Syncer <=
- [elpa] externals/sketch-mode 846f4a0 24/38: Implement layers (incl. reformat labels), ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 6433b20 30/38: Add circle/ellipse labels, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 406f51d 25/38: Fix undo-redo (i.e. switch to use undo-tree-mode), ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 9eb86b8 31/38: Add comments and cleanup, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode aaac04d 38/38: Fix indentation (simply auto indent complete file), ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 0005a3a 27/38: Add sketch-mapcons function (refactor sketch--circle-radius), ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode bebba7b 37/38: Fix add layer mechanism, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 19202c7 32/38: Implement first step for snippets/import, ELPA Syncer, 2021/09/15