diff options
| author | Phillip Lord <phillip.lord@russet.org.uk> | 2020-04-12 18:11:20 +0000 |
|---|---|---|
| committer | Phillip Lord <phillip.lord@russet.org.uk> | 2020-04-12 18:11:20 +0000 |
| commit | b05f06a4b15bffffdcaeb1a30482afd94c12746a (patch) | |
| tree | 691f7c78eb21906a03bdc3896c4bc719930d7a3f /org-drill.el | |
| parent | 0c89f344ce019e03df278578414617b74034031b (diff) | |
| parent | ec2c168797380c7e41c13a9260c79139bed3300c (diff) | |
| download | org-drill-b05f06a4b15bffffdcaeb1a30482afd94c12746a.tar.gz org-drill-b05f06a4b15bffffdcaeb1a30482afd94c12746a.zip | |
Merge branch 'branweb/fix-cram-mode' into 'master'
Allow Creating New Session in Cram Mode
See merge request phillord/org-drill!9
Diffstat (limited to 'org-drill.el')
| -rw-r--r-- | org-drill.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/org-drill.el b/org-drill.el index 48ea08a..d7a840b 100644 --- a/org-drill.el +++ b/org-drill.el @@ -2855,7 +2855,7 @@ STATUS is one of the following values: (setf (oref session warned-about-id-creation) t)) (org-id-get-create)) -(defun org-drill (&optional scope drill-match resume-p) +(defun org-drill (&optional scope drill-match resume-p cram) "Begin an interactive 'drill session'. The user is asked to review a series of topics (headers). Each topic is initially presented as a 'question', often with part of the topic content @@ -2888,7 +2888,10 @@ todo query. Only items matching the query will be considered. It accepts the same values as `org-drill-match', which see. If RESUME-P is non-nil, resume a suspended drill session rather -than starting a new one." +than starting a new one. + +CRAM, if non-nil, will start a new session in cram mode. If +resuming a suspended session, this parameter is ignored." (interactive) ;; Check org version. Org 7.9.3f introduced a backwards-incompatible change @@ -2909,7 +2912,8 @@ work correctly with older versions of org mode. Your org mode version (%s) appea (cl-block org-drill (unless resume-p (org-drill-free-markers session t) - (setf (oref session current-item) nil + (setf (oref session cram-mode) cram + (oref session current-item) nil (oref session done-entries) nil (oref session dormant-entry-count) 0 (oref session due-entry-count) 0 @@ -2980,8 +2984,7 @@ all drill items are considered to be due for review, unless they have been reviewed within the last `org-drill-cram-hours' hours." (interactive) - (setq (oref session cram-mode) t) - (org-drill scope drill-match)) + (org-drill scope drill-match nil t)) (defun org-drill-cram-tree () "Run an interactive drill session in 'cram mode' using subtree at point. |