* Bug: clock in generates bad drawer [8.3.4 (8.3.4-47-gaf853d-elpa @ /home/carlos/.emacs.d/elpa/org-20160502/)]
@ 2016-05-04 10:59 Carlos Noguera
2016-05-05 7:52 ` Nicolas Goaziou
0 siblings, 1 reply; 6+ messages in thread
From: Carlos Noguera @ 2016-05-04 10:59 UTC (permalink / raw
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 4732 bytes --]
When clocking in under a headline that already has clock entries, the
entries are not correclty bundled in a drawer, generating a: (I removed
the bytecode because gmail didn't like it)
Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
byte-code("REMOVED" [beg end org-clock-into-drawer drawer find-unclosed
org-clock-string line-beginning-position outline-next-heading
org-clock-drawer-name "^[ ]*" "
\\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+
+[012][0-9]:[0-5][0-9]\\)\\][ ]*$" re-search-forward t org-element-at-point
org-element-type clock org-element-property :status running
beginning-of-line throw exit "^[ ]*:" regexp-quote ":[ ]*$" :contents-end
nil 0 org-end-of-meta-data "\n" wholenump 2 ":" ":\n:END:\n"
org-indent-region org-flag-drawer mapconcat #[(p) "\212
b\210\302\212\303\304x\210\305\306!)\305\306!\"
\307\310\311\307\312\311 ##*\207"
[p s delete-and-extract-region "
\n" nil line-beginning-position 2 replace-regexp-in-string "\\`[ \n
]+" "" "[ \n
]+\\'"] 7] "\n:END:\n" point-marker ":\n" -1 last open-clock-re element
drawer-re cend org-log-states-order-reversed first ...] 4)
org-clock-find-position(nil)
byte-code("REMOVED" [org-clock-resolving-clocks-due-to-idleness
org-clock-resolving-clocks org-clock-leftover-time leftover org--msg-extra
target-pos org-clocking-p nil "" t org-resolve-clocks (64) org-clock-in (4)
org-clock-select-task "Clock-in on task: " copy-marker error "Abort" (16)
org-clock-mark-default-task org-back-to-heading marker-buffer
marker-position 4 org-heading-components message "Clock continues in
\"%s\"" throw abort org-clock-out org-at-heading-p point-at-bol 0
org-base-buffer run-hooks org-clock-in-prepare-hook org-clock-history-push
functionp looking-at match-string 2 org-todo "[ ]*" "\\>"
replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1"
match-string-no-properties "???" ...] 8)
org-clock-in(nil)
call-interactively(org-clock-in nil nil)
command-execute(org-clock-in)
that prevents the clock in
I go from
** TODO a task
CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] => 1:29
CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] => 0:00
C-c C-x C-i
to
** TODO a task
:CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] => 0:00
CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] => 1:29
:END:
Any ideas?
Carlos.
Emacs : GNU Emacs 24.5.1 (i686-pc-cygwin)
of 2015-06-23 on desktop-new
Package: Org-mode version 8.3.4 (8.3.4-47-gaf853d-elpa @
/home/carlos/.emacs.d/elpa/org-20160502/)
current state:
==============
(setq
org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
org-babel-execute-safely-maybe)
org-tab-first-hook '(org-hide-block-toggle-maybe
org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-archive-hook '(org-attach-archive-delete-maybe)
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-speed-command-hook '(org-speed-command-default-hook
org-babel-speed-command-hook)
org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
org-return-follows-link t
org-babel-pre-tangle-hook '(save-buffer)
org-occur-hook '(org-first-headline-recenter)
org-link-file-path-type 'relative
org-metaup-hook '(org-babel-load-in-session-maybe)
org-confirm-elisp-link-function 'yes-or-no-p
org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
org-enforce-todo-dependencies t
org-mode-hook '(#[nil "\300\301\302\303\304$\207"
[org-add-hook change-major-mode-hook org-show-block-all
append local]
5]
#[nil "\300\301\302\303\304$\207"
[org-add-hook change-major-mode-hook
org-babel-show-result-all append local]
5]
org-babel-result-hide-spec org-babel-hide-all-hashes)
org-clock-into-drawer 3
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-agenda-files '("~/notes/onto-alliance.org" "~/notes/ODASE-src.org"
"~/notes/notes.org")
org-file-apps '((auto-mode . emacs) ("\\.mm\\'" . default)
("\\.x?html?\\'" . default) ("\\.pdf\\'" . default)
(system . "open %s"))
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-after-todo-state-change-hook '(org-clock-out-if-current)
org-after-todo-statistics-hook '(org-summary-todo)
org-confirm-shell-link-function 'yes-or-no-p
)
[-- Attachment #2: Type: text/html, Size: 7041 bytes --]
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Bug: clock in generates bad drawer [8.3.4 (8.3.4-47-gaf853d-elpa @ /home/carlos/.emacs.d/elpa/org-20160502/)]
2016-05-04 10:59 Bug: clock in generates bad drawer [8.3.4 (8.3.4-47-gaf853d-elpa @ /home/carlos/.emacs.d/elpa/org-20160502/)] Carlos Noguera
@ 2016-05-05 7:52 ` Nicolas Goaziou
2016-05-10 7:05 ` Carlos Noguera
0 siblings, 1 reply; 6+ messages in thread
From: Nicolas Goaziou @ 2016-05-05 7:52 UTC (permalink / raw
To: Carlos Noguera; +Cc: emacs-orgmode
Hello,
Carlos Noguera <carlos.francisco.noguera@gmail.com> writes:
> When clocking in under a headline that already has clock entries, the
> entries are not correclty bundled in a drawer, generating a: (I removed
> the bytecode because gmail didn't like it)
>
> Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
> byte-code("REMOVED" [beg end org-clock-into-drawer drawer find-unclosed
> org-clock-string line-beginning-position outline-next-heading
> org-clock-drawer-name "^[ ]*" "
> \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+
> +[012][0-9]:[0-5][0-9]\\)\\][ ]*$" re-search-forward t org-element-at-point
> org-element-type clock org-element-property :status running
> beginning-of-line throw exit "^[ ]*:" regexp-quote ":[ ]*$" :contents-end
> nil 0 org-end-of-meta-data "\n" wholenump 2 ":" ":\n:END:\n"
> org-indent-region org-flag-drawer mapconcat #[(p) "\212
> b\210\302\212\303\304x\210\305\306!)\305\306!\"
> \307\310\311\307\312\311 ##*\207"
> [p s delete-and-extract-region "
> \n" nil line-beginning-position 2 replace-regexp-in-string "\\`[ \n
> ]+" "" "[ \n
> ]+\\'"] 7] "\n:END:\n" point-marker ":\n" -1 last open-clock-re element
> drawer-re cend org-log-states-order-reversed first ...] 4)
> org-clock-find-position(nil)
> byte-code("REMOVED" [org-clock-resolving-clocks-due-to-idleness
> org-clock-resolving-clocks org-clock-leftover-time leftover org--msg-extra
> target-pos org-clocking-p nil "" t org-resolve-clocks (64) org-clock-in (4)
> org-clock-select-task "Clock-in on task: " copy-marker error "Abort" (16)
> org-clock-mark-default-task org-back-to-heading marker-buffer
> marker-position 4 org-heading-components message "Clock continues in
> \"%s\"" throw abort org-clock-out org-at-heading-p point-at-bol 0
> org-base-buffer run-hooks org-clock-in-prepare-hook org-clock-history-push
> functionp looking-at match-string 2 org-todo "[ ]*" "\\>"
> replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1"
> match-string-no-properties "???" ...] 8)
> org-clock-in(nil)
> call-interactively(org-clock-in nil nil)
> command-execute(org-clock-in)
>
> that prevents the clock in
> I go from
>
> ** TODO a task
> CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] => 1:29
> CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] => 0:00
>
> C-c C-x C-i
>
> to
>
> ** TODO a task
> :CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] => 0:00
> CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] => 1:29
> :END:
I cannot reproduce it. In the example above, I get
* NEXT a task
:LOGBOOK:
CLOCK: [2016-05-05 Thu 09:52]
CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] => 0:00
CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] => 1:29
:END:
> Any ideas?
Not quite. Could you provide a backtrace with an uncompiled Org
(org-reload with universal argument) ?
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Bug: clock in generates bad drawer [8.3.4 (8.3.4-47-gaf853d-elpa @ /home/carlos/.emacs.d/elpa/org-20160502/)]
2016-05-05 7:52 ` Nicolas Goaziou
@ 2016-05-10 7:05 ` Carlos Noguera
2016-05-10 12:42 ` Carlos Noguera
0 siblings, 1 reply; 6+ messages in thread
From: Carlos Noguera @ 2016-05-10 7:05 UTC (permalink / raw
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 28674 bytes --]
Hi Nicolas,
Here you have a trace with an uncompiled Org. Let me know if you need
something else.
Carlos.
Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
insert(":" nil ":\n")
(save-excursion (insert ":" drawer ":\n"))
(let ((end (point-marker))) (goto-char beg) (save-excursion (insert ":"
drawer ":\n")) (org-flag-drawer t) (org-indent-region (point) end)
(forward-line) (if org-log-states-order-reversed nil (goto-char end)
(beginning-of-line -1)) (set-marker end nil))
(let ((beg (point))) (insert (mapconcat (function (lambda (p)
(save-excursion (goto-char p) (org-trim (delete-and-extract-region ...
...))))) positions "\n") "\n:END:\n") (let ((end (point-marker)))
(goto-char beg) (save-excursion (insert ":" drawer ":\n")) (org-flag-drawer
t) (org-indent-region (point) end) (forward-line) (if
org-log-states-order-reversed nil (goto-char end) (beginning-of-line -1))
(set-marker end nil)))
(cond ((null positions) (org-end-of-meta-data) (if (bolp) nil (insert
"\n")) (if (and org-clock-into-drawer (or (not (wholenump
org-clock-into-drawer)) (< org-clock-into-drawer 2))) (progn (let ((beg
(point))) (insert ":" drawer ":\n:END:\n") (org-indent-region beg (point))
(goto-char beg) (org-flag-drawer t) (forward-line))))) ((or drawer (and
(wholenump org-clock-into-drawer) (>= (1+ count) org-clock-into-drawer)))
(org-end-of-meta-data) (let ((beg (point))) (insert (mapconcat (function
(lambda (p) (save-excursion ... ...))) positions "\n") "\n:END:\n") (let
((end (point-marker))) (goto-char beg) (save-excursion (insert ":" drawer
":\n")) (org-flag-drawer t) (org-indent-region (point) end) (forward-line)
(if org-log-states-order-reversed nil (goto-char end) (beginning-of-line
-1)) (set-marker end nil)))) (org-log-states-order-reversed (goto-char (car
(last positions)))) (t (goto-char (car positions))))
(let ((clock-re (concat "^[ ]*" org-clock-string)) (count 0) positions
first) (save-excursion (while (re-search-forward clock-re end t) (let
((element (org-element-at-point))) (if (eq (org-element-type element)
(quote clock)) (progn (setq positions (cons ... positions) count (1+
count))))))) (cond ((null positions) (org-end-of-meta-data) (if (bolp) nil
(insert "\n")) (if (and org-clock-into-drawer (or (not (wholenump
org-clock-into-drawer)) (< org-clock-into-drawer 2))) (progn (let ((beg
...)) (insert ":" drawer ":\n:END:\n") (org-indent-region beg (point))
(goto-char beg) (org-flag-drawer t) (forward-line))))) ((or drawer (and
(wholenump org-clock-into-drawer) (>= (1+ count) org-clock-into-drawer)))
(org-end-of-meta-data) (let ((beg (point))) (insert (mapconcat (function
(lambda ... ...)) positions "\n") "\n:END:\n") (let ((end (point-marker)))
(goto-char beg) (save-excursion (insert ":" drawer ":\n")) (org-flag-drawer
t) (org-indent-region (point) end) (forward-line) (if
org-log-states-order-reversed nil (goto-char end) (beginning-of-line -1))
(set-marker end nil)))) (org-log-states-order-reversed (goto-char (car
(last positions)))) (t (goto-char (car positions)))))
(let* ((beg (line-beginning-position)) (end (save-excursion
(outline-next-heading) (point))) (org-clock-into-drawer
(org-clock-into-drawer)) (drawer (org-clock-drawer-name))) (if
find-unclosed (progn (let ((open-clock-re (concat "^[ ]*" org-clock-string
" \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+
+[012][0-9]:[0-5][0-9]\\)\\][ ]*quot;))) (while (re-search-forward
open-clock-re end t) (let ((element ...)) (if (and ... ...) (progn ...
...))))))) (if drawer (progn (goto-char beg) (let ((drawer-re (concat "^[
]*:" (regexp-quote drawer) ":[ ]*quot;))) (while (re-search-forward
drawer-re end t) (let ((element ...)) (if (eq ... ...) (progn ...)))))))
(goto-char beg) (let ((clock-re (concat "^[ ]*" org-clock-string)) (count
0) positions first) (save-excursion (while (re-search-forward clock-re end
t) (let ((element (org-element-at-point))) (if (eq (org-element-type
element) (quote clock)) (progn (setq positions ... count ...)))))) (cond
((null positions) (org-end-of-meta-data) (if (bolp) nil (insert "\n")) (if
(and org-clock-into-drawer (or (not ...) (< org-clock-into-drawer 2)))
(progn (let (...) (insert ":" drawer ":\n:END:\n") (org-indent-region beg
...) (goto-char beg) (org-flag-drawer t) (forward-line))))) ((or drawer
(and (wholenump org-clock-into-drawer) (>= (1+ count)
org-clock-into-drawer))) (org-end-of-meta-data) (let ((beg (point)))
(insert (mapconcat (function ...) positions "\n") "\n:END:\n") (let ((end
...)) (goto-char beg) (save-excursion (insert ":" drawer ":\n"))
(org-flag-drawer t) (org-indent-region (point) end) (forward-line) (if
org-log-states-order-reversed nil (goto-char end) (beginning-of-line -1))
(set-marker end nil)))) (org-log-states-order-reversed (goto-char (car
(last positions)))) (t (goto-char (car positions))))))
(catch (quote exit) (let* ((beg (line-beginning-position)) (end
(save-excursion (outline-next-heading) (point))) (org-clock-into-drawer
(org-clock-into-drawer)) (drawer (org-clock-drawer-name))) (if
find-unclosed (progn (let ((open-clock-re (concat "^[ ]*" org-clock-string
" \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+
+[012][0-9]:[0-5][0-9]\\)\\][ ]*quot;))) (while (re-search-forward
open-clock-re end t) (let (...) (if ... ...)))))) (if drawer (progn
(goto-char beg) (let ((drawer-re (concat "^[ ]*:" ... ":[ ]*quot;))) (while
(re-search-forward drawer-re end t) (let (...) (if ... ...)))))) (goto-char
beg) (let ((clock-re (concat "^[ ]*" org-clock-string)) (count 0) positions
first) (save-excursion (while (re-search-forward clock-re end t) (let
((element ...)) (if (eq ... ...) (progn ...))))) (cond ((null positions)
(org-end-of-meta-data) (if (bolp) nil (insert "\n")) (if (and
org-clock-into-drawer (or ... ...)) (progn (let ... ... ... ... ... ...))))
((or drawer (and (wholenump org-clock-into-drawer) (>= ...
org-clock-into-drawer))) (org-end-of-meta-data) (let ((beg ...)) (insert
(mapconcat ... positions "\n") "\n:END:\n") (let (...) (goto-char beg)
(save-excursion ...) (org-flag-drawer t) (org-indent-region ... end)
(forward-line) (if org-log-states-order-reversed nil ... ...) (set-marker
end nil)))) (org-log-states-order-reversed (goto-char (car (last
positions)))) (t (goto-char (car positions)))))))
org-clock-find-position(nil)
(save-restriction (widen) (goto-char target-pos) (org-back-to-heading t)
(or interrupting (move-marker org-clock-interrupted-task nil)) (run-hooks
(quote org-clock-in-prepare-hook)) (org-clock-history-push) (setq
org-clock-current-task (nth 4 (org-heading-components))) (cond ((functionp
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) (let
((newstate (funcall org-clock-in-switch-to-state (match-string 2)))) (if
newstate (org-todo newstate)))) ((and org-clock-in-switch-to-state (not
(looking-at (concat org-outline-regexp "[ ]*" org-clock-in-switch-to-state
"\\>")))) (org-todo org-clock-in-switch-to-state))) (setq org-clock-heading
(cond ((and org-clock-heading-function (functionp
org-clock-heading-function)) (funcall org-clock-heading-function)) ((nth 4
(org-heading-components)) (replace-regexp-in-string
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" (match-string-no-properties 4))) (t
"???"))) (org-clock-find-position org-clock-in-resume) (cond ((and
org-clock-in-resume (looking-at (concat "^[ ]*" org-clock-string "
\\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+.?
+[012][0-9]:[0-5][0-9]\\)\\][ ]*quot;))) (message "Matched %s"
(match-string 1)) (setq ts (concat "[" (match-string 1) "]")) (goto-char
(match-end 1)) (setq org-clock-start-time (apply (quote encode-time)
(org-parse-time-string (match-string 1)))) (setq org-clock-effort
(org-entry-get (point) org-effort-property)) (setq org-clock-total-time
(org-clock-sum-current-item (org-clock-get-sum-start)))) ((eq
org-clock-in-resume (quote auto-restart)) (message "Cannot restart clock
because task does not contain unfinished clock") (ding) (sit-for 2) (throw
(quote abort) nil)) (t (insert-before-markers "\n") (backward-char 1)
(org-indent-line) (if (and (save-excursion (end-of-line 0)
(org-in-item-p))) (progn (beginning-of-line 1) (org-indent-line-to (-
(org-get-indentation) 2)))) (insert org-clock-string " ") (setq
org-clock-effort (org-entry-get (point) org-effort-property)) (setq
org-clock-total-time (org-clock-sum-current-item
(org-clock-get-sum-start))) (setq org-clock-start-time (or (and
org-clock-continuously org-clock-out-time) (and leftover (y-or-n-p (format
"You stopped another clock %d mins ago; start this one from then? " ...))
leftover) start-time (org-current-time org-clock-rounding-minutes t)))
(setq ts (org-insert-time-stamp org-clock-start-time (quote with-hm) (quote
inactive))))) (move-marker org-clock-marker (point) (buffer-base-buffer))
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t)
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (if (or (eq
org-clock-clocked-in-display (quote mode-line)) (eq
org-clock-clocked-in-display (quote both))) (progn (or global-mode-string
(setq global-mode-string (quote ("")))) (or (memq (quote
org-mode-line-string) global-mode-string) (setq global-mode-string (append
global-mode-string (quote (org-mode-line-string))))))) (if (or (eq
org-clock-clocked-in-display (quote frame-title)) (eq
org-clock-clocked-in-display (quote both))) (progn (setq frame-title-format
org-clock-frame-title-format))) (org-clock-update-mode-line) (if
org-clock-mode-line-timer (progn (cancel-timer org-clock-mode-line-timer)
(setq org-clock-mode-line-timer nil))) (if org-clock-clocked-in-display
(progn (setq org-clock-mode-line-timer (run-with-timer
org-clock-update-period org-clock-update-period (quote
org-clock-update-mode-line))))) (if org-clock-idle-timer (progn
(cancel-timer org-clock-idle-timer) (setq org-clock-idle-timer nil))) (setq
org-clock-idle-timer (run-with-timer 60 60 (quote
org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s" ts
org--msg-extra) (run-hooks (quote org-clock-in-hook)))
(save-excursion (save-restriction (widen) (goto-char target-pos)
(org-back-to-heading t) (or interrupting (move-marker
org-clock-interrupted-task nil)) (run-hooks (quote
org-clock-in-prepare-hook)) (org-clock-history-push) (setq
org-clock-current-task (nth 4 (org-heading-components))) (cond ((functionp
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) (let
((newstate (funcall org-clock-in-switch-to-state ...))) (if newstate
(org-todo newstate)))) ((and org-clock-in-switch-to-state (not (looking-at
(concat org-outline-regexp "[ ]*" org-clock-in-switch-to-state "\\>"))))
(org-todo org-clock-in-switch-to-state))) (setq org-clock-heading (cond
((and org-clock-heading-function (functionp org-clock-heading-function))
(funcall org-clock-heading-function)) ((nth 4 (org-heading-components))
(replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1"
(match-string-no-properties 4))) (t "???"))) (org-clock-find-position
org-clock-in-resume) (cond ((and org-clock-in-resume (looking-at (concat
"^[ ]*" org-clock-string " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" "
*\\sw+.? +[012][0-9]:[0-5][0-9]\\)\\][ ]*quot;))) (message "Matched %s"
(match-string 1)) (setq ts (concat "[" (match-string 1) "]")) (goto-char
(match-end 1)) (setq org-clock-start-time (apply (quote encode-time)
(org-parse-time-string (match-string 1)))) (setq org-clock-effort
(org-entry-get (point) org-effort-property)) (setq org-clock-total-time
(org-clock-sum-current-item (org-clock-get-sum-start)))) ((eq
org-clock-in-resume (quote auto-restart)) (message "Cannot restart clock
because task does not contain unfinished clock") (ding) (sit-for 2) (throw
(quote abort) nil)) (t (insert-before-markers "\n") (backward-char 1)
(org-indent-line) (if (and (save-excursion (end-of-line 0)
(org-in-item-p))) (progn (beginning-of-line 1) (org-indent-line-to (- ...
2)))) (insert org-clock-string " ") (setq org-clock-effort (org-entry-get
(point) org-effort-property)) (setq org-clock-total-time
(org-clock-sum-current-item (org-clock-get-sum-start))) (setq
org-clock-start-time (or (and org-clock-continuously org-clock-out-time)
(and leftover (y-or-n-p ...) leftover) start-time (org-current-time
org-clock-rounding-minutes t))) (setq ts (org-insert-time-stamp
org-clock-start-time (quote with-hm) (quote inactive))))) (move-marker
org-clock-marker (point) (buffer-base-buffer)) (move-marker
org-clock-hd-marker (save-excursion (org-back-to-heading t) (point))
(buffer-base-buffer)) (setq org-clock-has-been-used t) (if (or (eq
org-clock-clocked-in-display (quote mode-line)) (eq
org-clock-clocked-in-display (quote both))) (progn (or global-mode-string
(setq global-mode-string (quote ("")))) (or (memq (quote
org-mode-line-string) global-mode-string) (setq global-mode-string (append
global-mode-string (quote ...)))))) (if (or (eq
org-clock-clocked-in-display (quote frame-title)) (eq
org-clock-clocked-in-display (quote both))) (progn (setq frame-title-format
org-clock-frame-title-format))) (org-clock-update-mode-line) (if
org-clock-mode-line-timer (progn (cancel-timer org-clock-mode-line-timer)
(setq org-clock-mode-line-timer nil))) (if org-clock-clocked-in-display
(progn (setq org-clock-mode-line-timer (run-with-timer
org-clock-update-period org-clock-update-period (quote
org-clock-update-mode-line))))) (if org-clock-idle-timer (progn
(cancel-timer org-clock-idle-timer) (setq org-clock-idle-timer nil))) (setq
org-clock-idle-timer (run-with-timer 60 60 (quote
org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s" ts
org--msg-extra) (run-hooks (quote org-clock-in-hook))))
(save-excursion (if (and selected-task (marker-buffer selected-task))
(progn (set-buffer (org-base-buffer (marker-buffer selected-task))) (setq
target-pos (marker-position selected-task)) (move-marker selected-task
nil))) (save-excursion (save-restriction (widen) (goto-char target-pos)
(org-back-to-heading t) (or interrupting (move-marker
org-clock-interrupted-task nil)) (run-hooks (quote
org-clock-in-prepare-hook)) (org-clock-history-push) (setq
org-clock-current-task (nth 4 (org-heading-components))) (cond ((functionp
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) (let
((newstate ...)) (if newstate (org-todo newstate)))) ((and
org-clock-in-switch-to-state (not (looking-at ...))) (org-todo
org-clock-in-switch-to-state))) (setq org-clock-heading (cond ((and
org-clock-heading-function (functionp org-clock-heading-function)) (funcall
org-clock-heading-function)) ((nth 4 (org-heading-components))
(replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1"
(match-string-no-properties 4))) (t "???"))) (org-clock-find-position
org-clock-in-resume) (cond ((and org-clock-in-resume (looking-at (concat
"^[ ]*" org-clock-string " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" "
*\\sw+.? +[012][0-9]:[0-5][0-9]\\)\\][ ]*quot;))) (message "Matched %s"
(match-string 1)) (setq ts (concat "[" (match-string 1) "]")) (goto-char
(match-end 1)) (setq org-clock-start-time (apply (quote encode-time)
(org-parse-time-string ...))) (setq org-clock-effort (org-entry-get (point)
org-effort-property)) (setq org-clock-total-time
(org-clock-sum-current-item (org-clock-get-sum-start)))) ((eq
org-clock-in-resume (quote auto-restart)) (message "Cannot restart clock
because task does not contain unfinished clock") (ding) (sit-for 2) (throw
(quote abort) nil)) (t (insert-before-markers "\n") (backward-char 1)
(org-indent-line) (if (and (save-excursion ... ...)) (progn
(beginning-of-line 1) (org-indent-line-to ...))) (insert org-clock-string "
") (setq org-clock-effort (org-entry-get (point) org-effort-property))
(setq org-clock-total-time (org-clock-sum-current-item
(org-clock-get-sum-start))) (setq org-clock-start-time (or (and
org-clock-continuously org-clock-out-time) (and leftover ... leftover)
start-time (org-current-time org-clock-rounding-minutes t))) (setq ts
(org-insert-time-stamp org-clock-start-time (quote with-hm) (quote
inactive))))) (move-marker org-clock-marker (point) (buffer-base-buffer))
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t)
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (if (or (eq
org-clock-clocked-in-display (quote mode-line)) (eq
org-clock-clocked-in-display (quote both))) (progn (or global-mode-string
(setq global-mode-string (quote ...))) (or (memq (quote
org-mode-line-string) global-mode-string) (setq global-mode-string (append
global-mode-string ...))))) (if (or (eq org-clock-clocked-in-display (quote
frame-title)) (eq org-clock-clocked-in-display (quote both))) (progn (setq
frame-title-format org-clock-frame-title-format)))
(org-clock-update-mode-line) (if org-clock-mode-line-timer (progn
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer
nil))) (if org-clock-clocked-in-display (progn (setq
org-clock-mode-line-timer (run-with-timer org-clock-update-period
org-clock-update-period (quote org-clock-update-mode-line))))) (if
org-clock-idle-timer (progn (cancel-timer org-clock-idle-timer) (setq
org-clock-idle-timer nil))) (setq org-clock-idle-timer (run-with-timer 60
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s"
ts org--msg-extra) (run-hooks (quote org-clock-in-hook)))))
(let ((interrupting (and (not org-clock-resolving-clocks-due-to-idleness)
(org-clocking-p))) ts selected-task target-pos (org--msg-extra "")
(leftover (and (not org-clock-resolving-clocks) org-clock-leftover-time)))
(if (and org-clock-auto-clock-resolution (or (not interrupting) (eq t
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not
org-clock-resolving-clocks)) (progn (setq org-clock-leftover-time nil) (let
((org-clock-clocking-in t)) (org-resolve-clocks)))) (if (equal select
(quote (64))) (progn (let ((org-clock-continuously t)) (org-clock-in nil
org-clock-out-time)))) (if (equal select (quote (4))) (progn (setq
selected-task (org-clock-select-task "Clock-in on task: ")) (if
selected-task (setq selected-task (copy-marker selected-task)) (error
"Abort")))) (if (equal select (quote (16))) (progn
(org-clock-mark-default-task))) (if interrupting (progn (if (save-excursion
(if selected-task nil (org-back-to-heading t)) (and (equal (marker-buffer
org-clock-hd-marker) (if selected-task ... ...)) (= (marker-position
org-clock-hd-marker) (if selected-task ... ...)) (equal
org-clock-current-task (nth 4 ...)))) (progn (message "Clock continues in
\"%s\"" org-clock-heading) (throw (quote abort) nil))) (move-marker
org-clock-interrupted-task (marker-position org-clock-marker)
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t))
(org-clock-out nil t)))) (setq target-pos (if (and (eobp) (not
(org-at-heading-p))) (point-at-bol 0) (point))) (save-excursion (if (and
selected-task (marker-buffer selected-task)) (progn (set-buffer
(org-base-buffer (marker-buffer selected-task))) (setq target-pos
(marker-position selected-task)) (move-marker selected-task nil)))
(save-excursion (save-restriction (widen) (goto-char target-pos)
(org-back-to-heading t) (or interrupting (move-marker
org-clock-interrupted-task nil)) (run-hooks (quote
org-clock-in-prepare-hook)) (org-clock-history-push) (setq
org-clock-current-task (nth 4 (org-heading-components))) (cond ((functionp
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) (let
(...) (if newstate ...))) ((and org-clock-in-switch-to-state (not ...))
(org-todo org-clock-in-switch-to-state))) (setq org-clock-heading (cond
((and org-clock-heading-function ...) (funcall org-clock-heading-function))
((nth 4 ...) (replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]"
"\\1" ...)) (t "???"))) (org-clock-find-position org-clock-in-resume) (cond
((and org-clock-in-resume (looking-at ...)) (message "Matched %s"
(match-string 1)) (setq ts (concat "[" ... "]")) (goto-char (match-end 1))
(setq org-clock-start-time (apply ... ...)) (setq org-clock-effort
(org-entry-get ... org-effort-property)) (setq org-clock-total-time
(org-clock-sum-current-item ...))) ((eq org-clock-in-resume (quote
auto-restart)) (message "Cannot restart clock because task does not contain
unfinished clock") (ding) (sit-for 2) (throw (quote abort) nil)) (t
(insert-before-markers "\n") (backward-char 1) (org-indent-line) (if (and
...) (progn ... ...)) (insert org-clock-string " ") (setq org-clock-effort
(org-entry-get ... org-effort-property)) (setq org-clock-total-time
(org-clock-sum-current-item ...)) (setq org-clock-start-time (or ... ...
start-time ...)) (setq ts (org-insert-time-stamp org-clock-start-time ...
...)))) (move-marker org-clock-marker (point) (buffer-base-buffer))
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t)
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (if (or (eq
org-clock-clocked-in-display (quote mode-line)) (eq
org-clock-clocked-in-display (quote both))) (progn (or global-mode-string
(setq global-mode-string ...)) (or (memq ... global-mode-string) (setq
global-mode-string ...)))) (if (or (eq org-clock-clocked-in-display (quote
frame-title)) (eq org-clock-clocked-in-display (quote both))) (progn (setq
frame-title-format org-clock-frame-title-format)))
(org-clock-update-mode-line) (if org-clock-mode-line-timer (progn
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer
nil))) (if org-clock-clocked-in-display (progn (setq
org-clock-mode-line-timer (run-with-timer org-clock-update-period
org-clock-update-period ...)))) (if org-clock-idle-timer (progn
(cancel-timer org-clock-idle-timer) (setq org-clock-idle-timer nil))) (setq
org-clock-idle-timer (run-with-timer 60 60 (quote
org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s" ts
org--msg-extra) (run-hooks (quote org-clock-in-hook))))))
(catch (quote abort) (let ((interrupting (and (not
org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts
selected-task target-pos (org--msg-extra "") (leftover (and (not
org-clock-resolving-clocks) org-clock-leftover-time))) (if (and
org-clock-auto-clock-resolution (or (not interrupting) (eq t
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not
org-clock-resolving-clocks)) (progn (setq org-clock-leftover-time nil) (let
((org-clock-clocking-in t)) (org-resolve-clocks)))) (if (equal select
(quote (64))) (progn (let ((org-clock-continuously t)) (org-clock-in nil
org-clock-out-time)))) (if (equal select (quote (4))) (progn (setq
selected-task (org-clock-select-task "Clock-in on task: ")) (if
selected-task (setq selected-task (copy-marker selected-task)) (error
"Abort")))) (if (equal select (quote (16))) (progn
(org-clock-mark-default-task))) (if interrupting (progn (if (save-excursion
(if selected-task nil (org-back-to-heading t)) (and (equal ... ...) (= ...
...) (equal org-clock-current-task ...))) (progn (message "Clock continues
in \"%s\"" org-clock-heading) (throw (quote abort) nil))) (move-marker
org-clock-interrupted-task (marker-position org-clock-marker)
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t))
(org-clock-out nil t)))) (setq target-pos (if (and (eobp) (not
(org-at-heading-p))) (point-at-bol 0) (point))) (save-excursion (if (and
selected-task (marker-buffer selected-task)) (progn (set-buffer
(org-base-buffer (marker-buffer selected-task))) (setq target-pos
(marker-position selected-task)) (move-marker selected-task nil)))
(save-excursion (save-restriction (widen) (goto-char target-pos)
(org-back-to-heading t) (or interrupting (move-marker
org-clock-interrupted-task nil)) (run-hooks (quote
org-clock-in-prepare-hook)) (org-clock-history-push) (setq
org-clock-current-task (nth 4 (org-heading-components))) (cond ((functionp
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) (let
... ...)) ((and org-clock-in-switch-to-state ...) (org-todo
org-clock-in-switch-to-state))) (setq org-clock-heading (cond (... ...)
(... ...) (t "???"))) (org-clock-find-position org-clock-in-resume) (cond
((and org-clock-in-resume ...) (message "Matched %s" ...) (setq ts ...)
(goto-char ...) (setq org-clock-start-time ...) (setq org-clock-effort ...)
(setq org-clock-total-time ...)) ((eq org-clock-in-resume ...) (message
"Cannot restart clock because task does not contain unfinished clock")
(ding) (sit-for 2) (throw ... nil)) (t (insert-before-markers "\n")
(backward-char 1) (org-indent-line) (if ... ...) (insert org-clock-string "
") (setq org-clock-effort ...) (setq org-clock-total-time ...) (setq
org-clock-start-time ...) (setq ts ...))) (move-marker org-clock-marker
(point) (buffer-base-buffer)) (move-marker org-clock-hd-marker
(save-excursion (org-back-to-heading t) (point)) (buffer-base-buffer))
(setq org-clock-has-been-used t) (if (or (eq org-clock-clocked-in-display
...) (eq org-clock-clocked-in-display ...)) (progn (or global-mode-string
...) (or ... ...))) (if (or (eq org-clock-clocked-in-display ...) (eq
org-clock-clocked-in-display ...)) (progn (setq frame-title-format
org-clock-frame-title-format))) (org-clock-update-mode-line) (if
org-clock-mode-line-timer (progn (cancel-timer org-clock-mode-line-timer)
(setq org-clock-mode-line-timer nil))) (if org-clock-clocked-in-display
(progn (setq org-clock-mode-line-timer ...))) (if org-clock-idle-timer
(progn (cancel-timer org-clock-idle-timer) (setq org-clock-idle-timer
nil))) (setq org-clock-idle-timer (run-with-timer 60 60 (quote
org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s" ts
org--msg-extra) (run-hooks (quote org-clock-in-hook)))))))
org-clock-in(nil)
call-interactively(org-clock-in nil nil)
command-execute(org-clock-in)
On Thu, May 5, 2016 at 9:52 AM Nicolas Goaziou <mail@nicolasgoaziou.fr>
wrote:
> Hello,
>
> Carlos Noguera <carlos.francisco.noguera@gmail.com> writes:
>
> > When clocking in under a headline that already has clock entries, the
> > entries are not correclty bundled in a drawer, generating a: (I removed
> > the bytecode because gmail didn't like it)
> >
> > Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
> > byte-code("REMOVED" [beg end org-clock-into-drawer drawer find-unclosed
> > org-clock-string line-beginning-position outline-next-heading
> > org-clock-drawer-name "^[ ]*" "
> > \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+
> > +[012][0-9]:[0-5][0-9]\\)\\][ ]*$" re-search-forward t
> org-element-at-point
> > org-element-type clock org-element-property :status running
> > beginning-of-line throw exit "^[ ]*:" regexp-quote ":[ ]*$" :contents-end
> > nil 0 org-end-of-meta-data "\n" wholenump 2 ":" ":\n:END:\n"
> > org-indent-region org-flag-drawer mapconcat #[(p) "\212
> > b\210\302\212\303\304x\210\305\306!)\305\306!\"
> > \307\310\311\307\312\311 ##*\207"
> > [p s delete-and-extract-region "
> > \n" nil line-beginning-position 2 replace-regexp-in-string "\\`[ \n
> > ]+" "" "[ \n
> > ]+\\'"] 7] "\n:END:\n" point-marker ":\n" -1 last open-clock-re element
> > drawer-re cend org-log-states-order-reversed first ...] 4)
> > org-clock-find-position(nil)
> > byte-code("REMOVED" [org-clock-resolving-clocks-due-to-idleness
> > org-clock-resolving-clocks org-clock-leftover-time leftover
> org--msg-extra
> > target-pos org-clocking-p nil "" t org-resolve-clocks (64) org-clock-in
> (4)
> > org-clock-select-task "Clock-in on task: " copy-marker error "Abort" (16)
> > org-clock-mark-default-task org-back-to-heading marker-buffer
> > marker-position 4 org-heading-components message "Clock continues in
> > \"%s\"" throw abort org-clock-out org-at-heading-p point-at-bol 0
> > org-base-buffer run-hooks org-clock-in-prepare-hook
> org-clock-history-push
> > functionp looking-at match-string 2 org-todo "[ ]*" "\\>"
> > replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1"
> > match-string-no-properties "???" ...] 8)
> > org-clock-in(nil)
> > call-interactively(org-clock-in nil nil)
> > command-execute(org-clock-in)
> >
> > that prevents the clock in
> > I go from
> >
> > ** TODO a task
> > CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] => 1:29
> > CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] => 0:00
> >
> > C-c C-x C-i
> >
> > to
> >
> > ** TODO a task
> > :CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] => 0:00
> > CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] => 1:29
> > :END:
>
> I cannot reproduce it. In the example above, I get
>
> * NEXT a task
> :LOGBOOK:
> CLOCK: [2016-05-05 Thu 09:52]
> CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] => 0:00
> CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] => 1:29
> :END:
>
> > Any ideas?
>
> Not quite. Could you provide a backtrace with an uncompiled Org
> (org-reload with universal argument) ?
>
> Regards,
>
> --
> Nicolas Goaziou
>
[-- Attachment #2: Type: text/html, Size: 31311 bytes --]
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Bug: clock in generates bad drawer [8.3.4 (8.3.4-47-gaf853d-elpa @ /home/carlos/.emacs.d/elpa/org-20160502/)]
2016-05-10 7:05 ` Carlos Noguera
@ 2016-05-10 12:42 ` Carlos Noguera
2016-05-10 21:10 ` Nicolas Goaziou
0 siblings, 1 reply; 6+ messages in thread
From: Carlos Noguera @ 2016-05-10 12:42 UTC (permalink / raw
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 30012 bytes --]
Hello Nicolas,
FYI, I just discovered that the behaviour happens if "Org Clock Into
Drawer" option in "Org Clock group" is set to "When at least N clock
entries: 3" and I go from two entries to 3.
If I change it to "Into LOGBOOK drawer" I don't have the problem any more.
For the moment, I'll keep in " Into LOGBOOK drawer" as a workaround.
Hope this helps.
Carlos
On Tue, May 10, 2016 at 9:05 AM Carlos Noguera <
carlos.francisco.noguera@gmail.com> wrote:
> Hi Nicolas,
>
>
> Here you have a trace with an uncompiled Org. Let me know if you need
> something else.
>
> Carlos.
>
> Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
> insert(":" nil ":\n")
> (save-excursion (insert ":" drawer ":\n"))
> (let ((end (point-marker))) (goto-char beg) (save-excursion (insert ":"
> drawer ":\n")) (org-flag-drawer t) (org-indent-region (point) end)
> (forward-line) (if org-log-states-order-reversed nil (goto-char end)
> (beginning-of-line -1)) (set-marker end nil))
> (let ((beg (point))) (insert (mapconcat (function (lambda (p)
> (save-excursion (goto-char p) (org-trim (delete-and-extract-region ...
> ...))))) positions "\n") "\n:END:\n") (let ((end (point-marker)))
> (goto-char beg) (save-excursion (insert ":" drawer ":\n")) (org-flag-drawer
> t) (org-indent-region (point) end) (forward-line) (if
> org-log-states-order-reversed nil (goto-char end) (beginning-of-line -1))
> (set-marker end nil)))
> (cond ((null positions) (org-end-of-meta-data) (if (bolp) nil (insert
> "\n")) (if (and org-clock-into-drawer (or (not (wholenump
> org-clock-into-drawer)) (< org-clock-into-drawer 2))) (progn (let ((beg
> (point))) (insert ":" drawer ":\n:END:\n") (org-indent-region beg (point))
> (goto-char beg) (org-flag-drawer t) (forward-line))))) ((or drawer (and
> (wholenump org-clock-into-drawer) (>= (1+ count) org-clock-into-drawer)))
> (org-end-of-meta-data) (let ((beg (point))) (insert (mapconcat (function
> (lambda (p) (save-excursion ... ...))) positions "\n") "\n:END:\n") (let
> ((end (point-marker))) (goto-char beg) (save-excursion (insert ":" drawer
> ":\n")) (org-flag-drawer t) (org-indent-region (point) end) (forward-line)
> (if org-log-states-order-reversed nil (goto-char end) (beginning-of-line
> -1)) (set-marker end nil)))) (org-log-states-order-reversed (goto-char (car
> (last positions)))) (t (goto-char (car positions))))
> (let ((clock-re (concat "^[ ]*" org-clock-string)) (count 0) positions
> first) (save-excursion (while (re-search-forward clock-re end t) (let
> ((element (org-element-at-point))) (if (eq (org-element-type element)
> (quote clock)) (progn (setq positions (cons ... positions) count (1+
> count))))))) (cond ((null positions) (org-end-of-meta-data) (if (bolp) nil
> (insert "\n")) (if (and org-clock-into-drawer (or (not (wholenump
> org-clock-into-drawer)) (< org-clock-into-drawer 2))) (progn (let ((beg
> ...)) (insert ":" drawer ":\n:END:\n") (org-indent-region beg (point))
> (goto-char beg) (org-flag-drawer t) (forward-line))))) ((or drawer (and
> (wholenump org-clock-into-drawer) (>= (1+ count) org-clock-into-drawer)))
> (org-end-of-meta-data) (let ((beg (point))) (insert (mapconcat (function
> (lambda ... ...)) positions "\n") "\n:END:\n") (let ((end (point-marker)))
> (goto-char beg) (save-excursion (insert ":" drawer ":\n")) (org-flag-drawer
> t) (org-indent-region (point) end) (forward-line) (if
> org-log-states-order-reversed nil (goto-char end) (beginning-of-line -1))
> (set-marker end nil)))) (org-log-states-order-reversed (goto-char (car
> (last positions)))) (t (goto-char (car positions)))))
> (let* ((beg (line-beginning-position)) (end (save-excursion
> (outline-next-heading) (point))) (org-clock-into-drawer
> (org-clock-into-drawer)) (drawer (org-clock-drawer-name))) (if
> find-unclosed (progn (let ((open-clock-re (concat "^[ ]*" org-clock-string
> " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+
> +[012][0-9]:[0-5][0-9]\\)\\][ ]*quot;))) (while (re-search-forward
> open-clock-re end t) (let ((element ...)) (if (and ... ...) (progn ...
> ...))))))) (if drawer (progn (goto-char beg) (let ((drawer-re (concat "^[
> ]*:" (regexp-quote drawer) ":[ ]*quot;))) (while (re-search-forward
> drawer-re end t) (let ((element ...)) (if (eq ... ...) (progn ...)))))))
> (goto-char beg) (let ((clock-re (concat "^[ ]*" org-clock-string)) (count
> 0) positions first) (save-excursion (while (re-search-forward clock-re end
> t) (let ((element (org-element-at-point))) (if (eq (org-element-type
> element) (quote clock)) (progn (setq positions ... count ...)))))) (cond
> ((null positions) (org-end-of-meta-data) (if (bolp) nil (insert "\n")) (if
> (and org-clock-into-drawer (or (not ...) (< org-clock-into-drawer 2)))
> (progn (let (...) (insert ":" drawer ":\n:END:\n") (org-indent-region beg
> ...) (goto-char beg) (org-flag-drawer t) (forward-line))))) ((or drawer
> (and (wholenump org-clock-into-drawer) (>= (1+ count)
> org-clock-into-drawer))) (org-end-of-meta-data) (let ((beg (point)))
> (insert (mapconcat (function ...) positions "\n") "\n:END:\n") (let ((end
> ...)) (goto-char beg) (save-excursion (insert ":" drawer ":\n"))
> (org-flag-drawer t) (org-indent-region (point) end) (forward-line) (if
> org-log-states-order-reversed nil (goto-char end) (beginning-of-line -1))
> (set-marker end nil)))) (org-log-states-order-reversed (goto-char (car
> (last positions)))) (t (goto-char (car positions))))))
> (catch (quote exit) (let* ((beg (line-beginning-position)) (end
> (save-excursion (outline-next-heading) (point))) (org-clock-into-drawer
> (org-clock-into-drawer)) (drawer (org-clock-drawer-name))) (if
> find-unclosed (progn (let ((open-clock-re (concat "^[ ]*" org-clock-string
> " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+
> +[012][0-9]:[0-5][0-9]\\)\\][ ]*quot;))) (while (re-search-forward
> open-clock-re end t) (let (...) (if ... ...)))))) (if drawer (progn
> (goto-char beg) (let ((drawer-re (concat "^[ ]*:" ... ":[ ]*quot;)))
> (while (re-search-forward drawer-re end t) (let (...) (if ... ...))))))
> (goto-char beg) (let ((clock-re (concat "^[ ]*" org-clock-string)) (count
> 0) positions first) (save-excursion (while (re-search-forward clock-re end
> t) (let ((element ...)) (if (eq ... ...) (progn ...))))) (cond ((null
> positions) (org-end-of-meta-data) (if (bolp) nil (insert "\n")) (if (and
> org-clock-into-drawer (or ... ...)) (progn (let ... ... ... ... ... ...))))
> ((or drawer (and (wholenump org-clock-into-drawer) (>= ...
> org-clock-into-drawer))) (org-end-of-meta-data) (let ((beg ...)) (insert
> (mapconcat ... positions "\n") "\n:END:\n") (let (...) (goto-char beg)
> (save-excursion ...) (org-flag-drawer t) (org-indent-region ... end)
> (forward-line) (if org-log-states-order-reversed nil ... ...) (set-marker
> end nil)))) (org-log-states-order-reversed (goto-char (car (last
> positions)))) (t (goto-char (car positions)))))))
> org-clock-find-position(nil)
> (save-restriction (widen) (goto-char target-pos) (org-back-to-heading t)
> (or interrupting (move-marker org-clock-interrupted-task nil)) (run-hooks
> (quote org-clock-in-prepare-hook)) (org-clock-history-push) (setq
> org-clock-current-task (nth 4 (org-heading-components))) (cond ((functionp
> org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) (let
> ((newstate (funcall org-clock-in-switch-to-state (match-string 2)))) (if
> newstate (org-todo newstate)))) ((and org-clock-in-switch-to-state (not
> (looking-at (concat org-outline-regexp "[ ]*" org-clock-in-switch-to-state
> "\\>")))) (org-todo org-clock-in-switch-to-state))) (setq org-clock-heading
> (cond ((and org-clock-heading-function (functionp
> org-clock-heading-function)) (funcall org-clock-heading-function)) ((nth 4
> (org-heading-components)) (replace-regexp-in-string
> "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" (match-string-no-properties 4))) (t
> "???"))) (org-clock-find-position org-clock-in-resume) (cond ((and
> org-clock-in-resume (looking-at (concat "^[ ]*" org-clock-string "
> \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+.?
> +[012][0-9]:[0-5][0-9]\\)\\][ ]*quot;))) (message "Matched %s"
> (match-string 1)) (setq ts (concat "[" (match-string 1) "]")) (goto-char
> (match-end 1)) (setq org-clock-start-time (apply (quote encode-time)
> (org-parse-time-string (match-string 1)))) (setq org-clock-effort
> (org-entry-get (point) org-effort-property)) (setq org-clock-total-time
> (org-clock-sum-current-item (org-clock-get-sum-start)))) ((eq
> org-clock-in-resume (quote auto-restart)) (message "Cannot restart clock
> because task does not contain unfinished clock") (ding) (sit-for 2) (throw
> (quote abort) nil)) (t (insert-before-markers "\n") (backward-char 1)
> (org-indent-line) (if (and (save-excursion (end-of-line 0)
> (org-in-item-p))) (progn (beginning-of-line 1) (org-indent-line-to (-
> (org-get-indentation) 2)))) (insert org-clock-string " ") (setq
> org-clock-effort (org-entry-get (point) org-effort-property)) (setq
> org-clock-total-time (org-clock-sum-current-item
> (org-clock-get-sum-start))) (setq org-clock-start-time (or (and
> org-clock-continuously org-clock-out-time) (and leftover (y-or-n-p (format
> "You stopped another clock %d mins ago; start this one from then? " ...))
> leftover) start-time (org-current-time org-clock-rounding-minutes t)))
> (setq ts (org-insert-time-stamp org-clock-start-time (quote with-hm) (quote
> inactive))))) (move-marker org-clock-marker (point) (buffer-base-buffer))
> (move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t)
> (point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (if (or (eq
> org-clock-clocked-in-display (quote mode-line)) (eq
> org-clock-clocked-in-display (quote both))) (progn (or global-mode-string
> (setq global-mode-string (quote ("")))) (or (memq (quote
> org-mode-line-string) global-mode-string) (setq global-mode-string (append
> global-mode-string (quote (org-mode-line-string))))))) (if (or (eq
> org-clock-clocked-in-display (quote frame-title)) (eq
> org-clock-clocked-in-display (quote both))) (progn (setq frame-title-format
> org-clock-frame-title-format))) (org-clock-update-mode-line) (if
> org-clock-mode-line-timer (progn (cancel-timer org-clock-mode-line-timer)
> (setq org-clock-mode-line-timer nil))) (if org-clock-clocked-in-display
> (progn (setq org-clock-mode-line-timer (run-with-timer
> org-clock-update-period org-clock-update-period (quote
> org-clock-update-mode-line))))) (if org-clock-idle-timer (progn
> (cancel-timer org-clock-idle-timer) (setq org-clock-idle-timer nil))) (setq
> org-clock-idle-timer (run-with-timer 60 60 (quote
> org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s" ts
> org--msg-extra) (run-hooks (quote org-clock-in-hook)))
> (save-excursion (save-restriction (widen) (goto-char target-pos)
> (org-back-to-heading t) (or interrupting (move-marker
> org-clock-interrupted-task nil)) (run-hooks (quote
> org-clock-in-prepare-hook)) (org-clock-history-push) (setq
> org-clock-current-task (nth 4 (org-heading-components))) (cond ((functionp
> org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) (let
> ((newstate (funcall org-clock-in-switch-to-state ...))) (if newstate
> (org-todo newstate)))) ((and org-clock-in-switch-to-state (not (looking-at
> (concat org-outline-regexp "[ ]*" org-clock-in-switch-to-state "\\>"))))
> (org-todo org-clock-in-switch-to-state))) (setq org-clock-heading (cond
> ((and org-clock-heading-function (functionp org-clock-heading-function))
> (funcall org-clock-heading-function)) ((nth 4 (org-heading-components))
> (replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1"
> (match-string-no-properties 4))) (t "???"))) (org-clock-find-position
> org-clock-in-resume) (cond ((and org-clock-in-resume (looking-at (concat
> "^[ ]*" org-clock-string " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" "
> *\\sw+.? +[012][0-9]:[0-5][0-9]\\)\\][ ]*quot;))) (message "Matched %s"
> (match-string 1)) (setq ts (concat "[" (match-string 1) "]")) (goto-char
> (match-end 1)) (setq org-clock-start-time (apply (quote encode-time)
> (org-parse-time-string (match-string 1)))) (setq org-clock-effort
> (org-entry-get (point) org-effort-property)) (setq org-clock-total-time
> (org-clock-sum-current-item (org-clock-get-sum-start)))) ((eq
> org-clock-in-resume (quote auto-restart)) (message "Cannot restart clock
> because task does not contain unfinished clock") (ding) (sit-for 2) (throw
> (quote abort) nil)) (t (insert-before-markers "\n") (backward-char 1)
> (org-indent-line) (if (and (save-excursion (end-of-line 0)
> (org-in-item-p))) (progn (beginning-of-line 1) (org-indent-line-to (- ...
> 2)))) (insert org-clock-string " ") (setq org-clock-effort (org-entry-get
> (point) org-effort-property)) (setq org-clock-total-time
> (org-clock-sum-current-item (org-clock-get-sum-start))) (setq
> org-clock-start-time (or (and org-clock-continuously org-clock-out-time)
> (and leftover (y-or-n-p ...) leftover) start-time (org-current-time
> org-clock-rounding-minutes t))) (setq ts (org-insert-time-stamp
> org-clock-start-time (quote with-hm) (quote inactive))))) (move-marker
> org-clock-marker (point) (buffer-base-buffer)) (move-marker
> org-clock-hd-marker (save-excursion (org-back-to-heading t) (point))
> (buffer-base-buffer)) (setq org-clock-has-been-used t) (if (or (eq
> org-clock-clocked-in-display (quote mode-line)) (eq
> org-clock-clocked-in-display (quote both))) (progn (or global-mode-string
> (setq global-mode-string (quote ("")))) (or (memq (quote
> org-mode-line-string) global-mode-string) (setq global-mode-string (append
> global-mode-string (quote ...)))))) (if (or (eq
> org-clock-clocked-in-display (quote frame-title)) (eq
> org-clock-clocked-in-display (quote both))) (progn (setq frame-title-format
> org-clock-frame-title-format))) (org-clock-update-mode-line) (if
> org-clock-mode-line-timer (progn (cancel-timer org-clock-mode-line-timer)
> (setq org-clock-mode-line-timer nil))) (if org-clock-clocked-in-display
> (progn (setq org-clock-mode-line-timer (run-with-timer
> org-clock-update-period org-clock-update-period (quote
> org-clock-update-mode-line))))) (if org-clock-idle-timer (progn
> (cancel-timer org-clock-idle-timer) (setq org-clock-idle-timer nil))) (setq
> org-clock-idle-timer (run-with-timer 60 60 (quote
> org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s" ts
> org--msg-extra) (run-hooks (quote org-clock-in-hook))))
> (save-excursion (if (and selected-task (marker-buffer selected-task))
> (progn (set-buffer (org-base-buffer (marker-buffer selected-task))) (setq
> target-pos (marker-position selected-task)) (move-marker selected-task
> nil))) (save-excursion (save-restriction (widen) (goto-char target-pos)
> (org-back-to-heading t) (or interrupting (move-marker
> org-clock-interrupted-task nil)) (run-hooks (quote
> org-clock-in-prepare-hook)) (org-clock-history-push) (setq
> org-clock-current-task (nth 4 (org-heading-components))) (cond ((functionp
> org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) (let
> ((newstate ...)) (if newstate (org-todo newstate)))) ((and
> org-clock-in-switch-to-state (not (looking-at ...))) (org-todo
> org-clock-in-switch-to-state))) (setq org-clock-heading (cond ((and
> org-clock-heading-function (functionp org-clock-heading-function)) (funcall
> org-clock-heading-function)) ((nth 4 (org-heading-components))
> (replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1"
> (match-string-no-properties 4))) (t "???"))) (org-clock-find-position
> org-clock-in-resume) (cond ((and org-clock-in-resume (looking-at (concat
> "^[ ]*" org-clock-string " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" "
> *\\sw+.? +[012][0-9]:[0-5][0-9]\\)\\][ ]*quot;))) (message "Matched %s"
> (match-string 1)) (setq ts (concat "[" (match-string 1) "]")) (goto-char
> (match-end 1)) (setq org-clock-start-time (apply (quote encode-time)
> (org-parse-time-string ...))) (setq org-clock-effort (org-entry-get (point)
> org-effort-property)) (setq org-clock-total-time
> (org-clock-sum-current-item (org-clock-get-sum-start)))) ((eq
> org-clock-in-resume (quote auto-restart)) (message "Cannot restart clock
> because task does not contain unfinished clock") (ding) (sit-for 2) (throw
> (quote abort) nil)) (t (insert-before-markers "\n") (backward-char 1)
> (org-indent-line) (if (and (save-excursion ... ...)) (progn
> (beginning-of-line 1) (org-indent-line-to ...))) (insert org-clock-string "
> ") (setq org-clock-effort (org-entry-get (point) org-effort-property))
> (setq org-clock-total-time (org-clock-sum-current-item
> (org-clock-get-sum-start))) (setq org-clock-start-time (or (and
> org-clock-continuously org-clock-out-time) (and leftover ... leftover)
> start-time (org-current-time org-clock-rounding-minutes t))) (setq ts
> (org-insert-time-stamp org-clock-start-time (quote with-hm) (quote
> inactive))))) (move-marker org-clock-marker (point) (buffer-base-buffer))
> (move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t)
> (point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (if (or (eq
> org-clock-clocked-in-display (quote mode-line)) (eq
> org-clock-clocked-in-display (quote both))) (progn (or global-mode-string
> (setq global-mode-string (quote ...))) (or (memq (quote
> org-mode-line-string) global-mode-string) (setq global-mode-string (append
> global-mode-string ...))))) (if (or (eq org-clock-clocked-in-display (quote
> frame-title)) (eq org-clock-clocked-in-display (quote both))) (progn (setq
> frame-title-format org-clock-frame-title-format)))
> (org-clock-update-mode-line) (if org-clock-mode-line-timer (progn
> (cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer
> nil))) (if org-clock-clocked-in-display (progn (setq
> org-clock-mode-line-timer (run-with-timer org-clock-update-period
> org-clock-update-period (quote org-clock-update-mode-line))))) (if
> org-clock-idle-timer (progn (cancel-timer org-clock-idle-timer) (setq
> org-clock-idle-timer nil))) (setq org-clock-idle-timer (run-with-timer 60
> 60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s"
> ts org--msg-extra) (run-hooks (quote org-clock-in-hook)))))
> (let ((interrupting (and (not org-clock-resolving-clocks-due-to-idleness)
> (org-clocking-p))) ts selected-task target-pos (org--msg-extra "")
> (leftover (and (not org-clock-resolving-clocks) org-clock-leftover-time)))
> (if (and org-clock-auto-clock-resolution (or (not interrupting) (eq t
> org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not
> org-clock-resolving-clocks)) (progn (setq org-clock-leftover-time nil) (let
> ((org-clock-clocking-in t)) (org-resolve-clocks)))) (if (equal select
> (quote (64))) (progn (let ((org-clock-continuously t)) (org-clock-in nil
> org-clock-out-time)))) (if (equal select (quote (4))) (progn (setq
> selected-task (org-clock-select-task "Clock-in on task: ")) (if
> selected-task (setq selected-task (copy-marker selected-task)) (error
> "Abort")))) (if (equal select (quote (16))) (progn
> (org-clock-mark-default-task))) (if interrupting (progn (if (save-excursion
> (if selected-task nil (org-back-to-heading t)) (and (equal (marker-buffer
> org-clock-hd-marker) (if selected-task ... ...)) (= (marker-position
> org-clock-hd-marker) (if selected-task ... ...)) (equal
> org-clock-current-task (nth 4 ...)))) (progn (message "Clock continues in
> \"%s\"" org-clock-heading) (throw (quote abort) nil))) (move-marker
> org-clock-interrupted-task (marker-position org-clock-marker)
> (marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t))
> (org-clock-out nil t)))) (setq target-pos (if (and (eobp) (not
> (org-at-heading-p))) (point-at-bol 0) (point))) (save-excursion (if (and
> selected-task (marker-buffer selected-task)) (progn (set-buffer
> (org-base-buffer (marker-buffer selected-task))) (setq target-pos
> (marker-position selected-task)) (move-marker selected-task nil)))
> (save-excursion (save-restriction (widen) (goto-char target-pos)
> (org-back-to-heading t) (or interrupting (move-marker
> org-clock-interrupted-task nil)) (run-hooks (quote
> org-clock-in-prepare-hook)) (org-clock-history-push) (setq
> org-clock-current-task (nth 4 (org-heading-components))) (cond ((functionp
> org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) (let
> (...) (if newstate ...))) ((and org-clock-in-switch-to-state (not ...))
> (org-todo org-clock-in-switch-to-state))) (setq org-clock-heading (cond
> ((and org-clock-heading-function ...) (funcall org-clock-heading-function))
> ((nth 4 ...) (replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]"
> "\\1" ...)) (t "???"))) (org-clock-find-position org-clock-in-resume) (cond
> ((and org-clock-in-resume (looking-at ...)) (message "Matched %s"
> (match-string 1)) (setq ts (concat "[" ... "]")) (goto-char (match-end 1))
> (setq org-clock-start-time (apply ... ...)) (setq org-clock-effort
> (org-entry-get ... org-effort-property)) (setq org-clock-total-time
> (org-clock-sum-current-item ...))) ((eq org-clock-in-resume (quote
> auto-restart)) (message "Cannot restart clock because task does not contain
> unfinished clock") (ding) (sit-for 2) (throw (quote abort) nil)) (t
> (insert-before-markers "\n") (backward-char 1) (org-indent-line) (if (and
> ...) (progn ... ...)) (insert org-clock-string " ") (setq org-clock-effort
> (org-entry-get ... org-effort-property)) (setq org-clock-total-time
> (org-clock-sum-current-item ...)) (setq org-clock-start-time (or ... ...
> start-time ...)) (setq ts (org-insert-time-stamp org-clock-start-time ...
> ...)))) (move-marker org-clock-marker (point) (buffer-base-buffer))
> (move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t)
> (point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (if (or (eq
> org-clock-clocked-in-display (quote mode-line)) (eq
> org-clock-clocked-in-display (quote both))) (progn (or global-mode-string
> (setq global-mode-string ...)) (or (memq ... global-mode-string) (setq
> global-mode-string ...)))) (if (or (eq org-clock-clocked-in-display (quote
> frame-title)) (eq org-clock-clocked-in-display (quote both))) (progn (setq
> frame-title-format org-clock-frame-title-format)))
> (org-clock-update-mode-line) (if org-clock-mode-line-timer (progn
> (cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer
> nil))) (if org-clock-clocked-in-display (progn (setq
> org-clock-mode-line-timer (run-with-timer org-clock-update-period
> org-clock-update-period ...)))) (if org-clock-idle-timer (progn
> (cancel-timer org-clock-idle-timer) (setq org-clock-idle-timer nil))) (setq
> org-clock-idle-timer (run-with-timer 60 60 (quote
> org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s" ts
> org--msg-extra) (run-hooks (quote org-clock-in-hook))))))
> (catch (quote abort) (let ((interrupting (and (not
> org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts
> selected-task target-pos (org--msg-extra "") (leftover (and (not
> org-clock-resolving-clocks) org-clock-leftover-time))) (if (and
> org-clock-auto-clock-resolution (or (not interrupting) (eq t
> org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not
> org-clock-resolving-clocks)) (progn (setq org-clock-leftover-time nil) (let
> ((org-clock-clocking-in t)) (org-resolve-clocks)))) (if (equal select
> (quote (64))) (progn (let ((org-clock-continuously t)) (org-clock-in nil
> org-clock-out-time)))) (if (equal select (quote (4))) (progn (setq
> selected-task (org-clock-select-task "Clock-in on task: ")) (if
> selected-task (setq selected-task (copy-marker selected-task)) (error
> "Abort")))) (if (equal select (quote (16))) (progn
> (org-clock-mark-default-task))) (if interrupting (progn (if (save-excursion
> (if selected-task nil (org-back-to-heading t)) (and (equal ... ...) (= ...
> ...) (equal org-clock-current-task ...))) (progn (message "Clock continues
> in \"%s\"" org-clock-heading) (throw (quote abort) nil))) (move-marker
> org-clock-interrupted-task (marker-position org-clock-marker)
> (marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t))
> (org-clock-out nil t)))) (setq target-pos (if (and (eobp) (not
> (org-at-heading-p))) (point-at-bol 0) (point))) (save-excursion (if (and
> selected-task (marker-buffer selected-task)) (progn (set-buffer
> (org-base-buffer (marker-buffer selected-task))) (setq target-pos
> (marker-position selected-task)) (move-marker selected-task nil)))
> (save-excursion (save-restriction (widen) (goto-char target-pos)
> (org-back-to-heading t) (or interrupting (move-marker
> org-clock-interrupted-task nil)) (run-hooks (quote
> org-clock-in-prepare-hook)) (org-clock-history-push) (setq
> org-clock-current-task (nth 4 (org-heading-components))) (cond ((functionp
> org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) (let
> ... ...)) ((and org-clock-in-switch-to-state ...) (org-todo
> org-clock-in-switch-to-state))) (setq org-clock-heading (cond (... ...)
> (... ...) (t "???"))) (org-clock-find-position org-clock-in-resume) (cond
> ((and org-clock-in-resume ...) (message "Matched %s" ...) (setq ts ...)
> (goto-char ...) (setq org-clock-start-time ...) (setq org-clock-effort ...)
> (setq org-clock-total-time ...)) ((eq org-clock-in-resume ...) (message
> "Cannot restart clock because task does not contain unfinished clock")
> (ding) (sit-for 2) (throw ... nil)) (t (insert-before-markers "\n")
> (backward-char 1) (org-indent-line) (if ... ...) (insert org-clock-string "
> ") (setq org-clock-effort ...) (setq org-clock-total-time ...) (setq
> org-clock-start-time ...) (setq ts ...))) (move-marker org-clock-marker
> (point) (buffer-base-buffer)) (move-marker org-clock-hd-marker
> (save-excursion (org-back-to-heading t) (point)) (buffer-base-buffer))
> (setq org-clock-has-been-used t) (if (or (eq org-clock-clocked-in-display
> ...) (eq org-clock-clocked-in-display ...)) (progn (or global-mode-string
> ...) (or ... ...))) (if (or (eq org-clock-clocked-in-display ...) (eq
> org-clock-clocked-in-display ...)) (progn (setq frame-title-format
> org-clock-frame-title-format))) (org-clock-update-mode-line) (if
> org-clock-mode-line-timer (progn (cancel-timer org-clock-mode-line-timer)
> (setq org-clock-mode-line-timer nil))) (if org-clock-clocked-in-display
> (progn (setq org-clock-mode-line-timer ...))) (if org-clock-idle-timer
> (progn (cancel-timer org-clock-idle-timer) (setq org-clock-idle-timer
> nil))) (setq org-clock-idle-timer (run-with-timer 60 60 (quote
> org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s" ts
> org--msg-extra) (run-hooks (quote org-clock-in-hook)))))))
>
> org-clock-in(nil)
> call-interactively(org-clock-in nil nil)
> command-execute(org-clock-in)
>
>
>
> On Thu, May 5, 2016 at 9:52 AM Nicolas Goaziou <mail@nicolasgoaziou.fr>
> wrote:
>
>> Hello,
>>
>> Carlos Noguera <carlos.francisco.noguera@gmail.com> writes:
>>
>> > When clocking in under a headline that already has clock entries, the
>> > entries are not correclty bundled in a drawer, generating a: (I removed
>> > the bytecode because gmail didn't like it)
>> >
>> > Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
>> > byte-code("REMOVED" [beg end org-clock-into-drawer drawer
>> find-unclosed
>> > org-clock-string line-beginning-position outline-next-heading
>> > org-clock-drawer-name "^[ ]*" "
>> > \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+
>> > +[012][0-9]:[0-5][0-9]\\)\\][ ]*$" re-search-forward t
>> org-element-at-point
>> > org-element-type clock org-element-property :status running
>> > beginning-of-line throw exit "^[ ]*:" regexp-quote ":[ ]*$"
>> :contents-end
>> > nil 0 org-end-of-meta-data "\n" wholenump 2 ":" ":\n:END:\n"
>> > org-indent-region org-flag-drawer mapconcat #[(p) "\212
>> > b\210\302\212\303\304x\210\305\306!)\305\306!\"
>> > \307\310\311\307\312\311 ##*\207"
>> > [p s delete-and-extract-region "
>> > \n" nil line-beginning-position 2 replace-regexp-in-string "\\`[ \n
>> > ]+" "" "[ \n
>> > ]+\\'"] 7] "\n:END:\n" point-marker ":\n" -1 last open-clock-re element
>> > drawer-re cend org-log-states-order-reversed first ...] 4)
>> > org-clock-find-position(nil)
>> > byte-code("REMOVED" [org-clock-resolving-clocks-due-to-idleness
>> > org-clock-resolving-clocks org-clock-leftover-time leftover
>> org--msg-extra
>> > target-pos org-clocking-p nil "" t org-resolve-clocks (64) org-clock-in
>> (4)
>> > org-clock-select-task "Clock-in on task: " copy-marker error "Abort"
>> (16)
>> > org-clock-mark-default-task org-back-to-heading marker-buffer
>> > marker-position 4 org-heading-components message "Clock continues in
>> > \"%s\"" throw abort org-clock-out org-at-heading-p point-at-bol 0
>> > org-base-buffer run-hooks org-clock-in-prepare-hook
>> org-clock-history-push
>> > functionp looking-at match-string 2 org-todo "[ ]*" "\\>"
>> > replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1"
>> > match-string-no-properties "???" ...] 8)
>> > org-clock-in(nil)
>> > call-interactively(org-clock-in nil nil)
>> > command-execute(org-clock-in)
>> >
>> > that prevents the clock in
>> > I go from
>> >
>> > ** TODO a task
>> > CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] => 1:29
>> > CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] => 0:00
>> >
>> > C-c C-x C-i
>> >
>> > to
>> >
>> > ** TODO a task
>> > :CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] => 0:00
>> > CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] => 1:29
>> > :END:
>>
>> I cannot reproduce it. In the example above, I get
>>
>> * NEXT a task
>> :LOGBOOK:
>> CLOCK: [2016-05-05 Thu 09:52]
>> CLOCK: [2016-05-04 Wed 12:44]--[2016-05-04 Wed 12:44] => 0:00
>> CLOCK: [2016-04-29 Fri 13:14]--[2016-04-29 Fri 14:43] => 1:29
>> :END:
>>
>> > Any ideas?
>>
>> Not quite. Could you provide a backtrace with an uncompiled Org
>> (org-reload with universal argument) ?
>>
>> Regards,
>>
>> --
>> Nicolas Goaziou
>>
>
[-- Attachment #2: Type: text/html, Size: 32165 bytes --]
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Bug: clock in generates bad drawer [8.3.4 (8.3.4-47-gaf853d-elpa @ /home/carlos/.emacs.d/elpa/org-20160502/)]
2016-05-10 12:42 ` Carlos Noguera
@ 2016-05-10 21:10 ` Nicolas Goaziou
2016-05-11 8:57 ` Carlos Noguera
0 siblings, 1 reply; 6+ messages in thread
From: Nicolas Goaziou @ 2016-05-10 21:10 UTC (permalink / raw
To: Carlos Noguera; +Cc: emacs-orgmode
Hello,
Carlos Noguera <carlos.francisco.noguera@gmail.com> writes:
> FYI, I just discovered that the behaviour happens if "Org Clock Into
> Drawer" option in "Org Clock group" is set to "When at least N clock
> entries: 3" and I go from two entries to 3.
> If I change it to "Into LOGBOOK drawer" I don't have the problem any more.
>
> For the moment, I'll keep in " Into LOGBOOK drawer" as a workaround.
>
> Hope this helps.
Fixed. Thank you.
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Bug: clock in generates bad drawer [8.3.4 (8.3.4-47-gaf853d-elpa @ /home/carlos/.emacs.d/elpa/org-20160502/)]
2016-05-10 21:10 ` Nicolas Goaziou
@ 2016-05-11 8:57 ` Carlos Noguera
0 siblings, 0 replies; 6+ messages in thread
From: Carlos Noguera @ 2016-05-11 8:57 UTC (permalink / raw
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 628 bytes --]
excellent.
Thanks.
Carlos
On Tue, May 10, 2016 at 11:10 PM Nicolas Goaziou <mail@nicolasgoaziou.fr>
wrote:
> Hello,
>
> Carlos Noguera <carlos.francisco.noguera@gmail.com> writes:
>
> > FYI, I just discovered that the behaviour happens if "Org Clock Into
> > Drawer" option in "Org Clock group" is set to "When at least N clock
> > entries: 3" and I go from two entries to 3.
> > If I change it to "Into LOGBOOK drawer" I don't have the problem any
> more.
> >
> > For the moment, I'll keep in " Into LOGBOOK drawer" as a workaround.
> >
> > Hope this helps.
>
> Fixed. Thank you.
>
> Regards,
>
> --
> Nicolas Goaziou
>
[-- Attachment #2: Type: text/html, Size: 1154 bytes --]
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2016-05-11 8:57 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2016-05-04 10:59 Bug: clock in generates bad drawer [8.3.4 (8.3.4-47-gaf853d-elpa @ /home/carlos/.emacs.d/elpa/org-20160502/)] Carlos Noguera
2016-05-05 7:52 ` Nicolas Goaziou
2016-05-10 7:05 ` Carlos Noguera
2016-05-10 12:42 ` Carlos Noguera
2016-05-10 21:10 ` Nicolas Goaziou
2016-05-11 8:57 ` Carlos Noguera
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.