branch: elpa/casual
commit 9bb95405661302d716ba644584b8cfb428a4f325
Merge: 20851efc1a 3cc73f343e
Author: Charles Choi <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #95 from
kickingvegas/94-add-support-for-calendar-count-days-region
Add support for counting days in a calendar region
---
docs/images/casual-calendar-screenshot.png | Bin 445243 -> 463748 bytes
lisp/casual-calendar.el | 5 +++++
tests/test-casual-calendar.el | 6 +++++-
3 files changed, 10 insertions(+), 1 deletion(-)
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/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
