Re: [O] *Clock Task Select* - feature request
Hi Marcin, Marcin Borkowski mb...@wmi.amu.edu.pl writes: I'd love it if *Clock Task Select* were buried (or better, killed) after use. (Is there ever a scenario when someone might want it not to be killed?) It seems that this should do: *** /home/marcin/.emacs.d/elpa/org-20140116/org-clock.el --- #buffer org-clock.el *** *** 559,564 --- 559,565 (fit-window-to-buffer nil nil (if ( chl 10) chl (+ 5 chl))) (message (or prompt Select task for clocking:)) (setq cursor-type nil rpl (read-char-exclusive)) + (kill-buffer) (cond ((eq rpl ?q) nil) ((eq rpl ?x) nil) *** *** 975,980 --- 976,982 (read-char (concat (funcall prompt-fn clock) [jkKgGSscCiq]? ) nil 45))) + (kill-buffer) (and (not (memq char-pressed '(?i ?q))) char-pressed) (default (floor (/ (org-float-time (the second addition should kill the buffer with the menu shown after some idle time, though I didn't test it). Good idea, I pushed this change. I don't think the second kill-buffer is necessary, as this buffer is already temporary. Let me know if I'm wrong. Thanks, -- Bastien
Re: [O] *Clock Task Select* - feature request
On 2014-10-20, at 15:28, Bastien wrote: Hi Marcin, Good idea, I pushed this change. I don't think the second kill-buffer is necessary, as this buffer is already temporary. Let me know if I'm wrong. Thanks, Thanks a lot - that was quite annoying for me! Best, -- Marcin Borkowski http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski Adam Mickiewicz University
[O] *Clock Task Select* - feature request
Hi list, I'd love it if *Clock Task Select* were buried (or better, killed) after use. (Is there ever a scenario when someone might want it not to be killed?) It seems that this should do: *** /home/marcin/.emacs.d/elpa/org-20140116/org-clock.el --- #buffer org-clock.el *** *** 559,564 --- 559,565 (fit-window-to-buffer nil nil (if ( chl 10) chl (+ 5 chl))) (message (or prompt Select task for clocking:)) (setq cursor-type nil rpl (read-char-exclusive)) + (kill-buffer) (cond ((eq rpl ?q) nil) ((eq rpl ?x) nil) *** *** 975,980 --- 976,982 (read-char (concat (funcall prompt-fn clock) [jkKgGSscCiq]? ) nil 45))) + (kill-buffer) (and (not (memq char-pressed '(?i ?q))) char-pressed) (default (floor (/ (org-float-time (the second addition should kill the buffer with the menu shown after some idle time, though I didn't test it). Best, -- Marcin Borkowski http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski Adam Mickiewicz University
