diff --git a/midi/src/keys_edit.edn b/midi/src/keys_edit.edn index 71395856..d8c75f5b 100644 --- a/midi/src/keys_edit.edn +++ b/midi/src/keys_edit.edn @@ -1,12 +1,16 @@ (@up note/pos :note-pos-next) +(@w note/pos :note-pos-next) (@down note/pos :note-pos-prev) +(@s note/pos :note-pos-prev) (@comma note/len :note-len-prev) (@period note/len :note-len-next) (@plus note/range :note-range-next-) (@underscore note/range :note-range-prev-) (@left time/pos :time-pos-prev) +(@a time/pos :time-pos-prev) (@right time/pos :time-pos-next) +(@d time/pos :time-pos-next) (@equal time/zoom :time-zoom-prev) (@minus time/zoom :time-zoom-next) (@z time/lock) diff --git a/tek/src/keys_clip.edn b/tek/src/keys_clip.edn index cb908c88..21b9b319 100644 --- a/tek/src/keys_clip.edn +++ b/tek/src/keys_clip.edn @@ -1,7 +1,11 @@ (@up select :track :scene-prev) +(@w select :track :scene-prev) (@down select :track :scene-next) +(@s select :track :scene-next) (@left select :track-prev :scene) +(@a select :track-prev :scene) (@right select :track-next :scene) +(@d select :track-next :scene) (@q enqueue :clip) (@c clip color) diff --git a/tek/src/keys_mix.edn b/tek/src/keys_mix.edn index 2126b683..7b9139fd 100644 --- a/tek/src/keys_mix.edn +++ b/tek/src/keys_mix.edn @@ -1,2 +1,5 @@ (@down select 0 1) +(@s select 0 1) + (@right select 1 0) +(@d select 1 0) diff --git a/tek/src/keys_scene.edn b/tek/src/keys_scene.edn index 5553ae2e..60a45d57 100644 --- a/tek/src/keys_scene.edn +++ b/tek/src/keys_scene.edn @@ -1,6 +1,9 @@ (@up select :track :scene-prev) +(@w select :track :scene-prev) (@down select :track :scene-next) +(@s select :track :scene-next) (@right select :track-next :scene) +(@d select :track-next :scene) (@q scene launch) (@c scene color) diff --git a/tek/src/keys_track.edn b/tek/src/keys_track.edn index 28cff8d1..39fe6a32 100644 --- a/tek/src/keys_track.edn +++ b/tek/src/keys_track.edn @@ -1,6 +1,9 @@ (@left select :track-prev :scene) +(@a select :track-prev :scene) (@right select :track-next :scene) +(@d select :track-next :scene) (@down select :track :scene-next) +(@s select :track :scene-next) (@q track launch) (@c track color) diff --git a/tek/src/lib.rs b/tek/src/lib.rs index b46155a4..8a12e0b1 100644 --- a/tek/src/lib.rs +++ b/tek/src/lib.rs @@ -655,7 +655,7 @@ edn_command!(TekCommand: |app: Tek| { (0, s) => Self::Select(Selection::Scene(s)), (t, s) => Self::Select(Selection::Clip(t, s)), }) - ("clip" [a, ..b] Self::Clip(ClipCommand::from_edn(app, &a.to_ref(), b) + ("clip" [a, b, ..c] Self::Clip(ClipCommand::from_edn(app, &b.to_ref(), c) .expect("invalid command"))) ("clock" [a, ..b] Self::Clock(ClockCommand::from_edn(app.clock(), &a.to_ref(), b) .expect("invalid command")))