/*
 *  Copyright (C) 2003 by Unai Garro <ugarro@users.sourceforge.net>
 *  Copyright (C) 2004 by Enrico Ros <rosenric@dei.unipd.it>
 *  Copyright (C) 2004 by Stephan Kulow <coolo@kde.org>
 *  Copyright (C) 2004 by Oswald Buddenhagen <ossi@kde.org>
 *
 *  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; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  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, write to the Free Software
 *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
 */

#include "kdmlabel.h"

#include <config-workspace.h>
#include <config-kdm.h>

#include "kdmthemer.h"

#include <kglobal.h>
#include <klocale.h>
#include <kmacroexpander.h>

#include <QAction>
#include <QDateTime>
#include <QFontMetrics>
#include <QHash>
#include <QPainter>
#include <QTimer>
#include <QX11Info>

#include <X11/Xlib.h>

#include <unistd.h>
#include <sys/utsname.h>
#if !defined(HAVE_GETDOMAINNAME) && defined(HAVE_SYS_SYSTEMINFO)
# include <sys/systeminfo.h>
#endif

KdmLabel::KdmLabel( QObject *parent, const QDomNode &node )
	: KdmItem( parent, node )
	, action( 0 )
{
	itemType = "label";
	if (!isVisible())
		return;

	// Set default values for label (note: strings are already Null)
	label.normal.font = label.active.font = label.prelight.font = style.font;
	label.normal.color = label.active.color = label.prelight.color =
		style.palette.isBrushSet( QPalette::Normal, QPalette::WindowText ) ?
			style.palette.color( QPalette::Normal, QPalette::WindowText ) :
			QColor( Qt::white );
	label.active.present = false;
	label.prelight.present = false;

	const QString locale = KGlobal::locale()->language();

	// Read LABEL TAGS
	QDomNodeList childList = node.childNodes();
	bool stockUsed = false;
	for (int nod = 0; nod < childList.count(); nod++) {
		QDomNode child = childList.item( nod );
		QDomElement el = child.toElement();
		QString tagName = el.tagName();

		if (tagName == "normal") {
			parseColor( el, label.normal.color );
			parseFont( el, label.normal.font );
		} else if (tagName == "active") {
			label.active.present = true;
			parseColor( el, label.active.color );
			parseFont( el, label.active.font );
		} else if (tagName == "prelight") {
			label.prelight.present = true;
			parseColor( el, label.prelight.color );
			parseFont( el, label.prelight.font );
		} else if (tagName == "text" && el.attributes().count() == 0 && !stockUsed) {
			label.text = el.text();
		} else if (tagName == "text" && !stockUsed) {
			QString lang = el.attribute( "xml:lang", "" );
			if (lang == locale)
				label.text = el.text();
		} else if (tagName == "stock") {
			label.text = lookupStock( el.attribute( "type", "" ) );
			stockUsed = true;
		}
	}

	label.isTimer = label.text.indexOf( "%c" ) >= 0;
	if (label.isTimer) {
		timer = new QTimer( this );
		timer->start( 1000 );
		connect( timer, SIGNAL(timeout()), SLOT(update()) );
	}

	zeroWidth = QFontMetrics( label.normal.font.font ).width( '0' );

	label.text.replace( '\n', ' ' );
	setCText( lookupText( label.text ) );
}

void
KdmLabel::setText( const QString &txt )
{
	label.text = txt;
	label.text.replace( '\n', ' ' );
	update();
}

void
KdmLabel::setCText( const QString &txt )
{
	delete action;
	action = 0;
	pText = cText = txt;
	pAccelOff = txt.indexOf( '_' );
	if (pAccelOff >= 0) {
		action = new QAction( this );
		action->setShortcut( Qt::ALT + txt[pAccelOff + 1].unicode() );
		connect( action, SIGNAL(triggered( bool )), SLOT(activate()) );
		emit needPlugging();
		pText.remove( pAccelOff, 1 );
	}
	QRect bbox = QFontMetrics( label.normal.font.font ).boundingRect( pText );
	QSize newSize = bbox.size();
	if (newSize.width() > pTextSize.width() ||
	    (newSize.width() < (pTextSize.width() - zeroWidth)))
	{
		if (label.isTimer)
			newSize.rwidth() += zeroWidth;
		pTextSize = newSize;
		emit needPlacement();
	}
	pTextIndent = bbox.left();
}

void
KdmLabel::activate()
{
	KdmItem *cp = this;
	do {
		if (cp->isButton) {
			emit activated( cp->objectName() );
			return;
		}
		cp = qobject_cast<KdmItem *>(cp->parent());
	} while (cp);
	if (!buddy.isEmpty())
		activateBuddy();
}

void
KdmLabel::doPlugActions( bool plug )
{
	if (action) {
		QWidget *w = themer()->widget();
		if (plug)
			w->addAction( action );
		else
			w->removeAction( action );
	}
}

QSize
KdmLabel::sizeHint()
{
	return pTextSize;
}

