diff options
| -rw-r--r-- | gnosis-algorithm.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gnosis-algorithm.el b/gnosis-algorithm.el index 1fe0f0a..3295e50 100644 --- a/gnosis-algorithm.el +++ b/gnosis-algorithm.el @@ -71,11 +71,12 @@ Optional integer OFFSET is a number of days from the current date." (+ offset (calendar-absolute-from-gregorian now)))))) (list (nth 2 date) (nth 0 date) (nth 1 date))))) -(defun gnosis-algorithm-date-diff (year month day) - "Find the difference between the current date and the given date. +(defun gnosis-algorithm-date-diff (date) + "Find the difference between the current date and the given DATE. +DATE format must be given as (yyyy mm dd) The structure of the given date is (YEAR MONTH DAY)." - (let ((given-date (encode-time 0 0 0 day month year))) + (let ((given-date (encode-time 0 0 0 (caddr date) (cadr date) (car date)))) (- (time-to-days (current-time)) (time-to-days given-date)))) @@ -118,7 +119,7 @@ Returns a tuple: (INTERVAL N EF) where, (t (if (= success 1) (* ef last-interval) (* ff last-interval)))))) - (list (gnosis-algorithm-date (round interval)) (1+ n) next-ef))) + (list (gnosis-algorithm-date (round interval)) next-ef))) (provide 'gnosis-algorithm) ;;; gnosis-algorithm.el ends here |