wip: let's figure out how edn keymaps will work

output/Cargo.toml

@@ -3,8 +3,8 @@ name = "tek_output"
 edition = "2021"
 version = "0.2.0"
 
-[dev-dependencies]
-tek_tui = { path = "../tui" }
-
 [dependencies]
 tek_edn = { path = "../edn" }
+
+[dev-dependencies]
+tek_tui = { path = "../tui" }

output/examples/edn-view.rs

@@ -0,0 +1,70 @@
+use tek::*;
+use tek_edn::*;
+use std::sync::{Arc, RwLock};
+use crossterm::event::{*, KeyCode::*};
+
+const EDN: &'static [&'static str] = &[
+    include_str!("edn01.edn"),
+    include_str!("edn02.edn"),
+    include_str!("edn03.edn"),
+    include_str!("edn04.edn"),
+    include_str!("edn05.edn"),
+    include_str!("edn06.edn"),
+    include_str!("edn07.edn"),
+    include_str!("edn08.edn"),
+    include_str!("edn09.edn"),
+    include_str!("edn10.edn"),
+    include_str!("edn11.edn"),
+    include_str!("edn12.edn"),
+    include_str!("edn13.edn"),
+];
+
+fn main () -> Usually<()> {
+    let state = Arc::new(RwLock::new(Example(10, Measure::new())));
+    Tui::new().unwrap().run(&state)?;
+    Ok(())
+}
+
+pub struct Example(usize, Measure<TuiOut>);
+
+impl EdnViewData<TuiOut> for &Example {
+    fn get_content <'a> (&'a self, item: EdnItem<&'a str>) -> RenderBox<'a, TuiOut> {
+        use EdnItem::*;
+        match item {
+            Nil        => Box::new(()),
+            Exp(items) => Box::new(EdnView::from_items(*self, items.as_slice())),
+            //Sym(name)  => self.get_sym(name), TODO
+            Sym(":title") => Tui::bg(Color::Rgb(60,10,10), Push::y(1,
+                Align::n(format!("Example {}/{}:", self.0 + 1, EDN.len())))).boxed(),
+            Sym(":code") => Tui::bg(Color::Rgb(10,60,10), Push::y(2,
+                Align::n(format!("{}", EDN[self.0])))).boxed(),
+            Sym(":hello-world") => "Hello world!".boxed(),
+            Sym(":hello") => Tui::bg(Color::Rgb(10, 100, 10), "Hello").boxed(),
+            Sym(":world") => Tui::bg(Color::Rgb(100, 10, 10), "world").boxed(),
+            _ => panic!("no content for {item:?}")
+        }
+    }
+}
+
+impl Content<TuiOut> for Example {
+    fn content (&self) -> impl Render<TuiOut> {
+        let title   = Tui::bg(Color::Rgb(60,10,10),
+            Push::y(1, Align::n(format!("Example {}/{} in {:?}", self.0 + 1, EDN.len(), &self.1.wh()))));
+        let code    = Tui::bg(Color::Rgb(10,60,10),
+            Push::y(2, Align::n(format!("{}", EDN[self.0]))));
+        let content = Tui::bg(Color::Rgb(10,10,60),
+            EdnView::from_source(self, EDN[self.0]));
+        self.1.of(Bsp::s(title, Bsp::n(""/*code*/, content)))
+    }
+}
+
+impl Handle<TuiIn> for Example {
+    fn handle (&mut self, input: &TuiIn) -> Perhaps<bool> {
+        match input.event() {
+            kpat!(Right) => self.0 = (self.0 + 1) % EDN.len(),
+            kpat!(Left) => self.0 = if self.0 > 0 { self.0 - 1 } else { EDN.len() - 1 },
+            _ => return Ok(None)
+        }
+        Ok(Some(true))
+    }
+}

output/examples/edn01.edn

@@ -0,0 +1 @@
+:hello-world

output/examples/edn02.edn

@@ -0,0 +1 @@
+(bsp/s :hello :world)

output/examples/edn03.edn

@@ -0,0 +1 @@
+(fill/xy :hello-world)

output/examples/edn04.edn

@@ -0,0 +1 @@
+(fixed/xy 20 10 :hello-world)

output/examples/edn05.edn

@@ -0,0 +1 @@
+(bsp/s (fixed/xy 5 6 :hello) (fixed/xy 7 8 :world))

output/examples/edn06.edn

@@ -0,0 +1 @@
+(bsp/e (fixed/xy 5 6 :hello) (fixed/xy 7 8 :world))

output/examples/edn07.edn

@@ -0,0 +1 @@
+(bsp/n (fixed/xy 5 6 :hello) (fixed/xy 7 8 :world))

output/examples/edn08.edn

@@ -0,0 +1 @@
+(bsp/w (fixed/xy 5 6 :hello) (fixed/xy 7 8 :world))

output/examples/edn09.edn

@@ -0,0 +1 @@
+(bsp/a (fixed/xy 5 6 :hello) (fixed/xy 7 8 :world))

output/examples/edn10.edn

@@ -0,0 +1 @@
+(bsp/b (fixed/xy 5 6 :hello) (fixed/xy 7 8 :world))

output/examples/edn11.edn

