#+BEGIN_SRC emacs-lisp

(defun swh-percent (current total)
  (* 100 (/ current (* total 1.0))))

(swh-percent (+ 232301 27052 15531) 576787) ; 47.65780088663579 %

(defun swh-speed-repo-per-hour (yesterday today)
  (let ((diff (- today yesterday)))
    (/ diff 24)))

(swh-speed-repo-per-hour (+ 198884 23560 11848) (+ 232301 27052 15531)); 1691 r/h

(defun swh-remains-in-days (remaining-repos speed-repo-per-hour)
  (/ (/ remaining-repos speed-repo-per-hour) 24.0))

(let ((speed (swh-speed-repo-per-hour
               (+ 198884 23560 11848) (+ 232301 27052 15531)))
      (remain-repos (+ 272934 28940 29)))
  (swh-remains-in-days remain-repos speed)); 7.416666666666667 days

#+END_SRC

#+RESULTS:
: 7.416666666666667