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

menu works lol
Some checks are pending
/ build (push) Waiting to run
Details

Browse source
This commit is contained in:
🪞👃🪞 2025-08-24 01:44:18 +03:00
parent cfd19062fd
commit 559d2fc4a1
7 changed files with 125 additions and 72 deletions
Download patch file Download diff file Expand all files Collapse all files

46
tek.edn
View file

@ -1,12 +1,18 @@
(mode :menu (keys :y :confirm) :menu)
(keys :x (@left x/dec) (@right x/inc))
(keys :y (@up y/dec) (@down y/inc))
(keys :axis/x (@left x/dec) (@right x/inc))
(keys :axis/x2 (@shift/left x2/dec) (@shift/right x2/inc))
(keys :axis/y (@up y/dec) (@down y/inc))
(keys :axis/y2 (@shift/up y2/dec) (@shift/down y2/inc))
(keys :axis/z (@minus z/dec) (@equal z/inc))
(keys :axis/z2 (@underscore z2/dec) (@plus z2/inc))
(keys :axis/i (@comma i/dec) (@period z/inc))
(keys :axis/i2 (@lt i2/dec) (@gt z2/inc))
(keys :axis/w (@openbracket w/dec) (@closebracket w/inc))
(keys :axis/w2 (@openbrace w2/dec) (@closebrace w2/inc))
(mode :menu (keys :axis/y :confirm) :menu)
(keys :confirm (@enter confirm))
(view :menu (bg (g 40) (bsp/s :ports/out (bsp/n :ports/in
(bg (g 30) (fill/xy (align/c (bg (g 40) (bsp/s
(text CONTINUE-SESSION)
(bsp/s (text LOAD-OTHER-SESSION)
(text BEGIN-NEW-SESSION)))))))))))
(bg (g 30) (fill/xy (align/c :dialog/menu)))))))
(view :ports/out (fill/x (fixed/y 3 (bsp/a (fill/x (align/w (text L-AUDIO-OUT)))
(bsp/a (text MIDI-OUT) (fill/x (align/e (text AUDIO-OUT R))))))))
(view :ports/in (fill/x (fixed/y 3 (bsp/a (fill/x (align/w (text L-AUDIO-IN)))
@ -16,18 +22,10 @@
(keys :help (@f1 dialog :help))
(keys :back (@escape back))
(keys :page (@pgup page/up) (@pgdn page/down))
(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))
(keys :length (see :x :y :confirm))
(keys :input (see :axis/x :delete) (:char input))
(keys :list (see :axis/y :confirm))
(keys :length (see :axis/x :axis/y :confirm))
(keys :browse (see :list :input :focus))
(keys :history (@u undo 1) (@r redo 1))
(keys :clock (@space clock/toggle 0) (@shift/space clock/toggle 0))
@ -80,15 +78,15 @@
(@up select :select/scene/dec)
(@down select :select/scene/inc))
(keys :track (see :color :launch :z :z2 :delete)
(keys :track (see :color :launch :axis/z :axis/z2 :delete)
(@r toggle :rec)
(@m toggle :mon)
(@p toggle :play)
(@P toggle :solo))
(keys :scene (see :color :launch :z :z2 :delete))
(keys :scene (see :color :launch :axis/z :axis/z2 :delete))
(keys :clip (see :color :launch :z :z2 :delete)
(keys :clip (see :color :launch :axis/z :axis/z2 :delete)
(@l toggle :loop))
(mode :groovebox
@ -154,13 +152,13 @@
(keys :sequencer (see :color :launch)
(@shift/I input/add)
(@shift/O output/add))
(keys :pool (see :axis-y :axis-w :z2 :color :delete)
(keys :pool (see :axis-y :axis-w :axis/z2 :color :delete)
(@n rename/begin) (@t length/begin) (@m import/begin) (@x export/begin)
(@shift/A clip/add :after :new/clip)
(@shift/D clip/add :after :cloned/clip))
(keys :editor (see :editor/view :editor/note))
(keys :editor/view (see :x :x2 :z :z2)
(keys :editor/view (see :axis/x :axis/x2 :axis/z :axis/z2)
(@z toggle :lock))
(keys :editor/note (see :i :i2 :y :page)
(keys :editor/note (see :axis/i :axis/i2 :axis/y :page)
(@a editor/append :true) (@enter editor/append :false)
(@del editor/delete/note) (@shift/del editor/delete/note))