Add estimates of future reviews

1 files changed, 12 insertions, 2 deletions

diff --git a/org-fc-dashboard.el b/org-fc-dashboard.el
index 97dab2e..e92dfa2 100644
--- a/org-fc-dashboard.el
+++ b/org-fc-dashboard.el
@@ -38,6 +38,16 @@
   :type 'string
   :group 'org-fc)
 
+;;; Statistics
+
+(defun org-fc-review-estimate (paths n)
+  "Positions due in the next N days"
+  (let ((now (+ (time-to-seconds (current-time))
+                (* 60 60 24 n))))
+    (count-if
+     (lambda (pos) (< (time-to-seconds (plist-get pos :due)) now))
+     (org-fc-awk-positions-for-paths paths))))
+
 ;;; Bar-Chart Generation
 
 (defun org-fc-dashboard-bar-chart (stat)
@@ -53,8 +63,8 @@
          (svg (svg-create width height)))
     (do ((values values (cdr values))
          (pos 0 (+ pos (* width (caar values)))))
-        ((null values) '())
-      (svg-rectangle svg pos 0 (* width (caar values)) height :fill (cdar values)))
+    ((null values) '())
+  (svg-rectangle svg pos 0 (* width (caar values)) height :fill (cdar values)))
     (svg-image svg)))
 
 (defun org-fc-dashboard-percent-right (stats)