From 819a11d2fc2b50868787edd3760f902020b59a99 Mon Sep 17 00:00:00 2001 From: Federico Mena Quintero Date: Mon, 16 Apr 2001 02:50:55 +0000 Subject: Create the ESearchBar thingy. (search_bar_query_changed_cb): Build the 2001-04-15 Federico Mena Quintero * gui/gnome-cal.c (setup_widgets): Create the ESearchBar thingy. (search_bar_query_changed_cb): Build the different queries based on the type and string. * pcs/query.c (backend_obj_updated_cb): Ref the query while we are notifying the listener so that it will not disappear from under us. (backend_obj_removed_cb): Likewise. (process_component_cb): Likewise. (func_contains): New function to match text fields. (matches_comment): New function to match comment lists. (matches_description): New function to match description lists. (matches_summary): New function to match summaries. (matches_any): New function to match any text field. (func_has_categories): New function to match categories. svn path=/trunk/; revision=9340 --- calendar/ChangeLog | 22 +++ calendar/gui/alarm-notify/notify-main.c | 35 ++++ calendar/gui/gnome-cal.c | 163 +++++++++++++++++-- calendar/gui/main.c | 1 - calendar/pcs/query.c | 279 +++++++++++++++++++++++++++++++- 5 files changed, 482 insertions(+), 18 deletions(-) diff --git a/calendar/ChangeLog b/calendar/ChangeLog index 75ff2c9228..ef4cc6c29a 100644 --- a/calendar/ChangeLog +++ b/calendar/ChangeLog @@ -1,3 +1,25 @@ +2001-04-15 Federico Mena Quintero + + * gui/gnome-cal.c (setup_widgets): Create the ESearchBar thingy. + (search_bar_query_changed_cb): Build the different queries based + on the type and string. + + * pcs/query.c (backend_obj_updated_cb): Ref the query while we are + notifying the listener so that it will not disappear from under us. + (backend_obj_removed_cb): Likewise. + (process_component_cb): Likewise. + (func_contains): New function to match text fields. + (matches_comment): New function to match comment lists. + (matches_description): New function to match description lists. + (matches_summary): New function to match summaries. + (matches_any): New function to match any text field. + (func_has_categories): New function to match categories. + +2001-04-14 Federico Mena Quintero + + * gui/alarm-notify/notify-main.c (main): Initialize the trigger + and queue systems. + 2001-04-13 Dan Winship * cal-util/timeutil.c (time_from_isodate): Fix the syntactic bogon diff --git a/calendar/gui/alarm-notify/notify-main.c b/calendar/gui/alarm-notify/notify-main.c index ec43738e96..9c1d04b739 100644 --- a/calendar/gui/alarm-notify/notify-main.c +++ b/calendar/gui/alarm-notify/notify-main.c @@ -31,6 +31,8 @@ #include #include #include +#include "alarm.h" +#include "alarm-queue.h" #include "alarm-notify.h" @@ -40,6 +42,31 @@ static BonoboGenericFactory *factory; static AlarmNotify *alarm_notify_service; +/* La de da */ +static void +funny_trigger_cb (gpointer alarm_id, time_t trigger, gpointer data) +{ + char *msg; + char str[256]; + struct tm *tm; + + tm = localtime (&trigger); + strftime (str, sizeof (str), "%Y/%m/%d %H:%M:%S", tm); + + msg = g_strdup_printf (_("It is %s. The Unix time is %ld right now. We just thought " + "you may like to know."), str, (long) trigger); + gnome_ok_dialog (msg); + g_free (msg); +} + +/* Dum de dum */ +static void +funny_times_init (void) +{ + alarm_add ((time_t) 987654321L, funny_trigger_cb, NULL, NULL); /* Apr 19 04:25:21 2001 UTC */ + alarm_add ((time_t) 999999999L, funny_trigger_cb, NULL, NULL); /* Sep 9 01:46:39 2001 UTC */ +} + /* Factory function for the alarm notify service; just creates and references a * singleton service object. */ @@ -71,6 +98,11 @@ main (int argc, char **argv) if (bonobo_init (CORBA_OBJECT_NIL, CORBA_OBJECT_NIL, CORBA_OBJECT_NIL) == FALSE) g_error (_("Could not initialize Bonobo")); + alarm_init (); + alarm_queue_init (); + + funny_times_init (); + factory = bonobo_generic_factory_new ("OAFID:GNOME_Evolution_Calendar_AlarmNotify_Factory", alarm_notify_factory_fn, NULL); if (!factory) @@ -81,5 +113,8 @@ main (int argc, char **argv) bonobo_object_unref (BONOBO_OBJECT (factory)); factory = NULL; + alarm_queue_done (); + alarm_done (); + return 0; } diff --git a/calendar/gui/gnome-cal.c b/calendar/gui/gnome-cal.c index 917489c043..138e5cb280 100644 --- a/calendar/gui/gnome-cal.c +++ b/calendar/gui/gnome-cal.c @@ -37,6 +37,7 @@ #include #include #include +#include "widgets/misc/e-search-bar.h" #include "dialogs/alarm-notify-dialog.h" #include "e-calendar-table.h" #include "e-day-view.h" @@ -91,6 +92,8 @@ struct _GnomeCalendarPrivate { /* Widgets */ + GtkWidget *search_bar; + GtkWidget *hpane; GtkWidget *notebook; GtkWidget *vpane; @@ -202,6 +205,147 @@ gnome_calendar_class_init (GnomeCalendarClass *class) object_class->destroy = gnome_calendar_destroy; } +static GtkWidget * +get_current_page (GnomeCalendar *gcal) +{ + GnomeCalendarPrivate *priv; + + priv = gcal->priv; + + return GTK_NOTEBOOK (priv->notebook)->cur_page->child; +} + +enum { + SEARCH_SHOW_ALL +}; + +static ESearchBarItem search_menu_items[] = { + { N_("Show all "), SEARCH_SHOW_ALL }, + { NULL, -1 } +}; + +enum { + SEARCH_ANY_FIELD_CONTAINS, + SEARCH_SUMMARY_CONTAINS, + SEARCH_DESCRIPTION_CONTAINS, + SEARCH_COMMENT_CONTAINS, + SEARCH_HAS_CATEGORY +}; + +static ESearchBarItem search_option_items[] = { + { N_("Any field contains"), SEARCH_ANY_FIELD_CONTAINS }, + { N_("Summary contains"), SEARCH_SUMMARY_CONTAINS }, + { N_("Description contains"), SEARCH_DESCRIPTION_CONTAINS }, + { N_("Comment contains"), SEARCH_COMMENT_CONTAINS }, + { N_("Has category"), SEARCH_HAS_CATEGORY }, + { NULL, -1 } +}; + +/* Sets the query sexp for the current view in the calendar */ +static void +set_query (GnomeCalendar *gcal, char *sexp) +{ + GnomeCalendarPrivate *priv; + GtkWidget *page; + + g_assert (sexp != NULL); + + priv = gcal->priv; + + page = get_current_page (gcal); + + if (page == priv->day_view || page == priv->work_week_view) + e_day_view_set_query (E_DAY_VIEW (page), sexp); + else if (page == priv->week_view || page == priv->month_view) + e_week_view_set_query (E_WEEK_VIEW (page), sexp); + else { + g_warning ("A penguin bit my hand!"); + g_assert_not_reached (); + } +} + +/* Sets the query string to be (contains? "field" "text") */ +static void +set_query_contains (GnomeCalendar *gcal, const char *field, const char *text) +{ + char *sexp; + + sexp = g_strdup_printf ("(contains? \"%s\" \"%s\")", field, text); + set_query (gcal, sexp); + g_free (sexp); +} + +/* Callback used when the query string is changed in the search bar */ +static void +search_bar_query_changed_cb (ESearchBar *search_bar, gpointer data) +{ + GnomeCalendar *gcal; + int item; + char *text; + + gcal = GNOME_CALENDAR (data); + + item = e_search_bar_get_option_choice (search_bar); + text = e_search_bar_get_text (search_bar); + + if (!text) + return; /* This is an error in the UTF8 conversion, not an empty string! */ + + switch (item) { + case SEARCH_ANY_FIELD_CONTAINS: + set_query_contains (gcal, "any", text); + break; + + case SEARCH_SUMMARY_CONTAINS: + set_query_contains (gcal, "summary", text); + break; + + case SEARCH_DESCRIPTION_CONTAINS: + set_query_contains (gcal, "description", text); + break; + + case SEARCH_COMMENT_CONTAINS: + set_query_contains (gcal, "comment", text); + break; + + case SEARCH_HAS_CATEGORY: { + char *sexp; + + sexp = g_strdup_printf ("(has-categories? \"%s\")", text); + set_query (gcal, sexp); + g_free (sexp); + break; + } + + default: + g_assert_not_reached (); + } + + g_free (text); +} + +/* Callback used when a menu item is activated in the search bar */ +static void +search_bar_menu_activated_cb (ESearchBar *search_bar, int item, gpointer data) +{ + GnomeCalendar *gcal; + + gcal = GNOME_CALENDAR (data); + + switch (item) { + case SEARCH_SHOW_ALL: + set_query (gcal, "#t"); /* match all */ + /* FIXME: should we change the rest of the search bar so that + * the user sees that he selected "show all" instead of some + * type/text search combination? + */ + break; + + default: + g_assert_not_reached (); + } +} + static void setup_widgets (GnomeCalendar *gcal) { @@ -212,6 +356,15 @@ setup_widgets (GnomeCalendar *gcal) priv = gcal->priv; + priv->search_bar = e_search_bar_new (search_menu_items, search_option_items); + gtk_signal_connect (GTK_OBJECT (priv->search_bar), "query_changed", + GTK_SIGNAL_FUNC (search_bar_query_changed_cb), gcal); + gtk_signal_connect (GTK_OBJECT (priv->search_bar), "menu_activated", + GTK_SIGNAL_FUNC (search_bar_menu_activated_cb), gcal); + + gtk_widget_show (priv->search_bar); + gtk_box_pack_start (GTK_BOX (gcal), priv->search_bar, FALSE, FALSE, 0); + /* The main HPaned, with the notebook of calendar views on the left and the ECalendar and ToDo list on the right. */ priv->hpane = e_hpaned_new (); @@ -378,16 +531,6 @@ gnome_calendar_destroy (GtkObject *object) (* GTK_OBJECT_CLASS (parent_class)->destroy) (object); } -static GtkWidget * -get_current_page (GnomeCalendar *gcal) -{ - GnomeCalendarPrivate *priv; - - priv = gcal->priv; - - return GTK_NOTEBOOK (priv->notebook)->cur_page->child; -} - char * gnome_calendar_get_current_view_name (GnomeCalendar *gcal) { diff --git a/calendar/gui/main.c b/calendar/gui/main.c index 674a55078c..e75819f0f0 100644 --- a/calendar/gui/main.c +++ b/calendar/gui/main.c @@ -57,7 +57,6 @@ init_bonobo (int argc, char **argv) g_error (_("Could not initialize Bonobo")); } - int main (int argc, char **argv) { diff --git a/calendar/pcs/query.c b/calendar/pcs/query.c index 474a2eb971..48e77d216a 100644 --- a/calendar/pcs/query.c +++ b/calendar/pcs/query.c @@ -28,6 +28,7 @@ #include #include #include +#include #include #include #include @@ -497,6 +498,240 @@ func_occur_in_time_range (ESExp *esexp, int argc, ESExpResult **argv, void *data return result; } +/* Returns whether a list of CalComponentText items matches the specified string */ +static gboolean +matches_text_list (GSList *text_list, const char *str) +{ + GSList *l; + gboolean matches; + + matches = FALSE; + + for (l = text_list; l; l = l->next) { + CalComponentText *text; + + text = l->data; + g_assert (text->value != NULL); + + if (e_utf8_strstrcase (text->value, str) != NULL) { + matches = TRUE; + break; + } + } + + return matches; +} + +/* Returns whether the comments in a component matches the specified string */ +static gboolean +matches_comment (CalComponent *comp, const char *str) +{ + GSList *list; + gboolean matches; + + cal_component_get_comment_list (comp, &list); + matches = matches_text_list (list, str); + cal_component_free_text_list (list); + + return matches; +} + +/* Returns whether the description in a component matches the specified string */ +static gboolean +matches_description (CalComponent *comp, const char *str) +{ + GSList *list; + gboolean matches; + + cal_component_get_description_list (comp, &list); + matches = matches_text_list (list, str); + cal_component_free_text_list (list); + + return matches; +} + +/* Returns whether the summary in a component matches the specified string */ +static gboolean +matches_summary (CalComponent *comp, const char *str) +{ + CalComponentText text; + + cal_component_get_summary (comp, &text); + + if (!text.value) + return FALSE; + + return e_utf8_strstrcase (text.value, str) != NULL; +} + +/* Returns whether any text field in a component matches the specified string */ +static gboolean +matches_any (CalComponent *comp, const char *str) +{ + /* As an optimization, and to make life easier for the individual + * predicate functions, see if we are looking for the empty string right + * away. + */ + if (strlen (str) == 0) + return TRUE; + + return (matches_comment (comp, str) + || matches_description (comp, str) + || matches_summary (comp, str)); +} + +/* (contains? FIELD STR) + * + * FIELD - string, name of field to match (any, comment, description, summary) + * STR - string, match string + * + * Returns a boolean indicating whether the specified field contains the + * specified string. + */ +static ESExpResult * +func_contains (ESExp *esexp, int argc, ESExpResult **argv, void *data) +{ + Query *query; + QueryPrivate *priv; + CalComponent *comp; + const char *field; + const char *str; + gboolean matches; + ESExpResult *result; + + query = QUERY (data); + priv = query->priv; + + g_assert (priv->next_comp != NULL); + comp = priv->next_comp; + + /* Check argument types */ + + if (argc != 2) { + e_sexp_fatal_error (esexp, _("contains? expects 2 arguments")); + return NULL; + } + + if (argv[0]->type != ESEXP_RES_STRING) { + e_sexp_fatal_error (esexp, _("contains? expects argument 1 " + "to be a string")); + return NULL; + } + field = argv[0]->value.string; + + if (argv[1]->type != ESEXP_RES_STRING) { + e_sexp_fatal_error (esexp, _("contains? expects argument 2 " + "to be a string")); + return NULL; + } + str = argv[1]->value.string; + + /* See if it matches */ + + if (strcmp (field, "any") == 0) + matches = matches_any (comp, str); + else if (strcmp (field, "comment") == 0) + matches = matches_comment (comp, str); + else if (strcmp (field, "description") == 0) + matches = matches_description (comp, str); + else if (strcmp (field, "summary") == 0) + matches = matches_summary (comp, str); + else { + e_sexp_fatal_error (esexp, _("contains? expects argument 1 to " + "be one of \"any\", \"summary\", \"description\"")); + return NULL; + } + + result = e_sexp_result_new (esexp, ESEXP_RES_BOOL); + result->value.bool = matches; + + return result; +} + +/* (has-categories? STR+) + * + * STR - At least one string specifying a category + * + * Returns a boolean indicating whether the component has all the specified + * categories. + */ +static ESExpResult * +func_has_categories (ESExp *esexp, int argc, ESExpResult **argv, void *data) +{ + Query *query; + QueryPrivate *priv; + CalComponent *comp; + int i; + GSList *categories; + gboolean matches; + ESExpResult *result; + + query = QUERY (data); + priv = query->priv; + + g_assert (priv->next_comp != NULL); + comp = priv->next_comp; + + /* Check argument types */ + + if (argc < 1) { + e_sexp_fatal_error (esexp, _("has-categories? expects at least 1 argument")); + return NULL; + } + + for (i = 0; i < argc; i++) + if (argv[i]->type != ESEXP_RES_STRING) { + e_sexp_fatal_error (esexp, _("has-categories? expects all arguments " + "to be strings")); + return NULL; + } + + /* Search categories */ + + cal_component_get_categories_list (comp, &categories); + if (!categories) { + result = e_sexp_result_new (esexp, ESEXP_RES_BOOL); + result->value.bool = FALSE; + + return result; + } + + matches = TRUE; + + for (i = 0; i < argc; i++) { + const char *sought; + GSList *l; + gboolean has_category; + + sought = argv[i]->value.string; + + has_category = FALSE; + + for (l = categories; l; l = l->next) { + const char *category; + + category = l->data; + + if (strcmp (category, sought) == 0) { + has_category = TRUE; + break; + } + } + + if (!has_category) { + matches = FALSE; + break; + } + } + + cal_component_free_categories_list (categories); + + result = e_sexp_result_new (esexp, ESEXP_RES_BOOL); + result->value.bool = matches; + + return result; +} + /* Adds a component to our the UIDs hash table and notifies the client */ @@ -612,7 +847,9 @@ static struct { /* Component-related functions */ { "get-vtype", func_get_vtype }, - { "occur-in-time-range?", func_occur_in_time_range } + { "occur-in-time-range?", func_occur_in_time_range }, + { "contains?", func_contains }, + { "has-categories?", func_has_categories } }; /* Initializes a sexp by interning our own symbols */ @@ -681,7 +918,7 @@ match_component (Query *query, const char *uid, &ev); if (ev._major != CORBA_NO_EXCEPTION) - g_message ("process_component_cb(): Could not notify the listener of " + g_message ("match_component(): Could not notify the listener of " "an evaluation error"); CORBA_exception_free (&ev); @@ -696,7 +933,7 @@ match_component (Query *query, const char *uid, &ev); if (ev._major != CORBA_NO_EXCEPTION) - g_message ("process_component_cb(): Could not notify the listener of " + g_message ("match_component(): Could not notify the listener of " "an unexpected result value type when evaluating the " "search expression"); @@ -730,7 +967,6 @@ process_component_cb (gpointer data) if (!priv->pending_uids) { g_assert (priv->n_pending == 0); - g_source_remove (priv->idle_id); priv->idle_id = 0; return FALSE; } @@ -751,11 +987,15 @@ process_component_cb (gpointer data) g_list_free_1 (l); + bonobo_object_ref (BONOBO_OBJECT (query)); + match_component (query, uid, TRUE, priv->pending_total - priv->n_pending, priv->pending_total); + bonobo_object_unref (BONOBO_OBJECT (query)); + g_free (uid); return TRUE; @@ -841,6 +1081,7 @@ backend_opened_cb (CalBackend *backend, CalBackendOpenStatus status, gpointer da if (status == CAL_BACKEND_OPEN_SUCCESS) { g_assert (cal_backend_is_loaded (backend)); + g_assert (priv->idle_id == 0); priv->idle_id = g_idle_add (start_query_cb, query); } @@ -854,8 +1095,12 @@ backend_obj_updated_cb (CalBackend *backend, const char *uid, gpointer data) query = QUERY (data); + bonobo_object_ref (BONOBO_OBJECT (query)); + match_component (query, uid, FALSE, 0, 0); remove_from_pending (query, uid); + + bonobo_object_unref (BONOBO_OBJECT (query)); } /* Callback used when a component is removed from the backend */ @@ -868,8 +1113,12 @@ backend_obj_removed_cb (CalBackend *backend, const char *uid, gpointer data) query = QUERY (data); priv = query->priv; + bonobo_object_ref (BONOBO_OBJECT (query)); + remove_component (query, uid); remove_from_pending (query, uid); + + bonobo_object_unref (BONOBO_OBJECT (query)); } /** @@ -928,9 +1177,10 @@ query_construct (Query *query, /* Queue the query to be started asynchronously */ - if (cal_backend_is_loaded (priv->backend)) + if (cal_backend_is_loaded (priv->backend)) { + g_assert (priv->idle_id == 0); priv->idle_id = g_idle_add (start_query_cb, query); - else + } else gtk_signal_connect (GTK_OBJECT (priv->backend), "opened", GTK_SIGNAL_FUNC (backend_opened_cb), query); @@ -938,6 +1188,16 @@ query_construct (Query *query, return query; } +/** + * query_new: + * @backend: Calendar backend that the query object will monitor. + * @ql: Listener for query results. + * @sexp: Sexp that defines the query. + * + * Creates a new query engine object that monitors a calendar backend. + * + * Return value: A newly-created query object, or NULL on failure. + **/ Query * query_new (CalBackend *backend, GNOME_Evolution_Calendar_QueryListener ql, @@ -946,5 +1206,10 @@ query_new (CalBackend *backend, Query *query; query = QUERY (gtk_type_new (QUERY_TYPE)); - return query_construct (query, backend, ql, sexp); + if (!query_construct (query, backend, ql, sexp)) { + bonobo_object_unref (BONOBO_OBJECT (query)); + return NULL; + } + + return query; } -- cgit