nandi/frq · 7bc82bd

nandi/frqpublic⑂ Fork 0

⑂ 7bc82bd

Put the reply action against the right edge

It sat immediately after the timestamp, in the middle of the line the eye goes
down the column reading. It sits at the right of the row now, where an action
on a message belongs and where it stops interrupting the name and the time.

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

nandi committed 2026-08-30T12:12:24-07:00 Browse files

7bc82bd parent: 4876db8

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

@@ -281,10 +281,11 @@
281	281	[:dim-label {:label (:from m)}]
282	282	(when-let [at (:at m)]
283	283	[:dim-label {:label (clock/clock-time at)}])
284		- ;; Answering is offered where the sender is named: a run of lines from
285		- ;; one person is answered as the thing it is, rather than every line
286		- ;; of it carrying a button of its own.
287		- [:vbox {:key :reply-action}
	284	+ ;; Answering is offered where the sender is named — a run of lines
	285	+ ;; from one person is answered as the thing it is — and against the
	286	+ ;; right edge, out of the way of the name and the time, which are what
	287	+ ;; the eye is going down the column for.
	288	+ [:hbox {:key :reply-action :align :end}
288	289	(when (:id m)
289	290	[:button {:label "↩" :on-click #(s/reply-to! m)}])]])]
290	291	[:vbox {:key :text :spacing 2}

           [:dim-label {:label (:from m)}]
           (when-let [at (:at m)]
             [:dim-label {:label (clock/clock-time at)}])
--         ;; Answering is offered where the sender is named: a run of lines from
++         ;; Answering is offered where the sender is named — a run of lines
--         ;; one person is answered as the thing it is, rather than every line
++         ;; from one person is answered as the thing it is — and against the
--         ;; of it carrying a button of its own.
++         ;; right edge, out of the way of the name and the time, which are what
--         [:vbox {:key :reply-action}
++         ;; the eye is going down the column for.
++         [:hbox {:key :reply-action :align :end}
            (when (:id m)
              [:button {:label "↩" :on-click #(s/reply-to! m)}])]])]
       [:vbox {:key :text :spacing 2}