From 686ccd64ad09504592c8cc2c63406a0538174828 Mon Sep 17 00:00:00 2001
From: Leon Rische <leon.rische@me.com>
Date: Fri, 3 Jul 2020 14:03:48 +0200
Subject: Append failed cards to review session

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

(limited to 'org-fc.el')

diff --git a/org-fc.el b/org-fc.el
index 9d55126..a9797a6 100644
--- a/org-fc.el
+++ b/org-fc.el
@@ -69,6 +69,11 @@ Used to generate absolute paths to the awk scripts.")
   :type 'boolean
   :group 'org-fc)
 
+(defcustom org-fc-append-failed-cards t
+  "Add failed cards to the end of the review session."
+  :type 'boolean
+  :group 'org-fc)
+
 ;;;; Org Tags / Properties
 
 (defcustom org-fc-type-property "FC_TYPE"
@@ -1533,6 +1538,11 @@ EASE, BOX and INTERVAL are the current parameters of the card."
     (setf (oref session current-item) card)
     card))
 
+(defun org-fc-session-append-card (session card)
+  "Append CARD to the cards of SESSION."
+  (with-slots (cards) session
+    (setf cards (append cards (list card)))))
+
 (defun org-fc-session-add-rating (session rating)
   "Store RATING in the review history of SESSION."
   (with-slots (ratings) session
@@ -1879,6 +1889,10 @@ same ID as the current card in the session."
           (org-fc-session-add-rating org-fc-review--current-session rating)
           (org-fc-review-update-data path id position rating delta)
           (org-fc-review-reset)
+
+          (if (and (eq rating 'again) org-fc-append-failed-cards)
+              (org-fc-session-append-card org-fc-review--current-session card))
+
           (save-buffer)
           (if org-fc-reviewing-existing-buffer
              (org-fc-review-reset)
-- 
cgit v1.2.3