Remove positions of suspended card from review

1 files changed, 5 insertions, 0 deletions

diff --git a/org-fc.el b/org-fc.el
index cfd240b..4450d11 100644
--- a/org-fc.el
+++ b/org-fc.el
@@ -1961,6 +1961,11 @@ same ID as the current card in the session."
   "Suspend card and proceed to next."
   (interactive)
   (org-fc-suspend-card)
+  ;; Remove all other positions from review session
+  (with-slots (current-item cards) org-fc--session
+    (let ((id (plist-get current-item :id)))
+      (setf cards (remove-if (lambda (card)
+                               (string= id (plist-get card :id))) cards))))
   (org-fc-review-reset)
   (org-fc-review-next-card))