[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/sketch-mode bb2ee17 11/12: Add show XML command
From: |
ELPA Syncer |
Subject: |
[elpa] externals/sketch-mode bb2ee17 11/12: Add show XML command |
Date: |
Tue, 26 Oct 2021 14:57:43 -0400 (EDT) |
branch: externals/sketch-mode
commit bb2ee17edffddcb7707c22a34409b86f2c5fb4bf
Author: Daniel Nicolai <dalanicolai@gmail.com>
Commit: Daniel Nicolai <dalanicolai@gmail.com>
Add show XML command
---
sketch-mode.el | 25 +++++++++++++++++++++++++
1 file changed, 25 insertions(+)
diff --git a/sketch-mode.el b/sketch-mode.el
index 7a653a0..d52084e 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -539,6 +539,7 @@ If value of variable ‘sketch-show-labels' is ‘layer',
create ..."
("tc" . sketch-toggle-coords)
("l" . sketch-cycle-labels)
("D" . sketch-show-definition)
+ ("X" . sketch-show-xml)
("u" . sketch-undo)
("U" . sketch-redo)
("S" . image-save)
@@ -1181,6 +1182,30 @@ returned by the function `sketch-parse-transform-string'"
(sketch-format-transform transform))
(sketch-redraw object-def buffer)))
+(defun sketch-show-xml ()
+ ;; :transient 'transient--do-exit
+ (interactive)
+ (when (get-buffer "*sketch-toolbar*")
+ (kill-buffer "*sketch-toolbar*"))
+ (if-let (win (get-buffer-window "*sketch-xml*"))
+ (delete-window win)
+ (let ((buffer (get-buffer-create "*sketch-xml*"))
+ (xml (image-property (get-text-property (point) 'display)
+ :data)))
+ (set-window-dedicated-p
+ (get-buffer-window (pop-to-buffer
+ buffer
+ `(display-buffer-in-side-window
+ . ((side . right)
+ (window-width . ,(funcall
sketch-side-window-max-width))))))
+ t)
+ (window-resize (get-buffer-window buffer) -3 t)
+ (erase-buffer)
+ (with-current-buffer buffer
+ (insert xml)))
+ (sgml-mode)
+ (sgml-pretty-print (point-min) (point-max))))
+
(define-minor-mode sketch-lisp-mode
"Minor mode for svg lisp buffers."
:lighter "sketch"
- [elpa] externals/sketch-mode updated (8e98379 -> ff42a58), ELPA Syncer, 2021/10/26
- [elpa] externals/sketch-mode 800cd1a 01/12: Create major mode (instead of minor mode); better for Spacemacs, ELPA Syncer, 2021/10/26
- [elpa] externals/sketch-mode 570f977 03/12: Implement bbob(-transform), transform and rotate basics, ELPA Syncer, 2021/10/26
- [elpa] externals/sketch-mode 5631fef 06/12: Side-window behavior improvements (e.g. add no-other-win win-param), ELPA Syncer, 2021/10/26
- [elpa] externals/sketch-mode 55e1389 08/12: Change default grid format (grid-param 100, minor-grid-freq 5), ELPA Syncer, 2021/10/26
- [elpa] externals/sketch-mode ff42a58 12/12: Merge branch 'add-rotate-functionality', ELPA Syncer, 2021/10/26
- [elpa] externals/sketch-mode f356810 04/12: Use (temporary patched version of) list-colors-display, ELPA Syncer, 2021/10/26
- [elpa] externals/sketch-mode 443cc68 09/12: Add selection rotate-by-5 (right mouse button drag), ELPA Syncer, 2021/10/26
- [elpa] externals/sketch-mode bb2ee17 11/12: Add show XML command,
ELPA Syncer <=
- [elpa] externals/sketch-mode 4fd7932 05/12: Fix (uncomment) labels, ELPA Syncer, 2021/10/26
- [elpa] externals/sketch-mode f901c50 10/12: Add/improve color keybindings (and fix show toolbar), ELPA Syncer, 2021/10/26
- [elpa] externals/sketch-mode 8111309 02/12: Add first sketch for simple rotate function, ELPA Syncer, 2021/10/26
- [elpa] externals/sketch-mode 587301a 07/12: Add opacity (slider in toolbar), ELPA Syncer, 2021/10/26