util  Diff

Differences From Artifact [567adb1f1f]:

• File ostinata/ostinata.janet — part of check-in [5422ffcfca] at 2025-03-14 17:35:14 on branch trunk — add some instruments, fix some bugs (piano is not real yet) (user: lexi, size: 19517) [annotate] [blame] [check-ins using]

To Artifact [25682f4541]:

• File ostinata/ostinata.janet — part of check-in [a597ad7ee7] at 2025-03-14 19:27:19 on branch trunk — add docs (user: lexi, size: 19528) [annotate] [blame] [check-ins using]

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