From 2b4a8ab5f1fda5c9659d679124d72eaff6eed232 Mon Sep 17 00:00:00 2001 From: Matthew Kosarek Date: Thu, 28 May 2026 21:09:44 -0400 Subject: feature: remove org clocking --- lisp/org-custom.el | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/lisp/org-custom.el b/lisp/org-custom.el index bbd2b64..b6d30a1 100644 --- a/lisp/org-custom.el +++ b/lisp/org-custom.el @@ -162,24 +162,5 @@ (setq org-log-repeat nil) -(defun mk/org-clock-active-p () - "Return non-nil if a clock is currently running." - (and (boundp 'org-clock-current-task) - org-clock-current-task)) - -(defun mk/org-auto-clock-based-on-state () - "Automatically clock in/out based on TODO state changes." - (when (derived-mode-p 'org-mode) - (pcase org-state - ("PROGRESS" - (unless (mk/org-clock-active-p) - (org-clock-in))) - ("DONE" - (when (mk/org-clock-active-p) - (org-clock-out)))))) - -(add-hook 'org-after-todo-state-change-hook #'mk/org-auto-clock-based-on-state) -(setq org-clock-history-length 0) - (provide 'org-custom) ;;; org-custom.el ends here -- cgit v1.2.1