/*
Open Tracker License

Terms and Conditions

Copyright (c) 1991-2001, Be Incorporated. All rights reserved.

Permission is hereby granted, free of charge, to any person obtaining a copy of
this software and associated documentation files (the "Software"), to deal in
the Software without restriction, including without limitation the rights to
use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
of the Software, and to permit persons to whom the Software is furnished to do
so, subject to the following conditions:

The above copyright notice and this permission notice applies to all licensees
and shall be included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF TITLE, MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
BE INCORPORATED BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF, OR IN
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

Except as contained in this notice, the name of Be Incorporated shall not be
used in advertising or otherwise to promote the sale, use or other dealings in
this Software without prior written authorization from Be Incorporated.

BeMail(TM), Tracker(TM), Be(R), BeOS(R), and BeIA(TM) are trademarks or
registered trademarks of Be Incorporated in the United States and other
countries. Other brand product names are registered trademarks or trademarks
of their respective holders. All rights reserved.
*/


#include "Signature.h"

#include <stdio.h>
#include <stdlib.h>
#include <strings.h>

#include <Clipboard.h>
#include <Directory.h>
#include <LayoutBuilder.h>
#include <Locale.h>
#include <ScrollView.h>
#include <StringView.h>

#include "MailApp.h"
#include "MailPopUpMenu.h"
#include "MailSupport.h"
#include "MailWindow.h"
#include "Messages.h"


#define B_TRANSLATION_CONTEXT "Mail"


const float kSigHeight = 250;
const float kSigWidth = 300;

extern const char* kUndoStrings[];
extern const char* kRedoStrings[];


TSignatureWindow::TSignatureWindow(BRect rect)
        :
        BWindow(rect, B_TRANSLATE("Signatures"), B_TITLED_WINDOW,
                B_AUTO_UPDATE_SIZE_LIMITS),
        fFile(NULL)
{
        BMenuItem* item;

        // Set up the menu
        BMenuBar* menuBar = new BMenuBar("MenuBar");
        BMenu* menu = new BMenu(B_TRANSLATE("Signature"));
        menu->AddItem(fNew = new BMenuItem(B_TRANSLATE("New"),
                new BMessage(M_NEW), 'N'));
        fSignature = new TMenu(B_TRANSLATE("Open"), INDEX_SIGNATURE, M_SIGNATURE);
        menu->AddItem(new BMenuItem(fSignature));
        menu->AddSeparatorItem();
        menu->AddItem(fSave = new BMenuItem(B_TRANSLATE("Save"),
                new BMessage(M_SAVE), 'S'));
        menu->AddItem(fDelete = new BMenuItem(B_TRANSLATE("Delete"),
                new BMessage(M_DELETE), 'T'));
        menuBar->AddItem(menu);

        menu = new BMenu(B_TRANSLATE("Edit"));
        menu->AddItem(fUndo = new BMenuItem(B_TRANSLATE("Undo"),
                new BMessage(B_UNDO), 'Z'));
        fUndo->SetTarget(NULL, this);
        menu->AddSeparatorItem();
        menu->AddItem(fCut = new BMenuItem(B_TRANSLATE("Cut"),
                new BMessage(B_CUT), 'X'));
        fCut->SetTarget(NULL, this);
        menu->AddItem(fCopy = new BMenuItem(B_TRANSLATE("Copy"),
                new BMessage(B_COPY), 'C'));
        fCopy->SetTarget(NULL, this);
        menu->AddItem(fPaste = new BMenuItem(B_TRANSLATE("Paste"),
                new BMessage(B_PASTE), 'V'));
        fPaste->SetTarget(NULL, this);
        menu->AddSeparatorItem();
        menu->AddItem(item = new BMenuItem(B_TRANSLATE("Select all"),
                new BMessage(M_SELECT), 'A'));
        item->SetTarget(NULL, this);
        menuBar->AddItem(menu);

        fSigView = new TSignatureView();

        BLayoutBuilder::Group<>(this, B_VERTICAL, 0)
                .Add(menuBar)
                .Add(fSigView);

        if (!rect.IsValid()) {
                float fontFactor = be_plain_font->Size() / 12.0f;
                ResizeTo(kSigWidth * fontFactor, kSigHeight * fontFactor);
                // TODO: this should work, too, but doesn't
                //ResizeToPreferred();
        }
}


TSignatureWindow::~TSignatureWindow()
{
}


