From 1674800d5fb26decfa74cb7a1d94e2154b7c27a6 Mon Sep 17 00:00:00 2001
From: Frederic Culot <calcurse@culot.org>
Date: Sun, 10 Aug 2008 09:24:46 +0000
Subject: pcal export added

---
 src/calcurse.c | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

(limited to 'src/calcurse.c')

diff --git a/src/calcurse.c b/src/calcurse.c
index cd9b31c..91cc8d5 100755
--- a/src/calcurse.c
+++ b/src/calcurse.c
@@ -1,4 +1,4 @@
-/*	$calcurse: calcurse.c,v 1.64 2008/08/03 18:41:55 culot Exp $	*/
+/*	$calcurse: calcurse.c,v 1.65 2008/08/10 09:24:46 culot Exp $	*/
 
 /*
  * Calcurse - text-based organizer
@@ -384,7 +384,28 @@ main (int argc, char **argv)
 
 	case 'X':
 	case 'x':		/* Export function */
-	  io_export_data (IO_EXPORT_INTERACTIVE, &conf);
+          erase_status_bar ();
+          io_export_bar ();
+          while ((ch = wgetch (win[STA].p)) != 'q')
+	    {
+	      switch (ch)
+		{
+		case 'I':
+		case 'i':
+                  io_export_data (IO_EXPORT_INTERACTIVE, IO_EXPORT_ICAL, &conf);
+		  break;
+		case 'P':
+		case 'p':
+                  io_export_data (IO_EXPORT_INTERACTIVE, IO_EXPORT_PCAL, &conf);
+		  break;
+		}
+	      wins_reset ();
+	      wins_update ();
+	      do_storage = true;
+	      erase_status_bar ();
+	      io_export_bar ();
+	    }
+	  wins_update ();
 	  break;
 
         case KEY_RIGHT:
-- 
cgit v1.2.3-54-g00ecf