From mboxrd@z Thu Jan  1 00:00:00 1970
From: Adam Spiers <orgmode@adamspiers.org>
Subject: org-show-effort ideas
Date: Mon, 2 Nov 2009 13:49:24 +0000
Message-ID: <20091102134924.GC25581@atlantic.linksys.moosehall>
Reply-To: Adam Spiers <orgmode@adamspiers.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1N4xHs-00060h-Qr
	for emacs-orgmode@gnu.org; Mon, 02 Nov 2009 08:49:36 -0500
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1N4xHn-0005yw-UC
	for emacs-orgmode@gnu.org; Mon, 02 Nov 2009 08:49:36 -0500
Received: from [199.232.76.173] (port=51260 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1N4xHn-0005yt-IE
	for emacs-orgmode@gnu.org; Mon, 02 Nov 2009 08:49:31 -0500
Received: from arctic.adamspiers.org ([212.13.194.176]:49587)
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <orgmode@adamspiers.org>) id 1N4xHm-0004M7-NN
	for emacs-orgmode@gnu.org; Mon, 02 Nov 2009 08:49:31 -0500
Received: from localhost (dsl-217-155-199-114.zen.co.uk [217.155.199.114])
	by arctic.adamspiers.org (Postfix) with ESMTP id 0B37E2401B
	for <emacs-orgmode@gnu.org>; Mon,  2 Nov 2009 13:49:29 +0000 (UTC)
Content-Disposition: inline
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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: org-mode mailing list <emacs-orgmode@gnu.org>

I wanted an easy way to see an effort estimate when not in column
view, so I wrote this:

(defun org-show-effort ()
  "Shows the effort of the entry at the current point."
  (interactive)
  (let ((effort (org-entry-get (point) org-effort-property)))
    (message (if effort (format "Effort is %s" effort)
               "No effort defined"))))

However it would be nice to have a keystroke that would do this in
agenda view.  Another nice touch would be to change 'e' which
currently allows you to edit the effort from agenda view, so that the
prompt for the new value shows the existing effort estimate if there
is one.

Regards,
Adam