bind t to a new function #'play-this-beat, which plays the beat at point.
1 files changed, 7 insertions(+), 0 deletions(-)

M zmusic.el
M zmusic.el +7 -0
@@ 361,6 361,7 @@ Use SAMPLE-RATE, and SAMPLE-SIZE."
   (define-key zmusic-mode-map (kbd "f") #'zmusic/forward-degree)
   (define-key zmusic-mode-map (kbd "s") #'zmusic/set-beat)
   (define-key zmusic-mode-map (kbd "c") #'zmusic/count-beat)
+  (define-key zmusic-mode-map (kbd "t") #'zmusic/play-this-beat)
   (define-key zmusic-mode-map (kbd "r") #'zmusic/replay-beat)
   (define-key zmusic-mode-map (kbd "k") #'zmusic/kill-beat)
   (define-key zmusic-mode-map (kbd "y") #'zmusic/yank-beat)

          
@@ 634,6 635,12 @@ After it is played, highlight the beat a
   (interactive)
   (zmusic//play-beat))
 
+(defun zmusic/play-this-beat ()
+  "Play the beat at point."
+  (interactive)
+  (zmusic/set-beat)
+  (zmusic//play-beat))
+
 (defun zmusic//get-beat (beat-number)
   "Get the BEAT-NUMBERth beat.