nandi/frq · 58fb3f3

nandi/frqpublic⑂ Fork 0

⑂ 58fb3f3

Draw the avatar as a circle, and everyone as something

The picture is a circle of a fixed size now, and a sender with no picture —
a guest, or a fetch still in flight — gets their initial on a colour of their
own rather than a gap. One straight column of faces down the left is the
point: the ragged edge was worse than no avatars at all.

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

nandi committed 2026-08-30T11:24:56-07:00 Browse files

58fb3f3 parent: f5548bd

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

@@ -237,11 +237,14 @@
237	237	;; The picture sits beside the name rather than beside the message: a
238	238	;; run of lines from one person has one header, and this belongs to it.
239	239	[:hbox {:spacing 6}
240		- [:vbox {:key :avatar}
241		- ;; Reading the tick subscribes this row to the fetch finishing.
242		- (let [_ @s/media-tick]
243		- (when-let [path (avatars/path-when-ready (:actor m))]
244		- [:image {:src path :max-height 20}]))]
	240	+ ;; Always an avatar, picture or not: the initial stands in until the
	241	+ ;; fetch lands, and for the guests who have no profile at all, which
	242	+ ;; is what keeps the column of faces straight down the left.
	243	+ ;; Reading the tick subscribes this row to a fetch finishing.
	244	+ (let [_ @s/media-tick]
	245	+ [:avatar {:label (:from m)
	246	+ :src (or (avatars/path-when-ready (:actor m)) "")
	247	+ :size 22}])
245	248	[:dim-label {:label (:from m)}]])]
246	249	[:vbox {:key :text :spacing 2}
247	250	(map-indexed (fn [j run] (run-node j run (:system? m)))

          ;; The picture sits beside the name rather than beside the message: a
          ;; run of lines from one person has one header, and this belongs to it.
          [:hbox {:spacing 6}
--         [:vbox {:key :avatar}
++         ;; Always an avatar, picture or not: the initial stands in until the
--          ;; Reading the tick subscribes this row to the fetch finishing.
++         ;; fetch lands, and for the guests who have no profile at all, which
--          (let [_ @s/media-tick]
++         ;; is what keeps the column of faces straight down the left.
--            (when-let [path (avatars/path-when-ready (:actor m))]
++         ;; Reading the tick subscribes this row to a fetch finishing.
--              [:image {:src path :max-height 20}]))]
++         (let [_ @s/media-tick]
++           [:avatar {:label (:from m)
++                     :src (or (avatars/path-when-ready (:actor m)) "")
++                     :size 22}])
           [:dim-label {:label (:from m)}]])]
       [:vbox {:key :text :spacing 2}
        (map-indexed (fn [j run] (run-node j run (:system? m)))