wip: new error

tek.edn

@@ -1,146 +1,161 @@
+(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"))))))))
+(view :ports/in (fill/x (fixed/y 3 (bsp/a (fill/x (align/w "L AUDIO IN ")
+  (bsp/a "MIDI IN " (fill/x (align/e "AUDIO IN  R"))))))))
+(view :browse (bsp/s (padding/xy 3 1 :browse-title) (enclose (fg (g 96)) browser)))
+
 (keys :help      (@f1     dialog :help))
 (keys :back      (@escape back))
 (keys :confirm   (@enter  confirm))
 (keys :page      (@pgup       page/up) (@pgdn      page/down))
-(keys :axis/x    (@left        x/prev) (@right        x/next))
-(keys :axis/x2   (@shift/left x2/prev) (@shift/right x2/next))
-(keys :axis/y    (@up          y/prev) (@down         y/next))
-(keys :axis/y2   (@shift/up   y2/prev) (@shift/down  y2/next))
-(keys :axis/z    (@minus       z/prev) (@equal        z/next))
-(keys :axis/z2   (@underscore z2/prev) (@plus        z2/next))
-(keys :axis/i    (@comma       i/prev) (@period       z/next))
-(keys :axis/i2   (@lt         i2/prev) (@gt          z2/next))
-(keys :axis/w    (@openbracket w/prev) (@closebracket w/next))
-(keys :axis/w2   (@openbrace  w2/prev) (@closebrace  w2/next))
-(keys :delete    (@delete    delete))
-(keys :backspace (@backspace delete/back))
-(keys :input     (see :delete :axis/x :backspace) (:char input))
-(keys :length    (see :confirm :axis/y :axis/x))
-(keys :list      (see :confirm :axis/y))
+(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 :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 :browse    (see :list :input :focus))
-(keys :focus)
 (keys :history   (@u undo 1) (@r redo 1))
 (keys :clock     (@space clock/toggle 0) (@shift/space clock/toggle 0))
 (keys :color     (@c color))
 (keys :launch    (@q launch))
 (keys :saveload  (@f6 dialog :save) (@f9 dialog :load))
 (keys :global    (see :history :saveload) (@f8 dialog :options) (@f10 dialog :quit))
+(keys :focus)
 
-(mode :transport
-      (name Transport)
-      (info A JACK transport controller.)
-      (keys :clock :global)
-      :transport)
+(mode :transport (name Transport)
+  (info A JACK transport controller.)
+  (keys :clock :global)
+  (view :transport))
 
 (mode :arranger
-      (name Arranger)
-      (info A grid of launchable clips arranged by track and scene.)
-      (when :mode/editor     (keys :editor))
-      (when :mode/dialog     (keys :dialog))
-      (when :mode/message    (keys :message))
-      (when :mode/add-device (keys :add-device))
-      (when :mode/browse     (keys :browse))
-      (when :mode/rename     (keys :pool/rename))
-      (when :mode/length     (keys :pool/length))
-      (when :mode/clip       (keys :clip))
-      (when :mode/track      (keys :track))
-      (when :mode/scene      (keys :scene))
-      (when :mode/mix        (keys :mix))
-      (keys :clock :arranger :global)
-      (bsp/w :meters/output (bsp/e :meters/input (stack/n
-        (fixed/y 2 :status/h2) :tracks/inputs (stack/s
-          :tracks/devices :tracks/outputs :tracks/names
-          (fill/xy (either :mode/editor (bsp/e :scenes/names :editor) :scenes)))))))
+  (name Arranger)
+  (info A grid of launchable clips arranged by track and scene.)
+  (mode :editor     (keys :editor))
+  (mode :dialog     (keys :dialog))
+  (mode :message    (keys :message))
+  (mode :add-device (keys :add-device))
+  (mode :browse     (keys :browse))
+  (mode :rename     (keys :input))
+  (mode :length     (keys :rename))
+  (mode :clip       (keys :clip))
+  (mode :track      (keys :track))
+  (mode :scene      (keys :scene))
+  (mode :mix        (keys :mix))
+  (keys :clock :arranger :global)
+  (view :arranger))
+
+(view :arranger (bsp/w :meters/output (bsp/e :meters/input (stack/n
+  (fixed/y 2 :status/h2) :tracks/inputs (stack/s
+    :tracks/devices :tracks/outputs :tracks/names
+    (fill/xy (either :mode/editor (bsp/e :scenes/names :editor) :scenes)))))))
 
 (keys :arranger (see :color :launch :scenes :tracks)
-      (@tab project/edit) (@enter project/edit)
-      (@shift/I project/input/add) (@shift/O project/output/add)
-      (@shift/S project/scene/add) (@shift/T project/track/add)
-      (@shift/D dialog/show :dialog/device))
+  (@tab project/edit) (@enter project/edit)
+  (@shift/I project/input/add) (@shift/O project/output/add)
+  (@shift/S project/scene/add) (@shift/T project/track/add)
+  (@shift/D dialog/show :dialog/device))
 
 (keys :tracks
-      (@t select :select/track)
-      (@left select :select/track/prev)
-      (@right select :select/track/next))
-
-(keys :track (see :color :launch :axis/z :axis/z2 :delete)
-      (@r toggle :rec)
-      (@m toggle :mon)
-      (@p toggle :play)
-      (@P toggle :solo))
+  (@t select :select/track)
+  (@left select :select/track/prev)
+  (@right select :select/track/next))
 
 (keys :scenes
-      (@s    select :select/scene)
-      (@up   select :select/scene/prev)
-      (@down select :select/scene/next))
+  (@s    select :select/scene)
+  (@up   select :select/scene/prev)
+  (@down select :select/scene/next))
 
