nandi/frq · 719742d

nandi/frqpublic Fork

⑂ 719742d

Put a clock on the events, so a quiet room reads as one

A join or a quit had no time on it: the heading that carries the clock
belongs to a sender, and an event has none. A column of them said who
came and went but never when, and never how long the room was quiet in
between.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>

nandi committed 2026-08-31T07:22:28-07:00 Browse files

719742d parent: a71ef8f

modified src/frq/app.jolt +5 -0 Viewed

@@ -489,6 +489,11 @@
489	489	;; words: the name and the time say where the message came from, and the
490	490	;; chips at the far end are the two answers to it.
491	491	[:vbox {:key :who}
	492	+ ;; An event has no sender to head it, but it still happened at a time,
	493	+ ;; and a column of joins and quits with no clock on it says nothing
	494	+ ;; about how long the room was quiet. The time alone is that heading.
	495	+ (when (and (:system? m) (:at m))
	496	+ [:dim-label {:label (clock/clock-time (:at m))}])
492	497	(when-not (:system? m)
493	498	;; Everything that is about the person rather than the line: their
494	499	;; picture, their name, and when they started saying this.

        ;; words: the name and the time say where the message came from, and the
        ;; chips at the far end are the two answers to it.
        [:vbox {:key :who}
++       ;; An event has no sender to head it, but it still happened at a time,
++       ;; and a column of joins and quits with no clock on it says nothing
++       ;; about how long the room was quiet. The time alone is that heading.
++       (when (and (:system? m) (:at m))
++         [:dim-label {:label (clock/clock-time (:at m))}])
         (when-not (:system? m)
           ;; Everything that is about the person rather than the line: their
           ;; picture, their name, and when they started saying this.