unspeaker/tek
1
0
Fork 0
mirror of https://codeberg.org/unspeaker/tek.git synced 2025-12-06 03:36:41 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

0.2.2: don't crash on 't' key (thx @magicpotatobean)
Some checks failed
/ build (push) Has been cancelled
Details

Browse source
This commit is contained in:
🪞👃🪞 2025-05-09 02:05:01 +03:00
parent 46760bf8f0
commit 36fe332967
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
crates/app/src/api.rs
View file

@ -80,6 +80,12 @@ expose!([self: Tek] {
Selection::Clip(0, s) => Selection::Scene(s), Selection::Clip(0, s) => Selection::Scene(s),
Selection::Clip(t, s) => Selection::Clip(t - 1, s), Selection::Clip(t, s) => Selection::Clip(t - 1, s),
}, },
":track-header" => match self.selected {
Selection::Mix => Selection::Mix,
Selection::Scene(s) => Selection::Mix,
Selection::Track(t) => Selection::Track((t + 1) % self.tracks.len()),
Selection::Clip(t, _) => Selection::Track((t + 1) % self.tracks.len()),
},
} }
}); });
@ -126,13 +132,6 @@ impose!([app: Tek] {
OutputCommand::try_from_expr(app, a).map(Self::Output)) OutputCommand::try_from_expr(app, a).map(Self::Output))
("select" [t: Selection] ("select" [t: Selection]
Some(t.map(Self::Select).expect("no selection"))) Some(t.map(Self::Select).expect("no selection")))
("select" [t: usize, s: usize]
Some(match (t.expect("no track"), s.expect("no scene")) {
(0, 0) => Self::Select(Selection::Mix),
(t, 0) => Self::Select(Selection::Track(t)),
(0, s) => Self::Select(Selection::Scene(s)),
(t, s) => Self::Select(Selection::Clip(t, s)),
}))
} }
ClipCommand => { ClipCommand => {

3
crates/cli/edn/arranger_keys.edn
View file

@ -2,7 +2,6 @@
(@shift-u redo 1) (@shift-u redo 1)
(@space clock toggle) (@space clock toggle)
(@shift-space clock toggle 0) (@shift-space clock toggle 0)
(@t select :track 0)
(@tab edit :clip) (@tab edit :clip)
(@c color) (@c color)
(@q launch) (@q launch)
@ -19,3 +18,5 @@
(@a select :track-prev) (@a select :track-prev)
(@right select :track-next) (@right select :track-next)
(@d select :track-next) (@d select :track-next)
(@t select :track-header)