Re: key bindings for quickly setting effort estimates

[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