[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-drill b161277f82 156/251: Replace more non-namespaced
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/org-drill b161277f82 156/251: Replace more non-namespaced commands |
Date: |
Mon, 17 Jan 2022 18:59:11 -0500 (EST) |
branch: elpa/org-drill
commit b161277f82d9d142d3a5728d982ad1041a81918b
Author: Phillip Lord <phillip.lord@russet.org.uk>
Commit: Phillip Lord <phillip.lord@russet.org.uk>
Replace more non-namespaced commands
---
org-drill.el | 30 +++++++++++++++---------------
1 file changed, 15 insertions(+), 15 deletions(-)
diff --git a/org-drill.el b/org-drill.el
index 6d9e09c1e1..4b05b35566 100644
--- a/org-drill.el
+++ b/org-drill.el
@@ -1104,7 +1104,7 @@ Returns a list: (INTERVAL REPEATS EF FAILURES MEAN
TOTAL-REPEATS OFMATRIX), wher
(list -1 1 ef (1+ failures) meanq (1+ total-repeats)
org-drill-sm5-optimal-factor-matrix)
;; else:
- (let* ((next-ef (modify-e-factor ef quality))
+ (let* ((next-ef (org-drill-modify-e-factor ef quality))
(interval
(cond
((<= n 1) 1)
@@ -1131,16 +1131,16 @@ Returns a list: (INTERVAL REPEATS EF FAILURES MEAN
TOTAL-REPEATS OFMATRIX), wher
;;; SM5 Algorithm =============================================================
-(defun modify-e-factor (ef quality)
+(defun org-drill-modify-e-factor (ef quality)
(if (< ef 1.3)
1.3
(+ ef (- 0.1 (* (- 5 quality) (+ 0.08 (* (- 5 quality) 0.02)))))))
-(defun modify-of (of q fraction)
+(defun org-drill-modify-of (of q fraction)
(let ((temp (* of (+ 0.72 (* q 0.07)))))
(+ (* (- 1 fraction) of) (* fraction temp))))
-(defun set-optimal-factor (n ef of-matrix of)
+(defun org-drill-set-optimal-factor (n ef of-matrix of)
(let ((factors (assoc n of-matrix)))
(if factors
(let ((ef-of (assoc ef (cdr factors))))
@@ -1150,12 +1150,12 @@ Returns a list: (INTERVAL REPEATS EF FAILURES MEAN
TOTAL-REPEATS OFMATRIX), wher
(push (cons n (list (cons ef of))) of-matrix)))
of-matrix)
-(defun initial-optimal-factor-sm5 (n ef)
+(defun org-drill-initial-optimal-factor-sm5 (n ef)
(if (= 1 n)
org-drill-sm5-initial-interval
ef))
-(defun get-optimal-factor-sm5 (n ef of-matrix)
+(defun org-drill-get-optimal-factor-sm5 (n ef of-matrix)
(let ((factors (assoc n of-matrix)))
(or (and factors
(let ((ef-of (assoc ef (cdr factors))))
@@ -1164,7 +1164,7 @@ Returns a list: (INTERVAL REPEATS EF FAILURES MEAN
TOTAL-REPEATS OFMATRIX), wher
(defun inter-repetition-interval-sm5 (last-interval n ef &optional of-matrix)
- (let ((of (get-optimal-factor-sm5 n ef (or of-matrix
+ (let ((of (org-drill-get-optimal-factor-sm5 n ef (or of-matrix
org-drill-sm5-optimal-factor-matrix))))
(if (= 1 n)
of
@@ -1187,21 +1187,21 @@ Returns a list: (INTERVAL REPEATS EF FAILURES MEAN
TOTAL-REPEATS OFMATRIX), wher
(1+ total-repeats))
quality))
- (let ((next-ef (modify-e-factor ef quality))
+ (let ((next-ef (org-drill-modify-e-factor ef quality))
(old-ef ef)
- (new-of (modify-of (get-optimal-factor-sm5 n ef of-matrix)
+ (new-of (org-drill-modify-of (org-drill-get-optimal-factor-sm5 n ef
of-matrix)
quality org-drill-learn-fraction))
(interval nil))
(when (and org-drill-adjust-intervals-for-early-and-late-repetitions-p
delta-days (cl-minusp delta-days))
(setq new-of (org-drill-early-interval-factor
- (get-optimal-factor-sm5 n ef of-matrix)
+ (org-drill-get-optimal-factor-sm5 n ef of-matrix)
(inter-repetition-interval-sm5
last-interval n ef of-matrix)
delta-days)))
(setq of-matrix
- (set-optimal-factor n next-ef of-matrix
+ (org-drill-set-optimal-factor n next-ef of-matrix
(org-drill-round-float new-of 3))) ; round OF to
3 d.p.
(setq ef next-ef)
@@ -3634,17 +3634,17 @@ returns its return value."
(org-drill-present-card-using-text
(format "\nTranslate into English:\n\n%s\n"
(propertize
- (spelln-integer-in-language drilled-number language)
+ (org-drill-spelln-integer-in-language drilled-number
language)
'face highlight-face))
- (spelln-integer-in-language drilled-number 'english-gb)))
+ (org-drill-spelln-integer-in-language drilled-number 'english-gb)))
(t
(org-drill-present-card-using-text
(format "\nTranslate into %s:\n\n%s\n"
(capitalize (format "%s" language))
(propertize
- (spelln-integer-in-language drilled-number 'english-gb)
+ (org-drill-spelln-integer-in-language drilled-number
'english-gb)
'face highlight-face))
- (spelln-integer-in-language drilled-number language))))))))
+ (org-drill-spelln-integer-in-language drilled-number language))))))))
;; (defun org-drill-show-answer-translate-number (reschedule-fn)
- [nongnu] elpa/org-drill 4d9bdb6836 115/251: Add org-learn, (continued)
- [nongnu] elpa/org-drill 4d9bdb6836 115/251: Add org-learn, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 939f2a65b2 114/251: Enable cask testing, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 533a3a84ee 117/251: Add gitlab-ci.yml, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 54cde2dbf7 132/251: Move to eieio objects, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill be851b9eb4 142/251: Refactor robot testing, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 1470bdb487 131/251: Remove org-drill-new-entries, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 50885fbeea 146/251: Refactor robot testing to allow multiple tests, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill c58cb90ff0 123/251: Update gitignore, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 644b0a5cbc 126/251: Remove org-learn as a separate package, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 9aa3e98ea0 130/251: Remove org-drill-start-time, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill b161277f82 156/251: Replace more non-namespaced commands,
ELPA Syncer <=
- [nongnu] elpa/org-drill 61fe47deb8 152/251: Replace drill-answer, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 02b507b839 151/251: Add leitner robot test and fix, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 6533b73246 164/251: Support changing small sleep on command line, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill a949ece724 165/251: Remove more dynamic scoping errors, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 82c2ec8b1f 189/251: Replace call to gensym with cl-gensym, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 4300ef9d4c 168/251: Fix broken form in org-drill-resume, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 58b353993c 158/251: Complete namespace cleanliness, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 77480ae0a2 181/251: Remove arguments from presentation-prompt, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 5a405f5d08 188/251: Fix session call in org-drill-sm-or-leitner, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill c44ca7447b 199/251: Document explainer, ELPA Syncer, 2022/01/17