diff options
Diffstat (limited to 'lisp')
| -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 |