360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
|
(defn commit-unless-shift []
(unless (string/check-set (event :mods) :s)
(commit-score)))
(match event
{:how :press :key (@ (comptime ("q" 0)))}
(do (stop-all-notes)
(:set-mode env :cmd)
(commit-unless-shift))
{:how :press :key (@ (comptime ("r" 0)))}
(do (stop-all-notes)
(toggle rec)
(if rec (start-clock) (stop-clock))
(commit-unless-shift))
{:how :press :key :shift-l} (+= loud 1)
{:how :release :key :shift-l} (-= loud 1)
|
|
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
|
(defn commit-unless-shift []
(unless (string/check-set (event :mods) :s)
(commit-score)))
(match event
{:how :press :key (@ (comptime ("q" 0)))}
(do (stop-all-notes)
(when rec (commit-unless-shift))
(:set-mode env :cmd))
{:how :press :key (@ (comptime ("r" 0)))}
(do (stop-all-notes)
(toggle rec)
(if rec (start-clock) (stop-clock))
(commit-unless-shift))
{:how :press :key :shift-l} (+= loud 1)
{:how :release :key :shift-l} (-= loud 1)
|