branch: elpa/casual
commit 66cd392a2158661de1da6acad1b11cbcad83a02e
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Add support for Electric Quote Mode
- Adds support for electric-quote-mode in casual-editkit-emoji-symbol-tmenu.
---
docs/editkit.org | 2 +-
.../casual-editkit-emoji-symbols-screenshot.png | Bin 143252 -> 147538 bytes
lisp/casual-editkit-utils.el | 8 +++++++-
tests/test-casual-editkit-utils.el | 4 +++-
4 files changed, 11 insertions(+), 3 deletions(-)
diff --git a/docs/editkit.org b/docs/editkit.org
index 7de190f0dc..7c24d640e7 100644
--- a/docs/editkit.org
+++ b/docs/editkit.org
@@ -158,7 +158,7 @@ Commands edit, add, or jump to a bookmark are captured in
this menu.
** Emoji & Symbol Insertion (~casual-editkit-emoji-symbol-tmenu~)
-Insert emoji and symbol characters with this menu. Smart quotes are also
supported by this menu and can be applied to a text region.
+Insert emoji and symbol characters with this menu. Smart quotes are also
supported by this menu and can be applied to a text region. This menu also
offers the command ~electric-quote-mode~ which is bound to ~Q~.w
[[file:images/casual-editkit-emoji-symbols-screenshot.png]]
diff --git a/docs/images/casual-editkit-emoji-symbols-screenshot.png
b/docs/images/casual-editkit-emoji-symbols-screenshot.png
index 44b22e588c..e75940a853 100644
Binary files a/docs/images/casual-editkit-emoji-symbols-screenshot.png and
b/docs/images/casual-editkit-emoji-symbols-screenshot.png differ
diff --git a/lisp/casual-editkit-utils.el b/lisp/casual-editkit-utils.el
index 5e2fc56f19..c19d0f1150 100644
--- a/lisp/casual-editkit-utils.el
+++ b/lisp/casual-editkit-utils.el
@@ -29,6 +29,7 @@
(require 'simple)
(require 'text-mode)
(require 'tabify)
+(require 'electric)
(require 'casual-editkit-constants)
(require 'casual-editkit-settings)
@@ -270,7 +271,12 @@ inserting common miscellaneous symbols."
("\"" "“double”" casual-editkit-smart-double-quote-dwim)
("_" "„low”" casual-editkit-smart-low-quote-dwim)
("c" "«comillas»" casual-editkit-smart-comillas-quote-dwim)
- ("a" "’" (lambda () (interactive) (insert "’")))]
+ ("a" "’" (lambda () (interactive) (insert "’")))
+ ("Q" "Electric Quote"
+ electric-quote-mode
+ :description
+ (lambda () (casual-lib-checkbox-label
+ electric-quote-mode "Electric Quote")))]
["Misc"
:class transient-row
diff --git a/tests/test-casual-editkit-utils.el
b/tests/test-casual-editkit-utils.el
index 504cef3f50..5268f88fce 100644
--- a/tests/test-casual-editkit-utils.el
+++ b/tests/test-casual-editkit-utils.el
@@ -142,7 +142,8 @@
(let ((tmpfile "casual-editkit-emoji-symbols-tmenu.txt"))
(casualt-editkit-setup tmpfile)
(emacs-lisp-mode)
- (cl-letf ((casualt-mock #'emoji-search))
+ (cl-letf ((casualt-mock #'emoji-search)
+ (casualt-mock #'electric-quote-mode))
(let ((test-vectors
'((:binding "e😀" :command emoji-search)
(:binding "l" :command emoji-list)
@@ -154,6 +155,7 @@
(:binding "\"" :command casual-editkit-smart-double-quote-dwim)
(:binding "_" :command casual-editkit-smart-low-quote-dwim)
(:binding "c" :command casual-editkit-smart-comillas-quote-dwim)
+ (:binding "Q" :command electric-quote-mode)
;;(:binding "i" :command insert-char)
)))
