aboutsummaryrefslogtreecommitdiff
path: root/org-drill.el
diff options
context:
space:
mode:
authorPhillip Lord <phillip.lord@russet.org.uk>2019-06-22 17:42:06 +0100
committerPhillip Lord <phillip.lord@russet.org.uk>2019-06-22 17:42:06 +0100
commit3c356dfc5a0f99d022f4bd9c6f3a2c93863c0529 (patch)
tree530899429e59f20c222af366c06bdbee590e9d9f /org-drill.el
parent1801524221c0ac835f5021aede3e38120a12db1d (diff)
downloadorg-drill-3c356dfc5a0f99d022f4bd9c6f3a2c93863c0529.tar.gz
org-drill-3c356dfc5a0f99d022f4bd9c6f3a2c93863c0529.zip
Fix robot testing and reference to drill-typed-answer
Diffstat (limited to 'org-drill.el')
-rw-r--r--org-drill.el11
1 files changed, 3 insertions, 8 deletions
diff --git a/org-drill.el b/org-drill.el
index b4f446a..1f50d4d 100644
--- a/org-drill.el
+++ b/org-drill.el
@@ -77,7 +77,7 @@ by `org-drill'."
(defcustom org-drill-maximum-items-per-session
30
- "Each drill session will present at most this many topics for review.
+ "Eaqch drill session will present at most this many topics for review.
Nil means unlimited."
:group 'org-drill
:type '(choice integer (const nil)))
@@ -1798,15 +1798,12 @@ Consider reformulating the item to make it easier to remember.\n"
(defun org-drill-presentation-prompt-in-buffer (session)
(let* ((item-start-time (current-time))
- (input nil)
- (ch nil)
- (last-second 0)
(prompt
(format (concat "Type answer then return, "
"C-c e=edit, C-c t=tags, C-c s=skip, C-c q=quit.")))
(full-prompt
(org-drill--make-minibuffer-prompt session prompt)))
- (setf (oref session drill-typed-answer) nil)
+ (setf (oref session drill-answer) nil)
(if (and (eql 'warn org-drill-leech-method)
(org-drill-entry-leech-p))
(setq full-prompt (concat
@@ -1858,7 +1855,7 @@ You seem to be having a lot of trouble memorising this item.
Consider reformulating the item to make it easier to remember.\n"
'face '(:foreground "red"))
full-prompt)))
- (setf (oref session drill-typed-answer)
+ (setf (oref session drill-answer)
(read-string full-prompt nil nil nil t))))
@@ -3098,14 +3095,12 @@ subtree at point."
(interactive)
(org-drill 'tree))
-
(defun org-drill-directory ()
"Run an interactive drill session using drill items from all org
files in the same directory as the current file."
(interactive)
(org-drill 'directory))
-
(defun org-drill-again (&optional scope drill-match)
"Run a new drill session, but try to use leftover due items that
were not reviewed during the last session, rather than scanning for