diff options
| author | Craig Jennings <c@cjennings.net> | 2026-04-04 12:40:27 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-04-04 12:40:27 -0500 |
| commit | 69c8deb2d7821c78475dcbb08458df6b0e56d559 (patch) | |
| tree | a55c1d8b3fc723fc25bf5ca47f668902a47bf4ed /chime.el | |
| parent | fe5a31072bfa2f6451769008a63ad5b0d9a3de17 (diff) | |
| download | chime-69c8deb2d7821c78475dcbb08458df6b0e56d559.tar.gz chime-69c8deb2d7821c78475dcbb08458df6b0e56d559.zip | |
Add 94 tests across 10 new test files and fix 2 bugs
New test coverage for previously untested functions:
- filter-day-wide-events, time utilities, day-wide time matching
- make-tooltip, event-is-today, get-tags, done-keywords-predicate
- extract-title, propertize-modeline-string, warn-persistent-failures
- log-silently
Bug fixes discovered by new tests:
- Fix pluralization in no-events tooltip ("1 hours" -> "1 hour", etc.)
- Fix chime--get-tags returning ("") instead of nil for untagged headings
Diffstat (limited to 'chime.el')
| -rw-r--r-- | chime.el | 15 |
1 files changed, 8 insertions, 7 deletions
@@ -1067,10 +1067,12 @@ Returns an alist of (DATE-STRING . EVENTS-LIST)." (let* ((hours (/ lookahead-minutes 60)) (days (/ hours 24)) (timeframe (cond - ((>= days 7) (format "%d days" days)) - ((>= hours 24) (format "%.1f days" (/ hours 24.0))) - ((>= hours 1) (format "%d hours" hours)) - (t (format "%d minutes" lookahead-minutes)))) + ((>= days 7) (format "%d day%s" days (if (= days 1) "" "s"))) + ((>= hours 24) (let ((d (/ hours 24.0))) + (format "%.1f day%s" d (if (= d 1.0) "" "s")))) + ((>= hours 1) (format "%d hour%s" hours (if (= hours 1) "" "s"))) + (t (format "%d minute%s" lookahead-minutes + (if (= lookahead-minutes 1) "" "s"))))) (header (format-time-string chime-tooltip-header-format)) (increase-var "chime-tooltip-lookahead-hours")) (concat header "\n" @@ -1240,9 +1242,8 @@ Tooltip shows events within `chime-tooltip-lookahead-hours' hours." (defun chime--get-tags (marker) "Retrieve tags of MARKER." - (-> (org-entry-get marker "TAGS") - (or "") - (org-split-string ":"))) + (when-let* ((tags-str (org-entry-get marker "TAGS"))) + (org-split-string tags-str ":"))) (defun chime--whitelist-predicates () "Return list of whitelist predicate functions. |