branch: elpa/casual
commit 269c57f40452526847fd2d875d1e3a83af365751
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Add `quick-calc` and `shell-command` to the main EditKit menu.
- Added `quick-calc` and `shell-command` to `casual-editkit-main-tmenu`.
- Updated screenshot.
---
docs/images/casual-editkit-main-screenshot.png | Bin 289943 -> 317764 bytes
lisp/casual-editkit.el | 2 ++
tests/test-casual-editkit.el | 7 +++++++
3 files changed, 9 insertions(+)
diff --git a/docs/images/casual-editkit-main-screenshot.png
b/docs/images/casual-editkit-main-screenshot.png
index 26fa834797..694b7e1b53 100644
Binary files a/docs/images/casual-editkit-main-screenshot.png and
b/docs/images/casual-editkit-main-screenshot.png differ
diff --git a/lisp/casual-editkit.el b/lisp/casual-editkit.el
index 4c2c546237..cffa1f80b7 100644
--- a/lisp/casual-editkit.el
+++ b/lisp/casual-editkit.el
@@ -85,6 +85,8 @@ user-customized menu."
("T" "Tools›" casual-editkit-tools-tmenu)
("a" "Org Agenda" org-agenda)
("C" "Compile…" compile)
+ ("*" "Quick Calc…" quick-calc)
+ ("!" "Shell Command…" shell-command)
("g" "Magit Status" casual-editkit-select-magit-command
:description casual-editkit-select-magit-command-description
:if (lambda ()
diff --git a/tests/test-casual-editkit.el b/tests/test-casual-editkit.el
index fd175b3445..fe410d8d22 100644
--- a/tests/test-casual-editkit.el
+++ b/tests/test-casual-editkit.el
@@ -49,6 +49,11 @@
(casualt-mock #'kill-sexp)
(casualt-mock #'transpose-sexps)
+ (casualt-mock #'org-agenda)
+ (casualt-mock #'compile)
+ (casualt-mock #'quick-calc)
+ (casualt-mock #'shell-command)
+
(casualt-mock #'make-frame-command)
(casualt-mock #'undo)
(casualt-mock #'save-buffers-kill-emacs))
@@ -76,6 +81,8 @@
(:binding "T" :command casual-editkit-tools-tmenu)
(:binding "a" :command org-agenda)
(:binding "C" :command compile)
+ (:binding "*" :command quick-calc)
+ (:binding "!" :command shell-command)
(:binding "g" :command casual-editkit-select-magit-command)
(:binding "h" :command casual-editkit-symbol-overlay-put)
