#include <windows.h>
#include <commctrl.h>
#include <stdio.h>
#include <string.h>
#include <SWI-Prolog.h>

#include "resource.h"
#include "defs.h"

HFONT g_GUIFont;
HFONT g_GUIFontBold;

static LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
static INT_PTR CALLBACK AboutDlgProc(HWND, UINT, WPARAM, LPARAM);
static int Attach(void);
static void SetupFonts();

int WINAPI
WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
	LPSTR lpCmdLine, INT nCmdShow)
{
	char *rgArgs[2];
	HWND hWnd;
	MSG msg;
	INITCOMMONCONTROLSEX icc;
	WNDCLASSEX wc;

	/* Initialize Prolog. */

	rgArgs[0] = "episode_browser";
	rgArgs[1] = NULL;

	if (!PL_initialise(1, rgArgs))
		PL_halt(1);

	Attach();

	/* Create window. */

	icc.dwSize = sizeof(icc);
	icc.dwICC = ICC_WIN95_CLASSES;
	InitCommonControlsEx(&icc);

	SetupFonts();

	wc.cbSize		= sizeof(WNDCLASSEX);
	wc.style		= 0;
	wc.lpfnWndProc		= WndProc;
	wc.cbClsExtra		= 0;
	wc.cbWndExtra		= 0;
	wc.hInstance		= hInstance;
	wc.hIcon		= LoadIcon(NULL, IDI_APPLICATION);
	wc.hCursor		= LoadCursor(NULL, IDC_ARROW);
	wc.hbrBackground	= (HBRUSH)(COLOR_WINDOW+1);
	wc.lpszMenuName		= MAKEINTRESOURCE(IDR_MENU);
	wc.lpszClassName	= TEXT("Episode Browser");
	wc.hIconSm		= LoadIcon(NULL, IDI_APPLICATION);

	RegisterClassEx(&wc);

	hWnd = CreateWindowEx(
		0,
		TEXT("Episode Browser"),
		TEXT("Episode Browser"),
		WS_OVERLAPPEDWINDOW,
		CW_USEDEFAULT, CW_USEDEFAULT,	/* Position */
		510, 300,			/* Size */
		NULL,				/* Parent window */
		NULL,				/* Menu */
		hInstance,
		NULL
	);

	if (!hWnd)
		return 0;

	ShowWindow(hWnd, nCmdShow);

	while (GetMessage(&msg, NULL, 0, 0) > 0) {
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}

	return 0;
}

LRESULT CALLBACK
WndProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
	switch (uMsg) {
	case WM_CLOSE:
		DestroyWindow(hWnd);
		break;
	case WM_DESTROY:
		PostQuitMessage(0);
		break;
	case WM_COMMAND:
		switch (LOWORD(wParam)) {
		case ID_FILE_EXIT:
			PostMessage(hWnd, WM_CLOSE, 0, 0);
			break;
		case ID_FILE_REFRESH:
			ElvUpdate();
			break;
		case ID_FILE_ABOUT:
			DialogBox(
				GetModuleHandle(NULL),
				MAKEINTRESOURCE(IDD_ABOUT),
				hWnd,
				AboutDlgProc
			);
			break;
		}
		break;
	case WM_CREATE:
		ElvCreate(hWnd);
		DlvCreate(hWnd);
		break;
	case WM_SIZE:
		UpdateLayout(hWnd);
		break;
	case WM_NOTIFY:
		switch (((NMHDR *)lParam)->idFrom) {
		case IDC_EPISODELISTVIEW:
			return ElvHandleNotify(lParam);
		}
		break;
	default:
		return DefWindowProc(hWnd, uMsg, wParam, lParam);
	}

	return 0;
}

INT_PTR CALLBACK
AboutDlgProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
	switch (uMsg) {
	case WM_INITDIALOG:
		return TRUE;
	case WM_CLOSE:
		EndDialog(hWnd, IDOK);
		break;
	case WM_COMMAND:
		switch (LOWORD(wParam)) {
		case IDOK:
			EndDialog(hWnd, IDOK);
			break;
		}
		break;
	default:
		return FALSE;
	}

	return TRUE;
}

/***/

/* Attach persistent databases. */
int
Attach()
{
	int r;
	term_t t;

	t = PL_new_term_refs(2);
	r = PL_call_predicate(NULL, PL_Q_NORMAL,
		PL_predicate("attach",  0, "track_episodes"),
		t);
	if (!r) return r;

	r = PL_call_predicate(NULL, PL_Q_NORMAL,
		PL_predicate("attach",  0, "episode_data"),
		t);
	if (!r) return r;

	return 1;
}

void
SetupFonts()
{
	HMODULE hModule;
	LOGFONT lf;

	hModule = LoadLibrary(TEXT("User32.dll"));
	if (hModule && GetProcAddress(hModule, "SystemParametersInfoW")) {
		NONCLIENTMETRICS m;

		m.cbSize = sizeof(NONCLIENTMETRICS);
		SystemParametersInfo(SPI_GETNONCLIENTMETRICS,
			sizeof(NONCLIENTMETRICS), &m, 0);
		g_GUIFont = CreateFontIndirect(&m.lfMessageFont);
	} else {
		g_GUIFont = GetStockObject(DEFAULT_GUI_FONT);
	}

	GetObject(g_GUIFont, sizeof(LOGFONT), &lf);
	lf.lfWeight = FW_BOLD;
	g_GUIFontBold = CreateFontIndirect(&lf);
}

/***/

void
UpdateLayout(HWND hWnd)
{
	HWND hElv, hDlv;
	int cxColumn;
	RECT rc;
	static int cxVScroll = 0;
	extern int g_SelectedItem;

	if (cxVScroll == 0)
		cxVScroll = GetSystemMetrics(SM_CXVSCROLL);

	GetClientRect(hWnd, &rc);

#define EDGE 4

	/* Resize data list view. */

	hDlv = GetDlgItem(hWnd, IDC_DATALISTVIEW);
	MoveWindow(hDlv, 0, rc.bottom-100,
		rc.right, rc.bottom,
		TRUE);

	cxColumn = ListView_GetColumnWidth(hDlv, 0);
	ListView_SetColumnWidth(hDlv, 1,
		rc.right-cxColumn-cxVScroll-EDGE);

	/* Resize episode list view. */

	hElv = GetDlgItem(hWnd, IDC_EPISODELISTVIEW);
	MoveWindow(hElv, 0, 0,
		rc.right, rc.bottom-100+1,
		TRUE);

	cxColumn = ListView_GetColumnWidth(hElv, 0);
	ListView_SetColumnWidth(hElv, 1,
		rc.right-cxColumn-cxVScroll-EDGE);

	ListView_EnsureVisible(hElv, g_SelectedItem, TRUE);
}