aboutsummaryrefslogblamecommitdiffstats
path: root/e-util/e-util-labels.c
blob: 88fff080b7973f7f5d7f9dc0695c2e66254c3f3a (plain) (tree)
1
2
3
4
5
6
7
8
9
10




                                                                
  



                                                                    
  

                                                                               
  
  



                                                        

   
                    






                               

                             
                   

                           
                                 















































                                                                                                 
                                                                                                   













































































































































































































































                                                                                                                                          
                                                              

















                                                                                                
                                                                                   














                                                                                       
                                                                                                                                 




























































































































































































                                                                                               


































                                                                                  
/*
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) version 3.
 *
 * 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with the program; if not, see <http://www.gnu.org/licenses/>  
 *
 *
 * Authors:
 *
 * Copyright (C) 1999-2008 Novell, Inc. (www.novell.com)
 *
 */

#include <gtk/gtk.h>
#include <glib/gi18n.h>

#include <stdio.h>
#include <string.h>

#include <gconf/gconf-client.h>

#include <camel/camel-utf8.h>

#include "e-util.h"
#include "e-util-labels.h"
#include "e-dialog-utils.h"
#include "filter/filter-option.h"

/* Note, the first element of each EUtilLabel must NOT be translated */
EUtilLabel label_defaults[LABEL_DEFAULTS_NUM] = {
    { "$Labelimportant", N_("I_mportant"), "#EF2929" },  /* red */
    { "$Labelwork",      N_("_Work"),      "#F57900" },  /* orange */
    { "$Labelpersonal",  N_("_Personal"),  "#4E9A06" },  /* green */
    { "$Labeltodo",      N_("_To Do"),     "#3465A4" },  /* blue */
    { "$Labellater",     N_("_Later"),     "#75507B" }   /* purple */
};

/**
 * e_util_labels_parse
 * Reads the setup from client and parses it to list of EUtilLabel objects.
 *
 * @param client The config client to be used for reading setup.
 *        Can be NULL, in that case it will use the default client.
 * @return Newly allocated list of labels, should be freed with @ref e_util_labels_free.
 **/
GSList *
e_util_labels_parse (GConfClient *client)
{
    GSList *labels, *list, *head;
    EUtilLabel *label;
    char *buf;
    int num = 0;
    gboolean unref_client = client == NULL;

    labels = NULL;

    if (!client)
        client = gconf_client_get_default ();

    head = gconf_client_get_list (client, E_UTIL_LABELS_GCONF_KEY, GCONF_VALUE_STRING, NULL);

    for (list = head; list; list = list->next) {
        char *color, *name, *tag;
        name = buf = list->data;
        color = strrchr (buf, ':');

        *color++ = '\0';
        tag = strchr (color, '|');
        if (tag)
            *tag++ = '\0';

        label = g_new (EUtilLabel, 1);

        /* Needed for Backward Compatibility */
        if (num < LABEL_DEFAULTS_NUM) {
            label->name = g_strdup ((buf && *buf) ? buf : _(label_defaults[num].name));
            label->tag = g_strdup (label_defaults[num].tag);
            num++;
        } else if (!tag) {
            g_free (buf);
            g_free (label);
            continue;
        } else {
            label->name = g_strdup (name);
            label->tag = g_strdup (tag);
        }

        label->colour = g_strdup (color);
        labels = g_slist_prepend (labels, label);

        g_free (buf);
    }

    if (head)
        g_slist_free (head);

    while (num < LABEL_DEFAULTS_NUM) {
        /* complete the list with defaults */
        label = g_new (EUtilLabel, 1);
        label->tag = g_strdup (label_defaults[num].tag);
        label->name = g_strdup (_(label_defaults[num].name));
        label->colour = g_strdup (label_defaults[num].colour);

        labels = g_slist_prepend (labels, label);

        num++;
    }

    if (unref_client)
        g_object_unref (client);

    return g_slist_reverse (labels);
}

static void
free_label_struct (EUtilLabel *label)
{
    if (!label)
        return;

    g_free (label->tag);
    g_free (label->name);
    g_free (label->colour);
    g_free (label);
}

