# HG changeset patch
# User Zachary Kanfer <zkanfer@gmail.com>
# Date 1620540637 14400
#      Sun May 09 02:10:37 2021 -0400
# Node ID 3f9c1080ceb156cdcec3b0c09bcc60d563dd3206
# Parent  3eba99459ffbdd80d4b309635e5af577dde02644
bind t to a new function #'play-this-beat, which plays the beat at point.

diff --git a/zmusic.el b/zmusic.el
--- a/zmusic.el
+++ b/zmusic.el
@@ -361,6 +361,7 @@
   (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 @@
   (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.