/* $Id$ */
/* Copyright (c) 2014-2020 Pierre Pronchery <khorben@defora.org> */
/* This file is part of DeforaOS Desktop Panel */
/* This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, version 3 of the License.
 *
 * 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>. */



#include <unistd.h>
#include <string.h>
#include <pwd.h>
#include <errno.h>
#include <libintl.h>
#include <System.h>
#include "Panel/applet.h"
#define _(string) gettext(string)
#define N_(string) string


/* User */
/* private */
/* types */
typedef struct _PanelApplet
{
	PanelAppletHelper * helper;
	GtkWidget * widget;
} User;


/* prototypes */
static User * _user_init(PanelAppletHelper * helper, GtkWidget ** widget);
static void _user_destroy(User * user);


/* public */
/* variables */
PanelAppletDefinition applet =
{
	"User",
	"user-info",
	NULL,
	_user_init,
	_user_destroy,
	NULL,
	FALSE,
	TRUE
};


/* private */
/* functions */
/* user_init */
static struct passwd * _init_pw(void);
#if GTK_CHECK_VERSION(2, 12, 0)
static String * _init_tooltip(struct passwd * pw);
#endif
static String * _init_user(struct passwd * pw);

static User * _user_init(PanelAppletHelper * helper, GtkWidget ** widget)
{
	User * user;
	PangoFontDescription * desc;
	struct passwd * pw;
	String const * name = NULL;
	String * p = NULL;
#if GTK_CHECK_VERSION(2, 12, 0)
	String const * tooltip = NULL;
	String * q = NULL;
#endif

	if((user = object_new(sizeof(*user))) == NULL)
		return NULL;
	user->helper = helper;
	if((pw = _init_pw()) != NULL)
	{
		if((p = _init_user(pw)) != NULL)
			name = p;
#if GTK_CHECK_VERSION(2, 12, 0)
		if((q = _init_tooltip(pw)) != NULL)
			tooltip = q;
#endif
	}
	if(name == NULL)
		name = _("Unknown user");
	user->widget = gtk_label_new(name);
	string_delete(p);
#if GTK_CHECK_VERSION(2, 12, 0)
	if(tooltip != NULL)
		gtk_widget_set_tooltip_text(user->widget, tooltip);
	string_delete(q);
#endif
	desc = pango_font_description_new();
	pango_font_description_set_weight(desc, PANGO_WEIGHT_BOLD);
#if GTK_CHECK_VERSION(3, 0, 0)
	gtk_widget_override_font(user->widget, desc);
#else
	gtk_widget_modify_font(user->widget, desc);
#endif
	pango_font_description_free(desc);
	gtk_widget_show(user->widget);
	*widget = user->widget;
	return user;
}

static struct passwd * _init_pw(void)
{
	struct passwd * pw;

	if((pw = getpwuid(getuid())) == NULL)
		error_set("%s: %s", applet.name, strerror(errno));
	return pw;
}

#if GTK_CHECK_VERSION(2, 12, 0)
static String * _init_tooltip(struct passwd * pw)
{
	String * ret;
	String * p;
	ssize_t len;
	size_t i;
	size_t pos;
	String const * fields[] = { N_("Username"), N_("Full name"),
		N_("Office location"), N_("Work phone"), N_("Home phone") };

	if(pw->pw_gecos == NULL || strlen(pw->pw_gecos) == 0)
		return NULL;
	if((len = string_index(pw->pw_gecos, ",")) < 0
			|| string_compare_length(pw->pw_gecos, pw->pw_name,
				len) == 0)
		/* same as the user's name */
		return NULL;
	if((ret = string_new_append(_(fields[0]), _(": "), pw->pw_name, NULL))
				== NULL)
		return NULL;
	for(i = 0, pos = 1; len > 0;
			len = string_index(&pw->pw_gecos[i], ","), pos++)
	{
		if(len > 0 && (p = string_new_length(&pw->pw_gecos[i], len))
				!= NULL)
		{
			if(string_get_length(ret) > 0)
				string_append(&ret, "\n");
			if(pos < sizeof(fields) / sizeof(*fields))
			{
				string_append(&ret, _(fields[pos]));
				string_append(&ret, _(": "));
			}
			string_append(&ret, p);
			string_delete(p);
		}
		i += len + 1;
	}
	if(string_get_length(ret) == 0)
	{
		string_delete(ret);
		return NULL;
	}
	return ret;
}
#endif

static String * _init_user(struct passwd * pw)
{
	ssize_t len;

	if(pw->pw_gecos != NULL && strlen(pw->pw_gecos) > 0)
	{
		if((len = string_index(pw->pw_gecos, ",")) > 0)
			return string_new_length(pw->pw_gecos, len);
		else if(len != 0)
			return string_new(pw->pw_gecos);
	}
	return string_new(pw->pw_name);
}


/* user_destroy */
static void _user_destroy(User * user)
{
	gtk_widget_destroy(user->widget);
	object_delete(user);
}