branch: elpa/casual
commit 0b2183383d3bf86e45eb586ecb98da2490ead68b
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Add customization settings to change state upon clock-in/out
Add to `casual-agenda-settings-tmenu`
- customization of `org-clock-in-switch-to-state`
- customization of `org-clock-out-switch-to-state`
---
docs/images/casual-agenda-settings-screenshot.png | Bin 209732 -> 227878 bytes
lisp/casual-agenda-settings.el | 14 +++++++++++++-
tests/test-casual-agenda-settings.el | 2 ++
3 files changed, 15 insertions(+), 1 deletion(-)
diff --git a/docs/images/casual-agenda-settings-screenshot.png
b/docs/images/casual-agenda-settings-screenshot.png
index 129c326b99..104c99db35 100644
Binary files a/docs/images/casual-agenda-settings-screenshot.png and
b/docs/images/casual-agenda-settings-screenshot.png differ
diff --git a/lisp/casual-agenda-settings.el b/lisp/casual-agenda-settings.el
index 9b74fd25ba..5769d5335f 100644
--- a/lisp/casual-agenda-settings.el
+++ b/lisp/casual-agenda-settings.el
@@ -99,7 +99,9 @@ Always choose love."
:description (lambda ()
(casual-lib-checkbox-label org-agenda-timegrid-use-ampm
"Use AM/PM")))]
- [("," "Agenda Group" casual-agenda--customize-group)
+ [("I" "Next state on clock-in"
casual-agenda-customize-org-clock-in-switch-to-state)
+ ("O" "Next state on clock-out"
casual-agenda-customize-org-clock-out-switch-to-state)
+ ("," "Agenda Group" casual-agenda--customize-group)
(casual-lib-customize-unicode)
(casual-lib-customize-hide-navigation)]]
@@ -135,5 +137,15 @@ Always choose love."
(interactive)
(customize-variable 'org-agenda-include-inactive-timestamps))
+(defun casual-agenda-customize-org-clock-in-switch-to-state ()
+ "Customize variable `org-clock-in-switch-to-state'."
+ (interactive)
+ (customize-variable 'org-clock-in-switch-to-state))
+
+(defun casual-agenda-customize-org-clock-out-switch-to-state ()
+ "Customize variable `org-clock-out-switch-to-state'."
+ (interactive)
+ (customize-variable 'org-clock-out-switch-to-state))
+
(provide 'casual-agenda-settings)
;;; casual-agenda-settings.el ends here
diff --git a/tests/test-casual-agenda-settings.el
b/tests/test-casual-agenda-settings.el
index 872bcede22..1a17dedd77 100644
--- a/tests/test-casual-agenda-settings.el
+++ b/tests/test-casual-agenda-settings.el
@@ -54,6 +54,8 @@
(:binding "i" :command
casual-agenda-customize-agenda-include-inactive-timestamps)
(:binding "x" :command
casual-agenda-customize-agenda-include-deadlines)
(:binding "m" :command casual-agenda-customize-ampm)
+ (:binding "I" :command
casual-agenda-customize-org-clock-in-switch-to-state)
+ (:binding "O" :command
casual-agenda-customize-org-clock-out-switch-to-state)
(:binding "," :command casual-agenda--customize-group))))
(casualt-suffix-testcase-runner test-vectors
