diff options
| author | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-22 17:42:06 +0100 |
|---|---|---|
| committer | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-22 17:42:06 +0100 |
| commit | 3c356dfc5a0f99d022f4bd9c6f3a2c93863c0529 (patch) | |
| tree | 530899429e59f20c222af366c06bdbee590e9d9f /org-drill.el | |
| parent | 1801524221c0ac835f5021aede3e38120a12db1d (diff) | |
| download | org-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.el | 11 |
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 |
