[elpa] externals/sketch-mode 172961f: Implement easy insert image to buffer
branch: externals/sketch-mode
commit 172961f9752a0dd570b018e745d111d3d3424af0
Author: Daniel Nicolai
Commit: Daniel Nicolai
Implement easy insert image to buffer
---
sketch-mode.el | 32 ++--
1 file changed, 30 insertions(+), 2 deletions(-)
diff --git a/sketch-mode.el b/sketch-mode.el
index dd31446..2c7a2eb 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -480,7 +480,9 @@ else return nil"
[("D" "Show definition" sketch-show-definition)
("K" "Copy definition" sketch-copy-definition)
("S" "Save image" sketch-save)]
- [("q" "Quit transient" transient-quit-one)]])
+ [("b" "Insert image to buffer" sketch-insert-image-to-buffer
+ :transient transient--do-exit)
+("q" "Quit transient" transient-quit-one)]])
(transient-define-infix sketch-object ()
:description "Option with list"
@@ -1034,7 +1036,33 @@ PROPS is passed on to `create-image' as its PROPS list."
(transient-define-suffix sketch-save ()
(interactive)
- (image-save))
+ (let ((image (get-char-property (point) 'display))
+(file (read-file-name "Save as: ")))
+(with-temp-file file
+ (insert (plist-get (cdr image) :data)
+
+(transient-define-suffix sketch-insert-image-to-buffer (&optional
insert-at-end-of-file)
+ "Insert image to buffer at point.
+When prefixed with a universal argument \\[universal-argument]
+then insert at end of file.
+
+Prompts for buffer for insert, then for the image file name for
+save. If the image is saved in a sub-directory of the buffer file
+then insert a relative link, otherwise insert an absolute link."
+ (interactive "P")
+ (let* ((buffer (get-buffer (read-buffer "Add to buffer: ")))
+ (buffer-dir (file-name-directory (buffer-file-name buffer)))
+ (image (get-char-property (point) 'display))
+ (file (read-file-name "Save as: " buffer-dir)))
+(kill-buffer "*sketch*")
+(with-temp-file file
+ (insert (plist-get (cdr image) :data)))
+(switch-to-buffer buffer)
+(when insert-at-end-of-file
+ (goto-char (point-max)))
+(insert (format "[[%s]]" (if (string-match buffer-dir file)
+ (concat "./" (file-name-nondirectory file))
+ file)
;;; Modify object
[elpa] externals/sketch-mode 984aad2: Fix image crop
branch: externals/sketch-mode
commit 984aad20d1f15791020ec2bf6f51cc34b309d8e2
Author: Daniel Nicolai
Commit: Daniel Nicolai
Fix image crop
---
sketch-mode.el | 49 +
1 file changed, 29 insertions(+), 20 deletions(-)
diff --git a/sketch-mode.el b/sketch-mode.el
index 2c7a2eb..9ba6867 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -75,7 +75,7 @@
;;; Code:
(require 'svg)
(require 'transient)
-(require 'seq)
+(require 'cl-lib)
(defgroup sketch nil
"Configure default sketch (object) properties."
@@ -658,24 +658,33 @@ else return nil"
;; (with-current-buffer (get-buffer "*sketch*")
;; (mapcar (lambda (layer) (alist-get 'id (cadr layer)))
sketch-layers-list)))
-(defun sketch-translate-node-coords (node amount &rest args)
- (dolist (coord args node)
-(cl-decf (alist-get coord (cadr node)) amount)))
+;; (defun sketch-translate-node-coords (node amount &rest args)
+;; (dolist (coord args node)
+;; (cl-decf (alist-get coord (cadr node)) amount)))
(defun sketch--svg-translate (dx dy)
(interactive)
- (mapcar (lambda (node)
-(pcase (dom-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)
- (sketch-translate-node-coords node dy 'y))
- ((or 'circle 'ellipse)
- (sketch-translate-node-coords node dx 'cx)
- (sketch-translate-node-coords node dy 'cy))
- ('text (sketch-translate-node-coords node dx 'x)
- (sketch-translate-node-coords node dy 'y
- (cddr (nth active-layer sketch-layers-list
+ (let ((transform (sketch-parse-transform-value
+(dom-attr sketch-root
+ 'transform
+(cl-decf (first (alist-get 'translate transform)) dx)
+(cl-decf (second (alist-get 'translate transform)) dy)
+(dom-set-attribute sketch-root
+ 'transform
+ (sketch-format-transfrom-value transform)))
+ (sketch-redraw))
+ ;; (mapcar (lambda (node)
+ ;; (pcase (dom-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)
+ ;;(sketch-translate-node-coords node dy 'y))
+ ;; ((or 'circle 'ellipse)
+ ;; (sketch-translate-node-coords node dx 'cx)
+ ;; (sketch-translate-node-coords node dy 'cy))
+ ;; ('text (sketch-translate-node-coords node dx 'x)
+ ;;(sketch-translate-node-coords node dy 'y
+ ;; (cddr (nth active-layer sketch-layers-list
;; (let ((node (car (dom-by-id svg-sketch label
;; (pcase (car node)
;; ('g (setf (alist-get 'transform (cadr node))
@@ -705,7 +714,7 @@ else return nil"
;; (if-let (buf (get-buffer"*sketch-root*"))
;; (sketch-update-lisp-window sketch-root buf)
;; (sketch-update-lisp-window lisp lisp-buffer
-(setq sketch-root (append (seq-subseq sketch-root 0 2) (list (nth (car
show-layers) sketch-layers-list
+(setq sketch-root (append (cl-subseq sketch-root 0 2) (list (nth (car
show-layers) sketch-layers-list
(dolist (layer (cdr show-layers))
(setq sketch-root (append sketch-root (list (nth layer
sketch-layers-list)
(setq sketch-svg (append svg-canvas
@@ -1100,8 +1109,8 @@ then insert a relative link, otherwise insert an absolute
link."
10
1)))
(pcase direction
- ('up (cl-decf (cadr (alist-get 'translate transform)) amount))
- ('down (cl-incf (cadr (alist-get 'translate transform)) amount)))
+ ('up (cl-decf (second (alist-get 'translate transform)) amount))
+ ('down (cl-incf (second (alist-get 'translate transform)) amount)))
(dom-set-attribute object-def
'transform
(sketch-format-transfrom-value transform))
@@ -1298,7 +1307,7 @@ then insert a relative link, otherwise insert an absolute
link."
;; (if-let (buf (get-buffer"*sketch-root*"))
;; (sketch-update-lisp-window sketch-root buf)
;; (sketch-update-lisp-window lisp lisp-buffer
- ;; (setq sketch-root (append (seq-subseq sketch-root 0 2) (list (nth (car
show-layers) svg-layers
+ ;; (setq sketch-root (append (cl-subseq sketch-root 0 2) (list (nth (car
show-layers) svg-layers
;; (dolist (layer (cdr show-layers))
;; (setq sketch-root (append sketch-root (list (nth layer svg-layers)
;; (setq sketch-svg (append svg-canvas
[elpa] externals/sketch-mode updated (984aad2 -> 57742a0)
elpasync pushed a change to branch externals/sketch-mode. from 984aad2 Fix image crop new 92efd0b Add quick insert image feature new 57742a0 Fix: really fix crop Summary of changes: sketch-mode.el | 29 + 1 file changed, 21 insertions(+), 8 deletions(-)
[elpa] externals/sketch-mode 92efd0b 1/2: Add quick insert image feature
branch: externals/sketch-mode
commit 92efd0b47b7ade696921279f44ef31d308e9aa72
Author: Daniel Nicolai
Commit: Daniel Nicolai
Add quick insert image feature
---
sketch-mode.el | 17 +++--
1 file changed, 15 insertions(+), 2 deletions(-)
diff --git a/sketch-mode.el b/sketch-mode.el
index 9ba6867..0d879be 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -305,8 +305,8 @@ Optionally set a custom GRID-PARAMETER (default is value of
With prefix ARG, create sketch using default (customizable)
values"
(interactive "P")
- ;; (setq max-mini-window-height 2)
- (let ((buffer (get-buffer "*sketch*")))
+ (let ((call-buffer (current-buffer))
+(buffer (get-buffer "*sketch*")))
(if buffer
(progn (switch-to-buffer buffer)
(call-interactively 'sketch-transient))
@@ -315,6 +315,7 @@ values"
(switch-to-buffer (get-buffer-create "*sketch*"))
(setq grid-param (if arg 25 (read-number "Enter grid parameter (enter
0 for no grid): ")))
(sketch--create-canvas width height grid-param))
+ (setq-local call-buffer call-buffer)
(sketch-mode)
(call-interactively 'sketch-transient
@@ -482,6 +483,8 @@ else return nil"
("S" "Save image" sketch-save)]
[("b" "Insert image to buffer" sketch-insert-image-to-buffer
:transient transient--do-exit)
+("I" "Insert image to buffer" sketch-quick-insert-image
+ :transient transient--do-exit)
("q" "Quit transient" transient-quit-one)]])
(transient-define-infix sketch-object ()
@@ -1073,6 +1076,16 @@ then insert a relative link, otherwise insert an
absolute link."
(concat "./" (file-name-nondirectory file))
file)
+(transient-define-suffix sketch-quick-insert-image (&optional
insert-at-end-of-file)
+ (interactive "P")
+ (let ((insert-buffer call-buffer))
+(kill-buffer "*sketch*")
+(switch-to-buffer insert-buffer)
+(when insert-at-end-of-file
+ (goto-char (point-max))
+ (unless (= (current-column) 0)
+(newline)))
+(insert-image (svg-image sketch-svg
;;; Modify object
[elpa] externals/sketch-mode 57742a0 2/2: Fix: really fix crop
branch: externals/sketch-mode
commit 57742a012cc0f1aa38870ef5181eba39f8ed7979
Author: Daniel Nicolai
Commit: Daniel Nicolai
Fix: really fix crop
---
sketch-mode.el | 12 ++--
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/sketch-mode.el b/sketch-mode.el
index 0d879be..a06ff81 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -665,17 +665,17 @@ else return nil"
;; (dolist (coord args node)
;; (cl-decf (alist-get coord (cadr node)) amount)))
-(defun sketch--svg-translate (dx dy)
+(defun sketch--svg-translate (dx dy &optional object-def)
(interactive)
(let ((transform (sketch-parse-transform-value
-(dom-attr sketch-root
+(dom-attr object-def
'transform
(cl-decf (first (alist-get 'translate transform)) dx)
(cl-decf (second (alist-get 'translate transform)) dy)
-(dom-set-attribute sketch-root
+(dom-set-attribute object-def
'transform
- (sketch-format-transfrom-value transform)))
- (sketch-redraw))
+ (sketch-format-transfrom-value transform
+
;; (mapcar (lambda (node)
;; (pcase (dom-tag node)
;; ('line (sketch-translate-node-coords node dx 'x1 'x2)
@@ -1031,7 +1031,7 @@ that should be added to the image. Initial value: (0)"
(setq svg-canvas (svg-create new-width new-height :stroke "gray"))
(svg-marker svg-canvas "arrow" 8 8 "black" t)
(svg-rectangle svg-canvas 0 0 new-width new-height :fill "white")
-(setq sketch-root (sketch--svg-translate (car start-coords) (cdr
start-coords)))
+(sketch--svg-translate (car start-coords) (cdr start-coords) sketch-root)
(sketch-redraw)))
(defun sketch-image (svg &rest props)
[nongnu] elpa/git-commit ece2cb8 1/2: git-commit-setup: Enable mode after setting local variables
branch: elpa/git-commit commit ece2cb84dd31aa967ef37a0d8bc2293c1c52db87 Author: Jonas Bernoulli Commit: Jonas Bernoulli git-commit-setup: Enable mode after setting local variables Otherwise all non-permanent variables would get reset. --- lisp/git-commit.el | 22 +++--- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/git-commit.el b/lisp/git-commit.el index 6064ce8..3d08144 100644 --- a/lisp/git-commit.el +++ b/lisp/git-commit.el @@ -500,6 +500,17 @@ to recover older messages") ;; That library declares this functions without loading ;; magit-process.el, which defines it. (require 'magit-process nil t)) + (when git-commit-major-mode +(let ((auto-mode-alist (list (cons (concat "\\`" + (regexp-quote buffer-file-name) + "\\'") + git-commit-major-mode))) + ;; The major-mode hook might want to consult these minor + ;; modes, while the minor-mode hooks might want to consider + ;; the major mode. + (git-commit-mode t) + (with-editor-mode t)) + (normal-mode t))) ;; Pretend that git-commit-mode is a major-mode, ;; so that directory-local settings can be used. (let ((default-directory @@ -516,17 +527,6 @@ to recover older messages") (major-mode 'git-commit-mode)) ; trick dir-locals-collect-variables (hack-dir-local-variables) (hack-local-variables-apply))) - (when git-commit-major-mode -(let ((auto-mode-alist (list (cons (concat "\\`" - (regexp-quote buffer-file-name) - "\\'") - git-commit-major-mode))) - ;; The major-mode hook might want to consult these minor - ;; modes, while the minor-mode hooks might want to consider - ;; the major mode. - (git-commit-mode t) - (with-editor-mode t)) - (normal-mode t))) ;; Show our own message using our hook. (setq with-editor-show-usage nil) (setq with-editor-usage-message git-commit-usage-message)
[nongnu] elpa/git-commit f805f6a 2/2: git-commit-use-local-message-ring: New option
branch: elpa/git-commit commit f805f6a7720aeb894e9a58f0b36769ebdb53dd7c Author: Jonas Bernoulli Commit: Jonas Bernoulli git-commit-use-local-message-ring: New option Closes #4503. --- lisp/git-commit.el | 23 +-- 1 file changed, 21 insertions(+), 2 deletions(-) diff --git a/lisp/git-commit.el b/lisp/git-commit.el index 3d08144..9bd14fa 100644 --- a/lisp/git-commit.el +++ b/lisp/git-commit.el @@ -306,6 +306,14 @@ already using it, then you probably shouldn't start doing so." :safe (lambda (val) (and (listp val) (-all-p 'stringp val))) :type '(repeat string)) +(defcustom git-commit-use-local-message-ring nil + "Whether to use a local message ring instead of the global one. +This can be set globally, in which case every repository gets its +own commit message ring, or locally for a single repository." + :group 'git-commit + :safe 'booleanp + :type 'boolean) + Faces (defgroup git-commit-faces nil @@ -555,9 +563,9 @@ to recover older messages") (magit-wip-maybe-add-commit-hook))) (setq with-editor-cancel-message 'git-commit-cancel-message) - (make-local-variable 'log-edit-comment-ring-index) (git-commit-mode 1) (git-commit-setup-font-lock) + (git-commit-prepare-message-ring) (when (boundp 'save-place) (setq save-place nil)) (save-excursion @@ -705,7 +713,18 @@ With a numeric prefix ARG, go forward ARG comments." (when-let ((message (git-commit-buffer-message))) (when-let ((index (ring-member log-edit-comment-ring message))) (ring-remove log-edit-comment-ring index)) -(ring-insert log-edit-comment-ring message))) +(ring-insert log-edit-comment-ring message) +(when git-commit-use-local-message-ring + (magit-repository-local-set 'log-edit-comment-ring + log-edit-comment-ring + +(defun git-commit-prepare-message-ring () + (make-local-variable 'log-edit-comment-ring-index) + (when git-commit-use-local-message-ring +(setq-local log-edit-comment-ring +(magit-repository-local-get + 'log-edit-comment-ring + (make-ring log-edit-maximum-comment-ring-size) (defun git-commit-buffer-message () (let ((flush (concat "^" comment-start))
[nongnu] elpa/magit-section updated (6813128 -> f805f6a)
elpasync pushed a change to branch elpa/magit-section. from 6813128 magit-process-git-credential-manager-core: Protect doc-string quotes adds ece2cb8 git-commit-setup: Enable mode after setting local variables adds f805f6a git-commit-use-local-message-ring: New option No new revisions were added by this update. Summary of changes: lisp/git-commit.el | 45 - 1 file changed, 32 insertions(+), 13 deletions(-)
[elpa] externals/vc-got cb2c391: add elpa badge in the readme
branch: externals/vc-got commit cb2c391069cbb23eef0fc0aafde278b3da2e9cda Author: Omar Polo Commit: Omar Polo add elpa badge in the readme --- README.md | 2 ++ 1 file changed, 2 insertions(+) diff --git a/README.md b/README.md index 0497dd8..b6bd648 100644 --- a/README.md +++ b/README.md @@ -1,5 +1,7 @@ # vc-got +[][elpa] + This is an Emacs VC back-end for the [Game of Tree](http://gameoftrees.org/) version control system
[nongnu] elpa/git-commit updated (6813128 -> f805f6a)
elpasync pushed a change to branch elpa/git-commit. from 6813128 magit-process-git-credential-manager-core: Protect doc-string quotes new ece2cb8 git-commit-setup: Enable mode after setting local variables new f805f6a git-commit-use-local-message-ring: New option Summary of changes: lisp/git-commit.el | 45 - 1 file changed, 32 insertions(+), 13 deletions(-)
[nongnu] elpa/magit updated (6813128 -> f805f6a)
elpasync pushed a change to branch elpa/magit. from 6813128 magit-process-git-credential-manager-core: Protect doc-string quotes adds ece2cb8 git-commit-setup: Enable mode after setting local variables adds f805f6a git-commit-use-local-message-ring: New option No new revisions were added by this update. Summary of changes: lisp/git-commit.el | 45 - 1 file changed, 32 insertions(+), 13 deletions(-)
[nongnu] elpa/geiser-kawa 5896b19 2/2: fix: avoid exception when autodoc is asked for non-symbols
branch: elpa/geiser-kawa
commit 5896b19642923f74f718eb68d447560b2d26d797
Author: spellcard199
Commit: spellcard199
fix: avoid exception when autodoc is asked for non-symbols
---
src/main/java/kawageiser/GeiserAutodoc.java | 10 ++
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/src/main/java/kawageiser/GeiserAutodoc.java
b/src/main/java/kawageiser/GeiserAutodoc.java
index 86a32a2..3ec6022 100644
--- a/src/main/java/kawageiser/GeiserAutodoc.java
+++ b/src/main/java/kawageiser/GeiserAutodoc.java
@@ -73,10 +73,12 @@ public class GeiserAutodoc {
String formattedAutodoc = null;
try {
ArrayList autodocList = new ArrayList<>();
-for (Object symId : (LList) ids) {
-AutodocDataForSymId autodocDataForSymId =
-new AutodocDataForSymId((Symbol) symId, env, lang);
-autodocList.add(autodocDataForSymId.toLList());
+for (Object autodocQuery : (LList) ids) {
+// Currently autodoc is only supported for symbols.
+if (Symbol.class.isAssignableFrom(autodocQuery.getClass())) {
+AutodocDataForSymId autodocDataForSymId = new
AutodocDataForSymId((Symbol) autodocQuery, env, lang);
+autodocList.add(autodocDataForSymId.toLList());
+}
}
formattedAutodoc = Format
.format("~S", LList.makeList(autodocList))
[nongnu] elpa/geiser-kawa updated (3d999a3 -> 5896b19)
elpasync pushed a change to branch elpa/geiser-kawa. from 3d999a3 README.org - update Geiser's repo url after new repo new 6b2187d fix: completion with company-mode. new 5896b19 fix: avoid exception when autodoc is asked for non-symbols Summary of changes: src/main/java/kawageiser/GeiserAutodoc.java| 10 ++ src/main/java/kawageiser/GeiserCompleteSymbol.java | 8 ++-- 2 files changed, 12 insertions(+), 6 deletions(-)
[nongnu] elpa/geiser-kawa 6b2187d 1/2: fix: completion with company-mode.
branch: elpa/geiser-kawa
commit 6b2187d696b90f01e83cdeaaf81f68de5309c44a
Author: spellcard199
Commit: spellcard199
fix: completion with company-mode.
geiser:completions used to return a list of symbols, which works fine with
completion-at-point, but company-mode wants a list of strings, which is what
geiser:completions returns now.
---
src/main/java/kawageiser/GeiserCompleteSymbol.java | 8 ++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/src/main/java/kawageiser/GeiserCompleteSymbol.java
b/src/main/java/kawageiser/GeiserCompleteSymbol.java
index 979c910..ce6b73d 100644
--- a/src/main/java/kawageiser/GeiserCompleteSymbol.java
+++ b/src/main/java/kawageiser/GeiserCompleteSymbol.java
@@ -6,6 +6,7 @@
package kawageiser;
+import gnu.kawa.functions.Format;
import gnu.lists.IString;
import gnu.lists.LList;
import gnu.mapping.Environment;
@@ -20,13 +21,16 @@ public class GeiserCompleteSymbol {
}
public static LList getCompletions(IString prefix, Environment env) {
-ArrayList resultArrList = new ArrayList<>();
+ArrayList resultArrList = new ArrayList<>();
env.enumerateAllLocations().forEachRemaining(
loc -> {
Symbol sym = loc.getKeySymbol();
String symName = sym.getName();
if (symName.contains(prefix)) {
-resultArrList.add(sym);
+// Emacs' completion-at-point works fine with a list
of symbols,
+// but completion through company-mode works only if
we display a list
+// of strings, each delimited by double-quotes.
+resultArrList.add(Format.formatToString(0, "~S",
symName));
}
}
);
[elpa] externals/sketch-mode 86c7202: Quick insert image as overlay over xml
branch: externals/sketch-mode commit 86c72029ef8c2b5ce22ff10e4d4f582f73931c60 Author: Daniel Nicolai Commit: Daniel Nicolai Quick insert image as overlay over xml The suggestion is to use a new type of org block, and image block. On the other hand, it would be nice that when the image is toggled, that the source xml gets formatted like in a xml source block. --- sketch-mode.el | 23 +++ 1 file changed, 19 insertions(+), 4 deletions(-) diff --git a/sketch-mode.el b/sketch-mode.el index a06ff81..f89cc00 100644 --- a/sketch-mode.el +++ b/sketch-mode.el @@ -248,7 +248,7 @@ VEC should be a cons or a list containing only number elements." (abs (/ (- (car end-coords) (car start-coords)) 2)) (abs (/ (- (cdr end-coords) (cdr start-coords)) 2 -(defvar sketch-svg) +(defvar-local sketch-svg nil) (defvar-local svg-canvas nil) (defvar-local sketch-grid nil) (defvar-local sketch-root nil) @@ -298,6 +298,7 @@ Optionally set a custom GRID-PARAMETER (default is value of (defvar-local sketch-elements nil) (defvar-local grid-param 25) (defvar-local active-layer 0) +(defvar-local call-buffer nil) ;;;###autoload (defun sketch (arg) @@ -315,7 +316,7 @@ values" (switch-to-buffer (get-buffer-create "*sketch*")) (setq grid-param (if arg 25 (read-number "Enter grid parameter (enter 0 for no grid): "))) (sketch--create-canvas width height grid-param)) - (setq-local call-buffer call-buffer) + (setq call-buffer call-buffer) (sketch-mode) (call-interactively 'sketch-transient @@ -1077,15 +1078,29 @@ then insert a relative link, otherwise insert an absolute link." file) (transient-define-suffix sketch-quick-insert-image (&optional insert-at-end-of-file) + "Insert image at point as overlay wrapped in org image block. +The image overlay is created over the inserted xml +definition and is wrapped inside an image block (not yet +supported by org-mode). When INSERT-AT-END-OF-FILE is non-nil +then insert the image at the end" (interactive "P") - (let ((insert-buffer call-buffer)) + (let ((insert-buffer call-buffer) +(image-def sketch-svg)) (kill-buffer "*sketch*") (switch-to-buffer insert-buffer) (when insert-at-end-of-file (goto-char (point-max)) (unless (= (current-column) 0) (newline))) -(insert-image (svg-image sketch-svg +(insert "#+BEGIN_IMAGE\n") +(let* ((image (svg-image image-def)) + (data (image-property image :data))) + (insert-image image (with-temp-buffer +(insert data) +(let ((bounds (bounds-of-thing-at-point 'line))) + (sgml-pretty-print (car bounds) (cdr bounds))) +(buffer-string))) + (insert "\n#+END_IMAGE" ;;; Modify object
[elpa] externals/sketch-mode 1ac6863: Update README with info about quick insert image
branch: externals/sketch-mode commit 1ac68631b1db064840e93ab762967237a55db699 Author: Daniel Nicolai Commit: Daniel Nicolai Update README with info about quick insert image --- README.org | 3 +++ 1 file changed, 3 insertions(+) diff --git a/README.org b/README.org index 43bc237..f417424 100644 --- a/README.org +++ b/README.org @@ -20,6 +20,7 @@ - snap to grid - draw text - crop finale image + - quickly insert image + definition into (org-mode) buffer - set stroke, fill, width etc. - show dom (lisp) in other window - draw angle arcs (between lines, available soon, I hope. See @@ -94,6 +95,8 @@ package, the usage is more or less self explanatory, it is wise to take note of the following comments: + - use =I= to quickly insert the xml-definition into the (org-mode) buffer from +which sketch-mode was called and create the image as an overlay. - to remove an object (without using undo), you should toggle labels by pressing =l=, and then to remove an object enter its label after pressing =R=.
[elpa] externals/ivy-posframe 61ff941: Fix: ivy-posframe disappear in a flash after ivy-posframe-avy #114
branch: externals/ivy-posframe commit 61ff9418493159001f096ea3a9441093a8951629 Author: Feng Shu Commit: Feng Shu Fix: ivy-posframe disappear in a flash after ivy-posframe-avy #114 --- ivy-posframe.el | 6 +- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/ivy-posframe.el b/ivy-posframe.el index 030662f..7b17cad 100644 --- a/ivy-posframe.el +++ b/ivy-posframe.el @@ -292,7 +292,11 @@ This variable is useful for `ivy-posframe-read-action' .") (defun ivy-posframe-hidehandler (_) "Hidehandler used by ivy-posframe." - (not (minibufferp))) + (and (not (minibufferp)) + ;; Note: when run ivy-avy, buffer will be temp changed, make + ;; sure do not autohide posframe at this situation. + ;; More detail: https://github.com/tumashu/ivy-posframe/issues/114 + (not (equal (current-buffer) (window-buffer (ivy-posframe--window)) (defun ivy-posframe-get-size () "The default functon used by `ivy-posframe-size-function'."
[elpa] externals/csharp-mode 1b8eb08 1/2: Migrate from deprecated install-method to safer Git-based approach
branch: externals/csharp-mode commit 1b8eb08dc8dc6c9d6d63a0661be96f1de489a3ba Author: Jostein Kjønigsen Commit: Jostein Kjønigsen Migrate from deprecated install-method to safer Git-based approach --- .github/workflows/build.yml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/.github/workflows/build.yml b/.github/workflows/build.yml index 190c458..f0314a5 100644 --- a/.github/workflows/build.yml +++ b/.github/workflows/build.yml @@ -30,7 +30,8 @@ jobs: - name: Install cask run: | - curl -fsSL https://raw.githubusercontent.com/cask/cask/master/go | python + git clone https://github.com/cask/cask ~/.cask + PATH=$HOME/.cask/bin:$PATH cask - name: Run a multi-line script
[elpa] externals/csharp-mode 8b98e8e 2/2: Merge pull request #246 from emacs-csharp/feature/cask-go-deprecation-fix
branch: externals/csharp-mode commit 8b98e8e27e8d11171d035b95b55a4d36935bbe65 Merge: fe8a68e 1b8eb08 Author: Jostein Kjønigsen Commit: GitHub Merge pull request #246 from emacs-csharp/feature/cask-go-deprecation-fix Migrate from deprecated install-method to safer Git-based approach --- .github/workflows/build.yml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/.github/workflows/build.yml b/.github/workflows/build.yml index 190c458..f0314a5 100644 --- a/.github/workflows/build.yml +++ b/.github/workflows/build.yml @@ -30,7 +30,8 @@ jobs: - name: Install cask run: | - curl -fsSL https://raw.githubusercontent.com/cask/cask/master/go | python + git clone https://github.com/cask/cask ~/.cask + PATH=$HOME/.cask/bin:$PATH cask - name: Run a multi-line script
