use cascade::cascade;
use glib::clone;
use gtk4::{gdk, glib, prelude::*};

use crate::x;

pub fn window(monitor: gdk::Monitor) -> gtk4::Window {
    let box_ = cascade! {
        gtk4::CenterBox::new();
        ..set_start_widget(Some(&cascade! {
            gtk4::Box::new(gtk4::Orientation::Horizontal, 0);
            ..append(&gtk4::Button::with_label("Workspaces"));
            ..append(&gtk4::Button::with_label("Applications"));
        }));
        ..set_center_widget(Some(&cascade! {
            gtk4::MenuButton::new();
            ..set_label("Jan 1 00:00 AM");
            ..set_popover(Some(&cascade! {
                gtk4::Popover::new();
                ..set_child(Some(&cascade! {
                    gtk4::Calendar::new();
                }));
            }));
        }));
    };

    let window = cascade! {
        gtk4::Window::new();
        ..set_decorated(false);
        //..set_keep_above(true);
        //..stick();
        ..set_child(Some(&box_));
        ..connect_realize(|window| {
        });
        ..show();
    };

    fn monitor_geometry_changed(window: &gtk4::Window, monitor: &gdk::Monitor) {
        let geometry = monitor.geometry();
        window.set_size_request(geometry.width, 0);

        if let Some((display, surface)) = x::get_window_x11(&window) {
            let top: x::c_ulong = 32;
            let top_start_x = geometry.x as x::c_ulong;
            let top_end_x = top_start_x + geometry.width as x::c_ulong;
            unsafe {
                x::change_property(
                    &display,
                    &surface,
                    "_NET_WM_STRUT_PARTIAL",
                    x::PropMode::Replace,
                    &[0, 0, top, 0, 0, 0, 0, 0, top_start_x, top_end_x, 0, 0],
                );
            }
        }
    }

    if let Some((display, surface)) = x::get_window_x11(&window) {
        unsafe {
            surface.set_skip_pager_hint(true);
            surface.set_skip_taskbar_hint(true);
            x::change_property(
                &display,
                &surface,
                "_NET_WM_STATE",
                x::PropMode::Append,
                &[
                    x::Atom::new(&display, "_NET_WM_STATE_ABOVE").unwrap(),
                    x::Atom::new(&display, "_NET_WM_STATE_STICKY").unwrap(),
                ],
            ); // XXX not working?
            x::change_property(
                &display,
                &surface,
                "_NET_WM_ALLOWED_ACTIONS",
                x::PropMode::Replace,
                &[
                    x::Atom::new(&display, "_NET_WM_ACTION_CHANGE_DESKTOP").unwrap(),
                    x::Atom::new(&display, "_NET_WM_ACTION_ABOVE").unwrap(),
                    x::Atom::new(&display, "_NET_WM_ACTION_BELOW").unwrap(),
                ],
            );
            x::change_property(
                &display,
                &surface,
                "_NET_WM_WINDOW_TYPE",
                x::PropMode::Replace,
                &[x::Atom::new(&display, "_NET_WM_WINDOW_TYPE_DOCK").unwrap()],
            );
        }
    }

    monitor.connect_geometry_notify(clone!(@strong window => move |monitor| {
        monitor_geometry_changed(&window, &monitor);
    }));
    monitor_geometry_changed(&window, &monitor);

    monitor.connect_invalidate(clone!(@strong window => move |_| window.close()));

    window
}