/* Evolution calendar - Widget utilities
*
* Copyright (C) 2000 Ximian, Inc.
*
* Author: Federico Mena-Quintero <federico@ximian.com>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include <ctype.h>
#include <string.h>
#include <ical.h>
#include <glib.h>
#include <libgnome/gnome-defs.h>
#include <libgnome/gnome-i18n.h>
#include <liboaf/liboaf.h>
#include <bonobo/bonobo-control.h>
#include <bonobo/bonobo-widget.h>
#include <e-destination.h>
#include <e-util/e-time-utils.h>
#include <cal-util/timeutil.h>
#include "../calendar-config.h"
#include "comp-editor-util.h"
/**
* comp_editor_dates:
* @dates: A structure to be filled out with dates of a component
* @comp: The component to extract the dates from
*
* Extracts the dates from the calendar component into the
* CompEditorPageDates structure. Note that it returns pointers to static
* structs, so these will be overwritten in the next call.
**/
void
comp_editor_dates (CompEditorPageDates *dates, CalComponent *comp)
{
static struct icaltimetype start;
static struct icaltimetype end;
static struct icaltimetype due;
static struct icaltimetype complete;
CalComponentDateTime dt;
struct icaltimetype *comp_complete;
dates->start = NULL;
dates->end = NULL;
dates->due = NULL;
dates->complete = NULL;
cal_component_get_dtstart (comp, &dt);
if (dt.value) {
start = *dt.value;
dates->start = &start;
}
cal_component_free_datetime (&dt);
cal_component_get_dtend (comp, &dt);
if (dt.value) {
end = *dt.value;
dates->end = &end;
}
cal_component_free_datetime (&dt);
cal_component_get_due (comp, &dt);
if (dt.value) {
due = *dt.value;
dates->due = &due;
}
cal_component_free_datetime (&dt);
cal_component_get_completed (comp, &comp_complete);
if (comp_complete) {
complete = *comp_complete;
dates->complete = &complete;
cal_component_free_icaltimetype (comp_complete);
}
}
static void
write_label_piece (struct icaltimetype *tt, char *buffer, int size,
char *stext, char *etext)
{
struct tm tmp_tm = { 0 };
int len;
/* FIXME: May want to convert the time to an appropriate zone. */
if (stext != NULL)
strcat (buffer, stext);
tmp_tm.tm_year = tt->year - 1900;
tmp_tm.tm_mon = tt->month - 1;
tmp_tm.tm_mday = tt->day;
tmp_tm.tm_hour = tt->hour;
tmp_tm.tm_min = tt->minute;
tmp_tm.tm_sec = tt->second;
tmp_tm.tm_isdst = -1;
tmp_tm.tm_wday = time_day_of_week (tt->day, tt->month - 1, tt->year);
len = strlen (buffer);
e_time_format_date_and_time (&tmp_tm,
calendar_config_get_24_hour_format (),
FALSE, FALSE,
&buffer[len], size - len);
if (etext != NULL)
strcat (buffer, etext);
}
/**
* comp_editor_date_label:
* @dates: The dates to use in constructing a label
* @label: The label whose text is to be set
*
* Set the text of a label based on the dates available and the user's
* formatting preferences
**/
void
comp_editor_date_label (CompEditorPageDates *dates, GtkWidget *label)
{
char buffer[1024];
gboolean start_set = FALSE, end_set = FALSE;
gboolean complete_set = FALSE, due_set = FALSE;
buffer[0] = '\0';
if (dates->start && !icaltime_is_null_time (*dates->start))
start_set = TRUE;
if (dates->end && !icaltime_is_null_time (*dates->end))
end_set = TRUE;
if (dates->complete && !icaltime_is_null_time (*dates->complete))
complete_set = TRUE;
if (dates->due && !icaltime_is_null_time (*dates->due))
due_set = TRUE;
if (start_set)
write_label_piece (dates->start, buffer, 1024, NULL, NULL);
if (start_set && end_set)
write_label_piece (dates->end, buffer, 1024, _(" to "), NULL);
if (complete_set) {
if (start_set)
write_label_piece (dates->complete, buffer, 1024, _(" (Completed "), ")");
else
write_label_piece (dates->complete, buffer, 1024, _("Completed "), NULL);
}
if (due_set && dates->complete == NULL) {
if (start_set)
write_label_piece (dates->due, buffer, 1024, _(" (Due "), ")");
else
write_label_piece (dates->due, buffer, 1024, _("Due "), NULL);
}
gtk_label_set_text (GTK_LABEL (label), buffer);
}
/**
* comp_editor_new_date_edit:
* @show_date: Whether to show a date picker in the widget.
* @show_time: Whether to show a time picker in the widget.
* @make_time_insensitive: Whether the time field is made insensitive rather
* than hiding it. This is useful if you want to preserve the layout of the
* widgets.
*
* Creates a new #EDateEdit widget, configured using the calendar's preferences.
*
* Return value: A newly-created #EDateEdit widget.
**/
GtkWidget *
comp_editor_new_date_edit (gboolean show_date, gboolean show_time,
gboolean make_time_insensitive)
{
EDateEdit *dedit;
dedit = E_DATE_EDIT (e_date_edit_new ());
e_date_edit_set_show_date (dedit, show_date);
e_date_edit_set_show_time (dedit, show_time);
#if 0
e_date_edit_set_make_time_insensitive (dedit, make_time_insensitive);
#else
e_date_edit_set_make_time_insensitive (dedit, FALSE);
#endif
calendar_config_configure_e_date_edit (dedit);
return GTK_WIDGET (dedit);
}
/* Returns the current time, for EDateEdit widgets and ECalendar items in the
dialogs.
FIXME: Should probably use the timezone from somewhere in the component
rather than the current timezone. */
struct tm
comp_editor_get_current_time (GtkObject *object, gpointer data)
{
char *location;
icaltimezone *zone;
struct icaltimetype tt;
struct tm tmp_tm = { 0 };
/* Get the current timezone. */
location = calendar_config_get_timezone ();
zone = icaltimezone_get_builtin_timezone (location);
tt = icaltime_from_timet_with_zone (time (NULL), FALSE, zone);
/* Now copy it to the struct tm and return it. */
tmp_tm.tm_year = tt.year - 1900;
tmp_tm.tm_mon = tt.month - 1;
tmp_tm.tm_mday = tt.day;
tmp_tm.tm_hour = tt.hour;
tmp_tm.tm_min = tt.minute;
tmp_tm.tm_sec = tt.second;
tmp_tm.tm_isdst = -1;
return tmp_tm;
}
/*
* These are utility functions to handle the SelectNames control we use
* for the contacts field, and its related dialog.
*/
#define SELECT_NAMES_OAFID "OAFIID:GNOME_Evolution_Addressbook_SelectNames"
GNOME_Evolution_Addressbook_SelectNames
comp_editor_create_contacts_component (void)
{
GNOME_Evolution_Addressbook_SelectNames corba_select_names;
CORBA_Environment ev;
CORBA_exception_init (&ev);
corba_select_names = oaf_activate_from_id (SELECT_NAMES_OAFID, 0,
NULL, &ev);
/* OAF seems to be broken -- it can return a CORBA_OBJECT_NIL without
raising an exception in `ev'. */
if (ev._major != CORBA_NO_EXCEPTION
|| corba_select_names == CORBA_OBJECT_NIL) {
g_warning ("Cannot activate -- %s", SELECT_NAMES_OAFID);
CORBA_exception_free (&ev);
return CORBA_OBJECT_NIL;
}
CORBA_exception_free (&ev);
return corba_select_names;
}
GtkWidget *
comp_editor_create_contacts_control (GNOME_Evolution_Addressbook_SelectNames corba_select_names)
{
Bonobo_Control corba_control;
GtkWidget *control_widget;
CORBA_Environment ev;
char *name = _("Contacts");
CORBA_exception_init (&ev);
GNOME_Evolution_Addressbook_SelectNames_addSection (
corba_select_names, name, name, &ev);
if (ev._major != CORBA_NO_EXCEPTION) {
CORBA_exception_free (&ev);
return NULL;
}
corba_control =
GNOME_Evolution_Addressbook_SelectNames_getEntryBySection (
corba_select_names, name, &ev);
if (ev._major != CORBA_NO_EXCEPTION) {
CORBA_exception_free (&ev);
return NULL;
}
CORBA_exception_free (&ev);
control_widget = bonobo_widget_new_control_from_objref (
corba_control, CORBA_OBJECT_NIL);
gtk_widget_show (control_widget);
return control_widget;
}
Bonobo_EventSource_ListenerId
comp_editor_connect_contacts_changed (GtkWidget *contacts_entry,
BonoboListenerCallbackFn changed_cb,
gpointer changed_cb_data)
{
BonoboControlFrame *cf;
Bonobo_PropertyBag pb = CORBA_OBJECT_NIL;
cf = bonobo_widget_get_control_frame (BONOBO_WIDGET (contacts_entry));
pb = bonobo_control_frame_get_control_property_bag (cf, NULL);
return bonobo_event_source_client_add_listener (
pb, changed_cb,
"Bonobo/Property:change:entry_changed",
NULL, changed_cb_data);
}
void
comp_editor_show_contacts_dialog (GNOME_Evolution_Addressbook_SelectNames corba_select_names)
{
CORBA_Environment ev;
CORBA_exception_init (&ev);
GNOME_Evolution_Addressbook_SelectNames_activateDialog (
corba_select_names, _("Contacts"), &ev);
CORBA_exception_free (&ev);
}
/* A simple 'name <email>' parser.
FIXME: Should probably use camel functions or something. */
static void
parse_contact_string (const char *value, char **name, char **email)
{
char *lbracket, *rbracket, *name_end, *tmp_name, *tmp_email;
if (!value) {
*name = g_strdup ("");
*email = g_strdup ("");
return;
}
lbracket = strchr (value, '<');
rbracket = strchr (value, '>');
if (!lbracket || !rbracket || rbracket < lbracket) {
*name = g_strdup (value);
*email = g_strdup ("");
return;
}
name_end = lbracket - 1;
while (name_end > value && isspace (*name_end))
name_end--;
tmp_name = g_malloc (name_end - value + 2);
strncpy (tmp_name, value, name_end - value + 1);
tmp_name[name_end - value + 1] = '\0';
*name = tmp_name;
tmp_email = g_malloc (rbracket - lbracket);
strncpy (tmp_email, lbracket + 1, rbracket - lbracket - 1);
tmp_email[rbracket - lbracket - 1] = '\0';
*email = tmp_email;
g_print ("Parsed: %s\n Name:'%s'\nEmail:'%s'\n",
value, *name, *email);
}
void
comp_editor_contacts_to_widget (GtkWidget *contacts_entry,
CalComponent *comp)
{
GPtrArray *dest_array;
EDestination *dest;
GSList *contact_list, *elem;
char *contacts_string;
int i;
cal_component_get_contact_list (comp, &contact_list);
dest_array = g_ptr_array_new ();
for (elem = contact_list; elem; elem = elem->next) {
CalComponentText *t = elem->data;
char *name, *email;
parse_contact_string (t->value, &name, &email);
dest = e_destination_new ();
e_destination_set_name (dest, name);
e_destination_set_email (dest, email);
g_ptr_array_add (dest_array, dest);
g_free (name);
g_free (email);
}
cal_component_free_text_list (contact_list);
/* we need destv to be NULL terminated */
g_ptr_array_add (dest_array, NULL);
contacts_string = e_destination_exportv ((EDestination**) dest_array->pdata);
g_print ("Destinations: %s\n", contacts_string ? contacts_string : "");
bonobo_widget_set_property (BONOBO_WIDGET (contacts_entry),
"destinations", contacts_string, NULL);
g_free (contacts_string);
/* We free all dest_array except the last NULL we added. */
for (i = 0; i < dest_array->len - 1; i++) {
dest = g_ptr_array_index (dest_array, i);
gtk_object_unref (GTK_OBJECT (dest));
}
g_ptr_array_free (dest_array, TRUE);
}
void
comp_editor_contacts_to_component (GtkWidget *contacts_entry,
CalComponent *comp)
{
EDestination **contact_destv;
GSList *contact_list = NULL, *elem;
char *contacts_string = NULL;
CalComponentText *t;
const char *name, *email;
int i;
bonobo_widget_get_property (BONOBO_WIDGET (contacts_entry),
"destinations", &contacts_string, NULL);
g_print ("Contacts string: %s\n", contacts_string ? contacts_string : "");
contact_destv = e_destination_importv (contacts_string);
if (contact_destv) {
for (i = 0; contact_destv[i] != NULL; i++) {
name = e_destination_get_name (contact_destv[i]);
email = e_destination_get_email (contact_destv[i]);
t = g_new0 (CalComponentText, 1);
t->altrep = NULL;
/* If both name and email are given, use the standard
'name <email>' form, otherwise use just the name
or the email address.
FIXME: I'm not sure this is correct syntax etc. */
if (name && name[0] && email && email[0])
t->value = g_strdup_printf ("%s <%s>",
name, email);
else if (name && name[0])
t->value = g_strdup (name);
else
t->value = g_strdup (email);
contact_list = g_slist_prepend (contact_list, t);
gtk_object_unref (GTK_OBJECT (contact_destv[i]));
}
}
g_free (contact_destv);
contact_list = g_slist_reverse (contact_list);
cal_component_set_contact_list (comp, contact_list);
for (elem = contact_list; elem; elem = elem->next) {
t = elem->data;
g_free ((char*)t->value);
g_free (t);
}
g_slist_free (contact_list);
}
/**
* comp_editor_strip_categories:
* @categories: A string of category names entered by the user.
*
* Takes a string of the form "categ, categ, categ, ..." and removes the
* whitespace between categories to result in "categ,categ,categ,..."
*
* Return value: The category names stripped of surrounding whitespace
* and separated with commas.
**/
char *
comp_editor_strip_categories (const char *categories)
{
char *new_categories;
const char *start, *end;
const char *p;
char *new_p;
if (!categories)
return NULL;
new_categories = g_new (char, strlen (categories) + 1);
start = end = NULL;
new_p = new_categories;
for (p = categories; *p; p++) {
int c;
c = *p;
if (isspace (c))
continue;
else if (c == ',') {
int len;
if (!start)
continue;
g_assert (start <= end);
len = end - start + 1;
strncpy (new_p, start, len);
new_p[len] = ',';
new_p += len + 1;
start = end = NULL;
} else {
if (!start) {
start = p;
end = p;
} else
end = p;
}
}
if (start) {
int len;
g_assert (start <= end);
len = end - start + 1;
strncpy (new_p, start, len);
new_p += len;
}
*new_p = '\0';
return new_categories;
}