void
TSignatureWindow::MenusBeginning()
{
        fDelete->SetEnabled(fFile);
        fSave->SetEnabled(IsDirty());
        fUndo->SetEnabled(false);               // ***TODO***

        BTextView* textView = fSigView->fName->TextView();
        int32 finish = 0;
        int32 start = 0;
        if (textView->IsFocus())
                textView->GetSelection(&start, &finish);
        else
                fSigView->fTextView->GetSelection(&start, &finish);

        fCut->SetEnabled(start != finish);
        fCopy->SetEnabled(start != finish);

        fNew->SetEnabled(textView->TextLength()
                | fSigView->fTextView->TextLength());
        be_clipboard->Lock();
        fPaste->SetEnabled(be_clipboard->Data()->HasData("text/plain",
                B_MIME_TYPE));
        be_clipboard->Unlock();

        // Undo stuff
        bool isRedo = false;
        undo_state undoState = B_UNDO_UNAVAILABLE;

        BTextView *focusTextView = dynamic_cast<BTextView *>(CurrentFocus());
        if (focusTextView != NULL)
                undoState = focusTextView->UndoState(&isRedo);

        fUndo->SetLabel(isRedo ? kRedoStrings[undoState] : kUndoStrings[undoState]);
        fUndo->SetEnabled(undoState != B_UNDO_UNAVAILABLE);
}


void
TSignatureWindow::MessageReceived(BMessage* msg)
{
        switch (msg->what) {
                case CHANGE_FONT:
                {
                        BFont* font;
                        msg->FindPointer("font", (void **)&font);
                        fSigView->fTextView->SetFontAndColor(font);
                        fSigView->fTextView->Invalidate(fSigView->fTextView->Bounds());
                        break;
                }

                case M_NEW:
                        if (Clear()) {
                                fSigView->fName->SetText("");
                                fSigView->fTextView->SetText("");
                                fSigView->fName->MakeFocus(true);
                        }
                        break;

                case M_SAVE:
                        Save();
                        break;

                case M_DELETE: {
                        BAlert* alert = new BAlert("",
                                        B_TRANSLATE("Really delete this signature? This cannot "
                                                "be undone."),
                                        B_TRANSLATE("Cancel"),
                                        B_TRANSLATE("Delete"),
                                        NULL, B_WIDTH_AS_USUAL, B_WARNING_ALERT);
                        alert->SetShortcut(0, B_ESCAPE);
                        int32 choice = alert->Go();

                        if (choice == 0)
                                break;

                        if (fFile) {
                                delete fFile;
                                fFile = NULL;
                                fEntry.Remove();
                                fSigView->fName->SetText("");
                                fSigView->fTextView->SetText(NULL, (int32)0);
                                fSigView->fName->MakeFocus(true);
                        }
                        break;
                }
                case M_SIGNATURE:
                        if (Clear()) {
                                entry_ref ref;
                                msg->FindRef("ref", &ref);
                                fEntry.SetTo(&ref);
                                fFile = new BFile(&ref, O_RDWR);
                                if (fFile->InitCheck() == B_OK) {
                                        char name[B_FILE_NAME_LENGTH];
                                        fFile->ReadAttr(INDEX_SIGNATURE, B_STRING_TYPE, 0, name,
                                                sizeof(name));
                                        fSigView->fName->SetText(name);

                                        off_t size;
                                        fFile->GetSize(&size);
                                        char* sig = (char*)malloc(size);
                                        if (sig == NULL)
                                                break;

                                        size = fFile->Read(sig, size);
                                        fSigView->fTextView->SetText(sig, size);
                                        fSigView->fName->MakeFocus(true);
                                        BTextView* textView = fSigView->fName->TextView();
                                        textView->Select(0, textView->TextLength());
                                        fSigView->fTextView->fDirty = false;
                                } else {
                                        fFile = NULL;
                                        beep();
                                        BAlert* alert = new BAlert("",
                                                B_TRANSLATE("Couldn't open this signature. Sorry."),
                                                B_TRANSLATE("OK"));
                                        alert->SetFlags(alert->Flags() | B_CLOSE_ON_ESCAPE);
                                        alert->Go();
                                }
                        }
                        break;

                default:
                        BWindow::MessageReceived(msg);
                        break;
        }
}


