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

wip: need to reimplement strings in the dsl
Some checks are pending
/ build (push) Waiting to run
Details

Browse source
This commit is contained in:
🪞👃🪞 2025-08-22 23:16:23 +03:00
parent 0d7998a5a8
commit fa5f67f010
8 changed files with 714 additions and 688 deletions
Download patch file Download diff file Expand all files Collapse all files

33
tek.edn
View file

@ -1,3 +1,7 @@
(mode :menu (keys :x :y :confirm) :menu)
(keys :x (@left x/dec) (@right x/inc))
(keys :y (@up y/dec) (@down y/inc))
(keys :confirm (@enter confirm))
(view :menu (bg :color/bg (bsp/s :ports/out (bsp/n :ports/in (bsp/e :sessions :templates)))))
(view :ports/out (fill/x (fixed/y 3 (bsp/a (fill/x (align/w "L AUDIO OUT")
(bsp/a "MIDI OUT" (fill/x (align/e "AUDIO OUT R"))))))))
@ -7,18 +11,15 @@
(keys :help (@f1 dialog :help))
(keys :back (@escape back))
(keys :confirm (@enter confirm))
(keys :page (@pgup page/up) (@pgdn page/down))
(keys :x (@left x/prev) (@right x/next))
(keys :x2 (@shift/left x2/prev) (@shift/right x2/next))
(keys :y (@up y/prev) (@down y/next))
(keys :y2 (@shift/up y2/prev) (@shift/down y2/next))
(keys :z (@minus z/prev) (@equal z/next))
(keys :z2 (@underscore z2/prev) (@plus z2/next))
(keys :i (@comma i/prev) (@period z/next))
(keys :i2 (@lt i2/prev) (@gt z2/next))
(keys :w (@openbracket w/prev) (@closebracket w/next))
(keys :w2 (@openbrace w2/prev) (@closebrace w2/next))
(keys :x2 (@shift/left x2/dec) (@shift/right x2/inc))
(keys :y2 (@shift/up y2/dec) (@shift/down y2/inc))
(keys :z (@minus z/dec) (@equal z/inc))
(keys :z2 (@underscore z2/dec) (@plus z2/inc))
(keys :i (@comma i/dec) (@period z/inc))
(keys :i2 (@lt i2/dec) (@gt z2/inc))
(keys :w (@openbracket w/dec) (@closebracket w/inc))
(keys :w2 (@openbrace w2/dec) (@closebrace w2/inc))
(keys :delete (@delete delete) (@backspace delete/back))
(keys :input (see :x :delete) (:char input))
(keys :list (see :y :confirm))
@ -66,14 +67,14 @@
(@shift/D dialog/show :dialog/device))
(keys :tracks
(@t select :select/track)
(@left select :select/track/prev)
(@right select :select/track/next))
(@t select :select/track)
(@left select :select/track/dec)
(@right select :select/track/inc))
(keys :scenes
(@s select :select/scene)
(@up select :select/scene/prev)
(@down select :select/scene/next))
(@up select :select/scene/dec)
(@down select :select/scene/inc))
(keys :track (see :color :launch :z :z2 :delete)
(@r toggle :rec)