From 3c356dfc5a0f99d022f4bd9c6f3a2c93863c0529 Mon Sep 17 00:00:00 2001 From: Phillip Lord Date: Sat, 22 Jun 2019 17:42:06 +0100 Subject: Fix robot testing and reference to drill-typed-answer --- org-drill.el | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) (limited to 'org-drill.el') 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 -- cgit v1.2.3