/**
 * e_util_labels_free
 * Frees memory previously allocated by @ref e_util_labels_parse
 *
 * @param labels Labels list, previously allocated by @ref e_util_labels_parse
 *               It is safe to call with NULL.
 **/
void
e_util_labels_free (GSList *labels)
{
    if (!labels)
        return;

    g_slist_foreach (labels, (GFunc)free_label_struct, NULL);
    g_slist_free (labels);
}

/* stores the actual cache to gconf */
static gboolean
flush_labels_cache (GSList *labels, gboolean free_labels)
{
    GSList *l, *text_labels;
    GConfClient *client;

    if (!labels)
        return FALSE;

    text_labels = NULL;

    for (l = labels; l; l = l->next) {
        EUtilLabel *label = l->data;

        if (label && label->tag && label->name && label->colour)
            text_labels = g_slist_prepend (text_labels, g_strdup_printf ("%s:%s|%s", label->name, label->colour, label->tag));
    }

    if (!text_labels) {
        if (free_labels)
            e_util_labels_free (labels);

        return FALSE;
    }

    text_labels = g_slist_reverse (text_labels);

    client = gconf_client_get_default ();
    gconf_client_set_list (client, E_UTIL_LABELS_GCONF_KEY, GCONF_VALUE_STRING, text_labels, NULL);
    g_object_unref (client);

    g_slist_foreach (text_labels, (GFunc)g_free, NULL);
    g_slist_free (text_labels);

    if (free_labels)
        e_util_labels_free (labels);

    /* not true if gconf failed to write; who cares */
    return TRUE;
}

/**
 * find_label
 *
 * Looks for label in labels cache by tag and returns actual pointer to cache.
 * @param labels The cache of labels; comes from @ref e_util_labels_parse
 * @param tag Tag of label you are looking for.
 * @return Pointer to cache data if label with such tag exists or NULL. Do not free it!
 **/
static EUtilLabel *
find_label (GSList *labels, const char *tag)
{
    GSList *l;

    g_return_val_if_fail (tag != NULL, NULL);

    for (l = labels; l; l = l->next) {
        EUtilLabel *label = l->data;
    
        if (label && label->tag && !strcmp (tag, label->tag))
            return label;
    }

    return NULL;
}


static char *
tag_from_name (const char *name)
{
    /* this does thunderbird, just do not ask */
    char *s1, *s2, *p;
    const char *bads = " ()/{%*<>\\\"";

    if (!name || !*name)
        return NULL;

    s1 = g_strdup (name);
    for (p = s1; p && *p; p++) {
        if (strchr (bads, *p))
            *p = '_';
    }

    s2 = camel_utf8_utf7 (s1);
    g_free (s1);

    s1 = g_ascii_strdown (s2, -1);
    g_free (s2);

    return s1;
}

/**
 * e_util_labels_add
 * Creates new label at the end of actual list of labels.
 *
 * @param name User readable name of this label. Should not be NULL.
 * @param color Color assigned to this label. Should not be NULL.
 * @return If succeeded then new label tag, NULL otherwise.
 *         Returned pointer should be freed with g_free.
 *         It will return NULL when the tag will be same as already existed.
 *         Tag name is generated in similar way as in Thunderbird.
 **/
char *
e_util_labels_add (const char *name, const GdkColor *color)
{
    EUtilLabel *label;
    GSList *labels;
    char *tag;

    g_return_val_if_fail (name != NULL, NULL);
    g_return_val_if_fail (color != NULL, NULL);

    labels = e_util_labels_parse (NULL);
    tag = tag_from_name (name);

    if (!tag || find_label (labels, tag) != NULL) {
        g_free (tag);
        e_util_labels_free (labels);
        return NULL;
    }

    label = g_new0 (EUtilLabel, 1);
    label->tag = g_strdup (tag);
    label->name = g_strdup (name);
    label->colour = gdk_color_to_string (color);

    labels = g_slist_append (labels, label);

    flush_labels_cache (labels, TRUE);

    return tag;
}

/**
 * e_util_labels_add_with_dlg
 * This will open a dialog to add or edit label.
 *
 * @param parent Parent widget for the dialog.
 * @param tag A tag for existing label to edit or NULL to add new label.
 * @return Tag for newly added label or NULL, if something failed.
 *         Returned value should be freed with g_free.
 **/
