key bindings for quickly setting effort estimates

key bindings for quickly setting effort estimates

[Adam Spiers]

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

Re: key bindings for quickly setting effort estimates

[Carsten Dominik]

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

Re: key bindings for quickly setting effort estimates

[Tim O'Callaghan]

Would it be possible to add something like this to the
"org-fast-tag-selection-include-todo" interface?

possibly with a list of properties to select from:
org-fast-tag-selection-include-properties '(("EFFORT_All"  ?e)
                                                           ("FOCUS_All"  ?f))

So to select effort of "0:20" i'd type "e 2" or similar?

Tim.

2009/11/3 Carsten Dominik <carsten.dominik@gmail.com>:
> 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
>
>
>
>
>
> _______________________________________________
> 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
>

Re: key bindings for quickly setting effort estimates

[Carsten Dominik]

On Nov 3, 2009, at 1:33 PM, Tim O'Callaghan wrote:

> Would it be possible to add something like this to the
> "org-fast-tag-selection-include-todo" interface?
>
> possibly with a list of properties to select from:
> org-fast-tag-selection-include-properties '(("EFFORT_All"  ?e)
>                                                            
> ("FOCUS_All"  ?f))
>
> So to select effort of "0:20" i'd type "e 2" or similar?

No, I don't think to the tags interface, this would get messy.  For he  
agenda you can already do

    2 e

anod now I have changed it that you can also do `e 2' from the agenda,
or `C-c C-x e 2' from the Org buffer.

- Carsten

>
> Tim.
>
> 2009/11/3 Carsten Dominik <carsten.dominik@gmail.com>:
>> 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
>>
>>
>>
>>
>>
>> _______________________________________________
>> 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