diff options
| author | Matthew Kosarek <matthew@matthewkosarek.xyz> | 2026-05-28 21:09:44 -0400 |
|---|---|---|
| committer | Matthew Kosarek <matthew@matthewkosarek.xyz> | 2026-05-28 21:09:44 -0400 |
| commit | 2b4a8ab5f1fda5c9659d679124d72eaff6eed232 (patch) | |
| tree | 6851809f8af7ec63e7199902ed1d4721add2dc9b /lisp/org-custom.el | |
| parent | 65d3f1b11be6552d45a5d47b3cee14dd2331b189 (diff) | |
Diffstat (limited to 'lisp/org-custom.el')
| -rw-r--r-- | lisp/org-custom.el | 19 |
1 files changed, 0 insertions, 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 |
