path: root/widgets/misc/e-contact-marker.c

/*
 * e-contact-marker.c
 *
 * 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/>
 *
 * Copyright (C) 2008 Pierre-Luc Beaudoin <pierre-luc@pierlux.com>
 * Copyright (C) 2011 Jiri Techet <techet@gmail.com>
 * Copyright (C) 2011 Dan Vratil <dvratil@redhat.com>
 *
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#ifdef WITH_CONTACT_MAPS

#include "e-contact-marker.h"

#include <champlain/champlain.h>
#include <gtk/gtk.h>
#include <clutter/clutter.h>
#include <glib.h>
#include <glib/gi18n.h>
#include <glib-object.h>
#include <cairo.h>
#include <math.h>
#include <string.h>

G_DEFINE_TYPE (EContactMarker, e_contact_marker, CHAMPLAIN_TYPE_LABEL);

struct _EContactMarkerPrivate
{
    gchar *contact_uid;

    ClutterActor *image;
    ClutterActor *text_actor;

    ClutterActor *shadow;
    ClutterActor *background;

    guint total_width;
    guint total_height;

    ClutterGroup *content_group;

    guint redraw_id;
};

enum {
    DOUBLE_CLICKED,
    LAST_SIGNAL
};

static gint signals[LAST_SIGNAL] = {0};

#define DEFAULT_FONT_NAME "Serif 9"

static ClutterColor DEFAULT_COLOR = { 0x33, 0x33, 0x33, 0xff };

#define RADIUS 10
#define PADDING (RADIUS / 2)

static gboolean
contact_marker_clicked_cb (ClutterActor *actor,
                           ClutterEvent *event,
                           gpointer user_data)
{
    gint click_count = clutter_event_get_click_count (event);

    if (click_count == 2)
        g_signal_emit (E_CONTACT_MARKER (actor), signals[DOUBLE_CLICKED], 0);

    return TRUE;
}

static ClutterActor *
texture_new_from_pixbuf (GdkPixbuf *pixbuf,
                         GError **error)
{
    ClutterActor *texture = NULL;
    const guchar *data;
    gboolean has_alpha, success;
    gint width, height, rowstride;
    ClutterTextureFlags flags = 0;

    data = gdk_pixbuf_get_pixels (pixbuf);
    width = gdk_pixbuf_get_width (pixbuf);
    height = gdk_pixbuf_get_height (pixbuf);
    has_alpha = gdk_pixbuf_get_has_alpha (pixbuf);
    rowstride = gdk_pixbuf_get_rowstride (pixbuf);

    texture = clutter_texture_new ();
    success = clutter_texture_set_from_rgb_data (CLUTTER_TEXTURE (texture),
        data, has_alpha, width, height, rowstride,
        (has_alpha ? 4: 3), flags, NULL);

    if (!success) {
        clutter_actor_destroy (CLUTTER_ACTOR (texture));
        texture = NULL;
    }

    return texture;
}

static ClutterActor *
contact_photo_to_texture (EContactPhoto *photo)
{
    GdkPixbuf *pixbuf;

    if  (photo->type == E_CONTACT_PHOTO_TYPE_INLINED) {
        GError *error = NULL;

        GdkPixbufLoader *loader = gdk_pixbuf_loader_new ();
        gdk_pixbuf_loader_write (
            loader, photo->data.inlined.data,
            photo->data.inlined.length, NULL);
        gdk_pixbuf_loader_close (loader, NULL);
        pixbuf = gdk_pixbuf_loader_get_pixbuf (loader);
        if (pixbuf)
            g_object_ref (pixbuf);
        g_object_unref (loader);

        if (error) {
            g_error_free (error);
            return NULL;
        }
    } else if (photo->type == E_CONTACT_PHOTO_TYPE_URI) {
        GError *error = NULL;

        pixbuf = gdk_pixbuf_new_from_file (photo->data.uri, &error);

        if (error) {
            g_error_free (error);
            return NULL;
        }
    } else
        return NULL;

    if (pixbuf) {
        ClutterActor *texture;
        GError *error = NULL;

        texture = texture_new_from_pixbuf (pixbuf, &error);
        if (error) {
            g_error_free (error);
            g_object_unref (pixbuf);
            return NULL;
        }

        g_object_unref (pixbuf);
        return texture;
    }

    return NULL;
}

static void
draw_box (cairo_t *cr,
          gint width,
          gint height,
          gint point)
{
      cairo_move_to (cr, RADIUS, 0);
      cairo_line_to (cr, width - RADIUS, 0);
      cairo_arc (cr, width - RADIUS, RADIUS, RADIUS - 1, 3 * M_PI / 2.0, 0);
      cairo_line_to (cr, width, height - RADIUS);
      cairo_arc (cr, width - RADIUS, height - RADIUS, RADIUS - 1, 0, M_PI / 2.0);
      cairo_line_to (cr, point, height);
      cairo_line_to (cr, 0, height + point);
      cairo_arc (cr, RADIUS, RADIUS, RADIUS - 1, M_PI, 3 * M_PI / 2.0);
      cairo_close_path (cr);
}

static void
draw_shadow (EContactMarker *marker,
             gint width,
             gint height,
             gint point)
{
    EContactMarkerPrivate *priv = marker->priv;
    ClutterActor *shadow = NULL;
    cairo_t *cr;
    gdouble slope;
    gdouble scaling;
    gint x;
    cairo_matrix_t matrix;

    slope = -0.3;
    scaling = 0.65;
    x = -40 * slope;

    shadow = clutter_cairo_texture_new (width + x, (height + point));
    cr = clutter_cairo_texture_create (CLUTTER_CAIRO_TEXTURE (shadow));

    cairo_set_operator (cr, CAIRO_OPERATOR_CLEAR);
    cairo_paint (cr);
    cairo_set_operator (cr, CAIRO_OPERATOR_OVER);

    cairo_matrix_init (&matrix, 1, 0, slope, scaling, x, 0);
    cairo_set_matrix (cr, &matrix);

    draw_box (cr, width, height, point);

    cairo_set_source_rgba (cr, 0, 0, 0, 0.15);
    cairo_fill (cr);

    cairo_destroy (cr);

    clutter_actor_set_position (shadow, 0, height / 2.0);

    clutter_container_add_actor (CLUTTER_CONTAINER (priv->content_group), shadow);

    if (priv->shadow != NULL) {
        clutter_container_remove_actor (CLUTTER_CONTAINER (priv->content_group),
            priv->shadow);
    }

    priv->shadow = shadow;
}

static void
draw_background (EContactMarker *marker,
                 gint width,
                 gint height,
                 gint point)
{
    EContactMarkerPrivate *priv = marker->priv;
    ClutterActor *bg = NULL;
    const ClutterColor *color;
    ClutterColor darker_color;
    cairo_t *cr;

    bg = clutter_cairo_texture_new (width, height + point);
    cr = clutter_cairo_texture_create (CLUTTER_CAIRO_TEXTURE (bg));

    cairo_set_operator (cr, CAIRO_OPERATOR_CLEAR);
    cairo_paint (cr);
    cairo_set_operator (cr, CAIRO_OPERATOR_OVER);

    /* If selected, add the selection color to the marker's color */
    if (champlain_marker_get_selected (CHAMPLAIN_MARKER (marker)))
        color = champlain_marker_get_selection_color ();
    else
        color = &DEFAULT_COLOR;

    draw_box (cr, width, height, point);

    clutter_color_darken (color, &darker_color);

    cairo_set_source_rgba (cr,
        color->red / 255.0,
        color->green / 255.0,
        color->blue / 255.0,
        color->alpha / 255.0);
    cairo_fill_preserve (cr);

    cairo_set_line_width (cr, 1.0);
    cairo_set_source_rgba (cr,
        darker_color.red / 255.0,
        darker_color.green / 255.0,
        darker_color.blue / 255.0,
        darker_color.alpha / 255.0);
    cairo_stroke (cr);
    cairo_destroy (cr);

    clutter_container_add_actor (CLUTTER_CONTAINER (priv->content_group), bg);

    if (priv->background != NULL) {
        clutter_container_remove_actor (CLUTTER_CONTAINER (priv->content_group),
            priv->background);
    }

    priv->background = bg;
}

