diff --git a/src/export.php b/src/export.php
index b1ec8fb..97a6581 100644
--- a/src/export.php
+++ b/src/export.php
@@ -2,7 +2,7 @@
 
 /*
 	This file is part of myTinyTodo.
-	(C) Copyright 2010 Max Pozdeev <maxpozdeev@gmail.com>
+	(C) Copyright 2010-2011 Max Pozdeev <maxpozdeev@gmail.com>
 	Licensed under the GNU GPL v3 license. See file COPYRIGHT for details.
 */
 
@@ -30,9 +30,10 @@ while($r = $q->fetch_assoc($q))
 	$data[] = $r; 
 }
 
-//$format = _get('format');
-
- printCSV($listData, $data);
+$format = _get('format');
+	
+if($format = 'ical') printICal($listData, $data);
+else printCSV($listData, $data);
 
 
 function have_write_access()
@@ -52,7 +53,7 @@ function printCSV($listData, $data)
 			escape_csv($r['note']). ','. escape_csv($r['tags']). ','. $r['duedate'].
 			','. date('Y-m-d H:i:s O',$r['d_created']). ','. ($r['d_completed'] ? date('Y-m-d H:i:s O',$r['d_completed']) :''). "\n";
 	}
-	header('Content-type: text/csv');
+	header('Content-type: text/csv; charset=utf-8');
 	header('Content-disposition: attachment; filename=list_'.$listData['id'].'.csv');
 	print $s;
 }
@@ -62,4 +63,90 @@ function escape_csv($v)
 	return '"'.str_replace('"', '""', $v).'"';
 }
 
+function printICal($listData, $data)
+{
+	$mttToIcalPrio = array("1" => 5, "2" => 1);
+	$s = "BEGIN:VCALENDAR\r\nVERSION:2.0\r\nMETHOD:PUBLISH\r\nCALSCALE:GREGORIAN\r\nPRODID:-//myTinyTodo//iCalendar Export v1.4//EN\r\n".
+		"X-WR-CALNAME:". $listData['name']. "\r\nX-MTT-TIMEZONE:".Config::get('timezone')."\r\n";
+	# to-do
+	foreach($data as $r)
+	{
+		$a = array();
+		$a[] = "BEGIN:VTODO";
+		$a[] = "UID:". $r['uuid'];
+		$a[] = "CREATED:". gmdate('Ymd\THis\Z', $r['d_created']);
+		$a[] = "DTSTAMP:". gmdate('Ymd\THis\Z', $r['d_edited']);
+		$a[] = "LAST-MODIFIED:". gmdate('Ymd\THis\Z', $r['d_edited']);
+		$a[] = utf8chunks("SUMMARY:". $r['title']);
+		if($r['duedate']) {
+			$dda = explode('-', $r['duedate']);
+			$a[] = "DUE;VALUE=DATE:".sprintf("%u%02u%02u", $dda[0], $dda[1], $dda[2]);
+		}
+		# Apple's iCal priorities: low-9, medium-5, high-1
+		if($r['prio'] > 0 && isset($mttToIcalPrio[$r['prio']])) $a[] = "PRIORITY:". $mttToIcalPrio[$r['prio']];
+		$a[] = "X-MTT-PRIORITY:". $r['prio'];
+		
+		$descr = array();
+		if($r['tags'] != '') $descr[] = Lang::instance()->get('tags'). ": ". str_replace(',', ', ', $r['tags']);
+		if($r['note'] != '') $descr[] = Lang::instance()->get('note'). ": ". $r['note'];
+		if($descr) $a[] = utf8chunks("DESCRIPTION:". str_replace("\n", '\\n', implode("\n",$descr)));
+
+		if($r['compl']) {
+			$a[] = "STATUS:COMPLETED"; #used in Sunbird
+			$a[] = "COMPLETED:". gmdate('Ymd\THis\Z', $r['d_completed']);
+			#$a[] = "PERCENT-COMPLETE:100"; #used in Sunbird
+		}
+		if($r['tags'] != '') $a[] = utf8chunks("X-MTT-TAGS:". $r['tags']);
+		$a[] = "END:VTODO\r\n";
+		$s .= implode("\r\n", $a);
+	}
+	# events
+	foreach($data as $r)
+	{
+		if(!$r['duedate'] || $r['compl']) continue;	# skip tasks completed and without duedate 
+		$a = array();
+		$a[] = "BEGIN:VEVENT";
+		$a[] = "UID:_". $r['uuid'];	# do not duplicate VTODO UID
+		$a[] = "CREATED:". gmdate('Ymd\THis\Z', $r['d_created']);
+		$a[] = "DTSTAMP:". gmdate('Ymd\THis\Z', $r['d_edited']);
+		$a[] = "LAST-MODIFIED:". gmdate('Ymd\THis\Z', $r['d_edited']);
+		$a[] = utf8chunks("SUMMARY:". $r['title']);
+		if($r['prio'] > 0 && isset($mttToIcalPrio[$r['prio']])) $a[] = "PRIORITY:". $mttToIcalPrio[$r['prio']];
+		$dda = explode('-', $r['duedate']);
+		$a[] = "DTSTART;VALUE=DATE:".sprintf("%u%02u%02u", $dda[0], $dda[1], $dda[2]);
+		$a[] = "DTEND;VALUE=DATE:".date('Ymd', mktime(1,1,1,$dda[1],$dda[2],$dda[0]) + 86400);
+		$descr = array();
+		if($r['tags'] != '') $descr[] = Lang::instance()->get('tags'). ": ". str_replace(',', ', ', $r['tags']);
+		if($r['note'] != '') $descr[] = Lang::instance()->get('note'). ": ". $r['note'];
+		if($descr) $a[] = utf8chunks("DESCRIPTION:". str_replace("\n", '\\n', implode("\n",$descr)));
+		$a[] = "END:VEVENT\r\n";
+		$s .= implode("\r\n", $a);
+	}
+	$s .= "END:VCALENDAR\r\n";
+	header('Content-type: text/calendar; charset=utf-8');
+	header('Content-disposition: attachment; filename=list_'.$listData['id'].'.ics');
+	print $s;
+}
+
+function utf8chunks($text, $chunklen=75, $delimiter="\r\n\t")
+{
+	if($text == '') return '';
+	preg_match_all('/./u', $text, $m);
+	$chars = $m[0];
+	$a = array();
+	$s = '';
+	$max = count($chars);
+	for($i=0; $i<$max; $i++)
+	{
+		$ch = $chars[$i];
+		if(strlen($s) + strlen($ch) > $chunklen) { # line should be not more than $chunklen bytes
+			$a[] = $s;
+			$s = $ch;
+		}
+		else $s .= $ch;
+	}
+	if($s != '') $a[] = $s;
+	return implode($delimiter, $a);
+}
+
 ?>
\ No newline at end of file