-(keys :scene (see :color :launch :axis/z :axis/z2 :delete))
+(keys :track (see :color :launch :z :z2 :delete)
+  (@r toggle :rec)
+  (@m toggle :mon)
+  (@p toggle :play)
+  (@P toggle :solo))
 
-(keys :clip (see :color :launch :axis/z :axis/z2 :delete)
-      (@l toggle :loop))
+(keys :scene (see :color :launch :z :z2 :delete))
+
+(keys :clip  (see :color :launch :z :z2 :delete)
+  (@l toggle :loop))
 
 (mode :groovebox
-      (name Groovebox)
-      (info A sequencer with built-in sampler.)
-      (when :mode/browse (keys :browse))
-      (when :mode/rename (keys :pool-rename))
-      (when :mode/length (keys :pool-length))
-      (keys :clock :editor :sampler :global)
-      (bsp/w :meters/output (bsp/e :meters/input (bsp/w
-        (fill/y (align/n
-          (stack/s :midi-ins/status :midi-outs/status :audio-ins/status :audio-outs/status :pool)))
-        (bsp/n
-          (fixed/y :h-sample-detail (bsp/e
-            (fill/y (fixed/x 20 (align/nw :sample-status)))
-            :sample-viewer))
-          (bsp/e (fill/y (align/n (bsp/s :status/v :editor-status)))
-                 (bsp/e :samples/keys :editor)))))))
+  (name Groovebox)
+  (info A sequencer with built-in sampler.)
+  (mode browse (keys :browse))
+  (mode rename (keys :pool-rename))
+  (mode length (keys :pool-length))
+  (keys :clock :editor :sampler :global)
+  (view :groovebox))
+
+(view :groovebox (bsp/w :meters/output (bsp/e :meters/input (bsp/w
+  (fill/y (align/n
+    (stack/s :midi-ins/status :midi-outs/status :audio-ins/status :audio-outs/status :pool)))
+  (bsp/n
+    (fixed/y :h-sample-detail (bsp/e
+      (fill/y (fixed/x 20 (align/nw :sample-status)))
+      :sample-viewer))
+    (bsp/e (fill/y (align/n (bsp/s :status/v :editor-status)))
+           (bsp/e :samples/keys :editor)))))))
 
 (mode :sampler
-      (name Sampler)
-      (info A sampling soundboard.)
-      (keys :sampler :global)
-      (bsp/s (fixed/y 1 :transport) (bsp/n (fixed/y 1 :status) (fill/xy :samples/grid))))
+  (name Sampler)
+  (info A sampling soundboard.)
+  (keys :sampler :global)
+  (view :sampler))
+
+(view :sampler
+  (bsp/s (fixed/y 1 :transport) (bsp/n (fixed/y 1 :status) (fill/xy :samples/grid))))
 
 (keys :sampler
-      (see :sampler/directions :sampler/record :sampler/play))
+  (see :sampler/directions :sampler/record :sampler/play))
 (keys :sampler/play
-      (@p sampler/play/sample :sample/selected)
-      (@P sampler/stop/sample :sample/selected))
+  (@p sampler/play/sample :sample/selected)
+  (@P sampler/stop/sample :sample/selected))
 (keys :sampler/record
-      (@r       sampler/record/toggle :sample/selected)
-      (@shift/R sampler/record/back))
+  (@r       sampler/record/toggle :sample/selected)
+  (@shift/R sampler/record/back))
 (keys :sampler/import-export
-      (@shift/f6 dialog :dialog/export/sample)
-      (@shift/f9 dialog :dialog/import/sample))
+  (@shift/f6 dialog :dialog/export/sample)
+  (@shift/f9 dialog :dialog/import/sample))
 (keys :sampler/directions
-      (@up    sampler/select :sample/above)
-      (@down  sampler/select :sample/below)
-      (@left  sampler/select :sample/to/left)
-      (@right sampler/select :sample/to/right))
+  (@up    sampler/select :sample/above)
+  (@down  sampler/select :sample/below)
+  (@left  sampler/select :sample/to/left)
+  (@right sampler/select :sample/to/right))
 
 (mode :sequencer
-      (name Sequencer)
-      (info A MIDI sequencer.)
-      (when :mode/browse (keys :browse))
-      (when :mode/rename (keys :pool/rename))
-      (when :mode/length (keys :pool/length))
-      (keys :editor :clock :global)
-      (bsp/s (fixed/y 1 :transport)
-             (bsp/n (fixed/y 1 :status)
-                    (fill/xy (bsp/a (fill/xy (align/e :pool))
-                             :editor)))))
+  (name Sequencer)
+  (info A MIDI sequencer.)
+  (mode browse (keys :browse))
+  (mode rename (keys :pool/rename))
+  (mode length (keys :pool/length))
+  (keys :editor :clock :global)
+  (view :sequencer))
+
+(view :sequencer (bsp/s
+  (fixed/y 1 :transport)
+  (bsp/n (fixed/y 1 :status)
+    (fill/xy (bsp/a (fill/xy (align/e :pool))
+      :editor)))))
 
 (keys :sequencer (see :color :launch)
-      (@shift/I input/add)
-      (@shift/O output/add))
-(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))
+  (@shift/I input/add)
+  (@shift/O output/add))
+(keys :pool (see :axis-y :axis-w :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 :axis/x :axis/x2 :axis/z :axis/z2)
-      (@z toggle :lock))
-(keys :editor/note (see :axis/i :axis/i2 :axis/y :axis/page)
-      (@a editor/append :true) (@enter editor/append :false)
-      (@del editor/delete/note) (@shift/del editor/delete/note))
+(keys :editor/view (see :x :x2 :z :z2)
+  (@z toggle :lock))
+(keys :editor/note (see :i :i2 :y :page)
+  (@a editor/append :true) (@enter editor/append :false)
+  (@del editor/delete/note) (@shift/del editor/delete/note))