static void
draw_marker (EContactMarker *marker)
{
    EContactMarkerPrivate *priv = marker->priv;
    ChamplainLabel *label = CHAMPLAIN_LABEL (marker);
    guint height = 0, point = 0;
    guint total_width = 0, total_height = 0;
    ClutterText *text;

    if (priv->image) {
        clutter_actor_set_position (priv->image, 2 *PADDING, 2 *PADDING);
        if (clutter_actor_get_parent (priv->image) == NULL)
            clutter_container_add_actor (
                CLUTTER_CONTAINER (priv->content_group),
                priv->image);
    }

    if (priv->text_actor == NULL) {
        priv->text_actor = clutter_text_new_with_text ("Serif 8",
                    champlain_label_get_text (label));
        champlain_label_set_font_name (label, "Serif 8");
    }

    text = CLUTTER_TEXT (priv->text_actor);
    clutter_text_set_text (text,
        champlain_label_get_text (label));
    clutter_text_set_font_name (text,
        champlain_label_get_font_name (label));
    clutter_text_set_line_alignment (text, PANGO_ALIGN_CENTER);
    clutter_text_set_line_wrap (text, TRUE);
    clutter_text_set_line_wrap_mode (text, PANGO_WRAP_WORD);
    clutter_text_set_ellipsize (text,
        champlain_label_get_ellipsize (label));
    clutter_text_set_attributes (text,
        champlain_label_get_attributes (label));
    clutter_text_set_use_markup (text,
        champlain_label_get_use_markup (label));

    if (priv->image) {
        clutter_actor_set_width (priv->text_actor,
            clutter_actor_get_width (priv->image));
        total_height = clutter_actor_get_height (priv->image) + 2 *PADDING +
                   clutter_actor_get_height (priv->text_actor) + 2 *PADDING;
        total_width = clutter_actor_get_width (priv->image) + 4 *PADDING;
        clutter_actor_set_position (priv->text_actor, PADDING,
            clutter_actor_get_height (priv->image) + 2 *PADDING + 3);
    } else {
        total_height = clutter_actor_get_height (priv->text_actor) + 2 *PADDING;
        total_width = clutter_actor_get_width (priv->text_actor) + 4 *PADDING;
        clutter_actor_set_position (priv->text_actor, 2 * PADDING, PADDING);
    }

    height += 2 * PADDING;
    if (height > total_height)
        total_height = height;

    clutter_text_set_color (CLUTTER_TEXT (priv->text_actor),
          (champlain_marker_get_selected (CHAMPLAIN_MARKER (marker)) ?
            champlain_marker_get_selection_text_color () :
            champlain_label_get_text_color (CHAMPLAIN_LABEL (marker))));
    if (clutter_actor_get_parent (priv->text_actor) == NULL)
        clutter_container_add_actor (
            CLUTTER_CONTAINER (priv->content_group),
            priv->text_actor);

    if (priv->text_actor == NULL && priv->image == NULL) {
        total_width = 6 * PADDING;
        total_height = 6 * PADDING;
    }

    point = (total_height + 2 * PADDING) / 4.0;
    priv->total_width = total_width;
    priv->total_height = total_height;

    draw_shadow (marker, total_width, total_height, point);
    draw_background (marker, total_width, total_height, point);

    if (priv->text_actor != NULL && priv->background != NULL)
        clutter_actor_raise (priv->text_actor, priv->background);
    if (priv->image != NULL && priv->background != NULL)
        clutter_actor_raise (priv->image, priv->background);

    clutter_actor_set_anchor_point (CLUTTER_ACTOR (marker), 0, total_height + point);
}

