[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-drill 5bc955b066 140/251: Remove overdue-data dynamic
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/org-drill 5bc955b066 140/251: Remove overdue-data dynamic scoping |
Date: |
Mon, 17 Jan 2022 18:59:10 -0500 (EST) |
branch: elpa/org-drill
commit 5bc955b0667dbaa579f07fb291f244855eacf9a3
Author: Phillip Lord <phillip.lord@russet.org.uk>
Commit: Phillip Lord <phillip.lord@russet.org.uk>
Remove overdue-data dynamic scoping
---
org-drill.el | 21 +++++++++++----------
1 file changed, 11 insertions(+), 10 deletions(-)
diff --git a/org-drill.el b/org-drill.el
index d50bdf3a63..a3694d0640 100644
--- a/org-drill.el
+++ b/org-drill.el
@@ -640,7 +640,7 @@ for review unless they were already reviewed in the recent
past?"
(warned-about-id-creation
:initform nil
:documentation "Have we warned the user about ID creation this session?")
-
+ (overdue-data :initform nil)
)
:documentation "An org-drill session object carries data about
the current state of a particular org-drill session." )
@@ -2840,13 +2840,15 @@ all the markers used by Org-Drill will be freed."
;;; if age > lapse threshold (default 90), sort by age (oldest first)
;;; if age < lapse threshold, sort by due (biggest first)
-(defun org-drill-order-overdue-entries (session overdue-data)
+(defun org-drill-order-overdue-entries (session)
(let* ((lapsed-days (if org-drill--lapse-very-overdue-entries-p
90 most-positive-fixnum))
(not-lapsed (cl-remove-if (lambda (a) (> (or (cl-second a) 0)
lapsed-days))
- overdue-data))
- (lapsed (cl-remove-if-not (lambda (a) (> (or (cl-second a) 0)
- lapsed-days)) overdue-data)))
+ (oref session overdue-data)))
+ (lapsed (cl-remove-if-not
+ (lambda (a) (> (or (cl-second a) 0)
+ lapsed-days))
+ (oref session overdue-data))))
(setf (oref session overdue-entries)
(mapcar 'first
(append
@@ -2960,7 +2962,7 @@ STATUS is one of the following values:
(length (oref session failed-entries)))
(cl-incf cnt))
(when (org-drill-entry-p)
- (org-drill-id-get-create-with-warning session )
+ (org-drill-id-get-create-with-warning session)
(cl-destructuring-bind (status due age)
(org-drill-entry-status)
(cl-case status
@@ -2980,7 +2982,8 @@ STATUS is one of the following values:
(:young
(push (point-marker) (oref session young-mature-entries)))
(:overdue
- (push (list (point-marker) due age) overdue-data))
+ ;; dynamic
+ (push (list (point-marker) due age) (oref session overdue-data)))
(:old
(push (point-marker) (oref session old-mature-entries)))
))))
@@ -3047,7 +3050,6 @@ work correctly with older versions of org mode. Your org
mode version (%s) appea
org-drill-last-session
(org-drill-session)))
(end-pos nil)
- (overdue-data nil)
(cnt 0))
(cl-block org-drill
(unless resume-p
@@ -3072,7 +3074,7 @@ work correctly with older versions of org mode. Your org
mode version (%s) appea
(org-map-drill-entries
(apply-partially #'org-map-drill-entry-function session)
scope drill-match)
- (org-drill-order-overdue-entries session overdue-data)
+ (org-drill-order-overdue-entries session)
(setf (oref session overdue-entry-count)
(length (oref session overdue-entries)))))
(setf (oref session due-entry-count)
@@ -3810,7 +3812,6 @@ Returns a list of strings."
(pending (org-drill-pending-entry-count session)))
(unless (cl-plusp pending)
(let ((cnt 0)
- (overdue-data nil)
(end-pos nil))
(org-map-drill-entries
(apply-partially 'org-map-drill-entry-function session)
- [nongnu] elpa/org-drill 201e6991df 100/251: Added tag 2.6 for changeset f96493b0ba4a, (continued)
- [nongnu] elpa/org-drill 201e6991df 100/251: Added tag 2.6 for changeset f96493b0ba4a, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 66d74724d7 090/251: Turn off input method while reading events, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 6fc2bfe8c3 103/251: SM2 algorithm should now actually work., ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 615ce00d86 105/251: Fix org-drill-hide-subheadings-if, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 941ad8c2b8 110/251: Add leitner learning, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 355c3a602f 108/251: Merge fix/do-not-match-lockfile, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 5e05755fdf 118/251: Update load-test name, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill d2591c4676 116/251: Dependency clean ups, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 72c774b55d 149/251: Rename free-marker into namespace, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 68d1e33e03 135/251: Replace overdue-entries, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 5bc955b066 140/251: Remove overdue-data dynamic scoping,
ELPA Syncer <=
- [nongnu] elpa/org-drill a45d80654e 144/251: Tweak Robot testing, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 0239ffd27a 160/251: Remove unused definitions, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill ac7ca1346f 185/251: Complete clean of byte compile messages, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill f72d8adda3 180/251: Extend README, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill e7460b6262 198/251: Regularize use of scope, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill b0a376b3ed 203/251: Ignore created elpa directory, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 3cf59ccba6 226/251: Update documentation, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill ecf4bae5ce 237/251: Fix typo "Eaqch" to "Each", ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 64d878afe3 212/251: Update README's installation instructions, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill fca357cad8 220/251: Add blank line between authors in README, ELPA Syncer, 2022/01/17