diff options
author | Thomas White <taw@bitwiz.me.uk> | 2020-12-23 11:02:46 +0100 |
---|---|---|
committer | Thomas White <taw@bitwiz.me.uk> | 2020-12-23 11:02:46 +0100 |
commit | 0b6dc4c62134c6ad3e94ca2493f9500bb78462b0 (patch) | |
tree | 00d0a6645d417680de23370f4b6f4ec29b656655 /guile | |
parent | 135204a4f7a05b661c083cc19c128321c1050074 (diff) |
Move 'guile-midi' into Starlet namespace
Diffstat (limited to 'guile')
-rw-r--r-- | guile/starlet/midi-control/base.scm (renamed from guile/guile-midi/control.scm) | 2 | ||||
-rw-r--r-- | guile/starlet/midi-control/playback-buttons.scm | 26 |
2 files changed, 27 insertions, 1 deletions
diff --git a/guile/guile-midi/control.scm b/guile/starlet/midi-control/base.scm index 548eead..e77e969 100644 --- a/guile/guile-midi/control.scm +++ b/guile/starlet/midi-control/base.scm @@ -1,4 +1,4 @@ -(define-module (guile-midi control) +(define-module (starlet midi-control base) #:use-module (oop goops) #:use-module (ice-9 atomic) #:use-module (ice-9 threads) diff --git a/guile/starlet/midi-control/playback-buttons.scm b/guile/starlet/midi-control/playback-buttons.scm new file mode 100644 index 0000000..a28293a --- /dev/null +++ b/guile/starlet/midi-control/playback-buttons.scm @@ -0,0 +1,26 @@ +(define-module (starlet midi-control playback-buttons) + #:use-module (starlet midi-control base) + #:use-module (starlet playback) + #:export (make-midi-playback-buttons)) + + +(define (make-midi-playback-buttons playback + chan + go-led-note + go-button-note + stop-led-note + stop-button-note) + (let ((go-led (make-midi-led #:channel chan + #:note-number go-led-note)) + (stop-led (make-midi-led #:channel chan + #:note-number stop-led-note))) + (set-midi-led! go-led #t) + (set-midi-led! stop-led #t) + (register-midi-note-callback! + #:channel chan + #:note-number go-button-note + #:func (lambda () (go! playback))) + (register-midi-note-callback! + #:channel chan + #:note-number stop-button-note + #:func (lambda () (display "Stop/back!\n"))))) |