auto clock in when starting task

1 files changed, 13 insertions, 0 deletions

diff --git a/bard-elisp/bard-calendar.el b/bard-elisp/bard-calendar.el
index 1e3cdb2..b32b9db 100644
--- a/bard-elisp/bard-calendar.el
+++ b/bard-elisp/bard-calendar.el
@@ -1,5 +1,18 @@
+(require 'org)
+
 ;; Org Clock
 
+(defun bard/auto-clock-in ()
+  "Automatically clock in when task marked in progress (INPROG)."
+  (when (equal (org-get-todo-state) "INPROG")
+    (org-clock-in))
+  (when (equal (org-get-todo-state) "DONE")
+    (org-clock-out)))
+
+(defun test-func ()
+  (interactive)
+  (message (org-get-todo-state)))
+
 (defun bard/org-clock-report ()
   (interactive)
   (bard/new-org-buffer)