From 237da91faa143dee8772f9989943f799f9b2654a Mon Sep 17 00:00:00 2001
From: Leon Rische <leon.rische@me.com>
Date: Thu, 16 Jul 2020 12:28:52 +0200
Subject: Remove positions of suspended card from review

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

(limited to 'org-fc.el')

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