~rgrjr/rgr-hacks

68d95fabf40684c3b5533cfe520cca6b2fb1b22a — Bob Rogers 4 months ago 39ee6cb
Add rgr-show-pumpernickel-intervals dates, use lexical binding

* rgr-pumpernickel.el:
   + (rgr-show-pumpernickel-intervals):  Add 13-Dec and 14-Feb.
   + Also add a provide form.
1 files changed, 7 insertions(+), 2 deletions(-)

M rgr-pumpernickel.el
M rgr-pumpernickel.el => rgr-pumpernickel.el +7 -2
@@ 1,4 1,4 @@
;;;; Hacking pumpernickel timing
;;;; Hacking pumpernickel timing -*- lexical-binding: t -*-
;;;
;;; [created.  -- rgr, 20-Aug-23.]
;;;


@@ 36,7 36,8 @@ The dominant intervals correspond (so far) to 6 or 5 weeks."
    ;; The "bagel of the week" starts on Wednesday.  Go figure.
    (let* ((tail '("2022 Sep 21" "2022 Nov 02" "2022 Nov 30" "2023 Jan 11"
		   "2023 Feb 22" "2023 Mar 29" "2023 May 17" "2023 Jun 21"
		   "2023 Jul 26" "2023 Sep 06" "2023 Oct 18"))
		   "2023 Jul 26" "2023 Sep 06" "2023 Oct 18" "2023 Dec 13"
		   "2024 Jan 10" "2024 Feb 14"))
	   (histogram-size 100)
	   (histogram (make-vector histogram-size 0))
	   (last nil))


@@ 74,3 75,7 @@ The dominant intervals correspond (so far) to 6 or 5 weeks."
				      (rgr-format-days (+ last-day (car pair)))
				      (/ (* (cdr pair) 100.0) n))))
			(list (car hist) (car (cdr hist))))))))))

;; (/ (rgr-days-between "2023 Dec 13" "2023 Oct 18") 7) 8

(provide 'rgr-pumpernickel)