/*
 * Copyright 2019 Michael Gratton <mike@vee.net>
 *
 * This software is licensed under the GNU Lesser General Public License
 * (version 2.1 or later). See the COPYING file in this distribution.
 */

namespace Contacts.AvatarUtils {

  // The following was based on code written by Felipe Borges for
  // gnome-control-enter in panels/user-accounts/user-utils.c commit
  // 02c288ab6f069a0c106323a93400f192a63cb67e. The copyright in that
  // file is: "Copyright 2009-2010  Red Hat, Inc,"

  public Gdk.Pixbuf generate_user_picture(string name, int size, bool label = true) {
    Cairo.Surface surface = new Cairo.ImageSurface(
      Cairo.Format.ARGB32, size, size
      );
    Cairo.Context cr = new Cairo.Context(surface);
    cr.rectangle(0, 0, size, size);

    /* Fill the background with a colour for the name */
    Gdk.RGBA color = get_color_for_name(name);
    cr.set_source_rgb(
      color.red / 255.0, color.green / 255.0, color.blue / 255.0
      );
    cr.fill();

    /* Draw the initials on top */
    if (label) {
      string? initials = extract_initials_from_name(name);
      if (initials != null) {
        string font = "Cantarell Ultra-Bold %d".printf((int) GLib.Math.ceil(size / 3));

        cr.set_source_rgb(1.0, 1.0, 1.0);
        Pango.Layout layout = Pango.cairo_create_layout(cr);
        layout.set_text(initials, -1);
        layout.set_font_description(Pango.FontDescription.from_string(font));

        int width, height;
        layout.get_size(out width, out height);
        cr.translate(size / 2, size / 2);
        cr.move_to(
          -((double) width / Pango.SCALE) / 2,
          -((double) height / Pango.SCALE) / 2
          );
        Pango.cairo_show_layout(cr, layout);
      }
    } else {
      try {
        var theme = Gtk.IconTheme.get_default ();
        var fallback_avatar = theme.lookup_icon ("avatar-default",
                                                 size * 1/2,
                                                 Gtk.IconLookupFlags.FORCE_SYMBOLIC);
        Gdk.RGBA fg_color = { 1, 1, 1, 1 };
        var icon_pixbuf = fallback_avatar.load_symbolic (fg_color);
        var x = (double) size / 2.0 - (double) icon_pixbuf.width / 2.0;
        // We also add a offset to the height to visually center the icon
        var y = (double) size / 2.0 - (double) icon_pixbuf.height / 2.0 - (2 * size / 100.0);
        Gdk.cairo_set_source_pixbuf (cr, icon_pixbuf, x, y);
        cr.paint ();
      } catch (Error e) {
        warning ("Couldn't get default avatar icon: %s", e.message);
      }
    }

    return Gdk.pixbuf_get_from_surface(
      surface, 0, 0, size, size
      );
  }

  public Gdk.Pixbuf round_image(Gdk.Pixbuf source) {
    int size = source.width;
    Cairo.Surface surface = new Cairo.ImageSurface(
      Cairo.Format.ARGB32, size, size
      );
    Cairo.Context cr = new Cairo.Context(surface);

    /* Clip a circle */
    cr.arc(size / 2, size / 2, size / 2, 0, 2 * GLib.Math.PI);
    cr.clip();
    cr.new_path();

    Gdk.cairo_set_source_pixbuf(cr, source, 0, 0);
    cr.paint();

    return Gdk.pixbuf_get_from_surface(
      surface, 0, 0, size, size
      );
  }

  public string? extract_initials_from_name(string name) {
    string normalized = name.strip().up().normalize();
    string? initials = null;
    if (normalized != "") {
      GLib.StringBuilder buf = new GLib.StringBuilder();
      unichar c = 0;
      int index  = 0;

      // Get the first alphanumeric char of the string
      for (int i = 0; normalized.get_next_char(ref index, out c); i++) {
        if (c.isalnum()) {
          buf.append_unichar(c);
          break;
        }
      }

      // Get the first alphanumeric char of the last word of the string
      index = normalized.last_index_of_char(' ');
      if (index >= 0) {
        for (int i = 0; normalized.get_next_char(ref index, out c); i++) {
          if (c.isalnum()) {
            buf.append_unichar(c);
            break;
          }
        }
      }

      if (buf.data.length > 0) {
        initials = (string) buf.data;
      }
    }
    return initials;
  }


  public Gdk.RGBA get_color_for_name(string name) {
    // https://gitlab.gnome.org/Community/Design/HIG-app-icons/blob/master/GNOME%20HIG.gpl
    const double[,] GNOME_COLOR_PALETTE = {
      {  98, 160, 234 },
      {  53, 132, 228 },
      {  28, 113, 216 },
      {  26,  95, 180 },
      {  87, 227, 137 },
      {  51, 209, 122 },
      {  46, 194, 126 },
      {  38, 162, 105 },
      { 248, 228,  92 },
      { 246, 211,  45 },
      { 245, 194,  17 },
      { 229, 165,  10 },
      { 255, 163,  72 },
      { 255, 120,   0 },
      { 230,  97,   0 },
      { 198,  70,   0 },
      { 237,  51,  59 },
      { 224,  27,  36 },
      { 192,  28,  40 },
      { 165,  29,  45 },
      { 192,  97, 203 },
      { 163,  71, 186 },
      { 129,  61, 156 },
      {  97,  53, 131 },
      { 181, 131,  90 },
      { 152, 106,  68 },
      { 134,  94,  60 },
      {  99,  69,  44 }
    };

    Gdk.RGBA color = { 255, 255, 255, 1.0 };
    uint hash;
    uint number_of_colors = GNOME_COLOR_PALETTE.length[0];
    uint idx;

    if (name == "") {
      // Return a random color if we don't have a name
      idx = Random.int_range (0, (int32) number_of_colors);
      color.red   = GNOME_COLOR_PALETTE[idx,0];
      color.green = GNOME_COLOR_PALETTE[idx,1];
      color.blue  = GNOME_COLOR_PALETTE[idx,2];
      return color;
    }

    hash = name.hash();
    idx = hash % number_of_colors;

    color.red   = GNOME_COLOR_PALETTE[idx,0];
    color.green = GNOME_COLOR_PALETTE[idx,1];
    color.blue  = GNOME_COLOR_PALETTE[idx,2];

    return color;
  }
}