/*
 * Copyright 2005-2012, Haiku, Inc. All rights reserved.
 * Distributed under the terms of the MIT license.
 *
 * Authors:
 *		Robert Polic
 *
 * Copyright 1999, Be Incorporated.   All Rights Reserved.
 * This file may be used under the terms of the Be Sample Code License.
 */


#include "AttributeTextControl.h"

#include <string.h>
#include <malloc.h>

#include <Catalog.h>
#include <Cursor.h>
#include <Font.h>
#include <Roster.h>
#include <StorageKit.h>


#undef B_TRANSLATION_CONTEXT
#define B_TRANSLATION_CONTEXT "People"

#define B_URL_MIME "application/x-vnd.Be.URL."

AttributeTextControl::AttributeTextControl(const char* label,
	const char* attribute)
	:
	BTextControl(NULL, "", NULL),
	fAttribute(attribute),
	fOriginalValue()
{
	if (label != NULL && label[0] != 0) {
		SetLabel(BString(B_TRANSLATE("%attribute_label:"))
			.ReplaceFirst("%attribute_label", label));
	}
	SetAlignment(B_ALIGN_RIGHT, B_ALIGN_LEFT);
}


AttributeTextControl::~AttributeTextControl()
{
}

void
AttributeTextControl::MouseDown(BPoint mousePosition)
{
	if(_VisibleLabelBounds().Contains(mousePosition) && _ContainsUrl())
		_HandleLabelClicked(Text());
	else
		BTextControl::MouseDown(mousePosition);
}


void
AttributeTextControl::MouseMoved(BPoint mousePosition, uint32 transit, const BMessage* dragMessage)
{
	if (_VisibleLabelBounds().Contains(mousePosition) && _ContainsUrl()) {
		BCursor linkCursor(B_CURSOR_ID_FOLLOW_LINK);
		SetViewCursor(&linkCursor, true);
	} else
		SetViewCursor(B_CURSOR_SYSTEM_DEFAULT, true);

	BTextControl::MouseMoved(mousePosition, transit, dragMessage);
}


bool
AttributeTextControl::HasChanged()
{
	return fOriginalValue != Text();
}


void
AttributeTextControl::Revert()
{
	if (HasChanged())
		SetText(fOriginalValue);
}


void
AttributeTextControl::Update()
{
	fOriginalValue = Text();
}


void
AttributeTextControl::_HandleLabelClicked(const char *text)
{
	BString argument(text);

	if (Attribute() == "META:url") {
		_MakeUniformUrl(argument);

		BString mimeType = B_URL_MIME;
		_BuildMimeString(mimeType, argument);

		if (mimeType != "") {
			const char *args[] = {argument.String(), 0};
			be_roster->Launch(mimeType.String(), 1, const_cast<char**>(args));
		}
	} else if (Attribute() == "META:email") {
		if (argument.IFindFirst("mailto:") != 0 && argument != "")
			argument.Prepend("mailto:");

		// TODO: Could check for possible e-mail patterns.
		if (argument != "") {
			const char *args[] = {argument.String(), 0};
			be_roster->Launch("text/x-email", 1, const_cast<char**>(args));
		}
	}
}


const BString&
AttributeTextControl::_MakeUniformUrl(BString &url) const
{
	if (url.StartsWith("www"))
		url.Prepend("http://");
	else if (url.StartsWith("ftp."))
		url.Prepend("ftp://");

	return url;
}


const BString&
AttributeTextControl::_BuildMimeString(BString &mimeType, const BString &url)
	const
{
	if (url.IFindFirst("http://") == 0 || url.IFindFirst("ftp://") == 0
		|| url.IFindFirst("https://") || url.IFindFirst("gopher://") == 0) {

		mimeType.Append(url, url.FindFirst(':'));
	}

	if (!BMimeType::IsValid(mimeType.String()))
		mimeType = "";

	return mimeType;
}


bool
AttributeTextControl::_ContainsUrl() const
{
	BString argument(Text());

	if (Attribute() == "META:url") {
		BString mimeType = B_URL_MIME;
		if (_BuildMimeString(mimeType, _MakeUniformUrl(argument)) != "")
			return true;
	}
	else if (Attribute() == "META:email") {
		if (argument != "")
			return true;
	}

	return false;
}


BRect
AttributeTextControl::_VisibleLabelBounds() const
{
	// TODO: Could actually check current alignment of the label.
	// The code below works only for right aligned labels.
	BRect bounds(Bounds());
	bounds.right = Divider();
	bounds.left = bounds.right - StringWidth(Label());
	return bounds;
}