/* GIO - GLib Input, Output and Streaming Library

 * 

 * Copyright (C) 2006-2007 Red Hat, Inc.

 *

 * SPDX-License-Identifier: LGPL-2.1-or-later

 *

 * This library 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.1 of the License, or (at your option) any later version.

 *

 * This library 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 this library; if not, see <http://www.gnu.org/licenses/>.

 *

 * Author: Alexander Larsson <alexl@redhat.com>

 */

#include "config.h"

#include <string.h>

#include "gthemedicon.h"

#include "gicon.h"

#include "gioerror.h"

#include "glibintl.h"

/**

 * GThemedIcon:

 *

 * `GThemedIcon` is an implementation of [iface@Gio.Icon] that supports icon

 * themes.

 *

 * `GThemedIcon` contains a list of all of the icons present in an icon

 * theme, so that icons can be looked up quickly. `GThemedIcon` does

 * not provide actual pixmaps for icons, just the icon names.

 * Ideally something like [method@Gtk.IconTheme.choose_icon] should be used to

 * resolve the list of names so that fallback icons work nicely with

 * themes that inherit other themes.

 **/

static void g_themed_icon_icon_iface_init (GIconIface *iface);

struct _GThemedIcon

{

  GObject parent_instance;

  char     **init_names;

  char     **names;

  gboolean   use_default_fallbacks;

};

struct _GThemedIconClass

{

  GObjectClass parent_class;

};

enum

{

  PROP_0,

  PROP_NAME,

  PROP_NAMES,

  PROP_USE_DEFAULT_FALLBACKS

};

static void g_themed_icon_update_names (GThemedIcon *themed);

G_DEFINE_TYPE_WITH_CODE (GThemedIcon, g_themed_icon, G_TYPE_OBJECT,

       G_IMPLEMENT_INTERFACE (G_TYPE_ICON,

            g_themed_icon_icon_iface_init))

static void

g_themed_icon_get_property (GObject    *object,

                            guint       prop_id,

                            GValue     *value,

                            GParamSpec *pspec)

{

  GThemedIcon *icon = G_THEMED_ICON (object);

  switch (prop_id)

    {

      case PROP_NAMES:

        g_value_set_boxed (value, icon->init_names);

        break;

      case PROP_USE_DEFAULT_FALLBACKS:

        g_value_set_boolean (value, icon->use_default_fallbacks);

        break;

      default:

        G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);

    }

}

static void

g_themed_icon_set_property (GObject      *object,

                            guint         prop_id,

                            const GValue *value,

                            GParamSpec   *pspec)

{

  GThemedIcon *icon = G_THEMED_ICON (object);

  gchar **names;

  const gchar *name;

  switch (prop_id)

    {

      case PROP_NAME:

        name = g_value_get_string (value);

        if (!name)

          break;

        if (icon->init_names)

          g_strfreev (icon->init_names);

        icon->init_names = g_new (char *, 2);

        icon->init_names[0] = g_strdup (name);

        icon->init_names[1] = NULL;

        break;

      case PROP_NAMES:

        names = g_value_dup_boxed (value);

        if (!names)

          break;

        if (icon->init_names)

          g_strfreev (icon->init_names);

        icon->init_names = names;

        break;

      case PROP_USE_DEFAULT_FALLBACKS:

        icon->use_default_fallbacks = g_value_get_boolean (value);

        break;

      default:

        G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);

    }

}

static void

g_themed_icon_constructed (GObject *object)

{

  g_themed_icon_update_names (G_THEMED_ICON (object));

}

static void

g_themed_icon_finalize (GObject *object)

{

  GThemedIcon *themed;

  themed = G_THEMED_ICON (object);

  g_strfreev (themed->init_names);

  g_strfreev (themed->names);

  G_OBJECT_CLASS (g_themed_icon_parent_class)->finalize (object);

}

static void

g_themed_icon_class_init (GThemedIconClass *klass)

