diff options
| -rw-r--r-- | gnosis-dashboard.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el index 7b17239..d317ad3 100644 --- a/gnosis-dashboard.el +++ b/gnosis-dashboard.el @@ -80,6 +80,18 @@ do (setq notes (append notes (list (gnosis-get-date-total-notes date))))) notes)) +(defun gnosis-dashboard--streak (dates &optional num date) + "Return current review streak. + +DATES: Dates in the activity log. +NUM: Streak number. +DATE: Integer, used with `gnosis-algorithm-date' to get previous dates." + (let ((num (or num 0)) + (date (or date 0))) + (if (member (gnosis-algorithm-date date) dates) + (gnosis-dashboard--streak dates (cl-incf num) (- date 1)) + num))) + (defun gnosis-dashboard-month-reviews (month) "Return reviewes for MONTH in current year." (cl-assert (and (integerp month) |