@@ -0,0 +1,11 @@
+(bsp/s
+  (bsp/e       (align/nw (fixed/xy 5 3 :hello))
+    (bsp/e     (align/n  (fixed/xy 5 3 :hello))
+               (align/ne (fixed/xy 5 3 :hello))))
+    (bsp/s
+      (bsp/e   (align/w  (fixed/xy 5 3 :hello))
+        (bsp/e (align/c  (fixed/xy 5 3 :hello))
+               (align/e  (fixed/xy 5 3 :hello))))
+      (bsp/e   (align/sw (fixed/xy 5 3 :hello))
+        (bsp/e (align/s  (fixed/xy 5 3 :hello))
+               (align/se (fixed/xy 5 3 :hello))))))

output/examples/edn12.edn

@@ -0,0 +1,11 @@
+(bsp/s
+  (bsp/e     (fixed/xy 8 5 (align/nw :hello))
+    (bsp/e   (fixed/xy 8 5 (align/n  :hello))
+             (fixed/xy 8 5 (align/ne :hello))))
+  (bsp/s
+    (bsp/e   (fixed/xy 8 5 (align/w  :hello))
+      (bsp/e (fixed/xy 8 5 (align/c  :hello))
+             (fixed/xy 8 5 (align/e  :hello))))
+    (bsp/e   (fixed/xy 8 5 (align/sw :hello))
+      (bsp/e (fixed/xy 8 5 (align/s  :hello))
+             (fixed/xy 8 5 (align/se :hello))))))

output/examples/edn13.edn

@@ -0,0 +1,11 @@
+(bsp/s
+  (bsp/e     (grow/xy 1 1 (fixed/xy 8 5 (align/nw :hello)))
+    (bsp/e   (grow/xy 1 1 (fixed/xy 8 5 (align/n  :hello)))
+             (grow/xy 1 1 (fixed/xy 8 5 (align/ne :hello)))))
+  (bsp/s
+    (bsp/e   (grow/xy 1 1 (fixed/xy 8 5 (align/w  :hello)))
+      (bsp/e (grow/xy 1 1 (fixed/xy 8 5 (align/c  :hello)))
+             (grow/xy 1 1 (fixed/xy 8 5 (align/e  :hello)))))
+    (bsp/e   (grow/xy 1 1 (fixed/xy 8 5 (align/sw :hello)))
+      (bsp/e (grow/xy 1 1 (fixed/xy 8 5 (align/s  :hello)))
+             (grow/xy 1 1 (fixed/xy 8 5 (align/se :hello)))))))

output/examples/edn99.edn

@@ -0,0 +1,73 @@
+(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)))))))
+
+    fn content (&self) -> dyn Render<Engine = Tui> {
+        let border_style = Style::default().fg(Color::Rgb(0,0,0));
+        Align::Center(Layers::new(move|add|{
+
+            add(&Background(Color::Rgb(0,128,128)))?;
+
+            add(&Margin::XY(1, 1, Stack::down(|add|{
+
+                add(&Layers::new(|add|{
+                    add(&Background(Color::Rgb(128,96,0)))?;
+                    add(&Border(Square(border_style)))?;
+                    add(&Margin::XY(2, 1, "..."))?;
+                    Ok(())
+                }).debug())?;
+
+                add(&Layers::new(|add|{
+                    add(&Background(Color::Rgb(128,64,0)))?;
+                    add(&Border(Lozenge(border_style)))?;
+                    add(&Margin::XY(4, 2, "---"))?;
+                    Ok(())
+                }).debug())?;
+
+                add(&Layers::new(|add|{
+                    add(&Background(Color::Rgb(96,64,0)))?;
+                    add(&Border(SquareBold(border_style)))?;
+                    add(&Margin::XY(6, 3, "~~~"))?;
+                    Ok(())
+                }).debug())?;
+
+                Ok(())
+            })).debug())?;
+
+            Ok(())
+
+        }))
+        //Align::Center(Margin::X(1, Layers::new(|add|{
+            //add(&Background(Color::Rgb(128,0,0)))?;
+            //add(&Stack::down(|add|{
+                //add(&Margin::Y(1, Layers::new(|add|{
+                    //add(&Background(Color::Rgb(0,128,0)))?;
+                    //add(&Align::Center("12345"))?;
+                    //add(&Align::Center("FOO"))
+                //})))?;
+                //add(&Margin::XY(1, 1, Layers::new(|add|{
+                    //add(&Align::Center("1234567"))?;
+                    //add(&Align::Center("BAR"))?;
+                    //add(&Background(Color::Rgb(0,0,128)))
+                //})))
+            //}))
+        //})))
+
+        //Align::Y(Layers::new(|add|{
+            //add(&Background(Color::Rgb(128,0,0)))?;
+            //add(&Margin::X(1, Align::Center(Stack::down(|add|{
+                //add(&Align::X(Margin::Y(1, Layers::new(|add|{
+                    //add(&Background(Color::Rgb(0,128,0)))?;
+                    //add(&Align::Center("12345"))?;
+                    //add(&Align::Center("FOO"))
+                //})))?;
+                //add(&Margin::XY(1, 1, Layers::new(|add|{
+                    //add(&Align::Center("1234567"))?;
+                    //add(&Align::Center("BAR"))?;
+                    //add(&Background(Color::Rgb(0,0,128)))
+                //})))?;
+                //Ok(())
+            //})))))
+        //}))
+    }