diff options
author | Leon Rische <leon.rische@me.com> | 2020-07-16 12:28:52 +0200 |
---|---|---|
committer | Leon Rische <leon.rische@me.com> | 2020-07-16 12:28:52 +0200 |
commit | 237da91faa143dee8772f9989943f799f9b2654a (patch) | |
tree | 2ed51b02dc7a59e0b1594c4f67c4dfdb3bed603f /org-fc.el | |
parent | 810d52f12fd58020530478a9bccc066e10549839 (diff) |
Remove positions of suspended card from review
Diffstat (limited to 'org-fc.el')
-rw-r--r-- | org-fc.el | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -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)) |