patch to org-exp.el fixing priority value of icalendar export

patch to org-exp.el fixing priority value of icalendar export

[Tokuya Kameshima]

Hi,

Per RFC 2445, the priority value of 1 is the highest priority and 9 is
the lowest priority.  But `org-print-icalendar-entries' writes the
opposite ones.

Thanks,
--Tokuya

PS. I found this bug when I started using Rainlendar to view ICS
exported events and tasks.

----------------------------------------
diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 744952b..a4bf3ae 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -3826,7 +3826,7 @@ END:VEVENT\n"
 			hd (concat (substring hd 0 (match-beginning 1))
 				   (substring hd (match-end 1))))
 		(setq pri org-default-priority))
-	      (setq pri (floor (1+ (* 8. (/ (float (- org-lowest-priority pri))
+	      (setq pri (floor (- 9 (* 8. (/ (float (- org-lowest-priority pri))
 					    (- org-lowest-priority org-highest-priority))))))
 
 	      (princ (format "BEGIN:VTODO

Re: patch to org-exp.el fixing priority value of icalendar export

[Carsten Dominik]

Applied, thanks.

- Carsten

On Oct 28, 2008, at 3:02 PM, Tokuya Kameshima wrote:

> Hi,
>
> Per RFC 2445, the priority value of 1 is the highest priority and 9 is
> the lowest priority.  But `org-print-icalendar-entries' writes the
> opposite ones.
>
> Thanks,
> --Tokuya
>
> PS. I found this bug when I started using Rainlendar to view ICS
> exported events and tasks.
>
> ----------------------------------------
> diff --git a/lisp/org-exp.el b/lisp/org-exp.el
> index 744952b..a4bf3ae 100644
> --- a/lisp/org-exp.el
> +++ b/lisp/org-exp.el
> @@ -3826,7 +3826,7 @@ END:VEVENT\n"
> 			hd (concat (substring hd 0 (match-beginning 1))
> 				   (substring hd (match-end 1))))
> 		(setq pri org-default-priority))
> -	      (setq pri (floor (1+ (* 8. (/ (float (- org-lowest-priority  
> pri))
> +	      (setq pri (floor (- 9 (* 8. (/ (float (- org-lowest-priority  
> pri))
> 					    (- org-lowest-priority org-highest-priority))))))
>
> 	      (princ (format "BEGIN:VTODO
>
>
> _______________________________________________
> 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