branch: elpa/casual
commit f19f3a477e3f3dc23019ecdc6799d26ebd107b84
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Add Em and En dashes
* lisp/casual-editkit-utils.el:
(casual-editkit-emoji-symbols-tmenu): Create "Dash" group to support
different
types of dashes (En, Em, Non-breaking, and Soft). Also add docstrings for
lambda
functions.
* docs/images/casual-editkit-emoji-symbols-screenshot.png: Updated image.
* docs/casual.org: Bump version.
---
docs/casual.info | Bin 139918 -> 139918 bytes
docs/casual.org | 2 +-
docs/casual.texi | 4 +-
.../casual-editkit-emoji-symbols-screenshot.png | Bin 65133 -> 73815 bytes
lisp/casual-editkit-utils.el | 42 +++++++++++++++------
5 files changed, 34 insertions(+), 14 deletions(-)
diff --git a/docs/casual.info b/docs/casual.info
index 86218c125b..4b1f8889ea 100644
Binary files a/docs/casual.info and b/docs/casual.info differ
diff --git a/docs/casual.org b/docs/casual.org
index 802901ecdb..1ed82fcee6 100644
--- a/docs/casual.org
+++ b/docs/casual.org
@@ -5,7 +5,7 @@
#+EMAIL: [email protected]
#+OPTIONS: ':t toc:t author:t email:t H:4 f:t
#+LANGUAGE: en
-#+MACRO: version 2.10.1
+#+MACRO: version 2.10.2
#+MACRO: kbd (eval (org-texinfo-kbd-macro $1))
#+TEXINFO_FILENAME: casual.info
#+TEXINFO_CLASS: casual
diff --git a/docs/casual.texi b/docs/casual.texi
index abf4de05b1..928a0c44ea 100644
--- a/docs/casual.texi
+++ b/docs/casual.texi
@@ -20,7 +20,7 @@ Copyright © 2024-2025 Charles Y@. Choi
@finalout
@titlepage
@title Casual User Guide
-@subtitle for version 2.10.1
+@subtitle for version 2.10.2
@author Charles Y@. Choi (@email{kickingvegas@@gmail.com})
@page
@vskip 0pt plus 1filll
@@ -33,7 +33,7 @@ Copyright © 2024-2025 Charles Y@. Choi
@node Top
@top Casual User Guide
-Version: 2.10.1
+Version: 2.10.2
Casual is a project to re-imagine the primary user interface for Emacs using
keyboard-driven menus.
diff --git a/docs/images/casual-editkit-emoji-symbols-screenshot.png
b/docs/images/casual-editkit-emoji-symbols-screenshot.png
index 29b913af4c..538ae0b733 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 a93e0ae027..adab6e0e1b 100644
--- a/lisp/casual-editkit-utils.el
+++ b/lisp/casual-editkit-utils.el
@@ -279,19 +279,39 @@ inserting common miscellaneous symbols."
(lambda () (casual-lib-checkbox-label
electric-quote-mode "Electric Quote")))]
+ ["Dash (—)"
+ :class transient-row
+ ("En" "(–)" (lambda () "Insert En dash."
+ (interactive) (insert "–")))
+ ("Em" "(—)" (lambda () "Insert Em dash."
+ (interactive) (insert "—")))
+ ("Eb" "Non-breaking (‑)" (lambda () "Insert non-breaking hyphen."
+ (interactive) (insert "‑")))
+ ("Es" "Soft ()" (lambda () "Insert soft hyphen."
+ (interactive) (insert "")))]
+
["Misc"
:class transient-row
- ("." "…" (lambda () (interactive) (insert "…")))
- ("b" "•" (lambda () (interactive) (insert "•")))
- ("m" "—" (lambda () (interactive) (insert "—")))
- ("o" "°" (lambda () (interactive) (insert "°")))
- ("/" "¿" (lambda () (interactive) (insert "¿")))
- ("!" "¡" (lambda () (interactive) (insert "¡")))
- ("p" "¶" (lambda () (interactive) (insert "¶")))
- ("s" "§" (lambda () (interactive) (insert "§")))
- ("C" "©" (lambda () (interactive) (insert "©")))
- ("r" "®" (lambda () (interactive) (insert "®")))
- ("t" "™" (lambda () (interactive) (insert "™")))]
+ ("." "…" (lambda () "Insert ellipsis."
+ (interactive) (insert "…")))
+ ("b" "•" (lambda () "Insert bullet."
+ (interactive) (insert "•")))
+ ("o" "°" (lambda () "Insert degree."
+ (interactive) (insert "°")))
+ ("/" "¿" (lambda () "Insert inverted question mark."
+ (interactive) (insert "¿")))
+ ("!" "¡" (lambda () "Insert inverted exclamation mark."
+ (interactive) (insert "¡")))
+ ("p" "¶" (lambda () "Insert pilcrow (paragraph) sign."
+ (interactive) (insert "¶")))
+ ("s" "§" (lambda () "Insert section sign."
+ (interactive) (insert "§")))
+ ("C" "©" (lambda () "Insert copyright sign."
+ (interactive) (insert "©")))
+ ("r" "®" (lambda () "Insert registered sign."
+ (interactive) (insert "®")))
+ ("t" "™" (lambda () "Insert trademark sign."
+ (interactive) (insert "™")))]
[:class transient-row
(casual-lib-quit-one)
