mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

org-clock.el (org-clock-in-last): New command.

Browse Source 
* org-clock.el (org-clock-in-last): New command.

This autoloaded command provides a way to clock in the last clocked
item stored in `org-clock-history' from any buffer.  This is handy
when you don't want to go back to your .org file to clock into the
last clocked task.
This commit is contained in:
Bastien Guerry 2012-07-06 12:54:43 +02:00
parent 8dd8540f55
commit 9780de8b30
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/org-clock.el
View File

@ -1235,6 +1235,17 @@ the clocking selection, associated with the letter `d'."
(message "Clock starts at %s - %s" ts msg-extra)
(run-hooks 'org-clock-in-hook)))))))
;;;###autoload
(defun org-clock-in-last (&optional arg)
"Clock in the last closed clocked item.
When already clocking in, send an warning."
(interactive "P")
(if arg (org-clock-select-task)
(org-clock-clock-in (cons (car org-clock-history) (current-time)))
(message "Now clocking in: %s (in %s)"
org-clock-current-task
(buffer-name (marker-buffer org-clock-marker)))))
(defun org-clock-mark-default-task ()
"Mark current task as default task."
(interactive)