From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: key bindings for quickly setting effort estimates Date: Tue, 3 Nov 2009 07:32:58 +0100 Message-ID: <4A61C92B-7A1F-4C63-B3A8-E5956CB0110B@gmail.com> References: <20091102135230.GD25581@atlantic.linksys.moosehall> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1N5Dt9-0001KJ-Ls for emacs-orgmode@gnu.org; Tue, 03 Nov 2009 02:33:11 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1N5Dt4-0001Ht-UR for emacs-orgmode@gnu.org; Tue, 03 Nov 2009 02:33:11 -0500 Received: from [199.232.76.173] (port=52088 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N5Dt4-0001Hq-MG for emacs-orgmode@gnu.org; Tue, 03 Nov 2009 02:33:06 -0500 Received: from mail-ew0-f228.google.com ([209.85.219.228]:55639) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1N5Dt4-0000oK-9a for emacs-orgmode@gnu.org; Tue, 03 Nov 2009 02:33:06 -0500 Received: by mail-ew0-f228.google.com with SMTP id 28so3234891ewy.42 for ; Mon, 02 Nov 2009 23:33:05 -0800 (PST) In-Reply-To: <20091102135230.GD25581@atlantic.linksys.moosehall> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Adam Spiers Cc: org-mode mailing list We do have `org-set-effort', bound to `C-c C-x e'. You can use a prefix arg to get to a value directly. But your approach is faster, if you have to do this a lot. - Carsten On Nov 2, 2009, at 2:52 PM, Adam Spiers wrote: > I found myself needing a quick way of setting effort estimates outside > column view, and came up with the following: > > ;; Zero effort is last (10th) element of global Effort_ALL property > ;; so that we get zero effort when pressing '0' in the Effort column > ;; in Column view, since this invokes `org-set-effort' with arg 0, > ;; which stands for the 10th allowed value. > (let ((effort-values > (org-property-get-allowed-values nil org-effort-property))) > (dotimes (effort-index 10) > (let* ((effort (nth effort-index effort-values)) > (key-suffix (number-to-string > (if (= effort-index 9) 0 (1+ effort-index)))) > (fn-name (concat "org-set-effort-" > (number-to-string effort-index))) > (fn (intern fn-name))) > ;; (message "Binding M-o %s to %s which sets effort to %s" > ;; key-suffix fn-name effort) > (fset fn `(lambda () > ,(format "Sets effort to %s." effort) > (interactive) > (org-set-effort ,(1+ effort-index)))) > (global-set-key (concat "\eo" key-suffix) fn)))) > > This assumes that Effort_ALL has 9 non-zero effort values, which in my > case is conveniently true: > > ("0:10" "0:20" "0:30" "1:00" "2:00" "3:00" "4:00" "8:00" "16:00" "0") > > Hope this is of interest. > > Adam > > > _______________________________________________ > Emacs-orgmode mailing list > Remember: use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode - Carsten