static gboolean
redraw_on_idle (gpointer gobject)
{
    EContactMarker *marker = E_CONTACT_MARKER (gobject);

    draw_marker (marker);
    marker->priv->redraw_id = 0;
    return FALSE;
}

static void
queue_redraw (EContactMarker *marker)
{
    EContactMarkerPrivate *priv = marker->priv;

    if (!priv->redraw_id) {
        priv->redraw_id = g_idle_add_full (G_PRIORITY_DEFAULT,
            (GSourceFunc) redraw_on_idle,
            g_object_ref (marker),
            (GDestroyNotify) g_object_unref);
    }
}

static void
allocate (ClutterActor *self,
          const ClutterActorBox *box,
          ClutterAllocationFlags flags)
{
    ClutterActorBox child_box;
    EContactMarkerPrivate *priv = E_CONTACT_MARKER (self)->priv;

    CLUTTER_ACTOR_CLASS (e_contact_marker_parent_class)->allocate (self, box, flags);

    child_box.x1 = 0;
    child_box.x2 = box->x2 - box->x1;
    child_box.y1 = 0;
    child_box.y2 = box->y2 - box->y1;
    clutter_actor_allocate (CLUTTER_ACTOR (priv->content_group), &child_box, flags);
}

static void
paint (ClutterActor *self)
{
    EContactMarkerPrivate *priv = E_CONTACT_MARKER (self)->priv;

    clutter_actor_paint (CLUTTER_ACTOR (priv->content_group));
}