{

  GObjectClass *gobject_class = G_OBJECT_CLASS (klass);

  gobject_class->finalize = g_themed_icon_finalize;

  gobject_class->constructed = g_themed_icon_constructed;

  gobject_class->set_property = g_themed_icon_set_property;

  gobject_class->get_property = g_themed_icon_get_property;

  /**

   * GThemedIcon:name:

   *

   * The icon name.

   */

  g_object_class_install_property (gobject_class, PROP_NAME,

                                   g_param_spec_string ("name", NULL, NULL,

                                                        NULL,

                                                        G_PARAM_CONSTRUCT_ONLY | G_PARAM_WRITABLE | G_PARAM_STATIC_NAME | G_PARAM_STATIC_BLURB | G_PARAM_STATIC_NICK));

  /**

   * GThemedIcon:names:

   *

   * A %NULL-terminated array of icon names.

   */

  g_object_class_install_property (gobject_class, PROP_NAMES,

                                   g_param_spec_boxed ("names", NULL, NULL,

                                                       G_TYPE_STRV,

                                                       G_PARAM_CONSTRUCT_ONLY | G_PARAM_READWRITE | G_PARAM_STATIC_NAME | G_PARAM_STATIC_BLURB | G_PARAM_STATIC_NICK));

  /**

   * GThemedIcon:use-default-fallbacks:

   *

   * Whether to use the default fallbacks found by shortening the icon name 

   * at '-' characters. If the "names" array has more than one element, 

   * ignores any past the first.

   *

   * For example, if the icon name was "gnome-dev-cdrom-audio", the array 

   * would become

   * |[<!-- language="C" -->

   * {

   *   "gnome-dev-cdrom-audio",

   *   "gnome-dev-cdrom",

   *   "gnome-dev",

   *   "gnome",

   *   NULL

   * };

   * ]|

   */

  g_object_class_install_property (gobject_class, PROP_USE_DEFAULT_FALLBACKS,

                                   g_param_spec_boolean ("use-default-fallbacks", NULL, NULL,

                                                         FALSE,

                                                         G_PARAM_CONSTRUCT_ONLY | G_PARAM_READWRITE | G_PARAM_STATIC_NAME | G_PARAM_STATIC_BLURB | G_PARAM_STATIC_NICK));

}

static void

g_themed_icon_init (GThemedIcon *themed)

{

  themed->init_names = NULL;

  themed->names      = NULL;

}

/**

 * g_themed_icon_update_names:

 * @themed: a #GThemedIcon.

 *

 * Update the actual icon name list, based on the requested names (from

 * construction, or later added with g_themed_icon_prepend_name() and

 * g_themed_icon_append_name()).

 * The order of the list matters, indicating priority:

 *

 * - The first requested icon is first in priority.

 * - If "use-default-fallbacks" is #TRUE, then it is followed by all its

 *   fallbacks (starting from top to lower context levels).

 * - Then next requested icons, and optionally their fallbacks, follow.

 * - Finally all the style variants (symbolic or regular, opposite to whatever

 *   is the requested style) follow in the same order.

 *

 * An icon is not added twice in the list if it was previously added.

 *

 * For instance, if requested names are:

 * [ "some-icon-symbolic", "some-other-icon" ]

 * and use-default-fallbacks is TRUE, the final name list shall be:

 * [ "some-icon-symbolic", "some-symbolic", "some-other-icon",

 *   "some-other", "some", "some-icon", "some-other-icon-symbolic",

 *   "some-other-symbolic" ]

 *

 * Returns: (transfer full) (type GThemedIcon): a new #GThemedIcon

 **/

static void

g_themed_icon_update_names (GThemedIcon *themed)

{

  GList *names    = NULL;

  GList *variants = NULL;

  GList *iter;

  guint  i;

  g_return_if_fail (themed->init_names != NULL && themed->init_names[0] != NULL);

  for (i = 0; themed->init_names[i]; i++)

    {

      gchar    *name;

      gboolean  is_symbolic;

      is_symbolic = g_str_has_suffix (themed->init_names[i], "-symbolic");

      if (is_symbolic)

        name = g_strndup (themed->init_names[i], strlen (themed->init_names[i]) - 9);

      else

        name = g_strdup (themed->init_names[i]);

      if (g_list_find_custom (names, name, (GCompareFunc) g_strcmp0))

        {

          g_free (name);

          continue;

        }

      if (is_symbolic)

        names = g_list_prepend (names, g_strdup (themed->init_names[i]));

      else

        names = g_list_prepend (names, name);

      if (themed->use_default_fallbacks)

        {

          char *dashp;

          char *last;

          last = name;

          while ((dashp = strrchr (last, '-')) != NULL)

            {

              gchar *tmp = last;

              gchar *fallback;

              last = g_strndup (last, (size_t) (dashp - last));

              if (is_symbolic)

                {

                  g_free (tmp);

                  fallback = g_strdup_printf ("%s-symbolic", last);

                }

              else

                fallback = last;

              if (g_list_find_custom (names, fallback, (GCompareFunc) g_strcmp0))

                {

                  g_free (fallback);

                  break;

                }

              names = g_list_prepend (names, fallback);

            }

          if (is_symbolic)

            g_free (last);

        }

      else if (is_symbolic)

        g_free (name);

    }

  for (iter = names; iter; iter = iter->next)

    {

      gchar    *name = (gchar *) iter->data;

      gchar    *variant;

      gboolean  is_symbolic;

      is_symbolic = g_str_has_suffix (name, "-symbolic");

      if (is_symbolic)

        variant = g_strndup (name, strlen (name) - 9);

      else

        variant = g_strdup_printf ("%s-symbolic", name);

      if (g_list_find_custom (names, variant, (GCompareFunc) g_strcmp0) ||

          g_list_find_custom (variants, variant, (GCompareFunc) g_strcmp0))

        {

          g_free (variant);

          continue;

        }

      variants = g_list_prepend (variants, variant);

    }

  names = g_list_reverse (names);

  g_strfreev (themed->names);

  themed->names = g_new (char *, g_list_length (names) + g_list_length (variants) + 1);

  for (iter = names, i = 0; iter; iter = iter->next, i++)

    themed->names[i] = iter->data;

  for (iter = variants; iter; iter = iter->next, i++)

    themed->names[i] = iter->data;

  themed->names[i] = NULL;

  g_list_free (names);

  g_list_free (variants);

  g_object_notify (G_OBJECT (themed), "names");

}

