From: "Рома Рудаков" <phentagram@gmail.com>
To: emacs-orgmode@gnu.org
Subject: Log change TODO state after clock-out
Date: Wed, 26 Jul 2017 15:42:23 +0300 [thread overview]
Message-ID: <CAEqhMm9GV56LePe9XR7jvpp6gnPMv7wi38p2WYnyOxfvFwjmyw@mail.gmail.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 1888 bytes --]
Hello,
my minimal configuration:
(setq org-todo-keywords
'((sequence "TODO(t)" "PROGRESS(p!)" "WAITING(w!)" "|" "DONE(d!)")))
(setq org-clock-persist 'history)
(org-clock-persistence-insinuate)
(setq org-log-into-drawer t)
(setq org-log-done 'time)
(defun rr/set-progress (last)
"Set PROGRESS state if LAST is different."
(when (not (string-equal last "PROGRESS"))
"PROGRESS"))
(setq org-clock-in-switch-to-state 'rr/set-progress)
(defun rr/after-clock-stop (last)
"Change TASK state after clock stop depends on LAST state."
(when (not (or (string-equal last "WAITING")
(string-equal last "DONE")
(string-equal last "TODO")))
(if (y-or-n-p "Current task DONE? ")
"DONE"
"WAITING")))
(setq org-clock-out-switch-to-state 'rr/after-clock-stop)
I have a simple org file:
* TODO task 1
* TODO task 2
* TODO task 3
* TODO task 4
Steps to reproduce my issue:
1. Go to task 1 and clock-in. Result is:
* PROGRESS task 1
:LOGBOOK:
- State "PROGRESS" from "TODO" [2017-07-26 Wed 15:37]
CLOCK: [2017-07-26 Wed 15:37]
:END:
* TODO task 2
* TODO task 3
* TODO task 4
2. Clock-out the task, answer y or n.
Expected result:
* DONE task 1
CLOSED: [2017-07-26 Wed 15:39]
:LOGBOOK:
- State "DONE" from "PROGRESS" [2017-07-26 Wed 15:39]
- State "PROGRESS" from "TODO" [2017-07-26 Wed 15:37]
CLOCK: [2017-07-26 Wed 15:37]--[2017-07-26 Wed 15:38] => 0:01
:END:
* TODO task 2
* TODO task 3
* TODO task 4
Actual result:
* DONE task 1
:LOGBOOK:
- State "PROGRESS" from "TODO" [2017-07-26 Wed 15:37]
CLOCK: [2017-07-26 Wed 15:37]--[2017-07-26 Wed 15:38] => 0:01
:END:
* TODO task 2
* TODO task 3
* TODO task 4
There is no CLOSED log entry and change state from PROGRESS to DONE entry.
Please help me to find proper configuration.
Thank you in advance.
[-- Attachment #2: Type: text/html, Size: 2647 bytes --]
next reply other threads:[~2017-07-26 12:42 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-07-26 12:42 Рома Рудаков [this message]
2017-07-28 13:44 ` Log change TODO state after clock-out Nicolas Goaziou
2017-07-29 13:52 ` Roman Rudakov
2017-08-05 12:47 ` Nicolas Goaziou
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=CAEqhMm9GV56LePe9XR7jvpp6gnPMv7wi38p2WYnyOxfvFwjmyw@mail.gmail.com \
--to=phentagram@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.