/*
 * Copyright 2014-2017, Haiku, Inc. All rights reserved.
 * Distributed under the terms of the MIT License.
 */

#include "MidiSettingsView.h"

#include <MidiSettings.h>

#include <Box.h>
#include <Catalog.h>
#include <Directory.h>
#include <Entry.h>
#include <FindDirectory.h>
#include <GridView.h>
#include <LayoutBuilder.h>
#include <ListView.h>
#include <Locale.h>
#include <Node.h>
#include <NodeInfo.h>
#include <NodeMonitor.h>
#include <Path.h>
#include <PathFinder.h>
#include <ScrollView.h>
#include <StringList.h>
#include <StringView.h>

#include <stdio.h>


#undef B_TRANSLATION_CONTEXT
#define B_TRANSLATION_CONTEXT "Midi View"

const static uint32 kSelectSoundFont = 'SeSf';
const static uint32 kDoubleClick = 'DClk';


MidiSettingsView::MidiSettingsView()
        :
        SettingsView()
{
        BBox* defaultsBox = new BBox("SoundFonts");
        defaultsBox->SetLabel(B_TRANSLATE("SoundFonts"));
        BGridView* defaultsGridView = new BGridView();

        fListView = new BListView(B_SINGLE_SELECTION_LIST);
        fListView->SetSelectionMessage(new BMessage(kSelectSoundFont));
        fListView->SetInvocationMessage(new BMessage(kDoubleClick));

        BScrollView* scrollView = new BScrollView("ScrollView", fListView,
                        0, false, true);
        BLayoutBuilder::Grid<>(defaultsGridView)
                .SetInsets(B_USE_DEFAULT_SPACING, 0, B_USE_DEFAULT_SPACING,
                                B_USE_DEFAULT_SPACING)
                .Add(scrollView, 0, 0);

        defaultsBox->AddChild(defaultsGridView);
        fSoundFontStatus = new BStringView("SoundFontStatus", "");

        BLayoutBuilder::Group<>(this)
                .SetInsets(0, 0, 0, 0)
                .Add(defaultsBox)
                .AddGroup(B_HORIZONTAL)
                        .AddGlue()
                        .Add(fSoundFontStatus)
                        .AddGlue()
                        .End()
                .AddGlue();
}


/* virtual */
void
MidiSettingsView::AttachedToWindow()
{
        SettingsView::AttachedToWindow();

        fListView->SetTarget(this);
        _LoadSettings();
        _RetrieveSoundFontList();
        _SelectActiveSoundFont();
        _UpdateSoundFontStatus();
        _WatchFolders();
}


/* virtual */
void
MidiSettingsView::DetachedFromWindow()
{
        SettingsView::DetachedFromWindow();

        stop_watching(this);
}


/* virtual */
void
MidiSettingsView::MessageReceived(BMessage* message)
{
        switch (message->what) {
                case B_NODE_MONITOR:
                {
                        int32 selected = fListView->CurrentSelection();
                        BStringItem* olditem = (BStringItem*)fListView->ItemAt(selected);

                        _RetrieveSoundFontList();

                        int32 count = fListView->CountItems();
                        if (count == 1) {
                                fListView->Select(0);
                                _SaveSettings();
                        } else if (olditem != NULL) {
                                for (int32 i = 0; i < fListView->CountItems(); i++) {
                                        BStringItem* item = (BStringItem*)fListView->ItemAt(i);
                                        if (strcmp(item->Text(), olditem->Text()) == 0) {
                                                fListView->Select(i);
                                                break;
                                        }
                                }
                        }
                        _UpdateSoundFontStatus();
                        break;
                }
                case kSelectSoundFont:
                {
                        int selection = fListView->CurrentSelection();
                        if (selection < 0)
                                _SelectActiveSoundFont();
                        else
                                _SaveSettings();

                        _UpdateSoundFontStatus();
                        break;
                }
                case kDoubleClick:
                {
                        int selection = fListView->CurrentSelection();
                        if (selection < 0)
                                break;

                        BStringItem* item = (BStringItem*)fListView->ItemAt(selection);

                        BEntry entry(item->Text());
                        BEntry parent;
                        entry.GetParent(&parent);
                        entry_ref folderRef;
                        parent.GetRef(&folderRef);
                        BMessenger msgr("application/x-vnd.Be-TRAK");
                        BMessage refMsg(B_REFS_RECEIVED);
                        refMsg.AddRef("refs",&folderRef);
                        msgr.SendMessage(&refMsg);
                        break;
                }

                default:
                        SettingsView::MessageReceived(message);
                        break;
        }
}