/**

 * g_themed_icon_new:

 * @iconname: a string containing an icon name.

 * 

 * Creates a new themed icon for @iconname.

 * 

 * Returns: (transfer full) (type GThemedIcon): a new #GThemedIcon.

 **/

GIcon *

g_themed_icon_new (const char *iconname)

{

  g_return_val_if_fail (iconname != NULL, NULL);

  return G_ICON (g_object_new (G_TYPE_THEMED_ICON, "name", iconname, NULL));

}

/**

 * g_themed_icon_new_from_names:

 * @iconnames: (array length=len): an array of strings containing icon names.

 * @len: the length of the @iconnames array, or -1 if @iconnames is 

 *     %NULL-terminated

 * 

 * Creates a new themed icon for @iconnames.

 * 

 * Returns: (transfer full) (type GThemedIcon): a new #GThemedIcon

 **/

GIcon *

g_themed_icon_new_from_names (char **iconnames,

                              int    len)

{

  GIcon *icon;

  g_return_val_if_fail (iconnames != NULL, NULL);

  if (len >= 0)

    {

      char **names;

      size_t i;

      names = g_new (char *, (size_t) len + 1);

      for (i = 0; i < (size_t) len; i++)

        names[i] = iconnames[i];

      names[i] = NULL;

      icon = G_ICON (g_object_new (G_TYPE_THEMED_ICON, "names", names, NULL));

      g_free (names);

    }

  else

    icon = G_ICON (g_object_new (G_TYPE_THEMED_ICON, "names", iconnames, NULL));

  return icon;

}

/**

 * g_themed_icon_new_with_default_fallbacks:

 * @iconname: a string containing an icon name

 *

 * Creates a new themed icon for @iconname, and all the names

 * that can be created by shortening @iconname at '-' characters.

 * 

 * In the following example, @icon1 and @icon2 are equivalent:

 * |[<!-- language="C" -->

 * const char *names[] = { 

 *   "gnome-dev-cdrom-audio",

 *   "gnome-dev-cdrom",

 *   "gnome-dev",

 *   "gnome"

 * };

 *

 * icon1 = g_themed_icon_new_from_names (names, 4);

 * icon2 = g_themed_icon_new_with_default_fallbacks ("gnome-dev-cdrom-audio");

 * ]|

 *

 * Returns: (transfer full) (type GThemedIcon): a new #GThemedIcon.

 */

GIcon *

g_themed_icon_new_with_default_fallbacks (const char *iconname)

{

  g_return_val_if_fail (iconname != NULL, NULL);

  return G_ICON (g_object_new (G_TYPE_THEMED_ICON, "name", iconname, "use-default-fallbacks", TRUE, NULL));

}

/**

 * g_themed_icon_get_names:

 * @icon: a #GThemedIcon.

 *

 * Gets the names of icons from within @icon.

 *

 * Returns: (transfer none): a list of icon names.

 */

const char * const *

g_themed_icon_get_names (GThemedIcon *icon)

{

  g_return_val_if_fail (G_IS_THEMED_ICON (icon), NULL);

  return (const char * const *)icon->names;

}

/**

 * g_themed_icon_append_name:

 * @icon: a #GThemedIcon

 * @iconname: name of icon to append to list of icons from within @icon.

 *

 * Append a name to the list of icons from within @icon.

 *

 * Note that doing so invalidates the hash computed by prior calls

 * to g_icon_hash().

 */

