Fix: (hammy-define) Listify :stopped list

Fixes <#13>. Reported-by: Rickyfs <https://github.com/Rickyfs>
alphapapa · Sep 4, 2023 · f005898 · f005898
1 parent f4b22c4
commit f005898
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/README.org b/README.org
@@ -293,6 +293,9 @@ If you use ~tab-bar-mode~, rather than showing the Hammy status in each window's
 *Changes*
 + Add 10-minute reminders to default pomodoro timer.
 
+*Fixes*
++ Listify hammys' ~stopped~ slot.  ([[https://github.com/alphapapa/hammy.el/issues/13][#13]].  Thanks to [[https://github.com/Rickyfs][Rickyfs]] for reporting.)
+
 ** 0.2.1
 
 *Fixes*

diff --git a/hammy.el b/hammy.el
@@ -315,6 +315,7 @@ Within ARGS, these pseudo-functions and forms available:
              (listify-functions (hammy-interval-after interval))
              (listify-functions (hammy-interval-advance interval)))
            (ring-insert-at-beginning ring interval))
+         (listify-functions (hammy-stopped hammy))
          (setf (hammy-intervals hammy) ring)
          (setf hammy-hammys (cl-delete ,name hammy-hammys :test #'equal :key #'hammy-name))
          (push hammy hammy-hammys)