From f550d134f4a1ad30c425285c4d390f7277cbee32 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Sat, 4 Apr 2026 13:32:47 -0500 Subject: Remove dead code and reduce default tooltip lookahead to 1 week Remove chime--agenda-buffer-name (unused variable) and chime--extract-birthday-year (superseded by chime--parse-birthday). Reduce chime-tooltip-lookahead-hours from 8760 (1 year) to 168 (1 week). The 1-year default caused org-agenda-list to scan a 365-day span every check cycle, which is slow for large org collections. The tooltip only shows 5 events, so a week is sufficient for most users. --- tests/test-convert-org-contacts-birthdays.el | 22 ---------------------- 1 file changed, 22 deletions(-) (limited to 'tests') diff --git a/tests/test-convert-org-contacts-birthdays.el b/tests/test-convert-org-contacts-birthdays.el index 3e3c7df..df30870 100644 --- a/tests/test-convert-org-contacts-birthdays.el +++ b/tests/test-convert-org-contacts-birthdays.el @@ -279,28 +279,6 @@ (dolist (file (directory-files (file-name-directory temp-file) t (regexp-quote (file-name-nondirectory backup)))) (delete-file file)))))) -;;; Tests for year extraction - -(ert-deftest test-convert-normal-extract-birthday-year-with-year-returns-year () - "Test extracting year from YYYY-MM-DD returns the year." - (let ((result (chime--extract-birthday-year "2000-03-15"))) - (should (equal result 2000)))) - -(ert-deftest test-convert-normal-extract-birthday-year-without-year-returns-nil () - "Test extracting year from MM-DD returns nil." - (let ((result (chime--extract-birthday-year "03-15"))) - (should (null result)))) - -(ert-deftest test-convert-boundary-extract-birthday-year-very-old-date-returns-year () - "Test extracting year from very old date (1900s) returns the year." - (let ((result (chime--extract-birthday-year "1920-01-01"))) - (should (equal result 1920)))) - -(ert-deftest test-convert-boundary-extract-birthday-year-future-date-returns-year () - "Test extracting year from future date returns the year." - (let ((result (chime--extract-birthday-year "2100-12-31"))) - (should (equal result 2100)))) - ;;; Edge Case Tests (ert-deftest test-convert-edge-duplicate-timestamps-not-added () -- cgit v1.2.3