static void
map (ClutterActor *self)
{
    EContactMarkerPrivate *priv = E_CONTACT_MARKER (self)->priv;

    CLUTTER_ACTOR_CLASS (e_contact_marker_parent_class)->map (self);

    clutter_actor_map (CLUTTER_ACTOR (priv->content_group));
}

static void
unmap (ClutterActor *self)
{
    EContactMarkerPrivate *priv = E_CONTACT_MARKER (self)->priv;

    CLUTTER_ACTOR_CLASS (e_contact_marker_parent_class)->unmap (self);

    clutter_actor_unmap (CLUTTER_ACTOR (priv->content_group));
}

static void
pick (ClutterActor *self,
      const ClutterColor *color)
{
    EContactMarkerPrivate *priv = E_CONTACT_MARKER (self)->priv;
    gfloat width, height;

    if (!clutter_actor_should_pick_paint (self))
        return;

    width = priv->total_width;
    height = priv->total_height;

    cogl_path_new ();

    cogl_set_source_color4ub (color->red,
        color->green,
        color->blue,
        color->alpha);

    cogl_path_move_to (RADIUS, 0);
    cogl_path_line_to (width - RADIUS, 0);
    cogl_path_arc (width - RADIUS, RADIUS, RADIUS, RADIUS, -90, 0);
    cogl_path_line_to (width, height - RADIUS);
    cogl_path_arc (width - RADIUS, height - RADIUS, RADIUS, RADIUS, 0, 90);
    cogl_path_line_to (RADIUS, height);
    cogl_path_arc (RADIUS, height - RADIUS, RADIUS, RADIUS, 90, 180);
    cogl_path_line_to (0, RADIUS);
    cogl_path_arc (RADIUS, RADIUS, RADIUS, RADIUS, 180, 270);
    cogl_path_close ();
    cogl_path_fill ();
}

static void
notify_selected (GObject *gobject,
                 G_GNUC_UNUSED GParamSpec *pspec,
                 G_GNUC_UNUSED gpointer user_data)
{
    queue_redraw (E_CONTACT_MARKER (gobject));
}