void
KdmLabel::drawContents( QPainter *p, const QRect &r )
{
	// choose the correct label class
	struct LabelStruct::LabelClass *l = &label.normal;
	if (state == Sactive && label.active.present)
		l = &label.active;
	else if (state == Sprelight && label.prelight.present)
		l = &label.prelight;
	// draw the label
	p->setFont( l->font.font );
	p->setPen( l->color );
	p->setClipRect( r );
	if (pAccelOff != -1) {
		QRect tarea( area );
		tarea.setLeft( tarea.left() - pTextIndent );
		QFontMetrics fm( l->font.font );
		QString left = pText.left( pAccelOff );
		p->drawText( area, 0, left );
		tarea.setLeft( tarea.left() + fm.width( left ) );
		QFont f( l->font.font );
		f.setUnderline( true );
		p->setFont( f );
		QString acc( pText[pAccelOff] );
		p->drawText( tarea, 0, acc );
		tarea.setLeft( tarea.left() + fm.width( acc ) );
		p->setFont( l->font.font );
		p->drawText( tarea, 0, pText.mid( pAccelOff + 1 ) );
	} else
		p->drawText( area, 0, cText );
	p->setClipping( false );
}

void
KdmLabel::statusChanged( bool descend )
{
	KdmItem::statusChanged( descend );
	if (!label.active.present && !label.prelight.present)
		return;
	if ((state == Sprelight && !label.prelight.present) ||
	    (state == Sactive && !label.active.present))
		return;
	needUpdate();
}

void
KdmLabel::update()
{
	KdmItem::update();
	QString text = lookupText( label.text );
	if (text != cText) {
		setCText( text );
		needUpdate();
	}
}

#undef I18N_NOOP
#define I18N_NOOP(t) 0, t
#undef I18N_NOOP2
#define I18N_NOOP2(c,t) c, t

static const struct {
	const char *type, *comment, *text;
} stocks[] = {
	{ "language",          I18N_NOOP2("@action:button", "Lan_guage") },
	{ "session",           I18N_NOOP2("@action:button", "Session _Type") },
	{ "system",            I18N_NOOP2("@action:button", "_Menu") },	// i18n("Actions");
	{ "disconnect",        I18N_NOOP2("@action:button ... from XDMCP server", "Disconn_ect") },
	{ "quit",              I18N_NOOP2("@action:button", "_Quit") },
	{ "halt",              I18N_NOOP2("@action:button", "Power o_ff") },
//	{ "suspend",           I18N_NOOP2("@action:button", "_Suspend") },
	{ "reboot",            I18N_NOOP2("@action:button", "Re_boot") },
	{ "chooser",           I18N_NOOP2("@action:button", "_Remote login") },
	{ "caps-lock-warning", I18N_NOOP("Caps Lock is enabled") },
	{ "timed-label",       I18N_NOOP("User %u will log in in %t") },
	{ "welcome-label",     I18N_NOOP("Welcome to %h") },	// _greetString
	{ "domain-label",      I18N_NOOP("_Domain:") },
	{ "username-label",    I18N_NOOP("_Username:") },
	{ "password-label",    I18N_NOOP("_Password:") },
	{ "login",             I18N_NOOP2("@action:button", "_Login") }
};

// public static
QString
KdmLabel::lookupStock( const QString &stock )
{
	QString type( stock.toLower() );

	for (uint i = 0; i < sizeof(stocks)/sizeof(stocks[0]); i++)
		if (type == stocks[i].type) {
			if (stocks[i].comment)
				return i18nc(stocks[i].comment, stocks[i].text);
			else
				return i18n(stocks[i].text);
        	}

	kWarning() << "Invalid <stock> element '" << stock << "'. Check your theme!";
	return stock;
}

QString KdmLabel::timedUser = QString();
int KdmLabel::timedDelay = -1;
QHash<QChar,QString> KdmLabel::expandoMap;
bool KdmLabel::dateFormatSet = false;

bool
KdmLabel::expandMacro( QChar chr, QStringList &ret )
{
	switch (chr.unicode()) {
	case 't':
		ret << i18ncp( "will login in ...", "1 second", "%1 seconds", timedDelay );
		return true;
	case 'u':
		ret << timedUser;
		return true;
	case 'c':
		if (!dateFormatSet) {
			// xgettext:no-c-format
			KGlobal::locale()->setDateFormat( i18nc("date format", "%a %d %B") );
			dateFormatSet = true;
		}
		ret << KGlobal::locale()->formatDateTime( QDateTime::currentDateTime(), KLocale::LongDate );
		return true;
	}

	if (expandoMap.isEmpty()) {
		struct utsname uts;
		uname( &uts );
		expandoMap['d'] = QString::fromLocal8Bit( DisplayString( QX11Info::display() ) );
		expandoMap['n'] = QString::fromLocal8Bit( uts.nodename );
		expandoMap['s'] = QString::fromLocal8Bit( uts.sysname );
		expandoMap['r'] = QString::fromLocal8Bit( uts.release );
		expandoMap['m'] = QString::fromLocal8Bit( uts.machine );
		char buf[256];
		buf[sizeof(buf) - 1] = '\0';
		expandoMap['h'] = gethostname( buf, sizeof(buf) - 1 ) ? "localhost" : QString::fromLocal8Bit( buf );
#ifdef HAVE_GETDOMAINNAME
		expandoMap['o'] = getdomainname( buf, sizeof(buf) - 1 ) ? "localdomain" : QString::fromLocal8Bit( buf );
#elif defined(HAVE_SYS_SYSTEMINFO)
		expandoMap['o'] = (unsigned)sysinfo( SI_SRPC_DOMAIN, buf, sizeof(buf) ) > sizeof(buf) ? "localdomain" : QString::fromLocal8Bit( buf );
#endif
	}
	QHash<QChar,QString>::const_iterator mi = expandoMap.constFind(chr);
	if (mi != expandoMap.constEnd()) {
		ret << mi.value();
		return true;
	}

	return false;
}

QString
KdmLabel::lookupText( const QString &t )
{
	QString text = t;
	expandMacros( text );
	return text;
}

#include "kdmlabel.moc"
