Closed lawlist closed 10 years ago
At line 1773, I have enabled a negative priority: ((equal priority "-1") "[#E] ")
((equal priority "-1") "[#E] ")
And in my org-init file, I have: (setq org-lowest-priority ?E).
(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.
org-toodledo.el
-1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; (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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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.