diff options
author | Leon Rische <leon.rische@me.com> | 2022-09-27 20:31:27 +0200 |
---|---|---|
committer | Leon Rische <leon.rische@me.com> | 2022-09-27 20:31:27 +0200 |
commit | 973a16a9561f1ed2fd7e4c5c614b5e5d15715b12 (patch) | |
tree | e328ad6e1018110f2b7b8ad4f9f796bd41ba53ea /org-fc-audio.el | |
parent | e31fada906bbcdebc4f0fd88b68f9921264726c0 (diff) |
Make audio play command interactive
Diffstat (limited to 'org-fc-audio.el')
-rw-r--r-- | org-fc-audio.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/org-fc-audio.el b/org-fc-audio.el index 2774603..bd2569f 100644 --- a/org-fc-audio.el +++ b/org-fc-audio.el @@ -76,6 +76,13 @@ "Play the audio of the current card. Look up the file from PROPERTY. If SPEED is non-nil, play back the file at the given speed." + (interactive + (list + (completing-read + "Type: " + `(,org-fc-audio-before-setup-property + ,org-fc-audio-after-setup-property + ,org-fc-audio-after-flip-property)))) (if-let ((file (org-entry-get (point) property))) (org-fc-audio-play-file file (or speed 1.0)))) |