From 973a16a9561f1ed2fd7e4c5c614b5e5d15715b12 Mon Sep 17 00:00:00 2001
From: Leon Rische <leon.rische@me.com>
Date: Tue, 27 Sep 2022 20:31:27 +0200
Subject: Make audio play command interactive

---
 org-fc-audio.el | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'org-fc-audio.el')

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))))
 
-- 
cgit v1.2.3