Remove positions of suspended card from review

2 files changed, 20 insertions, 0 deletions

diff --git a/Changelog.org b/Changelog.org
index 185e909..8e3f72a 100644
--- a/Changelog.org
+++ b/Changelog.org
@@ -5,6 +5,21 @@ upcoming changes.
 In case a update to the org sources is needed, I'll add a changelog
 entry with updating instructions.
 
+** [2020-07-16 Thu]
+*** Changed
+- Suspending a card during review now removes all other positions of
+  it from the current session, to avoid reviewing suspended cards
+** [2020-07-08 Wed]
+*** Changed
+The awk index now also includes the headline text of each card.
+
+This will be useful for building a ~tabulated-list-mode~ based card
+overview.
+** [2020-07-06 Mon]
+*** Added
+- ~org-fc-suspend-tree~ for suspending all cards in a subtree
+*** Changed
+- unsuspending overdue cards doesn't reset their review data anymore
 ** [2020-07-04 Sat]
 *** Added
 - ~org-fc-review-edit~ (bound to ~p~) pauses the review for editing
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))