bool
TSignatureWindow::QuitRequested()
{
        if (Clear()) {
                BMessage msg(WINDOW_CLOSED);
                msg.AddInt32("kind", SIG_WINDOW);
                msg.AddRect("window frame", Frame());

                be_app->PostMessage(&msg);
                return true;
        }
        return false;
}


void
TSignatureWindow::FrameResized(float width, float height)
{
        fSigView->FrameResized(width, height);
}


void
TSignatureWindow::Show()
{
        Lock();
        BTextView* textView = (BTextView *)fSigView->fName->TextView();
        fSigView->fName->MakeFocus(true);
        textView->Select(0, textView->TextLength());
        Unlock();

        BWindow::Show();
}


bool
TSignatureWindow::Clear()
{
        if (IsDirty()) {
                beep();
                BAlert *alert = new BAlert("",
                        B_TRANSLATE("Save changes to this signature?"),
                        B_TRANSLATE("Cancel"),
                        B_TRANSLATE("Don't save"),
                        B_TRANSLATE("Save"),
                        B_WIDTH_AS_USUAL, B_OFFSET_SPACING, B_WARNING_ALERT);
                alert->SetShortcut(0, B_ESCAPE);
                alert->SetShortcut(1, 'd');
                alert->SetShortcut(2, 's');
                int32 result = alert->Go();
                if (result == 0)
                        return false;
                if (result == 2)
                        Save();
        }

        delete fFile;
        fFile = NULL;
        fSigView->fTextView->fDirty = false;
        return true;
}


bool
TSignatureWindow::IsDirty()
{
        if (fFile != NULL) {
                char name[B_FILE_NAME_LENGTH];
                fFile->ReadAttr(INDEX_SIGNATURE, B_STRING_TYPE, 0, name, sizeof(name));
                if (strcmp(name, fSigView->fName->Text()) != 0
                        || fSigView->fTextView->fDirty) {
                        return true;
                }
        } else if (fSigView->fName->Text()[0] != '\0'
                || fSigView->fTextView->TextLength() != 0) {
                return true;
        }
        return false;
}


void
TSignatureWindow::Save()
{
        char                    name[B_FILE_NAME_LENGTH];
        int32                   index = 0;
        status_t                result;
        BDirectory              dir;
        BEntry                  entry;
        BNodeInfo               *node;
        BPath                   path;

        if (!fFile) {
                find_directory(B_USER_SETTINGS_DIRECTORY, &path, true);
                dir.SetTo(path.Path());

                if (dir.FindEntry("Mail", &entry) == B_NO_ERROR)
                        dir.SetTo(&entry);
                else
                        dir.CreateDirectory("Mail", &dir);

                if (dir.InitCheck() != B_NO_ERROR)
                        goto err_exit;

                if (dir.FindEntry("signatures", &entry) == B_NO_ERROR)
                        dir.SetTo(&entry);
                else
                        dir.CreateDirectory("signatures", &dir);

                if (dir.InitCheck() != B_NO_ERROR)
                        goto err_exit;

                fFile = new BFile();
                while(true) {
                        sprintf(name, "signature_%" B_PRId32, index++);
                        if ((result = dir.CreateFile(name, fFile, true)) == B_NO_ERROR)
                                break;
                        if (result != EEXIST)
                                goto err_exit;
                }
                dir.FindEntry(name, &fEntry);
                node = new BNodeInfo(fFile);
                node->SetType("text/plain");
                delete node;
        }

        fSigView->fTextView->fDirty = false;
        fFile->Seek(0, 0);
        fFile->Write(fSigView->fTextView->Text(),
                                 fSigView->fTextView->TextLength());
        fFile->SetSize(fFile->Position());
        fFile->WriteAttr(INDEX_SIGNATURE, B_STRING_TYPE, 0, fSigView->fName->Text(),
                                         strlen(fSigView->fName->Text()) + 1);
        return;

err_exit:
        beep();
        BAlert* alert = new BAlert("",
                B_TRANSLATE("An error occurred trying to save this signature."),
                B_TRANSLATE("Sorry"));
        alert->SetFlags(alert->Flags() | B_CLOSE_ON_ESCAPE);
        alert->Go();
}


// #pragma mark -


