branch: elpa/casual
commit 40bed20357c6842a30ce1a3d99d4897850b0eb4c
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Add modulo to casual-calc-tmenu
- Adds modulo operator (aka mod) to `casual-calc-tmenu` bound to "M".
Note "M" is used in place of menus (particularly financial) which use "%" to
calculate a percentage. The rationale is that for casual use, binding "%" to
percentage is more desired and consistent with physical basic calculators.
For menus with scientific functions, "%" is bound to the modulo operator.
---
docs/images/casual-calc-tmenu.png | Bin 326986 -> 290290 bytes
lisp/casual-calc-utils.el | 3 ++-
tests/test-casual-calc.el | 5 +++++
3 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/docs/images/casual-calc-tmenu.png
b/docs/images/casual-calc-tmenu.png
index ae37bd28f9..c7df77b654 100644
Binary files a/docs/images/casual-calc-tmenu.png and
b/docs/images/casual-calc-tmenu.png differ
diff --git a/lisp/casual-calc-utils.el b/lisp/casual-calc-utils.el
index 4eef9ff4c3..7fc4376894 100644
--- a/lisp/casual-calc-utils.el
+++ b/lisp/casual-calc-utils.el
@@ -144,7 +144,8 @@ Invokes command `calc-roll-down'."
("+" "add" casual-calc--plus :transient t)
("-" "sub" casual-calc--minus :transient t)
("*" "mul" casual-calc--times :transient t)
- ("/" "div" casual-calc--divide :transient t)])
+ ("/" "div" casual-calc--divide :transient t)
+ ("M" "mod" casual-calc--mod :transient t)])
(transient-define-group casual-calc-navigation-group
[:class transient-row
diff --git a/tests/test-casual-calc.el b/tests/test-casual-calc.el
index 123617137c..93ae5b5108 100644
--- a/tests/test-casual-calc.el
+++ b/tests/test-casual-calc.el
@@ -61,6 +61,11 @@
("D" . casual-calc--percent-change)
("p" . casual-calc--pi)
("e" . casual-calc--e-constant)
+ ("+" . casual-calc--plus)
+ ("-" . casual-calc--minus)
+ ("*" . casual-calc--times)
+ ("/" . casual-calc--divide)
+ ("M" . casual-calc--mod)
("m" . casual-calc-modes-tmenu)
("S" . casual-calc-stack-display-tmenu)
("รด" . casual-calc-trail-tmenu)