void

g_themed_icon_append_name (GThemedIcon *icon, 

                           const char  *iconname)

{

  guint num_names;

  g_return_if_fail (G_IS_THEMED_ICON (icon));

  g_return_if_fail (iconname != NULL);

  num_names = g_strv_length (icon->init_names);

  icon->init_names = g_realloc (icon->init_names, sizeof (char*) * (num_names + 2));

  icon->init_names[num_names] = g_strdup (iconname);

  icon->init_names[num_names + 1] = NULL;

  g_themed_icon_update_names (icon);

}

/**

 * g_themed_icon_prepend_name:

 * @icon: a #GThemedIcon

 * @iconname: name of icon to prepend to list of icons from within @icon.

 *

 * Prepend a name to the list of icons from within @icon.

 *

 * Note that doing so invalidates the hash computed by prior calls

 * to g_icon_hash().

 *

 * Since: 2.18

 */

void

g_themed_icon_prepend_name (GThemedIcon *icon, 

                            const char  *iconname)

{

  guint num_names;

  gchar **names;

  gint i;

  g_return_if_fail (G_IS_THEMED_ICON (icon));

  g_return_if_fail (iconname != NULL);

  num_names = g_strv_length (icon->init_names);

  names = g_new (char*, num_names + 2);

  for (i = 0; icon->init_names[i]; i++)

    names[i + 1] = icon->init_names[i];

  names[0] = g_strdup (iconname);

  names[num_names + 1] = NULL;

  g_free (icon->init_names);

  icon->init_names = names;

  g_themed_icon_update_names (icon);

}

static guint

g_themed_icon_hash (GIcon *icon)

{

  GThemedIcon *themed = G_THEMED_ICON (icon);

  guint hash;

  int i;

  hash = 0;

  for (i = 0; themed->names[i] != NULL; i++)

    hash ^= g_str_hash (themed->names[i]);

  return hash;

}

static gboolean

g_themed_icon_equal (GIcon *icon1,

                     GIcon *icon2)

{

  GThemedIcon *themed1 = G_THEMED_ICON (icon1);

  GThemedIcon *themed2 = G_THEMED_ICON (icon2);

  int i;

  for (i = 0; themed1->names[i] != NULL && themed2->names[i] != NULL; i++)

    {

      if (!g_str_equal (themed1->names[i], themed2->names[i]))

  return FALSE;

    }

  return themed1->names[i] == NULL && themed2->names[i] == NULL;

}

static gboolean

g_themed_icon_to_tokens (GIcon *icon,

       GPtrArray *tokens,

                         gint  *out_version)

{

  GThemedIcon *themed_icon = G_THEMED_ICON (icon);

  int n;

  g_return_val_if_fail (out_version != NULL, FALSE);

  *out_version = 0;

  for (n = 0; themed_icon->names[n] != NULL; n++)

    g_ptr_array_add (tokens,

         g_strdup (themed_icon->names[n]));

  return TRUE;

}

static GIcon *

g_themed_icon_from_tokens (gchar  **tokens,

                           gint     num_tokens,

                           gint     version,

                           GError **error)

{

  GIcon *icon;

  gchar **names;

  size_t n;

  /* This is guaranteed by the GIcon interface */

  g_assert (num_tokens >= 0);

  icon = NULL;

  if (version != 0)

    {

      g_set_error (error,

                   G_IO_ERROR,

                   G_IO_ERROR_INVALID_ARGUMENT,

                   _("Can’t handle version %d of GThemedIcon encoding"),

                   version);

      goto out;

    }

  names = g_new0 (gchar *, (size_t) num_tokens + 1);

  for (n = 0; n < (size_t) num_tokens; n++)

    names[n] = tokens[n];

  names[n] = NULL;

  icon = g_themed_icon_new_from_names (names, num_tokens);

  g_free (names);

 out:

  return icon;

}

static GVariant *

g_themed_icon_serialize (GIcon *icon)

{

  GThemedIcon *themed_icon = G_THEMED_ICON (icon);

  return g_variant_new ("(sv)", "themed", g_variant_new ("^as", themed_icon->names));

}

static void

g_themed_icon_icon_iface_init (GIconIface *iface)

{

  iface->hash = g_themed_icon_hash;

  iface->equal = g_themed_icon_equal;

  iface->to_tokens = g_themed_icon_to_tokens;

  iface->from_tokens = g_themed_icon_from_tokens;

  iface->serialize = g_themed_icon_serialize;

}