;;; org-drill.el - Self-testing using spaced repetition
;;; Author: Paul Sexton <firstname.lastname@example.org>
;;; Repository at http://bitbucket.org/eeeickythump/org-drill/
+(defun org-drill-progress-message (collected scanned)
+ (when (zerop (% scanned 50))
+ (let* ((meter-width 40)
+ (sym1 (if (oddp (floor scanned (* 50 meter-width))) ?| ?.))
+ (sym2 (if (eql sym1 ?.) ?| ?.)))
+ (message "Collecting due drill items:%4d %s%s"
+ (make-string (% (ceiling scanned 50) meter-width)
+ (make-string (- meter-width (% (ceiling scanned 50) meter-width))
(defun org-drill (&optional scope resume-p)
"Begin an interactive 'drill session'. The user is asked to
review a series of topics (headers). Each topic is initially
- (when (zerop (% (incf cnt) 50))
- (message "Processing drill items: %4d%s"
(+ (length *org-drill-new-entries*)
make-string (ceiling cnt 50) ?.)))
effect on the SM2 algorithm.
+*** Adjusting the first interval (SM5 algorithm only)
+In the SM5 algorithm, the initial interval after the first successful
+presentation of an item is /always/ 4 days. If you wish to change this for some
+reason, you can do so with:
+(setq org-drill-sm5-initial-interval 5.0)
+note that this will have no effect if you are not using the SM5 algorithm.
*** Adjusting item difficulty globally