void
MidiSettingsView::_RetrieveSoundFontList()
{
        // TODO: Duplicated code between here
        // and BSoftSynth::SetDefaultInstrumentsFile
        BStringList paths;
        status_t status = BPathFinder::FindPaths(B_FIND_PATH_DATA_DIRECTORY,
                        "synth", paths);
        if (status != B_OK)
                return;

        fListView->MakeEmpty();

        for (int32 i = 0; i < paths.CountStrings(); i++) {
                BDirectory directory(paths.StringAt(i).String());
                BEntry entry;
                if (directory.InitCheck() != B_OK)
                        continue;
                while (directory.GetNextEntry(&entry) == B_OK) {
                        BNode node(&entry);
                        BNodeInfo nodeInfo(&node);
                        char mimeType[B_MIME_TYPE_LENGTH];
                        // TODO: For some reason the mimetype check fails.
                        // maybe because the file hasn't yet been sniffed and recognized?
                        if (nodeInfo.GetType(mimeType) == B_OK
                                /*&& !strcmp(mimeType, "audio/x-soundfont")*/) {
                                BPath fullPath = paths.StringAt(i).String();
                                fullPath.Append(entry.Name());
                                fListView->AddItem(new BStringItem(fullPath.Path()));
                        }
                }
        }
}


void
MidiSettingsView::_LoadSettings()
{
        struct BPrivate::midi_settings settings;
        if (BPrivate::read_midi_settings(&settings) == B_OK)
                fActiveSoundFont.SetTo(settings.soundfont_file);
}


void
MidiSettingsView::_SaveSettings()
{
        fActiveSoundFont = _SelectedSoundFont();
        if (fActiveSoundFont.Length() > 0) {
                struct BPrivate::midi_settings settings;
                strlcpy(settings.soundfont_file, fActiveSoundFont.String(),
                        sizeof(settings.soundfont_file));
                BPrivate::write_midi_settings(settings);
        }
}


void
MidiSettingsView::_SelectActiveSoundFont()
{
        int32 count = fListView->CountItems();
        if (count == 1) {
                fListView->Select(0);
                _SaveSettings();
                return;
        }
        for (int32 i = 0; i < fListView->CountItems(); i++) {
                BStringItem* item = (BStringItem*)fListView->ItemAt(i);
                if (strcmp(item->Text(), fActiveSoundFont.String()) == 0) {
                        fListView->Select(i);
                        break;
                }
        }
}


BString
MidiSettingsView::_SelectedSoundFont() const
{
        BString string;
        int32 selection = fListView->CurrentSelection();
        if (selection >= 0) {
                BStringItem* item = (BStringItem*)fListView->ItemAt(selection);
                if (item != NULL)
                        string = item->Text();
        }

        return string;
}


void
MidiSettingsView::_UpdateSoundFontStatus()
{
        if (fListView->IsEmpty()) {
                fSoundFontStatus->SetText(
                        B_TRANSLATE("There are no SoundFonts installed."));
                return;
        }
        int32 selection = fListView->CurrentSelection();
        if (selection < 0) {
                fSoundFontStatus->SetText(
                        B_TRANSLATE("Please select a SoundFont."));
                return;
        }
        fSoundFontStatus->SetText("");
}


void
MidiSettingsView::_WatchFolders()
{
        BStringList paths;
        BPathFinder().FindPaths(B_FIND_PATH_DATA_DIRECTORY, "synth", paths);
        for (int32 i = 0; i < paths.CountStrings(); i++) {
                BEntry entry(paths.StringAt(i));
                node_ref nref;
                entry.GetNodeRef(&nref);

                watch_node(&nref, B_WATCH_ALL, this);
        }
}