christopherjwhite / org-toodledo

Emacs enhancement for syncing org-mode tasks with Toodledlo
83 stars 16 forks source link

The fix of Issue # 24 prevents user from setting a -1 priority. #27

Closed lawlist closed 10 years ago

lawlist commented 10 years ago

At line 1773, I have enabled a negative priority:   ((equal priority "-1") "[#E] ")

And in my org-init file, I have: (setq org-lowest-priority ?E).

The most recent modification to org-toodledo.el prevents the user from setting the task to a -1 priority on Toodledo.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

                ;; (cons "priority" ;; lawlist-delete
                ;;       ;; A=3, B=2, C=1, D-Z=0, no priorty=org-default-priority ;; lawlist-delete
                ;;       (let ((p (if (string-match "\[#[A-Z]\]" priority) ;; lawlist-delete
                ;;                    (elt priority 2) ;; lawlist-delete
                ;;                  org-default-priority))) ;; lawlist-delete
                ;;         (number-to-string (max (- ?D p) 0)))) ;; lawlist-delete

               (cons "priority" ;; lawlist-add
                     (cond ;; lawlist-add
                      ((equal priority "[#A]") "3") ;; lawlist-add
                      ((equal priority "[#B]") "2") ;; lawlist-add
                      ((equal priority "[#C]") "1") ;; lawlist-add
                      ((equal priority "[#D]") "0") ;; lawlist-add
                      ((equal priority "[#E]") "-1") ;; lawlist-add
                      ;; Force org-mode's no priority to be same as [#E] as is done in org-mode. ;; lawlist-add
                      (t "-1"))) ;; lawlist-add

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;