[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-drill 7806c770d6 011/251: Added ability to skip cards
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/org-drill 7806c770d6 011/251: Added ability to skip cards during review (answer is not shown). |
Date: |
Mon, 17 Jan 2022 18:58:56 -0500 (EST) |
branch: elpa/org-drill
commit 7806c770d6af92f2e91afab837ac6bb908abfef8
Author: eeeickythump <devnull@localhost>
Commit: eeeickythump <devnull@localhost>
Added ability to skip cards during review (answer is not shown).
Fixed bug that caused sessions to end with "ran out of drill items" error.
---
org-drill.el | 30 +++++++++++++++++++-----------
1 file changed, 19 insertions(+), 11 deletions(-)
diff --git a/org-drill.el b/org-drill.el
index 50d8520360..8485d0faaa 100644
--- a/org-drill.el
+++ b/org-drill.el
@@ -1,7 +1,7 @@
;;; org-drill.el - Self-testing with org-learn
;;;
;;; Author: Paul Sexton <eeeickythump@gmail.com>
-;;; Version: 1.3
+;;; Version: 1.3.1
;;; Repository at http://bitbucket.org/eeeickythump/org-drill/
;;;
;;;
@@ -486,7 +486,7 @@ the current topic."
(first fmt-and-args)
(rest fmt-and-args))
(concat "Press any key to see the answer, "
- "e=edit, t=tags, q=quit."))))
+ "e=edit, t=tags, s=skip, q=quit."))))
(setq prompt
(format "%s %s %s %s"
(propertize
@@ -521,6 +521,7 @@ Consider reformulating the item to make it easier to
remember.\n"
(case ch
(?q nil)
(?e 'edit)
+ (?s 'skip)
(otherwise t))))
@@ -685,6 +686,8 @@ See `org-drill' for more details."
nil)
((eql cont 'edit)
'edit)
+ ((eql cont 'skip)
+ 'skip)
(t
(save-excursion
(org-drill-reschedule)))))))
@@ -731,10 +734,13 @@ See `org-drill' for more details."
(defun org-drill-entries-pending-p ()
- (or *org-drill-new-entries*
- *org-drill-failed-entries*
- *org-drill-mature-entries*
- *org-drill-again-entries*))
+ (or *org-drill-again-entries*
+ (and (not (org-drill-maximum-item-count-reached-p))
+ (not (org-drill-maximum-duration-reached-p))
+ (or *org-drill-new-entries*
+ *org-drill-failed-entries*
+ *org-drill-mature-entries*
+ *org-drill-again-entries*))))
(defun org-drill-pending-entry-count ()
@@ -808,6 +814,8 @@ maximum number of items."
((eql result 'edit)
(setq end-pos (point-marker))
(return-from org-drill-entries nil))
+ ((eql result 'skip)
+ nil) ; skip this item
(t
(cond
((<= result org-drill-failure-quality)
@@ -906,16 +914,16 @@ agenda-with-archives
(interactive)
(let ((entries nil)
(failed-entries nil)
- (*org-drill-new-entries* nil)
- (*org-drill-mature-entries* nil)
- (*org-drill-failed-entries* nil)
- (*org-drill-again-entries* nil)
- (*org-drill-done-entries* nil)
(result nil)
(results nil)
(end-pos nil)
(cnt 0))
(block org-drill
+ (setq *org-drill-done-entries* nil
+ *org-drill-new-entries* nil
+ *org-drill-mature-entries* nil
+ *org-drill-failed-entries* nil
+ *org-drill-again-entries* nil)
(setq *org-drill-session-qualities* nil)
(setq *org-drill-start-time* (float-time (current-time)))
(unwind-protect
- [nongnu] branch elpa/org-drill created (now bf8fe812d4), ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill a678ed9f5e 001/251: First commit, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 19efe535f7 003/251: Minor change to docs., ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 663f0a3c1e 004/251: Added README with more detailed documentation., ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill b3e8d7b931 007/251: Added tag 1.1 for changeset bc740455003b, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill c1af8a3285 008/251: Allow editing and tag-editing when prompted for recall quality., ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 259033811d 010/251: Added tag 1.3 for changeset c8dd87db2ce1, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 7806c770d6 011/251: Added ability to skip cards during review (answer is not shown).,
ELPA Syncer <=
- [nongnu] elpa/org-drill 0e2040ba7e 013/251: * Documentation added for multicloze cards and cram mode., ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 5ebfe9c717 017/251: Improved key input during drill sessions. Once the answer is revealed, it is now possible to navigate, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 1c93810202 019/251: Added tag 1.6 for changeset 6ff8dd70c108, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 5d4694dc3b 020/251: - Hide comments (#...) in items during drill sessions., ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 4c7669692d 025/251: Added tag 2.1 for changeset da0c515d1d39, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 97aad88728 029/251: - 'multicloze' card type renamed to 'hide1cloze' (though 'multicloze' is, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 02e454f8d0 033/251: Added tag 2.3 for changeset b5d5b9f5c203, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill b69d212068 053/251: Go back to using org-save-outline-visibility instead of org-drill-save-visibility -, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 6dc1b90f21 050/251: Added tag 2.3.5 for changeset 872dde6580f6, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 9cb409a1ba 012/251: * New command: 'M-x org-drill-cram'. "Cram Mode" is the same as an ordinary drill session, except, ELPA Syncer, 2022/01/17