char *
e_util_labels_add_with_dlg (GtkWindow *parent, const char *tag)
{
    GtkWidget *table, *dialog, *l, *e, *c;
    const char *name;
    GdkColor color;
    gboolean is_edit = FALSE;
    char *new_tag = NULL;
    GSList *labels;

    table = gtk_table_new (2, 2, FALSE);

    labels = e_util_labels_parse (NULL);
    name = tag ? e_util_labels_get_name (labels, tag) : NULL;

    l = gtk_label_new_with_mnemonic (_("Label _Name:"));
    e = gtk_entry_new ();
    c = gtk_color_button_new ();

    if (!tag || !e_util_labels_get_color (labels, tag, &color))
        memset (&color, 0xCD, sizeof (GdkColor));
    else
        is_edit = TRUE;

    if (name)
        gtk_entry_set_text (GTK_ENTRY (e), name);

    gtk_entry_set_activates_default (GTK_ENTRY (e), TRUE);
    gtk_label_set_mnemonic_widget (GTK_LABEL (l), e);
    gtk_misc_set_alignment (GTK_MISC (l), 0.0, 0.0);
    gtk_color_button_set_color (GTK_COLOR_BUTTON (c), &color);

    gtk_table_attach (GTK_TABLE (table), l, 0, 1, 0, 1, GTK_EXPAND | GTK_FILL, 0, 0, 0);
    gtk_table_attach (GTK_TABLE (table), e, 0, 1, 1, 2, 0, 0, 0, 0);
    gtk_table_attach (GTK_TABLE (table), c, 1, 2, 1, 2, 0, 0, 0, 0);
    gtk_container_set_border_width (GTK_CONTAINER (table), 10);
    gtk_widget_show_all (table);

    dialog = gtk_dialog_new_with_buttons (is_edit ? _("Edit Label") : _("Add Label"),
                          parent,
                          GTK_DIALOG_MODAL | GTK_DIALOG_DESTROY_WITH_PARENT,
                                              GTK_STOCK_CANCEL, GTK_RESPONSE_REJECT,
                                              GTK_STOCK_OK, GTK_RESPONSE_ACCEPT,
                          NULL);

    gtk_dialog_set_has_separator (GTK_DIALOG (dialog), FALSE);
    gtk_dialog_set_default_response (GTK_DIALOG (dialog), GTK_RESPONSE_ACCEPT);
    gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog)->vbox), table, TRUE, TRUE, 0);

    while (!new_tag) {
        const char *error = NULL;

        if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT) {
            name = gtk_entry_get_text (GTK_ENTRY (e));
            gtk_color_button_get_color (GTK_COLOR_BUTTON (c), &color);

            if (!name || !*name)
                error = _("Label name cannot be empty.");
            else if (is_edit) {
                e_util_labels_set_data (tag, name, &color);
                break;
            } else if (!(new_tag = e_util_labels_add (name, &color)))
                error = _("A label having the same tag already exists on the server. Please rename your label.");
            else
                break;
        } else
            break;

        if (error)
            e_notice (parent, GTK_MESSAGE_ERROR, error);
    }

    gtk_widget_destroy (dialog);
    e_util_labels_free (labels);

    return new_tag;
}

/**
 * e_util_labels_remove
 *
 * @param tag Tag of the label to remove.
 * @return Whether was removed.
 **/
gboolean
e_util_labels_remove (const char *tag)
{
    EUtilLabel *label;
    GSList *labels;

    g_return_val_if_fail (tag != NULL, FALSE);

    labels = e_util_labels_parse (NULL);
    label = find_label (labels, tag);

    if (!label) {
        e_util_labels_free (labels);
        return FALSE;
    }

    labels = g_slist_remove (labels, label);

    free_label_struct (label);

    return  flush_labels_cache (labels, TRUE);
}

/**
 * e_util_labels_set_data
 *
 * @param tag Tag of the label of our interest.
 * @param name New name for the label.
 * @param color New color for the label.
 * @return Whether successfully saved.
 **/
