branch: elpa/casual
commit 4fcb55a622d8d1b6ff7e3a9c0f5f20b18f024a1c
Merge: bda66b2616 40bed20357
Author: Charles Choi <[email protected]>
Commit: GitHub <[email protected]>

    Merge pull request #242 from kickingvegas/235-add-mod-to-calc-main-menu
    
    Add modulo to casual-calc-tmenu
---
 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)

Reply via email to