static void
e_contact_marker_finalize (GObject *object)
{
    EContactMarkerPrivate *priv = E_CONTACT_MARKER (object)->priv;

    if (priv->contact_uid) {
        g_free (priv->contact_uid);
        priv->contact_uid = NULL;
    }

    if (priv->redraw_id) {
        g_source_remove (priv->redraw_id);
        priv->redraw_id = 0;
    }

    G_OBJECT_CLASS (e_contact_marker_parent_class)->finalize (object);
}

static void
e_contact_marker_dispose (GObject *object)
{
    EContactMarkerPrivate *priv = E_CONTACT_MARKER (object)->priv;

    priv->background = NULL;
    priv->shadow = NULL;
    priv->text_actor = NULL;

    if (priv->content_group) {
        clutter_actor_unparent (CLUTTER_ACTOR (priv->content_group));
        priv->content_group = NULL;
    }

    G_OBJECT_CLASS (e_contact_marker_parent_class)->dispose (object);
}

static void
e_contact_marker_class_init (EContactMarkerClass *class)
{
    ClutterActorClass *actor_class = CLUTTER_ACTOR_CLASS (class);
    GObjectClass *object_class = G_OBJECT_CLASS (class);

    g_type_class_add_private (class, sizeof (EContactMarkerPrivate));

    object_class->dispose = e_contact_marker_dispose;
    object_class->finalize = e_contact_marker_finalize;

    actor_class->paint = paint;
    actor_class->allocate = allocate;
    actor_class->map = map;
    actor_class->unmap = unmap;
    actor_class->pick = pick;

    signals[DOUBLE_CLICKED] = g_signal_new (
        "double-clicked",
        G_TYPE_FROM_CLASS (class),
        G_SIGNAL_RUN_FIRST,
        G_STRUCT_OFFSET (EContactMarkerClass, double_clicked),
        NULL, NULL,
        g_cclosure_marshal_VOID__VOID,
        G_TYPE_NONE, 0);
}

static void
e_contact_marker_init (EContactMarker *marker)
{
    EContactMarkerPrivate *priv;

    priv =  G_TYPE_INSTANCE_GET_PRIVATE (
            marker, E_TYPE_CONTACT_MARKER, EContactMarkerPrivate);

    marker->priv = priv;
    priv->contact_uid = NULL;
    priv->image = NULL;
    priv->background = NULL;
    priv->shadow = NULL;
    priv->text_actor = NULL;
    priv->content_group = CLUTTER_GROUP (clutter_group_new ());
    priv->redraw_id = 0;

    clutter_actor_set_parent (
        CLUTTER_ACTOR (priv->content_group), CLUTTER_ACTOR (marker));
    clutter_actor_queue_relayout (CLUTTER_ACTOR (marker));

    priv->total_width = 0;
    priv->total_height = 0;

    g_signal_connect (marker, "notify::selected",
        G_CALLBACK (notify_selected), NULL);
    g_signal_connect (CLUTTER_ACTOR (marker), "button-release-event",
        G_CALLBACK (contact_marker_clicked_cb), NULL);
}

ClutterActor *
e_contact_marker_new (const gchar *name,
                      const gchar *contact_uid,
                      EContactPhoto *photo)
{
    ClutterActor *marker = CLUTTER_ACTOR (g_object_new (E_TYPE_CONTACT_MARKER, NULL));
    EContactMarkerPrivate *priv = E_CONTACT_MARKER (marker)->priv;

    g_return_val_if_fail (name && *name, NULL);
    g_return_val_if_fail (contact_uid && *contact_uid, NULL);

    champlain_label_set_text (CHAMPLAIN_LABEL (marker), name);
    priv->contact_uid = g_strdup (contact_uid);
    if (photo)
        priv->image = contact_photo_to_texture (photo);

    queue_redraw (E_CONTACT_MARKER (marker));

    return marker;
}

const gchar *
e_contact_marker_get_contact_uid (EContactMarker *marker)
{
    g_return_val_if_fail (marker && E_IS_CONTACT_MARKER (marker), NULL);

    return marker->priv->contact_uid;
}

#endif /* WITH_CONTACT_MAPS */