gboolean
e_util_labels_set_data (const char *tag, const char *name, const GdkColor *color)
{
    EUtilLabel *label;
    GSList *labels;

    g_return_val_if_fail (tag != NULL, FALSE);
    g_return_val_if_fail (name != NULL, FALSE);
    g_return_val_if_fail (color != NULL, FALSE);

    labels = e_util_labels_parse (NULL);
    label = find_label (labels, tag);

    if (!label) {
        e_util_labels_free (labels);
        return FALSE;
    }

    g_free (label->name);
    label->name = g_strdup (name);

    g_free (label->colour);
    label->colour = gdk_color_to_string (color);

    return flush_labels_cache (labels, TRUE);
}

/**
 * e_util_labels_is_system
 *
 * @return Whether the tag is one of default/system labels or not.
 **/
gboolean
e_util_labels_is_system (const char *tag)
{
    int i;

    if (!tag)
        return FALSE;

    for (i = 0; i < LABEL_DEFAULTS_NUM; i++) {
        if (strcmp (tag, label_defaults[i].tag) == 0)
            return TRUE;
    }

    return FALSE;
}

/**
 * e_util_labels_get_new_tag
 *
 * @param old_tag Tag of the label from old version of Evolution.
 * @return New tag name equivalent with the old tag, or NULL if no such name existed before.
 **/
const char *
e_util_labels_get_new_tag (const char *old_tag)
{
    int i;

    if (!old_tag)
        return NULL;

    for (i = 0; i < LABEL_DEFAULTS_NUM; i++) {
        /* default labels have same name as those old, only with prefix "$Label" */
        if (!strcmp (old_tag, label_defaults[i].tag + 6))
            return label_defaults[i].tag;
    }

    return NULL;
}

/**
 * e_util_labels_get_name
 *
 * @param labels Cache of labels from call of @ref e_util_labels_parse.
 *        The returned pointer will be taken from this list, so it's alive as long as the list.
 * @param tag Tag of the label of our interest.
 * @return Name of the label with that tag or NULL, if no such label exists.
 **/
const char *
e_util_labels_get_name (GSList *labels, const char *tag)
{
    EUtilLabel *label;

    g_return_val_if_fail (tag != NULL, NULL);

    label = find_label (labels, tag);
    if (!label)
        return NULL;

    return label->name;
}

/**
 * e_util_labels_get_color
 *
 * @param labels Cache of labels from call of @ref e_util_labels_parse.
 * @param tag Tag of the label of our interest.
 * @param color [out] Actual color of the label with that tag, or unchanged if failed.
 * @return Whether found such label and color has been set.
 **/
gboolean
e_util_labels_get_color (GSList *labels, const char *tag, GdkColor *color)
{
    EUtilLabel *label;

    g_return_val_if_fail (tag != NULL, FALSE);
    g_return_val_if_fail (color != NULL, FALSE);

    label = find_label (labels, tag);
    if (!label)
        return FALSE;

    return gdk_color_parse (label->colour, color);
}

/**
 * e_util_labels_get_color_str
 *
 * @param labels Cache of labels from call of @ref e_util_labels_parse.
 *        The returned pointer will be taken from this list, so it's alive as long as the list.
 * @param tag Tag of the label of our interest.
 * @return String representation of that label, or NULL, is no such label exists.
 **/
const char *
e_util_labels_get_color_str (GSList *labels, const char *tag)
{
    EUtilLabel *label;

    g_return_val_if_fail (tag != NULL, FALSE);

    label = find_label (labels, tag);
    if (!label)
        return FALSE;

    return label->colour;
}

/**
 * e_util_labels_get_filter_options:
 * Returns list of newly allocated struct _filter_option-s, to be used in filters.
 **/
GSList *
e_util_labels_get_filter_options (void)
{
    GSList *known = e_util_labels_parse (NULL), *l;
    GSList *res = NULL;

    for (l = known; l; l = l->next) {
        EUtilLabel *label = l->data;
        const char *tag;
        struct _filter_option *fo;

        if (!label)
            continue;

        tag = label->tag;

        if (tag && strncmp (tag, "$Label", 6) == 0)
            tag += 6;

        fo = g_new0 (struct _filter_option, 1);
        fo->title = e_str_without_underscores (label->name);
        fo->value = g_strdup (tag);

        res = g_slist_prepend (res, fo);
    }

    e_util_labels_free (known);

    return g_slist_reverse (res);
}