use crate::*;

impl Content<TuiOut> for App {
    fn content (&self) -> impl Render<TuiOut> + '_ {
        let mode = self.mode.clone();
        Stack::above(move|add|for dsl in mode.view.iter() { add(&self.view(dsl)) })
    }
}

impl App {
    fn view <'t> (&'t self, dsl: impl Dsl) -> impl Render<TuiOut> + 't {
        let view: TuiBox<'t> = self.from(dsl).unwrap().unwrap();
        view
    }
    pub fn update_clock (&self) {
        ViewCache::update_clock(&self.project.clock.view_cache, self.clock(), self.size.w() > 80)
    }
}

type TuiBox<'t> = Box<dyn Render<TuiOut> + 't>;

fn render_error (err: impl Error, src: &str) -> impl Render<TuiOut> {
    let (fg_1, bg_1) = (Color::Rgb(240, 160, 100), Color::Rgb(48, 0, 0));
    let (fg_2, bg_2) = (Color::Rgb(250, 200, 180), Color::Rgb(48, 0, 0));
    let (fg_3, bg_3) = (Color::Rgb(250, 200, 120), Color::Rgb(0, 0, 0));
    let bg = Color::Rgb(24, 0, 0);
    col! {
        Tui::fg(bg, Fixed::y(1, Fill::x(RepeatH("▄")))),
        Tui::bg(bg, col! {
            Fill::x(Bsp::e(
                Tui::bold(true, Tui::fg_bg(fg_1, bg_1, " Render error: ")),
                Tui::fg_bg(fg_2, bg_2, format!(" {err} ")),
            )),
            Fill::x(Align::x(Tui::fg_bg(fg_3, bg_3, format!(" {src} ")))),
        }),
        Tui::fg(bg, Fixed::y(1, Fill::x(RepeatH("▀")))),
    }
}

