mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:36:26 +00:00
Code Releases Activity

Add `org-clock-toggle-auto-clockout'

Browse source 
* doc/org-manual.org: Document the new command.

* lisp/org-clock.el (org-clock-toggle-auto-clockout): New
command.
This commit is contained in:
Bastien 2020-02-09 11:17:42 +01:00
parent 88794cab06
commit a62751a6a5
2 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
doc/org-manual.org
View file

@ -6901,6 +6901,9 @@ set ~org-clock-auto-clockout-timer~ to a number of seconds and add
When the clock is running and Emacs is idle for more than this number
of seconds, the clock will be clocked out automatically.
Use =M-x org-clock-toggle-auto-clockout RET= to temporarily turn this
on or off.
** Effort Estimates
:PROPERTIES:
:DESCRIPTION: Planning work effort in advance.

9
lisp/org-clock.el
View file

@ -1421,6 +1421,15 @@ is present in the user configuration."
(run-with-idle-timer
org-clock-auto-clockout-timer nil #'org-clock-out)))
;;;###autoload
(defun org-clock-toggle-auto-clockout ()
(interactive)
(if (memq 'org-clock-auto-clockout org-clock-in-hook)
(progn (remove-hook 'org-clock-in-hook #'org-clock-auto-clockout)
(message "Auto clock-out after idle time turned off"))
(add-hook 'org-clock-in-hook #'org-clock-auto-clockout t)
(message "Auto clock-out after idle time turned on")))
;;;###autoload
(defun org-clock-in-last (&optional arg)
"Clock in the last closed clocked item.