add defcom! macro

crates/app/src/api.rs

@@ -100,7 +100,7 @@ impose!([app: Tek] {
             Some(Self::Edit(None)))
         ("edit"    [c: bool]
             Some(Self::Edit(c)))
-        ("color"   [c: Color]
+        ("color"   []
             Some(Self::Color(ItemPalette::random())))
         ("color"   [c: Color]
             Some(Self::Color(c.map(ItemPalette::from).expect("no color"))))

crates/app/src/keys.rs

@@ -1,4 +1,5 @@
 use crate::*;
+
 handle!(TuiIn: |self: Tek, input|Ok({
     // If editing, editor keys take priority
     if self.is_editing() {
@@ -23,61 +24,75 @@ handle!(TuiIn: |self: Tek, input|Ok({
     }
     None
 }));
-#[derive(Clone, Debug)] pub enum TekCommand {
+
-    Clip(ClipCommand),
+macro_rules! defcom {
-    Clock(ClockCommand),
+    ($($Command:ident { $(
-    Color(ItemPalette),
+        $Variant:ident $(($($Param:ty),+))?
-    Edit(Option<bool>),
+    )* $(,)? })*) => {
-    Editor(MidiEditCommand),
+        $(#[derive(Clone, Debug)] pub enum $Command {
-    Enqueue(Option<Arc<RwLock<MidiClip>>>),
+            $($Variant $(($($Param),+))?),*
-    History(isize),
+        })*
-    Input(InputCommand),
+    }
-    Launch,
-    Output(OutputCommand),
-    Pool(PoolCommand),
-    Sampler(SamplerCommand),
-    Scene(SceneCommand),
-    Select(Selection),
-    StopAll,
-    Track(TrackCommand),
-    Zoom(Option<usize>),
 }
-#[derive(Clone, Debug)] pub enum InputCommand {
+
-    Add
+defcom! {
-}
+    TekCommand {
-#[derive(Clone, Debug)] pub enum OutputCommand {
+        Clip(ClipCommand)
-    Add
+        Clock(ClockCommand)
-}
+        Color(ItemPalette)
-#[derive(Clone, Debug)] pub enum TrackCommand {
+        Edit(Option<bool>)
-    Add,
+        Editor(MidiEditCommand)
-    Del(usize),
+        Enqueue(Option<Arc<RwLock<MidiClip>>>)
-    Stop(usize),
+        History(isize)
-    Swap(usize, usize),
+        Input(InputCommand)
-    SetSize(usize),
+        Launch
-    SetZoom(usize),
+        Output(OutputCommand)
-    SetColor(usize, ItemPalette),
+        Pool(PoolCommand)
-    TogglePlay,
+        Sampler(SamplerCommand)
-    ToggleSolo,
+        Scene(SceneCommand)
-    ToggleRecord,
+        Select(Selection)
-    ToggleMonitor,
+        StopAll
-}
+        Track(TrackCommand)
-#[derive(Clone, Debug)] pub enum SceneCommand {
+        Zoom(Option<usize>)
-    Add,
+    }
-    Del(usize),
+    InputCommand {
-    Swap(usize, usize),
+        Add
-    SetSize(usize),
+    }
-    SetZoom(usize),
+    OutputCommand {
-    SetColor(usize, ItemPalette),
+        Add
-    Enqueue(usize),
+    }
-}
+    TrackCommand {
-#[derive(Clone, Debug)] pub enum ClipCommand {
+        Add
-    Get(usize, usize),
+        Del(usize)
-    Put(usize, usize, Option<Arc<RwLock<MidiClip>>>),
+        Stop(usize)
-    Enqueue(usize, usize),
+        Swap(usize, usize)
-    Edit(Option<Arc<RwLock<MidiClip>>>),
+        SetSize(usize)
-    SetLoop(usize, usize, bool),
+        SetZoom(usize)
-    SetColor(usize, usize, ItemPalette),
+        SetColor(usize, ItemPalette)
+        TogglePlay
+        ToggleSolo
+        ToggleRecord
+        ToggleMonitor
+    }
+    SceneCommand {
+        Add
+        Del(usize)
+        Swap(usize, usize)
+        SetSize(usize)
+        SetZoom(usize)
+        SetColor(usize, ItemPalette)
+        Enqueue(usize)
+    }
+    ClipCommand {
+        Get(usize, usize)
+        Put(usize, usize, Option<Arc<RwLock<MidiClip>>>)
+        Enqueue(usize, usize)
+        Edit(Option<Arc<RwLock<MidiClip>>>)
+        SetLoop(usize, usize, bool)
+        SetColor(usize, usize, ItemPalette)
+    }
 }
+
 command!(|self: TekCommand, app: Tek|match self {
     Self::Zoom(_) => { println!("\n\rtodo: global zoom"); None },
     Self::History(delta) => { println!("\n\rtodo: undo/redo"); None },