TSignatureView::TSignatureView()
        :
        BGridView("SigView")
{
        GridLayout()->SetInsets(B_USE_DEFAULT_SPACING);

        BStringView* nameLabel = new BStringView("NameLabel",
                B_TRANSLATE("Title:"));
        nameLabel->SetAlignment(B_ALIGN_RIGHT);
        GridLayout()->AddView(nameLabel, 0, 0);

        fName = new TNameControl("", new BMessage(NAME_FIELD));
        GridLayout()->AddItem(fName->CreateTextViewLayoutItem(), 1, 0);

        BStringView* signatureLabel = new BStringView("SigLabel",
                B_TRANSLATE("Signature:"));
        signatureLabel->SetAlignment(B_ALIGN_RIGHT);
        GridLayout()->AddView(signatureLabel, 0, 1);

        fTextView = new TSigTextView();

        font_height fontHeight;
        fTextView->GetFontHeight(&fontHeight);
        float lineHeight = ceilf(fontHeight.ascent) + ceilf(fontHeight.descent);

        BScrollView* scroller = new BScrollView("SigScroller", fTextView, 0,
                false, true);
        scroller->SetExplicitPreferredSize(
                BSize(fTextView->StringWidth("W") * 30, lineHeight * 6));

        GridLayout()->AddView(scroller, 1, 1, 1, 2);

        GridLayout()->AddItem(BSpaceLayoutItem::CreateGlue(), 0, 2);
}


void
TSignatureView::AttachedToWindow()
{
}


// #pragma mark -


TNameControl::TNameControl(const char* label, BMessage* invocationMessage)
        :
        BTextControl("", label, "", invocationMessage)
{
        strcpy(fLabel, label);
}


void
TNameControl::AttachedToWindow()
{
        BTextControl::AttachedToWindow();

        TextView()->SetMaxBytes(B_FILE_NAME_LENGTH - 1);
}


void
TNameControl::MessageReceived(BMessage* msg)
{
        switch (msg->what) {
                case M_SELECT:
                        TextView()->Select(0, TextView()->TextLength());
                        break;

                default:
                        BTextControl::MessageReceived(msg);
        }
}


// #pragma mark -


TSigTextView::TSigTextView()
        :
        BTextView("SignatureView", B_NAVIGABLE | B_WILL_DRAW)
{
        fDirty = false;
        SetDoesUndo(true);
}


void
TSigTextView::DeleteText(int32 offset, int32 len)
{
        fDirty = true;
        BTextView::DeleteText(offset, len);
}


void
TSigTextView::InsertText(const char *text, int32 len, int32 offset,
        const text_run_array *runs)
{
        fDirty = true;
        BTextView::InsertText(text, len, offset, runs);
}


void
TSigTextView::KeyDown(const char *key, int32 count)
{
        bool    up = false;
        int32   height;
        BRect   r;

        switch (key[0]) {
                case B_HOME:
                        Select(0, 0);
                        ScrollToSelection();
                        break;

                case B_END:
                        Select(TextLength(), TextLength());
                        ScrollToSelection();
                        break;

                case B_PAGE_UP:
                        up = true;
                case B_PAGE_DOWN:
                        r = Bounds();
                        height = (int32)((up ? r.top - r.bottom : r.bottom - r.top) - 25);
                        if ((up) && (!r.top))
                                break;
                        ScrollBy(0, height);
                        break;

                default:
                        BTextView::KeyDown(key, count);
                        break;
        }
}


void
TSigTextView::MessageReceived(BMessage *msg)
{
        char            type[B_FILE_NAME_LENGTH];
        char            *text;
        int32           end;
        int32           start;
        BFile           file;
        BNodeInfo       *node;
        entry_ref       ref;
        off_t           size;

        switch (msg->what) {
                case B_SIMPLE_DATA:
                        if (msg->HasRef("refs")) {
                                msg->FindRef("refs", &ref);
                                file.SetTo(&ref, O_RDONLY);
                                if (file.InitCheck() == B_NO_ERROR) {
                                        node = new BNodeInfo(&file);
                                        node->GetType(type);
                                        delete node;
                                        file.GetSize(&size);
                                        if ((!strncasecmp(type, "text/", 5)) && (size)) {
                                                text = (char *)malloc(size);
                                                file.Read(text, size);
                                                Delete();
                                                GetSelection(&start, &end);
                                                Insert(text, size);
                                                Select(start, start + size);
                                                free(text);
                                        }
                                }
                        }
                        else
                                BTextView::MessageReceived(msg);
                        break;

                case M_SELECT:
                        if (IsSelectable())
                                Select(0, TextLength());
                        break;

                default:
                        BTextView::MessageReceived(msg);
                        break;
        }
}