tengri/examples/mode_01.rs

//! Mode 01
use ::std::sync::{Arc, RwLock};
use ::crossterm::event::{Event::*, KeyEvent, KeyCode::*};
use ::ratatui::style::Color;
use ::tengri::{*, lang::*};
tui_app!(State {
    /** Command history (undo/redo). */
    history: Vec<Action>,
    /** User-controllable value. */
    cursor:  usize,
    /** Rendered window size. */
    size:    Sizer,
});
tui_keys!(self: State, input {
    Ok(if let Key(KeyEvent { code, .. }) = input.0 {
        match code {
            Up | Right  => { self.next()?.map(|x|self.history.push(x)); },
            Down | Left => { self.prev()?.map(|x|self.history.push(x)); },
            _ => {}
        }
    })
});
tui_view!(self: State {
    let index   = self.cursor + 1;
    let wh      = (self.size.w(), self.size.h());
    let src     = VIEWS.get(self.cursor).unwrap_or(&"");
    let heading = format!("State {}/{} in {:?}", index, VIEWS.len(), &wh);
    let title   = bg(Color::Rgb(60, 10, 10), heading.align_n().push_y(1));
    let code    = bg(Color::Rgb(10, 60, 10), format!("{}", src).align_n().push_y(2));
    let widget  = thunk(move|to: &mut Tui|self.interpret(to, &src));
    self.size.of(south(title, north(code, widget)))
});
impl Interpret<Tui, Color> for State {
    fn interpret_expr (&self, to: &mut Tui, expr: &impl Language) -> Usually<Color> {
        let expr = expr.expr()?;
        match expr.head()? {
            Some("g") if let Some(tail) = expr.tail()? => {
                Color::new_g(tail.head()?, try_to_u8)
            },
            Some("rgb") if let Some(tail) = expr.tail()? => {
                Color::new_rgb(tail.head()?, try_to_u8)
            },
            _ => Err(format!("not a color").into())
        }
    }
}
impl Interpret<Tui, Option<XYWH<u16>>> for State {
    fn interpret_word (&self, to: &mut Tui, sym: &impl Language) -> Perhaps<XYWH<u16>> {
        match sym.src()? {
            Some(":foo") => "foo".draw(to),
            Some(":bar") => "bar".draw(to),
            Some(":foobar") => "FOOBAR".draw(to),
            _ => todo!()
        }
    }
    fn interpret_expr (&self, to: &mut Tui, src: &impl Expression) -> Perhaps<XYWH<u16>> {
        Ok(Some(if let Some(area) = eval_view(self, to, src)? {
            area
        } else if let Some(area) = eval_view_tui(self, to, src)? {
            area
        } else {
            return Err(format!("App::interpret_expr: unexpected: {src:?}").into())
        }))
    }
}
impl State {
    fn next (&mut self) -> Perhaps<Action> {
        self.cursor = (self.cursor + 1) % VIEWS.len();
        Ok(Some(Action::Prev))
    }
    fn prev (&mut self) -> Perhaps<Action> {
        self.cursor = if self.cursor > 0 { self.cursor - 1 } else { VIEWS.len() - 1 };
        Ok(Some(Action::Next))
    }
}
#[derive(Debug)]
enum Action {
    /** Increment cursor */ Next,
    /** Decrement cursor */ Prev,
}
impl Action {
    fn eval (&self, state: &mut State) -> Perhaps<Self> {
        use Action::*;
        match self { Next => state.next(), Prev => state.prev(), }
    }
}
const VIEWS: &'static [&'static str] = &[
    stringify! { :foobar },
    stringify! { (bg (g 8) :foobar) },
    stringify! { (fill/xy :foobar) },
    stringify! { (bsp/s :foo :bar) },
    stringify! { (fixed/xy 20 10 :foobar) },
    stringify! { (bsp/s (fixed/xy 5 6 :foo) (fixed/xy 7 8 :bar)) },
    stringify! { (bsp/e (fixed/xy 5 6 :foo) (fixed/xy 7 8 :bar)) },
    stringify! { (bsp/n (fixed/xy 5 6 :foo) (fixed/xy 7 8 :bar)) },
    stringify! { (bsp/w (fixed/xy 5 6 :foo) (fixed/xy 7 8 :bar)) },
    stringify! { (bsp/a (fixed/xy 5 6 :foo) (fixed/xy 7 8 :bar)) },
    stringify! { (bsp/b (fixed/xy 5 6 :foo) (fixed/xy 7 8 :bar)) },
    stringify! {
        (bsp/s
          (bsp/e       (align/nw (fixed/xy 5 3 :foo))
            (bsp/e     (align/n  (fixed/xy 5 3 :foo))
                       (align/ne (fixed/xy 5 3 :foo))))
            (bsp/s
              (bsp/e   (align/w  (fixed/xy 5 3 :foo))
                (bsp/e (align/c  (fixed/xy 5 3 :foo))
                       (align/e  (fixed/xy 5 3 :foo))))
              (bsp/e   (align/sw (fixed/xy 5 3 :foo))
                (bsp/e (align/s  (fixed/xy 5 3 :foo))
                       (align/se (fixed/xy 5 3 :foo))))))
    },
    stringify! {
        (bsp/s
          (bsp/e     (fixed/xy 8 5 (align/nw :foo))
            (bsp/e   (fixed/xy 8 5 (align/n  :foo))
                     (fixed/xy 8 5 (align/ne :foo))))
          (bsp/s
            (bsp/e   (fixed/xy 8 5 (align/w  :foo))
              (bsp/e (fixed/xy 8 5 (align/c  :foo))
                     (fixed/xy 8 5 (align/e  :foo))))
            (bsp/e   (fixed/xy 8 5 (align/sw :foo))
              (bsp/e (fixed/xy 8 5 (align/s  :foo))
                     (fixed/xy 8 5 (align/se :foo))))))
    },
    stringify! {
        (bsp/s
          (bsp/e     (grow/xy 1 1 (fixed/xy 8 5 (align/nw :foo)))
            (bsp/e   (grow/xy 1 1 (fixed/xy 8 5 (align/n  :foo)))
                     (grow/xy 1 1 (fixed/xy 8 5 (align/ne :foo)))))
          (bsp/s
            (bsp/e   (grow/xy 1 1 (fixed/xy 8 5 (align/w  :foo)))
              (bsp/e (grow/xy 1 1 (fixed/xy 8 5 (align/c  :foo)))
                     (grow/xy 1 1 (fixed/xy 8 5 (align/e  :foo)))))
            (bsp/e   (grow/xy 1 1 (fixed/xy 8 5 (align/sw :foo)))
              (bsp/e (grow/xy 1 1 (fixed/xy 8 5 (align/s  :foo)))
                     (grow/xy 1 1 (fixed/xy 8 5 (align/se :foo)))))))
    },
    stringify! { :map-e },
    stringify! { (align/c :map-e) },
    stringify! { :map-s },
    stringify! { (align/c :map-s) },
    stringify! {
        (align/c (bg/behind :bg0 (margin/xy 1 1 (col
          (bg/behind :bg1 (border/around :border1 (margin/xy 2 1 :label1)))
          (bg/behind :bg2 (border/around :border2 (margin/xy 4 2 :label2)))
          (bg/behind :bg3 (border/around :border3 (margin/xy 6 3 :label3)))))))
    },
];
//handle!(TuiIn: |self: State, input|Action::from(input).eval(self).map(|_|None));
 //view!(State: Tui: [ evaluate_output_expression, evaluate_output_expression_tui ]);
 //draw!(State: Tui: [ draw_example ]);
//impl_from!(Action: |input: &TuiIn| todo!());
//fn draw_example (state: &State, to: &mut Tui) {}