From mboxrd@z Thu Jan 1 00:00:00 1970 From: Marcin Borkowski Subject: *Clock Task Select* - feature request Date: Wed, 15 Oct 2014 22:47:14 +0200 Message-ID: <87y4shhxgt.fsf@wmi.amu.edu.pl> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:42173) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XeVTr-0004QQ-EK for emacs-orgmode@gnu.org; Wed, 15 Oct 2014 16:47:41 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XeVTl-0007gw-Je for emacs-orgmode@gnu.org; Wed, 15 Oct 2014 16:47:35 -0400 Received: from msg.wmi.amu.edu.pl ([2001:808:114:2::50]:41117) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XeVTl-0007gi-C8 for emacs-orgmode@gnu.org; Wed, 15 Oct 2014 16:47:29 -0400 Received: from localhost (localhost [127.0.0.1]) by msg.wmi.amu.edu.pl (Postfix) with ESMTP id B80715B87A for ; Wed, 15 Oct 2014 22:47:27 +0200 (CEST) Received: from msg.wmi.amu.edu.pl ([127.0.0.1]) by localhost (msg.wmi.amu.edu.pl [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id mnv-dblVMYTA for ; Wed, 15 Oct 2014 22:47:27 +0200 (CEST) Received: from localhost (99-229.echostar.pl [213.156.99.229]) by msg.wmi.amu.edu.pl (Postfix) with ESMTPSA id 6FFD25B879 for ; Wed, 15 Oct 2014 22:47:27 +0200 (CEST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Org Mode List 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 --- # *************** *** 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