impl<'t> DslNs<'t, TuiBox<'t>> for App {
    dsl_exprs!(|app| -> TuiBox<'t> {
        "text" (tail: Arc<str>) => Box::new(tail),

        "fg" (color: Color, x: TuiBox<'t>) => Box::new(Tui::fg(color, x)),
        "bg" (color: Color, x: TuiBox<'t>) => Box::new(Tui::bg(color, x)),
        "fg/bg" (fg: Color, bg: Color, x: TuiBox<'t>) => Box::new(Tui::fg_bg(fg, bg, x)),

        "either" (cond: bool, a: TuiBox<'t>, b: TuiBox<'t>) =>
            Box::new(Either(cond, a, b)),

        "bsp/n" (a: TuiBox<'t>, b: TuiBox<'t>) => Box::new(Bsp::n(a, b)),
        "bsp/s" (a: TuiBox<'t>, b: TuiBox<'t>) => Box::new(Bsp::s(a, b)),
        "bsp/e" (a: TuiBox<'t>, b: TuiBox<'t>) => Box::new(Bsp::e(a, b)),
        "bsp/w" (a: TuiBox<'t>, b: TuiBox<'t>) => Box::new(Bsp::w(a, b)),
        "bsp/a" (a: TuiBox<'t>, b: TuiBox<'t>) => Box::new(Bsp::a(a, b)),
        "bsp/b" (a: TuiBox<'t>, b: TuiBox<'t>) => Box::new(Bsp::b(a, b)),

        "align/nw" (x: TuiBox<'t>) => Box::new(Align::nw(x)),
        "align/ne" (x: TuiBox<'t>) => Box::new(Align::ne(x)),
        "align/n"  (x: TuiBox<'t>) => Box::new(Align::n(x)),
        "align/s"  (x: TuiBox<'t>) => Box::new(Align::s(x)),
        "align/e"  (x: TuiBox<'t>) => Box::new(Align::e(x)),
        "align/w"  (x: TuiBox<'t>) => Box::new(Align::w(x)),
        "align/x"  (x: TuiBox<'t>) => Box::new(Align::x(x)),
        "align/y"  (x: TuiBox<'t>) => Box::new(Align::y(x)),
        "align/c"  (x: TuiBox<'t>) => Box::new(Align::c(x)),

        "fill/x"  (x: TuiBox<'t>) => Box::new(Fill::x(x)),
        "fill/y"  (x: TuiBox<'t>) => Box::new(Fill::y(x)),
        "fill/xy" (x: TuiBox<'t>) => Box::new(Fill::xy(x)),

        "fixed/x"  (x: u16, c: TuiBox<'t>) => Box::new(Fixed::x(x, c)),
        "fixed/y"  (y: u16, c: TuiBox<'t>) => Box::new(Fixed::y(y, c)),
        "fixed/xy" (x: u16, y: u16, c: TuiBox<'t>) => Box::new(Fixed::xy(x, y, c)),

        "min/x"  (x: u16, c: TuiBox<'t>) => Box::new(Min::x(x, c)),
        "min/y"  (y: u16, c: TuiBox<'t>) => Box::new(Min::y(y, c)),
        "min/xy" (x: u16, y: u16, c: TuiBox<'t>) => Box::new(Min::xy(x, y, c)),

        "max/x"  (x: u16, c: TuiBox<'t>) => Box::new(Max::x(x, c)),
        "max/y"  (y: u16, c: TuiBox<'t>) => Box::new(Max::y(y, c)),
        "max/xy" (x: u16, y: u16, c: TuiBox<'t>) => Box::new(Max::xy(x, y, c)),
    });
    dsl_words!(|app| -> TuiBox<'t> {
        ":logo" => Box::new(Fixed::xy(32, 7, Tui::bold(true, Tui::fg(Rgb(240,200,180), Stack::south(|add|{
            add(&Fixed::y(1, ""));
            add(&Fixed::y(1, ""));
            add(&Fixed::y(1, "~~ ╓─╥─╖ ╓──╖ ╥  ╖ ~~~~~~~~~~~~"));
            add(&Fixed::y(1, Bsp::e("~~~~ ║ ~ ╟─╌ ~╟─<  ~~ ", Bsp::e(Tui::fg(Rgb(230,100,40), "v0.3.0"), " ~~"))));
            add(&Fixed::y(1, "~~~~ ╨ ~ ╙──╜ ╨  ╜ ~~~~~~~~~~~~"));
        }))))),
        ":meters/input"   => Box::new(Tui::bg(Rgb(30, 30, 30), Fill::y(Align::s("Input Meters")))),
        ":meters/output"  => Box::new(Tui::bg(Rgb(30, 30, 30), Fill::y(Align::s("Output Meters")))),
        ":status"         => Box::new("Status Bar"),
        ":tracks/names"   => Box::new(app.project.view_track_names(app.color.clone())),//Tui::bg(Rgb(40, 40, 40), Fill::x(Align::w("Track Names")))),
        ":tracks/inputs"  => Box::new(Tui::bg(Rgb(40, 40, 40), Fill::x(Align::w("Track Inputs")))),
        ":tracks/devices" => Box::new(Tui::bg(Rgb(40, 40, 40), Fill::x(Align::w("Track Devices")))),
        ":tracks/outputs" => Box::new(Tui::bg(Rgb(40, 40, 40), Fill::x(Align::w("Track Outputs")))),
        ":scenes/names"   => Box::new("Scene Names"),
        ":editor"         => Box::new("Editor"),
        ":scenes"         => Box::new("Scenes"),
        ":dialog/menu" => Box::new(if let Dialog::Menu(selected, items) = &app.dialog {
            let items = items.clone();
            let selected = *selected;
            Some(Fill::x(Stack::south(move|add|{
                for (index, MenuItem(item, _)) in items.0.iter().enumerate() {
                    add(&Tui::fg_bg(
                        if selected == index { Rgb(240,200,180) } else { Rgb(200, 200, 200) },
                        if selected == index { Rgb(80, 80, 50)  } else { Rgb(30,  30,  30)  },
                        Fixed::y(2, Align::n(Fill::x(item)))
                    ));
                }
            })))
        } else {
            None
        }),
        ":templates" => Box::new({
            let modes  = app.config.modes.clone();
            let height = (modes.read().unwrap().len() * 2) as u16;
            Fixed::y(height, Min::x(30, Stack::south(move|add|{
                for (index, (id, profile)) in modes.read().unwrap().iter().enumerate() {
                    let bg   = if index == 0 { Rgb(70,70,70) } else { Rgb(50,50,50) };
                    let name = profile.name.get(0).map(|x|x.as_ref()).unwrap_or("<no name>");
                    let info = profile.info.get(0).map(|x|x.as_ref()).unwrap_or("<no info>");
                    let fg1  = Rgb(224, 192, 128);
                    let fg2  = Rgb(224, 128,  32);
                    let field_name = Fill::x(Align::w(Tui::fg(fg1, name)));
                    let field_id   = Fill::x(Align::e(Tui::fg(fg2, id)));
                    let field_info = Fill::x(Align::w(info));
                    add(&Fixed::y(2, Fill::x(Tui::bg(bg, Bsp::s(
                        Bsp::a(field_name, field_id), field_info)))));
                }
            })))
        }),
        ":sessions" => Box::new(Fixed::y(6, Min::x(30, Stack::south(move|add|{
            let fg = Rgb(224, 192, 128);
            for (index, name) in ["session1", "session2", "session3"].iter().enumerate() {
                let bg = if index == 0 { Rgb(50,50,50) } else { Rgb(40,40,40) };
                add(&Fixed::y(2, Fill::x(Tui::bg(bg, Align::w(Tui::fg(fg, name))))));
            }
        })))),
        ":browse/title" => Box::new(Fill::x(Align::w(FieldV(Default::default(),
            match app.dialog.browser_target().unwrap() {
               BrowseTarget::SaveProject     => "Save project:",
               BrowseTarget::LoadProject     => "Load project:",
               BrowseTarget::ImportSample(_) => "Import sample:",
               BrowseTarget::ExportSample(_) => "Export sample:",
               BrowseTarget::ImportClip(_)   => "Import clip:",
               BrowseTarget::ExportClip(_)   => "Export clip:",
            }, Shrink::x(3, Fixed::y(1, Tui::fg(Tui::g(96), RepeatH("🭻")))))))),
        ":device" => {
            let selected = app.dialog.device_kind().unwrap();
            Box::new(Bsp::s(Tui::bold(true, "Add device"), Map::south(1,
                move||device_kinds().iter(),
                move|label: &&'static str, i|{
                    let bg = if i == selected { Rgb(64,128,32) } else { Rgb(0,0,0) };
                    let lb = if i == selected { "[ " } else { "  " };
                    let rb = if i == selected { " ]" } else { "  " };
                    Fill::x(Tui::bg(bg, Bsp::e(lb, Bsp::w(rb, "FIXME device name")))) }))) },
    });
    /// Resolve an expression if known.
    fn from_expr (&self, dsl: impl Dsl) -> Perhaps<TuiBox<'t>> {
        if let Some(head) = dsl.expr().head()? {
            for (key, value) in Self::EXPRS.0.iter() {
                if head == *key {
                    return value(self, dsl.expr().tail()?.unwrap_or(""))
                }
            }
        }
        return Ok(None)
    }
    /// Resolve a symbol if known.
    fn from_word (&self, dsl: impl Dsl) -> Perhaps<TuiBox<'t>> {
        if let Some(dsl) = dsl.word()? {
            let views = self.config.views.read().unwrap();
            if let Some(view) = views.get(dsl) {
                let view = view.clone();
                std::mem::drop(views);
                return Ok(Some(self.view(view.as_ref())))
            }
            for (word, get) in Self::WORDS.0 {
                if dsl == *word {
                    return get(self)
                }
            }
        }
        return Ok(None)
    }
}

pub fn view_nil (_: &App) -> TuiBox {
    Box::new(Fill::xy("·"))
}

                //Bsp::s("",
                    //Map::south(1,
                        //move||app.config.binds.layers.iter()
                            //.filter_map(|a|(a.0)(app).then_some(a.1))
                            //.flat_map(|a|a)
                            //.filter_map(|x|if let Value::Exp(_, iter)=x.value{ Some(iter) } else { None })
                            //.skip(offset)
                            //.take(20),
                        //|mut b,i|Fixed::x(60, Align::w(Bsp::e("(", Bsp::e(
                            //b.next().map(|t|Fixed::x(16, Align::w(Tui::fg(Rgb(64,224,0), format!("{}", t.value))))),
                            //Bsp::e(" ", Align::w(format!("{}", b.0.0.trim()))))))))))),

            //Dialog::Browse(BrowseTarget::Load, browser) => {
                //"bobcat".boxed()
                    ////Bsp::s(
                        ////Fill::x(Align::w(Margin::xy(1, 1, Bsp::e(
                            ////Tui::bold(true, " Load project: "),
                            ////Shrink::x(3, Fixed::y(1, RepeatH("🭻"))))))),
                        ////Outer(true, Style::default().fg(Tui::g(96)))
                            ////.enclose(Fill::xy(browser)))
            //},
            //Dialog::Browse(BrowseTarget::Export, browser) => {
                //"bobcat".boxed()
                    ////Bsp::s(
                        ////Fill::x(Align::w(Margin::xy(1, 1, Bsp::e(
                            ////Tui::bold(true, " Export: "),
                            ////Shrink::x(3, Fixed::y(1, RepeatH("🭻"))))))),
                        ////Outer(true, Style::default().fg(Tui::g(96)))
                            ////.enclose(Fill::xy(browser)))
            //},
            //Dialog::Browse(BrowseTarget::Import, browser) => {
                //"bobcat".boxed()
                    ////Bsp::s(
                        ////Fill::x(Align::w(Margin::xy(1, 1, Bsp::e(
                            ////Tui::bold(true, " Import: "),
                            ////Shrink::x(3, Fixed::y(1, RepeatH("🭻"))))))),
                        ////Outer(true, Style::default().fg(Tui::g(96)))
                            ////.enclose(Fill::xy(browser)))
            //},
//
    //pub fn view_history (&self) -> impl Content<TuiOut> {
        //Fixed::y(1, Fill::x(Align::w(FieldH(self.color,
            //format!("History ({})", self.history.len()),
                //self.history.last().map(|last|Fill::x(Align::w(format!("{:?}", last.0))))))))
    //}
    //pub fn view_status_h2 (&self) -> impl Content<TuiOut> {
        //self.update_clock();
        //let theme     = self.color;
        //let clock     = self.clock();
        //let playing   = clock.is_rolling();
        //let cache     = clock.view_cache.clone();
        ////let selection = self.selection().describe(self.tracks(), self.scenes());
        //let hist_len  = self.history.len();
        //let hist_last = self.history.last();
        //Fixed::y(2, Stack::east(move|add: &mut dyn FnMut(&dyn Render<TuiOut>)|{
            //add(&Fixed::x(5, Tui::bg(if playing { Rgb(0, 128, 0) } else { Rgb(128, 64, 0) },
                //Either::new(false, // TODO
                    //Thunk::new(move||Fixed::x(9, Either::new(playing,
                        //Tui::fg(Rgb(0, 255, 0),   " PLAYING "),
                        //Tui::fg(Rgb(255, 128, 0), " STOPPED ")))
                    //),
                    //Thunk::new(move||Fixed::x(5, Either::new(playing,
                        //Tui::fg(Rgb(0, 255, 0),   Bsp::s(" 🭍🭑🬽 ", " 🭞🭜🭘 ",)),
                        //Tui::fg(Rgb(255, 128, 0), Bsp::s(" ▗▄▖ ", " ▝▀▘ ",))))
                    //)
                //)
            //)));
            //add(&" ");
            //{
                //let cache = cache.read().unwrap();
                //add(&Fixed::x(15, Align::w(Bsp::s(
                    //FieldH(theme, "Beat", cache.beat.view.clone()),
                    //FieldH(theme, "Time", cache.time.view.clone()),
                //))));
                //add(&Fixed::x(13, Align::w(Bsp::s(
                    //Fill::x(Align::w(FieldH(theme, "BPM", cache.bpm.view.clone()))),
                    //Fill::x(Align::w(FieldH(theme, "SR ", cache.sr.view.clone()))),
                //))));
                //add(&Fixed::x(12, Align::w(Bsp::s(
                    //Fill::x(Align::w(FieldH(theme, "Buf", cache.buf.view.clone()))),
                    //Fill::x(Align::w(FieldH(theme, "Lat", cache.lat.view.clone()))),
                //))));
                ////add(&Bsp::s(
                    //////Fill::x(Align::w(FieldH(theme, "Selected", Align::w(selection)))),
                    ////Fill::x(Align::w(FieldH(theme, format!("History ({})", hist_len),
                        ////hist_last.map(|last|Fill::x(Align::w(format!("{:?}", last.0))))))),
                    ////""
                ////));
                //////if let Some(last) = self.history.last() {
                    //////add(&FieldV(theme, format!("History ({})", self.history.len()),
                        //////Fill::x(Align::w(format!("{:?}", last.0)))));
                //////}
            //}
        //}))
    //}
    //pub fn view_status_v (&self) -> impl Content<TuiOut> + use<'_> {
        //self.update_clock();
        //let cache   = self.project.clock.view_cache.read().unwrap();
        //let theme   = self.color;
        //let playing = self.clock().is_rolling();
        //Tui::bg(theme.darker.rgb, Fixed::xy(20, 5, Outer(true, Style::default().fg(Tui::g(96))).enclose(
            //col!(
                //Fill::x(Align::w(Bsp::e(
                    //Align::w(Tui::bg(if playing { Rgb(0, 128, 0) } else { Rgb(128, 64, 0) },
                        //Either::new(false, // TODO
                            //Thunk::new(move||Fixed::x(9, Either::new(playing,
                                //Tui::fg(Rgb(0, 255, 0),   " PLAYING "),
                                //Tui::fg(Rgb(255, 128, 0), " STOPPED ")))
                            //),
                            //Thunk::new(move||Fixed::x(5, Either::new(playing,
                                //Tui::fg(Rgb(0, 255, 0),   Bsp::s(" 🭍🭑🬽 ", " 🭞🭜🭘 ",)),
                                //Tui::fg(Rgb(255, 128, 0), Bsp::s(" ▗▄▖ ", " ▝▀▘ ",))))
                            //)
                        //)
                    //)),
                    //Bsp::s(
                        //FieldH(theme, "Beat", cache.beat.view.clone()),
                        //FieldH(theme, "Time", cache.time.view.clone()),
                    //),
                //))),
                //Fill::x(Align::w(FieldH(theme, "BPM", cache.bpm.view.clone()))),
                //Fill::x(Align::w(FieldH(theme, "SR ", cache.sr.view.clone()))),
                //Fill::x(Align::w(FieldH(theme, "Buf", Bsp::e(cache.buf.view.clone(), Bsp::e(" = ", cache.lat.view.clone()))))),
            //))))
    //}
    //pub fn view_status (&self) -> impl Content<TuiOut> + use<'_> {
        //self.update_clock();
        //let cache = self.project.clock.view_cache.read().unwrap();
        //view_status(Some(self.project.selection.describe(self.tracks(), self.scenes())),
            //cache.sr.view.clone(), cache.buf.view.clone(), cache.lat.view.clone())
    //}
    //pub fn view_transport (&self) -> impl Content<TuiOut> + use<'_> {
        //self.update_clock();
        //let cache = self.project.clock.view_cache.read().unwrap();
        //view_transport(self.project.clock.is_rolling(),
            //cache.bpm.view.clone(), cache.beat.view.clone(), cache.time.view.clone())
    //}
    //pub fn view_editor (&self) -> impl Content<TuiOut> + use<'_> {
        //let bg = self.editor()
            //.and_then(|editor|editor.clip().clone())
            //.map(|clip|clip.read().unwrap().color.darker)
            //.unwrap_or(self.color.darker);
        //Fill::xy(Tui::bg(bg.rgb, self.editor()))
    //}
    //pub fn view_editor_status (&self) -> impl Content<TuiOut> + use<'_> {
        //self.editor().map(|e|Fixed::x(20, Outer(true, Style::default().fg(Tui::g(96))).enclose(
            //Fill::y(Align::n(Bsp::s(e.clip_status(), e.edit_status()))))))
    //}
    //pub fn view_midi_ins_status (&self) -> impl Content<TuiOut> + use<'_> {
        //self.project.view_midi_ins_status(self.color)
    //}
    //pub fn view_midi_outs_status (&self) -> impl Content<TuiOut> + use<'_> {
        //self.project.view_midi_outs_status(self.color)
    //}
    //pub fn view_audio_ins_status (&self) -> impl Content<TuiOut> + use<'_> {
        //self.project.view_audio_ins_status(self.color)
    //}
    //pub fn view_audio_outs_status (&self) -> impl Content<TuiOut> + use<'_> {
        //self.project.view_audio_outs_status(self.color)
    //}
    //pub fn view_scenes (&self) -> impl Content<TuiOut> + use<'_> {
        //Bsp::e(
            //Fixed::x(20, Align::nw(self.project.view_scenes_names())),
            //self.project.view_scenes_clips(),
        //)
    //}
    //pub fn view_scenes_names (&self) -> impl Content<TuiOut> + use<'_> {
        //self.project.view_scenes_names()
    //}
    //pub fn view_scenes_clips (&self) -> impl Content<TuiOut> + use<'_> {
        //self.project.view_scenes_clips()
    //}
    //pub fn view_tracks_inputs <'a> (&'a self) -> impl Content<TuiOut> + use<'a> {
        //Fixed::y(1 + self.project.midi_ins.len() as u16,
            //self.project.view_inputs(self.color))
    //}
    //pub fn view_tracks_outputs <'a> (&'a self) -> impl Content<TuiOut> + use<'a> {
        //self.project.view_outputs(self.color)
    //}
    //pub fn view_tracks_devices <'a> (&'a self) -> impl Content<TuiOut> + use<'a> {
        //Fixed::y(4, self.project.view_track_devices(self.color))
    //}
    //pub fn view_tracks_names <'a> (&'a self) -> impl Content<TuiOut> + use<'a> {
        //Fixed::y(2, self.project.view_track_names(self.color))
    //}
    //pub fn view_pool (&self) -> impl Content<TuiOut> + use<'_> {
        //Fixed::x(20, Bsp::s(
            //Fill::x(Align::w(FieldH(self.color, "Clip pool:", ""))),
            //Fill::y(Align::n(Tui::bg(Rgb(0, 0, 0), Outer(true, Style::default().fg(Tui::g(96)))
                //.enclose(PoolView(&self.pool)))))))
    //}
    //pub fn view_samples_keys (&self) -> impl Content<TuiOut> + use<'_> {
        //self.project.sampler().map(|s|s.view_list(true, self.editor().unwrap()))
    //}
    //pub fn view_samples_grid (&self) -> impl Content<TuiOut> + use<'_> {
        //self.project.sampler().map(|s|s.view_grid())
    //}
    //pub fn view_sample_viewer (&self) -> impl Content<TuiOut> + use<'_> {
        //self.project.sampler().map(|s|s.view_sample(self.editor().unwrap().get_note_pos()))
    //}
    //pub fn view_sample_info (&self) -> impl Content<TuiOut> + use<'_> {
        //self.project.sampler().map(|s|s.view_sample_info(self.editor().unwrap().get_note_pos()))
    //}
    //pub fn view_sample_status (&self) -> impl Content<TuiOut> + use<'_> {
        //self.project.sampler().map(|s|Outer(true, Style::default().fg(Tui::g(96))).enclose(
            //Fill::y(Align::n(s.view_sample_status(self.editor().unwrap().get_note_pos())))))
    //}
            ////let options = ||["Projects", "Settings", "Help", "Quit"].iter();
            ////let option  = |a,i|Tui::fg(Rgb(255,255,255), format!("{}", a));
            ////Bsp::s(Tui::bold(true, "tek!"), Bsp::s("", Map::south(1, options, option)))