branch: elpa/casual
commit fc96fd11a59f754166d1c11056e40c22c2987c71
Merge: 72126c3fae 9bb9540566
Author: Charles Choi <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #96 from
kickingvegas/merge-development-to-main-20241125_173209
Merge development to main 20241125_173209
---
docs/images/casual-calendar-screenshot.png | Bin 445243 -> 463748 bytes
lisp/casual-calendar.el | 5 +++++
lisp/casual.el | 2 +-
tests/test-casual-calendar.el | 6 +++++-
4 files changed, 11 insertions(+), 2 deletions(-)
diff --git a/docs/images/casual-calendar-screenshot.png
b/docs/images/casual-calendar-screenshot.png
index 2b4ae27d8c..dcd091d3bb 100644
Binary files a/docs/images/casual-calendar-screenshot.png and
b/docs/images/casual-calendar-screenshot.png differ
diff --git a/lisp/casual-calendar.el b/lisp/casual-calendar.el
index 7a3c604e2a..ff55cd417f 100644
--- a/lisp/casual-calendar.el
+++ b/lisp/casual-calendar.el
@@ -86,6 +86,11 @@ Main menu for `calendar' commands.
:description (lambda () (format "%s Month" (casual-calendar-unicode-get
:sunrise)))
:transient t)]]
+ ["Region"
+ :class transient-row
+ ("C-SPC" "Set Mark" calendar-set-mark :transient t)
+ ("=" "Count Days" calendar-count-days-region :transient t)]
+
[:class transient-row
(casual-lib-quit-one)
("RET" "Dismiss" transient-quit-all)
diff --git a/lisp/casual.el b/lisp/casual.el
index 5f43873e65..68e360eab5 100644
--- a/lisp/casual.el
+++ b/lisp/casual.el
@@ -5,7 +5,7 @@
;; Author: Charles Choi <[email protected]>
;; URL: https://github.com/kickingvegas/casual
;; Keywords: tools, wp
-;; Version: 2.2.1
+;; Version: 2.2.2-rc.1
;; Package-Requires: ((emacs "29.1") (transient "0.6.0"))
;; This program is free software; you can redistribute it and/or modify
diff --git a/tests/test-casual-calendar.el b/tests/test-casual-calendar.el
index be2593ab83..f505ca3afa 100644
--- a/tests/test-casual-calendar.el
+++ b/tests/test-casual-calendar.el
@@ -74,6 +74,8 @@
(casualt-mock #'calendar-lunar-phases)
(casualt-mock #'calendar-sunrise-sunset)
(casualt-mock #'calendar-sunrise-sunset-month)
+ (casualt-mock #'calendar-set-mark)
+ (casualt-mock #'calendar-count-days-region)
(casualt-mock #'calendar-exit))
@@ -119,7 +121,9 @@
(:binding "s" :command diary-show-all-entries)
(:binding "M" :command calendar-lunar-phases)
(:binding "S" :command calendar-sunrise-sunset)
- (:binding "M-m" :command calendar-sunrise-sunset-month))))
+ (:binding "M-m" :command calendar-sunrise-sunset-month)
+ (:binding "C-SPC" :command calendar-set-mark)
+ (:binding "=" :command calendar-count-days-region))))
(casualt-suffix-testcase-runner test-vectors
#'casual-calendar-tmenu
