*Clock Task Select* - feature request

*Clock Task Select* - feature request

[Marcin Borkowski]

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

Re: *Clock Task Select* - feature request

[Bastien]

Hi Marcin,

Marcin Borkowski <mbork@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: *Clock Task Select* - feature request

[Marcin Borkowski]

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