key bindings for quickly setting effort estimates

[Adam Spiers <orgmode@adamspiers.org>]

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